diff options
author | culler <culler> | 2018-12-01 16:22:48 (GMT) |
---|---|---|
committer | culler <culler> | 2018-12-01 16:22:48 (GMT) |
commit | 9ad8f59dd2d38ae5e225f1f9e2a54b6c8a4e4718 (patch) | |
tree | 235b868488ee7cde0e8b26e15d09c4ca464b31ed /library | |
parent | dbf1875126153a5dff05b89cbd7ab1d9ce6ef5d0 (diff) | |
download | tk-9ad8f59dd2d38ae5e225f1f9e2a54b6c8a4e4718.zip tk-9ad8f59dd2d38ae5e225f1f9e2a54b6c8a4e4718.tar.gz tk-9ad8f59dd2d38ae5e225f1f9e2a54b6c8a4e4718.tar.bz2 |
On the mac, use the default menu bar for the widget demo.
Diffstat (limited to 'library')
-rw-r--r-- | library/demos/widget | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/library/demos/widget b/library/demos/widget index 2b4e3f8..6d0b045 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -92,13 +92,14 @@ image create photo ::img::new -format GIF -data [mc { }] #---------------------------------------------------------------- -# The code below create the main window, consisting of a menu bar and a text +# The code below creates the main window, consisting of a menu bar and a text # widget that explains how to use the program, plus lists all of the demos as # hypertext items. #---------------------------------------------------------------- menu .menuBar -tearoff 0 +# On Aqua, just use the default menu. if {[tk windowingsystem] ne "aqua"} { # This is a tk-internal procedure to make i18n easier ::tk::AmpMenuArgs .menuBar add cascade -label [mc "&File"] \ @@ -118,15 +119,9 @@ if {[tk windowingsystem] ne "aqua"} { -command {exit} -accelerator [mc "Meta-Q"] bind . <[mc "Meta-q"]> {exit} } -} else { - menu .menuBar.view -tearoff 0 - .menuBar add cascade -label "View" -menu .menuBar.view - menu .menuBar.window -tearoff 0 - .menuBar add cascade -label "Window" -menu .menuBar.window + . configure -menu .menuBar } -. configure -menu .menuBar - ttk::frame .statusBar ttk::label .statusBar.lab -text " " -anchor w if {[tk windowingsystem] eq "aqua"} { |