diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
| commit | 3525b8b01c138cbc30c498a9e0f9a587dab26e32 (patch) | |
| tree | ba3e06ffe6fd6984eed8bc65e6beca7e61d4e076 /library/demos/menu.tcl | |
| parent | 9f976792239fa11da36f575e206bd8e6f1cc0045 (diff) | |
| download | tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.zip tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.gz tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.bz2 | |
Remove various unnecessary "global tcl_platform" occurrences, which are no longer used.
Add "Fit To Screen Width" menu entry to Windows (and android) console menu. Ported from androwish.
Diffstat (limited to 'library/demos/menu.tcl')
| -rw-r--r-- | library/demos/menu.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index e19df57..e32b54f 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -16,7 +16,7 @@ wm title $w "Menu Demonstration" wm iconname $w "menu" positionWindow $w -label $w.msg -font $font -wraplength 4i -justify left +label $w.msg -font $font -wraplength 4i -justify left if {[tk windowingsystem] eq "aqua"} { catch {set origUseCustomMDEF $::tk::mac::useCustomMDEF; set ::tk::mac::useCustomMDEF 1} $w.msg configure -text "This window has a menubar with cascaded menus. You can invoke entries with an accelerator by typing Command+x, where \"x\" is the character next to the command key symbol. The rightmost menu can be torn off into a palette by selecting the first item in the menu." |