hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:079827c2760d
+:ace326bd303f
 #detailsAuxValue
 '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.'
 #detailsVisibility
 #generateAspectMethods
 '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 (PopUp/PullDown-Menus only).'
 #horizontalLayout
 'If on, the submenu organizes its items horizontal insteat of vertical (default).'
 #imageImageAndLabel
 #imageImageList
 '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).'
 #keepLinkedMenu
 'Keep the linked menu after activation (do not destroy).'
 #sendToOriginator
-'Send action-Message to widget (instead of application).'
+'Send action-Message to widget (instead of application); only valid for PopUpMenus.'
 #settingsRedefineAspectMethods
 'Toggles the permission to overwrite existing aspect methods.'
 #showBusyCursorWhilePerforming
 'If on, a busy cursor is shown while the items action is performing.'
 #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).'
 )
 !
 localFlyHelpSpecStrings
 #addSubMenuLink
 'Add Linked Submenu'
 #fileNew
 'New Spec'
-)
-!
-localHelpSpecStrings
-"This resource specification was automatically generated
-by the UIHelpTool of ST/X."
-"Do not manually edit this!! If it is corrupted,
-the UIHelpTool may not be able to read the specification."
-"
-UIHelpTool openOnClass:MenuEditor
-"
-<resource: #help>
-^ #(
-#addDelayedMenu
-'Add a new delayed menu to item.'
-#addDelayedSubMenuLink
-'Add a new linked delayed menu to item.'
-#addMenuItem
-'Add a new menu item.'
-#addMenuSeparator
-'Add a new menu separator.'
-#addSubMenu
-'Add a new sub menu.'
-#addSubMenuLink
-'Add a new linked sub menu.'
-#basicsAction
-'An action selector with 0, 1 (the argument field), or 2 (the selected item) arguments.'
-#basicsArgument
-'An optional arg passed with above selector, if it is a 1 or 2 arg selector (enter a Smalltalk literal).'
-#basicsChoice
-'Aspect for a boolean holder, block or method, specifying the choices state (RadioButton behavior).'
-#basicsChoiceValue
-'That choices value (typically number or symbol).'
-#basicsIndication
-'Aspect for boolean holder, block, or method, specifying the indication state (CheckToggle behavior).'
-#basicsIsButton
-'Button-like look and behavior.'
-#basicsKey
-'Internal key of the item (optional, for programmed accesses).'
-#basicsLabel
-'Label of the item.'
-#basicsMenu
-'Aspect providing the sub menu to be opened if item is selected (provide spec or valueHolder).'
-#basicsMenuArgument
-'An argument passed with the menu selector.'
-#basicsNameKey
-'Unique identifier of the item (optional).'
-#basicsSelector
-'Selector under which the generated menu spec is saved.'
-#basicsSeparatorType
-'List of valid separators.'
-#basicsTranslateLabel
-'Translate the label via the classes resource file (internationalization).'
-#browseResource
-'Search for methods with image resource.'
-#detailsAccelerator
-'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'
-#detailsAccessCharaterPosition
-'Index of the access character position of the textual label (obsolete, VW compatibility).'
-#detailsAuxValue
-'Some additional value - for arbitrary use by the program.'
-#detailsEnabled
-'Aspect or binding providing a boolean value holder to enable/disable the menu item.'
-#detailsStartGroup
-'Specify start of a right-aligned item group.'
-#detailsVisibility
-'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.'
-#fileLoad
-'Open a dialog to select and load a menu spec from a class.'
-#fileNew
-'Create a new menu spec.'
-#filePickAMenu
-'Select a menu from an open view and read its specification'
-#fileSave
-'Save the menu spec (and the help spec, if modified).'
-#fileSaveAs
-'Open a dialog to save the menu spec (and the help spec, if modified).'
-#fileShowMenuSpec
-'Opens a Workspace showing the current menu spec.'
-#generateAspectMethods
-'Generates aspect methods for defined aspect selectors of the menu.'
-#hideMenuOnActivated
-'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).'
-#imageImageAndLabel
-'Toggle display of both image and textual label.'
-#imageImageEditor
-'Open an Image Editor on the resource method defined by retriever and selector.'
-#imageImageList
-'Currently existing image resources.'
-#imageRetriever
-'Class implementing the image resource method. If unspecified, the application class is taken.'
-#imageSelector
-'Selector returning an image (sent to above or the application).'
-#keepLinkedMenu
-'Keep the linked menu after activation (do not destroy).'
-#showBusyCursorWhilePerforming
-'If on, a busy cursor is shown while the items action is performing.'
-#sendToOriginator
-'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).'
 )
 ! !
 !MenuEditor class methodsFor:'image specs'!
 wizardHolder value:canvas.
 !
 update:something with:aParameter from:changedObject
