Updated to tk 8.4.1

[pf3gnuchains/sourceware.git] / tk / library / demos / menubu.tcl

diff --git a/tk/library/demos/menubu.tcl b/tk/library/demos/menubu.tcl
index dc0681e..2f9fea9 100644 (file)
--- a/tk/library/demos/menubu.tcl
+++ b/tk/library/demos/menubu.tcl
@@ -57,7 +57,8 @@ pack $body.buttons -padx 25 -pady 25
 tk_optionMenu $body.buttons.options menubuttonoptions one two three
 pack $body.buttons.options -side left -padx 25 -pady 25
 set m [tk_optionMenu $body.buttons.colors paletteColor Black red4 DarkGreen NavyBlue gray75 Red Green Blue gray50 Yellow Cyan Magenta White Brown DarkSeaGreen DarkViolet]
-if {$tcl_platform(platform) == "macintosh"} {
+if {[string equal [tk windowingsystem] "classic"]
+       || [string equal [tk windowingsystem] "aqua"]} {
     set topBorderColor Black
     set bottomBorderColor Black
 } else {
@@ -91,4 +92,3 @@ pack $body.buttons.colors -side left -padx 25 -pady 25
 
 
 
-