diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/menu.tcl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index 6989523..56a29da 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -144,9 +144,17 @@ $m entryconfigure "Does almost nothing" -bitmap questhead -compound left \ set m $w.menu.colors $w.menu add cascade -label "Colors" -menu $m -underline 1 menu $m -tearoff 1 -foreach i {red orange yellow green blue} { - $m add command -label $i -background $i -command [list \ - puts "You invoked \"$i\"" ] +if {[tk windowingsystem] eq "aqua"} { + # In aqua, changing the background actually adds a colored underline. + foreach i {red orange yellow green blue} { + $m add command -label $i -foreground $i -command [list \ + puts "You invoked \"$i\"" ] + } +} else { + foreach i {red orange yellow green blue} { + $m add command -label $i -background $i -command [list \ + puts "You invoked \"$i\"" ] + } } $w configure -menu $w.menu |