--- a/MenuPanel.st	Thu Nov 28 15:30:05 2013 +0100
+++ b/MenuPanel.st	Thu Nov 28 16:30:02 2013 +0100
@@ -1609,7 +1609,14 @@
     "return the color used for etching disabled items.
      If nil, no 3D effect is drawn."
 
+    |bg|
+
+    (bg := self backgroundColor) = DefaultBackgroundColor ifFalse:[
+        ^ bg mixed:0.5 with:Color white
+    ].
     ^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
+
+    "Modified: / 28-11-2013 / 16:28:25 / cg"
 !
 
 disabledForegroundColor
@@ -8694,11 +8701,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.571 2013-09-25 15:31:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.572 2013-11-28 15:30:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.571 2013-09-25 15:31:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.572 2013-11-28 15:30:02 cg Exp $'
 ! !