diff options
| author | culler <culler> | 2018-11-30 22:11:48 (GMT) |
|---|---|---|
| committer | culler <culler> | 2018-11-30 22:11:48 (GMT) |
| commit | dbf1875126153a5dff05b89cbd7ab1d9ce6ef5d0 (patch) | |
| tree | da98509c5fc6e022f17a7d355153b31cbbac4ae3 /library/demos/widget | |
| parent | 2f18a3f080b8f55b2b4be4a90e948531f203eb7d (diff) | |
| download | tk-dbf1875126153a5dff05b89cbd7ab1d9ce6ef5d0.zip tk-dbf1875126153a5dff05b89cbd7ab1d9ce6ef5d0.tar.gz tk-dbf1875126153a5dff05b89cbd7ab1d9ce6ef5d0.tar.bz2 | |
Make tabbed windows work correctly on macOS.
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/library/demos/widget b/library/demos/widget index 1d838ad..2b4e3f8 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -118,6 +118,11 @@ 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 |