--- a/MenuPanel.st Wed Jun 26 10:56:41 2019 +0200
+++ b/MenuPanel.st Wed Jun 26 23:31:24 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -5248,7 +5246,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:[
@@ -7833,9 +7831,11 @@
appl isNil ifTrue:[
^ nil
].
- ] ifFalse:[appl isValueModel ifTrue:[
- ^ appl value:aKey
- ]].
+ ] ifFalse:[
+ appl isValueModel ifTrue:[
+ ^ appl value:aKey
+ ]
+ ].
^ [
aKey argumentCount == 1 ifTrue:[
@@ -7870,6 +7870,7 @@
"Modified: / 02-08-2013 / 16:44:28 / cg"
"Modified (format): / 15-03-2017 / 17:00:31 / stefan"
"Modified: / 12-09-2018 / 07:44:28 / Claus Gittinger"
+ "Modified (format): / 26-06-2019 / 23:28:07 / Claus Gittinger"
! !
!MenuPanel::Item methodsFor:'change & update'!