--- a/MenuPanel.st	Sat Dec 22 14:00:23 2018 +0100
+++ b/MenuPanel.st	Sun Dec 23 00:31:42 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -1726,14 +1728,21 @@
 enteredBackgroundColor
     "return the background color for entered items"
 
-    ^ styleSheet colorAt:#'menu.enteredBackgroundColor'
-                 default:(self backgroundColor)
+    ^ styleSheet 
+        colorAt:#'menu.enteredBackgroundColor'
+        default:(self backgroundColor)
+
+    "Modified (format): / 23-12-2018 / 00:30:28 / Claus Gittinger"
 !
 
 enteredForegroundColor
     "return the foreground color for entered items"
 
-    ^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
+    ^ styleSheet 
+        colorAt:#'menu.enteredForegroundColor' 
+        default:fgColor
+
+    "Modified (format): / 23-12-2018 / 00:30:37 / Claus Gittinger"
 !
 
 font:aFont
@@ -4320,7 +4329,8 @@
             ]
         ] ifFalse:[
             (self enteredLevel ~~ 0
-              or:[self enteredBackgroundColor ~= self backgroundColor]
+              or:[ (self enteredBackgroundColor ~= self backgroundColor)
+              or:[self enteredForegroundColor ~= self foregroundColor ]]
             ) ifTrue:[
                 newItem := anItemOrNil
             ]
@@ -4340,7 +4350,7 @@
         ].
     ].
 
-    "Modified: / 19-11-2018 / 15:08:49 / Claus Gittinger"
+    "Modified: / 23-12-2018 / 00:31:33 / Claus Gittinger"
 !
 
 processHideMenuEvent:ev
@@ -5184,7 +5194,7 @@
      we have non translated sub menus (when using them later for viewing).
      Problem expecco Menu 'View' was somethimes untranslated and somethimes not.
      Dependent if this code was called before the user did open (instantiate) the menu via the application.
-     May also the shortcuts itself could vary when translated 'Open &File' -> 'Datei &öffnen' ????"
+     May also the shortcuts itself could vary when translated 'Open &File' -> 'Datei &öffnen' ????"
     Menu::NeedResourcesQuery answer:true do:[
 "/    Menu::NeedResourcesQuery answer:false do:[
         [true] whileTrue:[