MenuPanel.st
changeset 5903 81a21a4e0d27
parent 5880 1ef7062bca9c
child 5907 5f8b0523fb67
--- a/MenuPanel.st	Tue Sep 11 17:45:16 2018 +0200
+++ b/MenuPanel.st	Wed Sep 12 08:27:39 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:[
@@ -7704,12 +7702,21 @@
             ('MenuPanel::Item [error]: application (%1) does not provide aspect: %2 (in %3)'
              bindWith:appl classNameWithArticle
              with:aKey
-             with:(label isString ifTrue:[label] ifFalse:[self nameKey ? self itemValue ? '???'])).
+             with:(label isString 
+                    ifTrue:[label] 
+                    ifFalse:[
+                        self nameKey notNil 
+                            ifTrue:[ self nameKey ]
+                            ifFalse:[ 
+                                self itemValue isString
+                                    ifTrue:[self itemValue]
+                                    ifFalse:['???']]])).
         nil
     ].
 
     "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"
 ! !
 
 !MenuPanel::Item methodsFor:'change & update'!