summaryrefslogtreecommitdiffstats
path: root/library/demos/square
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos/square')
-rw-r--r--library/demos/square7
1 files changed, 7 insertions, 0 deletions
diff --git a/library/demos/square b/library/demos/square
index ca7b42a..08c362b 100644
--- a/library/demos/square
+++ b/library/demos/square
@@ -11,6 +11,9 @@ exec wish "$0" ${1+"$@"}
# Button-1 press/drag: moves square to mouse
# "a": toggle size animation on/off
+package require Tk ;# We use Tk generally, and...
+package require Tktest ;# ... we use the square widget too.
+
square .s
pack .s -expand yes -fill both
wm minsize . 1 1
@@ -51,3 +54,7 @@ proc timer {} {
.s size [expr {$s+$inc}]
after 30 timer
}
+
+# Local Variables:
+# mode: tcl
+# End: