equal
deleted
inserted
replaced
528 |
528 |
529 #detailsAuxValue |
529 #detailsAuxValue |
530 'Some additional value - for arbitrary use by the program.' |
530 'Some additional value - for arbitrary use by the program.' |
531 |
531 |
532 #detailsEnabled |
532 #detailsEnabled |
533 'Aspect or binding providing a boolean value holder for the enable-state of the menu item.' |
533 'Aspect or binding providing a boolean value holder to enable/disable the menu item.' |
534 |
534 |
535 #detailsStartGroup |
535 #detailsStartGroup |
536 'Specify start of a right-aligned item group.' |
536 'Specify start of a right-aligned item group.' |
537 |
537 |
538 #detailsVisibility |
538 #detailsVisibility |
558 |
558 |
559 #generateAspectMethods |
559 #generateAspectMethods |
560 'Generates aspect methods for defined aspect selectors of the menu.' |
560 'Generates aspect methods for defined aspect selectors of the menu.' |
561 |
561 |
562 #hideMenuOnActivated |
562 #hideMenuOnActivated |
563 'If on, the menu hides itself after the item was activated.' |
563 'If on, the menu hides itself after the item was activated (PopUpMenus only).' |
564 |
564 |
565 #horizontalLayout |
565 #horizontalLayout |
566 'If on, the submenu organizes its items horizontal insteat of vertical (default).' |
566 'If on, the submenu organizes its items horizontal insteat of vertical (default).' |
567 |
567 |
568 #imageImageAndLabel |
568 #imageImageAndLabel |
573 |
573 |
574 #imageImageList |
574 #imageImageList |
575 'Currently existing image resources.' |
575 'Currently existing image resources.' |
576 |
576 |
577 #imageRetriever |
577 #imageRetriever |
578 'Class implementing the image resource method. If no class is given, the current application class will be taken.' |
578 'Class implementing the image resource method. If unspecified, the application class is taken.' |
579 |
579 |
580 #imageSelector |
580 #imageSelector |
581 'Selector returning an image (sent to above or the application).' |
581 'Selector returning an image (sent to above or the application).' |
582 |
582 |
583 #keepLinkedMenu |
583 #keepLinkedMenu |
585 |
585 |
586 #showBusyCursorWhilePerforming |
586 #showBusyCursorWhilePerforming |
587 'If on, a busy cursor is shown while the items action is performing.' |
587 'If on, a busy cursor is shown while the items action is performing.' |
588 |
588 |
589 #sendToOriginator |
589 #sendToOriginator |
590 'Send action-Message to widget (instead of application).' |
590 'Send action-Message to the widget (instead of application).' |
591 |
591 |
592 #settingsRedefineAspectMethods |
592 #settingsRedefineAspectMethods |
593 'Toggles the permission to overwrite existing aspect methods.' |
593 'Toggles the permission to overwrite existing aspect methods.' |
594 |
594 |
595 #triggerOnDown |
595 #triggerOnDown |
596 'If on, the items action is performed on mouse-button press (default is on button-release).' |
596 'If on, the items action is performed on mouse-button press (default is: on button-release).' |
597 |
597 |
598 ) |
598 ) |
599 ! ! |
599 ! ! |
600 |
600 |
601 !MenuEditor class methodsFor:'image specs'! |
601 !MenuEditor class methodsFor:'image specs'! |
3267 |
3267 |
3268 rawLabel:aValue |
3268 rawLabel:aValue |
3269 "set the label assigned to the item |
3269 "set the label assigned to the item |
3270 " |
3270 " |
3271 aValue isString ifTrue:[ |
3271 aValue isString ifTrue:[ |
3272 (self class separatorTypeOf:aValue) ifNil:[ |
3272 "/ KLUDGE alarm: '-' and '' indicate a separator |
3273 menuItem rawLabel:aValue |
3273 "/ (there is no separate menuItem class for them) |
3274 ] |
3274 |
|
3275 (self isKindOfMenu or:[(self class separatorTypeOf:aValue) isNil]) ifTrue:[ |
|
3276 menuItem rawLabel:aValue |
|
3277 ] |
3275 ]. |
3278 ]. |
3276 ! |
3279 ! |
3277 |
3280 |
3278 slices |
3281 slices |
3279 "returns a sequence of supported slices |
3282 "returns a sequence of supported slices |