summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-03-17 23:55:12 (GMT)
committerdas <das>2008-03-17 23:55:12 (GMT)
commit0c94e168db4406390a2cc05da64a0751cbf9ae7f (patch)
tree5eeb52ce056e26157ea3314cf2389c00a7d41873
parent68c156e89b412c02403414a90f9bf4108621387c (diff)
downloadtk-0c94e168db4406390a2cc05da64a0751cbf9ae7f.zip
tk-0c94e168db4406390a2cc05da64a0751cbf9ae7f.tar.gz
tk-0c94e168db4406390a2cc05da64a0751cbf9ae7f.tar.bz2
Aqua GOOBE
-rw-r--r--library/demos/goldberg.tcl8
1 files changed, 6 insertions, 2 deletions
diff --git a/library/demos/goldberg.tcl b/library/demos/goldberg.tcl
index f8ee86a..284b5c2 100644
--- a/library/demos/goldberg.tcl
+++ b/library/demos/goldberg.tcl
@@ -96,7 +96,7 @@ set C(24a) red; set C(24b) white;
proc DoDisplay {w} {
global S C
- frame $w.ctrl -relief ridge -bd 2 -padx 5 -pady 5
+ ttk::frame $w.ctrl -relief ridge -borderwidth 2 -padding 5
pack [frame $w.screen -bd 2 -relief raised] \
-side left -fill both -expand 1
@@ -112,7 +112,11 @@ proc DoDisplay {w} {
}
DoCtrlFrame $w
DoDetailFrame $w
- ttk::button $w.show -text "\u00bb" -command [list ShowCtrl $w] -width 2
+ if {[tk windowingsystem] ne "aqua"} {
+ ttk::button $w.show -text "\u00bb" -command [list ShowCtrl $w] -width 2
+ } else {
+ button $w.show -text "\u00bb" -command [list ShowCtrl $w] -width 2 -highlightbackground $C(bg)
+ }
place $w.show -in $w.c -relx 1 -rely 0 -anchor ne
update
}