diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-05 13:31:12 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-05 13:31:12 (GMT) |
| commit | 73d34baf565c3f2e0c8d2170107eb971e5a8aeb6 (patch) | |
| tree | 0d6e79cf6f98d14111824102112d825b03208127 /library/demos/widget | |
| parent | f6d89d1df43d0c501578740935e154d989db0d9b (diff) | |
| download | tk-73d34baf565c3f2e0c8d2170107eb971e5a8aeb6.zip tk-73d34baf565c3f2e0c8d2170107eb971e5a8aeb6.tar.gz tk-73d34baf565c3f2e0c8d2170107eb971e5a8aeb6.tar.bz2 | |
Dutch messages for widget demo from Arjen Markus. [Patch 836368]
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/widget b/library/demos/widget index da680d1..4a1c3c5 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.19 2003/11/04 13:26:33 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.20 2003/11/05 13:31:12 dkf Exp $ package require Tcl 8.4 package require Tk 8.4 @@ -118,7 +118,7 @@ if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} { -command {exit} -accelerator [mc "Meta-Q"] . configure -menu .menuBar bind . <F1> {aboutBox} -bind . <Meta-q> {exit} +bind . <[mc "Meta-q"]> {exit} frame .statusBar label .statusBar.lab -text " " -relief sunken -bd 1 \ |