Import Tk 8.6.10

2020-09-24 22:55:34 +01:00
parent 5ba5cbc9af
commit 42c69189d9
365 changed files with 24323 additions and 12832 deletions
--- a/library/demos/square
+++ b/library/demos/square
@@ -27,7 +27,7 @@ focus .s

 proc center {x y} {
    set a [.s size]
-    .s position [expr $x-($a/2)] [expr $y-($a/2)]
+    .s position [expr {$x-($a/2)}] [expr {$y-($a/2)}]
 }

 # The procedures below provide a simple form of animation where