diff -r ff2a970ba725 -r 20778fc5b77e MenuPanel.st --- 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 $' ! !