--- 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
+ ]
].
!