allow empty rawLabel (for menu-menuitems).
authorClaus Gittinger <cg@exept.de>
Wed, 19 Mar 2003 12:30:45 +0100
changeset 1691 a3f8baada9e6
parent 1690 7428f8744d87
child 1692 d9841ae93350
allow empty rawLabel (for menu-menuitems). help texts fixed
MenuEditor.st
--- a/MenuEditor.st	Wed Mar 19 09:52:28 2003 +0100
+++ b/MenuEditor.st	Wed Mar 19 12:30:45 2003 +0100
@@ -530,7 +530,7 @@
 'Some additional value - for arbitrary use by the program.'
 
 #detailsEnabled
-'Aspect or binding providing a boolean value holder for the enable-state of the menu item.'
+'Aspect or binding providing a boolean value holder to enable/disable the menu item.'
 
 #detailsStartGroup
 'Specify start of a right-aligned item group.'
@@ -560,7 +560,7 @@
 'Generates aspect methods for defined aspect selectors of the menu.'
 
 #hideMenuOnActivated
-'If on, the menu hides itself after the item was activated.'
+'If on, the menu hides itself after the item was activated (PopUpMenus only).'
 
 #horizontalLayout
 'If on, the submenu organizes its items horizontal insteat of vertical (default).'
@@ -575,7 +575,7 @@
 'Currently existing image resources.'
 
 #imageRetriever
-'Class implementing the image resource method. If no class is given, the current application class will be taken.'
+'Class implementing the image resource method. If unspecified, the application class is taken.'
 
 #imageSelector
 'Selector returning an image (sent to above or the application).'
@@ -587,13 +587,13 @@
 'If on, a busy cursor is shown while the items action is performing.'
 
 #sendToOriginator
-'Send action-Message to widget (instead of application).'
+'Send action-Message to the widget (instead of application).'
 
 #settingsRedefineAspectMethods
 'Toggles the permission to overwrite existing aspect methods.'
 
 #triggerOnDown
-'If on, the items action is performed on mouse-button press (default is on button-release).'
+'If on, the items action is performed on mouse-button press (default is: on button-release).'
 
 )
 ! !
@@ -3269,9 +3269,12 @@
     "set the label assigned to the item
     "
     aValue isString ifTrue:[
-	(self class separatorTypeOf:aValue) ifNil:[
-	    menuItem rawLabel:aValue
-	]
+        "/ KLUDGE alarm: '-' and '' indicate a separator 
+        "/ (there is no separate menuItem class for them)
+
+        (self isKindOfMenu or:[(self class separatorTypeOf:aValue) isNil]) ifTrue:[
+            menuItem rawLabel:aValue
+        ]
     ].
 !