-"Invoked when an object that I depend upon sends a change notification.
-"
 notifyDisabledCounter ~~ 0 ifTrue:[ ^ self ].
 changedObject == selectionHolder ifTrue:[ ^ self selectionChanged ].
 changedObject == tabHolder       ifTrue:[ ^ self tabChanged ].
 listOfItemsView displayLineFromX:x0 y:y0 toX:x1 y:y0.
 ].
 !
 doDrop:aContext
-"drop the DropContext into the hierachical list of items
+"drop the dropContext into the hierachical list of items
 "
 |done item|
 dropOverLine ifNil:[^ false ].      "/ context not valid to me ...
 selectionHolder setValue:(Array with:item).
 done := false.
-self addAndSelect:[
+self addAndSelectValueOf:[
 done := true.
 aContext dropObjects collect:[:el| Item menuItem:(el theObject) ]
 ].
 ^ done
 !
 self windowGroup addPreEventHook:self.
 ! !
 !MenuEditor methodsFor:'private'!
-addAndSelect:aNoneArgBlockOrItem
+addAndSelectValueOf:aBlockOrItem
 "add an item(s) derived from the block; test if add operation
 is enabled. On success the new item(s) are returned otherwise nil.
 "
 |intoItem index newItem|
 ].
 index := intoItem parent identityIndexOf:intoItem.
 index := index + 1.
 intoItem := intoItem parent.
 ].
-newItem := aNoneArgBlockOrItem value.
+newItem := aBlockOrItem value.
 newItem ifNotNil:[
 selectionHolder setValue:nil.
 intoItem expand.
 !
 doCreateItem
 "create a new Item
 "
-self addAndSelect:[ ActionItem new translateLabel:true ].
+self addAndSelectValueOf:[ ActionItem new translateLabel:true ].
 !
 doCreateLinkedMenu
 "create a new Linked Menu
 "
-self addAndSelect:[ LinkedMenuItem new ].
+self addAndSelectValueOf:[ LinkedMenuItem new ].
 !
 doCreateMenu
 "create a new Menu
 "
-self addAndSelect:[ |item|
+self addAndSelectValueOf:
-item := RegularMenuItem new.
+[ |item|
-item expand.
+item := RegularMenuItem new.
-item
+item expand.
-].
+item
+].
 !
 doCreateSep
 "create a new Separator Item
 "
-self addAndSelect:[ SeparatorItem new ].
+self addAndSelectValueOf:[ SeparatorItem new ].
 !
 doCreateStandardEditMenu
 "create a standart edit menu
 "
-self addAndSelect:[
+self addAndSelectValueOf:[
 RegularMenuItem menu:(self class standardEditMenu) labeled:'Edit' translateLabel:true
 ].
 !
 doCreateStandardFileMenu
 "create a standart file menu
 "
-self addAndSelect:[
+self addAndSelectValueOf:[
 RegularMenuItem menu:(self class standardFileMenu) labeled:'File' translateLabel:true
 ].
 !
 doCreateStandardHelpMenu
 "create a standart help menu
 "
 |item|
-self addAndSelect:[
+self addAndSelectValueOf:[
 item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true.
 item aspectAt:#startGroup put:#right.
 item
 ].
 ! !
 aCollection do:[:el|
 (el askFor:#isMenuItem) ifTrue:[ loMenuItems add:el ].
 ].
 loMenuItems isEmpty ifTrue:[ ^ self ].
-self addAndSelect:[
+self addAndSelectValueOf:[
 loMenuItems collect:[:el| Item menuItem:el ]
 ].
 ! !
 !MenuEditor methodsFor:'user actions - hierarchy'!
 selectorChanged
 self updateImageHolder.
 !
 update:what with:aPara from:aModel
-"Invoked when an object that I depend upon sends a change notification."
 |item|
 self modifiedChannel value:true.
 aModel == retrieverHolder ifTrue:[ ^ self retrieverChanged ].

changeset 1702	ace326bd303f
parent 1691	a3f8baada9e6
child 1711	548d690e780f