--- 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