#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 26 Jun 2019 23:31:24 +0200
changeset 6076 e32451ae0577
parent 6075 0c168e2e1937
child 6077 bec4ab33c999
#UI_ENHANCEMENT by cg class: MenuPanel::Item comment/format in: #aspectAt:
MenuPanel.st
--- 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'!