diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2011-04-29 01:11:03 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2011-04-29 01:11:03 (GMT) |
| commit | c7a967c13958ca51cd87ce6b074c8c1ef734913d (patch) | |
| tree | 33a2d02e8d1e57be5dc8c8c3ec768669db6eba44 /library/demos/toolbar.tcl | |
| parent | 07dc9808f36d774371138f766748daa30c9e899d (diff) | |
| download | tk-c7a967c13958ca51cd87ce6b074c8c1ef734913d.zip tk-c7a967c13958ca51cd87ce6b074c8c1ef734913d.tar.gz tk-c7a967c13958ca51cd87ce6b074c8c1ef734913d.tar.bz2 | |
Implement support for [wm forget] and [wm manage] on OS X; fix issue with library stripping in install-sh
Diffstat (limited to 'library/demos/toolbar.tcl')
| -rw-r--r-- | library/demos/toolbar.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/toolbar.tcl b/library/demos/toolbar.tcl index 81724eb..d5f1159 100644 --- a/library/demos/toolbar.tcl +++ b/library/demos/toolbar.tcl @@ -17,7 +17,7 @@ wm title $w "Toolbar Demonstration" wm iconname $w "toolbar" positionWindow $w -if {[tk windowingsystem] ne "aqua"} { +if {[tk windowingsystem] ne {}} { ttk::label $w.msg -wraplength 4i -text "This is a demonstration of how to do\ a toolbar that is styled correctly and which can be torn off. The\ buttons are configured to be \u201Ctoolbar style\u201D buttons by\ @@ -38,7 +38,7 @@ ttk::label $w.msg -wraplength 4i -text "This is a demonstration of how to do\ set t [frame $w.toolbar] ;# Must be a frame! ttk::separator $w.sep ttk::frame $t.tearoff -cursor fleur -if {[tk windowingsystem] ne "aqua"} { +if {[tk windowingsystem] ne {}} { ttk::separator $t.tearoff.to -orient vertical ttk::separator $t.tearoff.to2 -orient vertical pack $t.tearoff.to -fill y -expand 1 -padx 2 -side left @@ -49,7 +49,7 @@ grid $t.tearoff $t.contents -sticky nsew grid columnconfigure $t $t.contents -weight 1 grid columnconfigure $t.contents 1000 -weight 1 -if {[tk windowingsystem] ne "aqua"} { +if {[tk windowingsystem] ne {}} { ## Bindings so that the toolbar can be torn off and reattached bind $t.tearoff <B1-Motion> [list tearoff $t %X %Y] bind $t.tearoff.to <B1-Motion> [list tearoff $t %X %Y] |