--- a/MenuView.st	Wed Aug 07 13:36:47 2002 +0200
+++ b/MenuView.st	Thu Aug 08 09:23:43 2002 +0200
@@ -1372,7 +1372,9 @@
 
     disabledEtchedFgColor notNil ifTrue:[
         (self isInSelection:l) ifFalse:[
-            s := s asText emphasisAllAdd:(#etchColor -> disabledEtchedFgColor)
+            (self isEnabled:l) ifFalse:[
+                s := s asText emphasisAllAdd:(#etchColor -> disabledEtchedFgColor)
+            ]
         ]
     ].
     isSubMenuEntry := (subMenus notNil and:[(subMenus at:l) notNil]).
@@ -2762,5 +2764,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.136 2002-08-06 08:42:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.137 2002-08-08 07:23:43 cg Exp $'
 ! !