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/rolodex | |
| 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/rolodex')
| -rw-r--r-- | library/demos/rolodex | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/library/demos/rolodex b/library/demos/rolodex index e117edf..30946aa 100644 --- a/library/demos/rolodex +++ b/library/demos/rolodex @@ -8,7 +8,9 @@ exec wish "$0" ${1+"$@"} # feel of a rolodex program, although it's lifeless and doesn't # actually do the rolodex application. # -# RCS: @(#) $Id: rolodex,v 1.4 2001/11/05 10:13:53 dkf Exp $ +# RCS: @(#) $Id: rolodex,v 1.5 2003/09/30 14:54:30 dkf Exp $ + +package require Tk foreach i [winfo child .] { catch {destroy $i} @@ -43,6 +45,10 @@ pack .buttons.clear .buttons.add .buttons.search .buttons.delete \ # Phase 1: Add menus, dialog boxes #------------------------------------------ +# DKF - note that this is an old-style menu bar; I just have not yet +# got around to converting the context help code to work with the new +# menu system and its <<MenuSelect>> virtual event. + frame .menu -relief raised -borderwidth 1 pack .menu -before .frame -side top -fill x @@ -194,3 +200,7 @@ set helpTopics(version) "This is version $version." -underline 3 .menu.help.m add command -label "On Version..." -command {Help version} \ -underline 3 + +# Local Variables: +# mode: tcl +# End: |