MenuEditor.st
changeset 2055 481537d623d3
parent 2036 f38451813c50
child 2057 238addf39fe1
equal deleted inserted replaced
2054:56352366d94a 2055:481537d623d3
   395 
   395 
   396 #imageSelector
   396 #imageSelector
   397 'Selector returning an image (sent to above or the application).'
   397 'Selector returning an image (sent to above or the application).'
   398 
   398 
   399 #keepLinkedMenu
   399 #keepLinkedMenu
   400 'Keep the linked menu after activation (do not destroy; rebuild menu for every activation).'
   400 'Keep the linked menu after activation (do not destroy; if off, menu is rebuild for every activation).'
   401 
   401 
   402 #sendToOriginator
   402 #sendToOriginator
   403 'Send action-Message to widget (instead of application); only valid for PopUpMenus.'
   403 'Send action-Message to widget (instead of application); only valid for PopUpMenus.'
   404 
   404 
   405 #settingsRedefineAspectMethods
   405 #settingsRedefineAspectMethods
   410 
   410 
   411 #triggerOnDown
   411 #triggerOnDown
   412 'If on, the items action is performed on mouse-button press (default is: on button-release).'
   412 'If on, the items action is performed on mouse-button press (default is: on button-release).'
   413 
   413 
   414 )
   414 )
       
   415 
       
   416     "Modified: / 16-07-2006 / 10:23:57 / cg"
   415 !
   417 !
   416 
   418 
   417 localFlyHelpSpecStrings
   419 localFlyHelpSpecStrings
   418     "This resource specification was automatically generated
   420     "This resource specification was automatically generated
   419      by the UIHelpTool of ST/X."
   421      by the UIHelpTool of ST/X."
  3926 ! !
  3928 ! !
  3927 
  3929 
  3928 !MenuEditor::ActionItem methodsFor:'aspects'!
  3930 !MenuEditor::ActionItem methodsFor:'aspects'!
  3929 
  3931 
  3930 aspectAt:aKey put:aValue
  3932 aspectAt:aKey put:aValue
  3931     "pass the argument to the delayed menu if existant
  3933     "pass the argument to the delayed menu if existent
  3932     "
  3934     "
  3933     aKey == #argument ifTrue:[
  3935     aKey == #argument ifTrue:[
  3934         self hasDelayedMenu ifTrue:[
  3936         self hasDelayedMenu ifTrue:[
  3935             children first argument:aValue
  3937             children first argument:aValue
  3936         ].
  3938         ].
  3937         menuItem argument:aValue.
  3939         menuItem argument:aValue.
  3938       ^ self
  3940         ^ self
  3939     ].
  3941     ].
  3940 
  3942 
  3941     aKey == #triggerOnDown ifTrue:[
  3943     aKey == #triggerOnDown ifTrue:[
  3942         self hasDelayedMenu ifTrue:[
  3944         self hasDelayedMenu ifTrue:[
  3943             menuItem triggerOnDown:false
  3945             menuItem triggerOnDown:false
  3945             menuItem triggerOnDown:aValue
  3947             menuItem triggerOnDown:aValue
  3946         ].
  3948         ].
  3947         ^ self.
  3949         ^ self.
  3948     ].
  3950     ].
  3949     super aspectAt:aKey put:aValue.
  3951     super aspectAt:aKey put:aValue.
       
  3952 
       
  3953     "Modified: / 16-07-2006 / 10:18:51 / cg"
  3950 !
  3954 !
  3951 
  3955 
  3952 toAspects:aspects
  3956 toAspects:aspects
  3953     "write values to aspects
  3957     "write values to aspects
  3954     "
  3958     "