diff options
Diffstat (limited to 'library/demos/square')
| -rw-r--r-- | library/demos/square | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/library/demos/square b/library/demos/square index 5b5ca24..b7dd78f 100644 --- a/library/demos/square +++ b/library/demos/square @@ -11,6 +11,9 @@ exec wish "$0" "$@" # 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: |