* mainframe.tcl Menu text shows white on white on Mac aqua

[Bug 3105665] reported by Scott Smedley fixed by Kevin Walzer.

Author: oehhar

ChangeLog

@@ -1,27 +1,32 @@
 # ------------------------------------------------------------------------------
 #  ChangeLog
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: ChangeLog,v 1.218 2010/05/31 14:56:44 oehhar Exp $
+#  $Id: ChangeLog,v 1.219 2010/11/09 16:04:45 oehhar Exp $
 # ------------------------------------------------------------------------------
 
-2010-05-31 Harald Oehlmann < [email protected]>
+2010-11-09 Harald Oehlmann <[email protected]>
+
+	* mainframe.tcl Menu text shows white on white on Mac aqua
+	[Bug 3105665] reported by Scott Smedley fixed by Kevin Walzer.
+
+2010-05-31 Harald Oehlmann <[email protected]>
 
 	* listbox.html Reflected patch 2010-05-12 in documentation.
 	The selection may not be disabled any more by binding button 1.
 
-2010-05-12 Harald Oehlmann < [email protected]>
+2010-05-12 Harald Oehlmann <[email protected]>
 
 	* listbox.tcl(ListBox::bindText and ListBox::bindImage)
 	Method bindText and bindImage overwrote internal selection
 	bindings [Bug 3000293] reported by Robert Karen.
 
-2010-05-11 Harald Oehlmann < [email protected]>
+2010-05-11 Harald Oehlmann <[email protected]>
 
 	* listbox.tcl(ListBox::see) Method see shifts image out of
 	view. Showed up, by a selection click on a long item with icon
 	[Bug 2999764] reported by Robert Karen.
 
-2010-05-05 Harald Oehlmann < [email protected]>
+2010-05-05 Harald Oehlmann <[email protected]>
 
 	* listbox.tcl(ListBox::_configureSelectmode) Drag modifies
 	multiple selection [Bug 2995969] reported by Robert Karen.

mainframe.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  mainframe.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: mainframe.tcl,v 1.26 2009/10/25 20:55:36 oberdorfer Exp $
+#  $Id: mainframe.tcl,v 1.27 2010/11/09 16:04:45 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - MainFrame::create
@@ -512,7 +512,8 @@ proc MainFrame::_create_menubar { path descmenu } {
 	}
     }
 
-    if { ![BWidget::using ttk] && $tcl_platform(platform) == "unix" } {
+    if { ![BWidget::using ttk] && $tcl_platform(platform) == "unix"
+        && [tk windowingsystem] !="aqua" } {
 	set menuopts [list -background [Widget::getoption $path -background] \
 			  -borderwidth 1]
     } else {