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/menubu.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/menubu.tcl')
| -rw-r--r-- | library/demos/menubu.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/menubu.tcl b/library/demos/menubu.tcl index 86326b5..96e3b15 100644 --- a/library/demos/menubu.tcl +++ b/library/demos/menubu.tcl @@ -21,7 +21,7 @@ pack $w.body -expand 1 -fill both if {[tk windowingsystem] eq "aqua"} {catch {set origUseCustomMDEF $::tk::mac::useCustomMDEF; set ::tk::mac::useCustomMDEF 1}} menubutton $w.body.below -text "Below" -underline 0 -direction below -menu $w.body.below.m -relief raised -menu $w.body.below.m -tearoff 0 +menu $w.body.below.m -tearoff 0 $w.body.below.m add command -label "Below menu: first item" -command "puts \"You have selected the first item from the Below menu.\"" $w.body.below.m add command -label "Below menu: second item" -command "puts \"You have selected the second item from the Below menu.\"" grid $w.body.below -row 0 -column 1 -sticky n |