diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-30 14:54:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-09-30 14:54:29 (GMT) |
| commit | 89cb52358e92bd6496cf8068147b904a689dd870 (patch) | |
| tree | e0a362b7a1e36df8ae583f336d3235ec1b5e6688 /library/demos/square | |
| parent | aba06731f7bcc8bfdbee568d70e1fd8611f6dce4 (diff) | |
| download | tk-89cb52358e92bd6496cf8068147b904a689dd870.zip tk-89cb52358e92bd6496cf8068147b904a689dd870.tar.gz tk-89cb52358e92bd6496cf8068147b904a689dd870.tar.bz2 | |
Added [package require] to demos. [FRQ 815118]
Diffstat (limited to 'library/demos/square')
| -rw-r--r-- | library/demos/square | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/library/demos/square b/library/demos/square index b02e187..743148d 100644 --- a/library/demos/square +++ b/library/demos/square @@ -11,7 +11,10 @@ exec wish "$0" "$@" # Button-1 press/drag: moves square to mouse # "a": toggle size animation on/off # -# RCS: @(#) $Id: square,v 1.2 1998/09/14 18:23:30 stanton Exp $ +# RCS: @(#) $Id: square,v 1.3 2003/09/30 14:54:30 dkf Exp $ + +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 @@ -53,3 +56,7 @@ proc timer {} { .s size [expr {$s+$inc}] after 30 timer } + +# Local Variables: +# mode: tcl +# End: |