Import build of Tcl/Tk 8.6.10

2020-09-24 23:32:28 +01:00
parent 86027ce3ed
commit c0c00d5551
498 changed files with 65344 additions and 64042 deletions
--- a/win32/lib/tk8.6/demos/square
+++ b/win32/lib/tk8.6/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