#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 09 Aug 2018 15:53:36 +0200
changeset 5876 26bb50f6c6e5
parent 5875 bb838857aab9
child 5877 318821c17a46
#REFACTORING by cg class: MenuPanel::Item changed: #activeHelpText
MenuPanel.st
--- a/MenuPanel.st	Thu Aug 09 15:51:17 2018 +0200
+++ b/MenuPanel.st	Thu Aug 09 15:53:36 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -5156,7 +5154,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:[
@@ -7226,7 +7224,8 @@
             key5 := menuItem indication
         ]
     ].
-
+    key1 isAssociation ifTrue:[ key1 := nil].
+    
     (app := menuPanel application) notNil ifTrue:[ 
         { key1 . key2 . key3 . key4 . key5} do:[:key |
             (key notNil and:[(app := menuPanel application) notNil]) ifTrue:[
@@ -7263,7 +7262,7 @@
     ].    
     ^ text
 
-    "Modified: / 11-06-2018 / 10:31:00 / Claus Gittinger"
+    "Modified: / 09-08-2018 / 15:26:27 / Claus Gittinger"
 !
 
 activeHelpText:aText