MenuEditor.st
changeset 3029 58cc0b402815
parent 3028 272d45da727d
child 3071 e69992cb4b24
equal deleted inserted replaced
3028:272d45da727d 3029:58cc0b402815
  2584     ].
  2584     ].
  2585     ^ selectors asOrderedCollection
  2585     ^ selectors asOrderedCollection
  2586 !
  2586 !
  2587 
  2587 
  2588 doBrowseActionMethod
  2588 doBrowseActionMethod
  2589     "open a browser on the callback method (create if not yet existing)"
  2589     "open a browser on the action callback method (create if not yet existing)"
  2590 
  2590 
  2591     self doBrowseApplicationMethodFor:#itemValue
  2591     self doBrowseApplicationMethodFor:#itemValue
  2592 
  2592 
  2593     "Modified: / 21-10-2010 / 14:09:33 / cg"
  2593     "Modified: / 21-10-2010 / 14:09:33 / cg"
  2594 !
  2594 !
  2601         ^ self
  2601         ^ self
  2602     ].
  2602     ].
  2603 
  2603 
  2604     selector := (self aspectFor:aspect) value.
  2604     selector := (self aspectFor:aspect) value.
  2605     selector isEmptyOrNil ifTrue:[
  2605     selector isEmptyOrNil ifTrue:[
  2606         Dialog information:(resources string:'Please enter an action method name.').
  2606         Dialog information:(resources string:'Missing name for the action/aspect method.').
  2607         ^ self
  2607         ^ self
  2608     ].
  2608     ].
  2609     (selector = 'true' or:[selector = 'false']) ifTrue:[^ self].
  2609     (selector = 'true' or:[selector = 'false']) ifTrue:[^ self].
  2610     (selector == true or:[selector == false]) ifTrue:[^ self].
  2610     (selector == true or:[selector == false]) ifTrue:[^ self].
  2611 
  2611 
  2618     ].
  2618     ].
  2619 
  2619 
  2620     browsedClass := cls.
  2620     browsedClass := cls.
  2621     (cls includesSelector:selector) ifFalse:[
  2621     (cls includesSelector:selector) ifFalse:[
  2622         (implClass := cls whichClassImplements:selector) notNil ifTrue:[
  2622         (implClass := cls whichClassImplements:selector) notNil ifTrue:[
  2623             (Dialog confirm:(resources 
  2623             (Dialog 
  2624                         stringWithCRs:'The application does not directly implement %1.\However it inherits this from %2.\\Create a redefinition in %1?'
  2624                 confirm:(resources 
  2625                         with:cls name
  2625                             stringWithCRs:'The application does not directly implement %1.\However it inherits this from %2.\\Create a redefinition in %1?'
  2626                         with:implClass name))
  2626                             with:cls name
       
  2627                             with:implClass name)
       
  2628                 initialAnswer:false)
  2627             ifTrue:[
  2629             ifTrue:[
  2628                 category := UserPreferences current categoryForMenuActionsMethods.
  2630                 category := UserPreferences current categoryForMenuActionsMethods.
  2629 
  2631 
  2630                 SmalltalkCodeGeneratorTool
  2632                 SmalltalkCodeGeneratorTool
  2631                     createActionMethodFor:selector in:cls
  2633                     createActionMethodFor:selector in:cls
  2641 
  2643 
  2642     "Created: / 21-10-2010 / 14:07:32 / cg"
  2644     "Created: / 21-10-2010 / 14:07:32 / cg"
  2643     "Modified: / 31-01-2011 / 18:28:59 / cg"
  2645     "Modified: / 31-01-2011 / 18:28:59 / cg"
  2644 !
  2646 !
  2645 
  2647 
       
  2648 doBrowseChoiceMethod
       
  2649     "open a browser on the choice aspect method (create if not yet existing)"
       
  2650 
       
  2651     self doBrowseApplicationMethodFor:#choice
       
  2652 !
       
  2653 
  2646 doBrowseEnabledMethod
  2654 doBrowseEnabledMethod
  2647     "open a browser on the enabled method (create if not yet existing)"
  2655     "open a browser on the enabled method (create if not yet existing)"
  2648 
  2656 
  2649     self doBrowseApplicationMethodFor:#enabled
  2657     self doBrowseApplicationMethodFor:#enabled
  2650 
  2658 
  2651     "Created: / 21-10-2010 / 14:09:41 / cg"
  2659     "Created: / 21-10-2010 / 14:09:41 / cg"
       
  2660 !
       
  2661 
       
  2662 doBrowseIndicationMethod
       
  2663     "open a browser on the indicator aspect method (create if not yet existing)"
       
  2664 
       
  2665     self doBrowseApplicationMethodFor:#indication
  2652 !
  2666 !
  2653 
  2667 
  2654 doBrowseVisibilityMethod
  2668 doBrowseVisibilityMethod
  2655     "open a browser on the visibility method (create if not yet existing)"
  2669     "open a browser on the visibility method (create if not yet existing)"
  2656 
  2670 
  4589      UIPainter new openOnClass:MenuEditor::ActionItem andSelector:#basicsEditSpec
  4603      UIPainter new openOnClass:MenuEditor::ActionItem andSelector:#basicsEditSpec
  4590     "
  4604     "
  4591 
  4605 
  4592     <resource: #canvas>
  4606     <resource: #canvas>
  4593 
  4607 
  4594     ^
  4608     ^ 
  4595      #(FullSpec
  4609      #(FullSpec
  4596 	name: basicsEditSpec
  4610         name: basicsEditSpec
  4597 	window:
  4611         window: 
  4598        (WindowSpec
  4612        (WindowSpec
  4599 	  label: 'basicsEditSpec'
  4613           label: 'basicsEditSpec'
  4600 	  name: 'basicsEditSpec'
  4614           name: 'basicsEditSpec'
  4601 	  min: (Point 10 10)
  4615           min: (Point 10 10)
  4602 	  bounds: (Rectangle 0 0 340 340)
  4616           bounds: (Rectangle 0 0 340 340)
  4603 	)
  4617         )
  4604 	component:
  4618         component: 
  4605        (SpecCollection
  4619        (SpecCollection
  4606 	  collection: (
  4620           collection: (
  4607 	   (LabelSpec
  4621            (LabelSpec
  4608 	      label: 'Name Key:'
  4622               label: 'Name Key:'
  4609 	      name: 'nameKeyLabel'
  4623               name: 'nameKeyLabel'
  4610 	      layout: (AlignmentOrigin 107 0 25 0 1 0.5)
  4624               layout: (AlignmentOrigin 107 0 25 0 1 0.5)
  4611 	      activeHelpKey: basicsKey
  4625               activeHelpKey: basicsKey
  4612 	      translateLabel: true
  4626               translateLabel: true
  4613 	      resizeForLabel: true
  4627               resizeForLabel: true
  4614 	      adjust: right
  4628               adjust: right
  4615 	    )
  4629             )
  4616 	   (InputFieldSpec
  4630            (InputFieldSpec
  4617 	      name: 'nameKeyField'
  4631               name: 'nameKeyField'
  4618 	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
  4632               layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
  4619 	      activeHelpKey: basicsKey
  4633               activeHelpKey: basicsKey
  4620 	      tabable: true
  4634               tabable: true
  4621 	      model: nameKey
  4635               model: nameKey
  4622 	      group: inputGroup
  4636               group: inputGroup
  4623 	      type: symbolOrNil
  4637               type: symbolOrNil
  4624 	      immediateAccept: false
  4638               immediateAccept: false
  4625 	      acceptOnLeave: false
  4639               acceptOnLeave: false
  4626 	      acceptOnReturn: true
  4640               acceptOnReturn: true
  4627 	      acceptOnTab: true
  4641               acceptOnTab: true
  4628 	      acceptOnLostFocus: false
  4642               acceptOnLostFocus: false
  4629 	      acceptChannel: acceptChannel
  4643               acceptChannel: acceptChannel
  4630 	      modifiedChannel: modifiedChannel
  4644               modifiedChannel: modifiedChannel
  4631 	      acceptOnPointerLeave: false
  4645               acceptOnPointerLeave: false
  4632 	    )
  4646             )
  4633 	   (LabelSpec
  4647            (LabelSpec
  4634 	      label: 'Label:'
  4648               label: 'Label:'
  4635 	      name: 'labelLabel'
  4649               name: 'labelLabel'
  4636 	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
  4650               layout: (AlignmentOrigin 107 0 51 0 1 0.5)
  4637 	      activeHelpKey: basicsLabel
  4651               activeHelpKey: basicsLabel
  4638 	      translateLabel: true
  4652               translateLabel: true
  4639 	      resizeForLabel: true
  4653               resizeForLabel: true
  4640 	      adjust: right
  4654               adjust: right
  4641 	    )
  4655             )
  4642 	   (InputFieldSpec
  4656            (InputFieldSpec
  4643 	      name: 'labelField'
  4657               name: 'labelField'
  4644 	      layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
  4658               layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
  4645 	      activeHelpKey: basicsLabel
  4659               activeHelpKey: basicsLabel
  4646 	      tabable: true
  4660               tabable: true
  4647 	      model: rawLabel
  4661               model: rawLabel
  4648 	      group: inputGroup
  4662               group: inputGroup
  4649 	      immediateAccept: false
  4663               immediateAccept: false
  4650 	      acceptOnReturn: true
  4664               acceptOnReturn: true
  4651 	      acceptOnTab: true
  4665               acceptOnTab: true
  4652 	      acceptOnLostFocus: false
  4666               acceptOnLostFocus: false
  4653 	      acceptChannel: acceptChannel
  4667               acceptChannel: acceptChannel
  4654 	      modifiedChannel: modifiedChannel
  4668               modifiedChannel: modifiedChannel
  4655 	      acceptOnPointerLeave: false
  4669               acceptOnPointerLeave: false
  4656 	    )
  4670             )
  4657 	   (LabelSpec
  4671            (LabelSpec
  4658 	      label: 'Action:'
  4672               label: 'Action:'
  4659 	      name: 'valueLabel'
  4673               name: 'valueLabel'
  4660 	      layout: (AlignmentOrigin 107 0 82 0 1 0.5)
  4674               layout: (AlignmentOrigin 107 0 82 0 1 0.5)
  4661 	      activeHelpKey: basicsAction
  4675               activeHelpKey: basicsAction
  4662 	      translateLabel: true
  4676               translateLabel: true
  4663 	      resizeForLabel: true
  4677               resizeForLabel: true
  4664 	      adjust: right
  4678               adjust: right
  4665 	    )
  4679             )
  4666 	   (InputFieldSpec
  4680            (InputFieldSpec
  4667 	      name: 'valueField'
  4681               name: 'valueField'
  4668 	      layout: (LayoutFrame 110 0 71 0 -25 1.0 93 0)
  4682               layout: (LayoutFrame 110 0 71 0 -25 1.0 93 0)
  4669 	      activeHelpKey: basicsAction
  4683               activeHelpKey: basicsAction
  4670 	      tabable: true
  4684               tabable: true
  4671 	      model: itemValue
  4685               model: itemValue
  4672 	      group: inputGroup
  4686               group: inputGroup
  4673 	      type: symbolOrNil
  4687               type: symbolOrNil
  4674 	      immediateAccept: false
  4688               immediateAccept: false
  4675 	      acceptOnLeave: true
  4689               acceptOnLeave: true
  4676 	      acceptOnReturn: true
  4690               acceptOnReturn: true
  4677 	      acceptOnTab: true
  4691               acceptOnTab: true
  4678 	      acceptOnLostFocus: true
  4692               acceptOnLostFocus: true
  4679 	      acceptChannel: acceptChannel
  4693               acceptChannel: acceptChannel
  4680 	      modifiedChannel: modifiedChannel
  4694               modifiedChannel: modifiedChannel
  4681 	      acceptOnPointerLeave: true
  4695               acceptOnPointerLeave: true
  4682 	    )
  4696             )
  4683 	   (ActionButtonSpec
  4697            (ActionButtonSpec
  4684 	      label: 'browseActionImage'
  4698               label: 'browseActionImage'
  4685 	      name: 'Button1'
  4699               name: 'Button1'
  4686 	      layout: (LayoutFrame -25 1 71 0 -5 1 93 0)
  4700               layout: (LayoutFrame -25 1 71 0 -5 1 93 0)
  4687 	      hasCharacterOrientedLabel: false
  4701               activeHelpKey: browseMethod
  4688 	      translateLabel: true
  4702               hasCharacterOrientedLabel: false
  4689 	      resizeForLabel: true
  4703               translateLabel: true
  4690 	      tabable: true
  4704               resizeForLabel: true
  4691 	      model: doBrowseActionMethod
  4705               tabable: true
  4692 	      activeHelpKey: browseMethod
  4706               model: doBrowseActionMethod
  4693 	    )
  4707             )
  4694 	   (LabelSpec
  4708            (LabelSpec
  4695 	      label: 'Argument:'
  4709               label: 'Argument:'
  4696 	      name: 'argumentLabel'
  4710               name: 'argumentLabel'
  4697 	      layout: (AlignmentOrigin 107 0 107 0 1 0.5)
  4711               layout: (AlignmentOrigin 107 0 107 0 1 0.5)
  4698 	      activeHelpKey: basicsArgument
  4712               activeHelpKey: basicsArgument
  4699 	      translateLabel: true
  4713               translateLabel: true
  4700 	      resizeForLabel: true
  4714               resizeForLabel: true
  4701 	      adjust: right
  4715               adjust: right
  4702 	    )
  4716             )
  4703 	   (InputFieldSpec
  4717            (InputFieldSpec
  4704 	      name: 'argumentField'
  4718               name: 'argumentField'
  4705 	      layout: (LayoutFrame 110 0 96 0 -5 1.0 118 0)
  4719               layout: (LayoutFrame 110 0 96 0 -5 1.0 118 0)
  4706 	      activeHelpKey: basicsArgument
  4720               activeHelpKey: basicsArgument
  4707 	      tabable: true
  4721               tabable: true
  4708 	      model: argument
  4722               model: argument
  4709 	      group: inputGroup
  4723               group: inputGroup
  4710 	      type: smalltalkObjectOrNil
  4724               type: smalltalkObjectOrNil
  4711 	      immediateAccept: false
  4725               immediateAccept: false
  4712 	      acceptOnReturn: true
  4726               acceptOnReturn: true
  4713 	      acceptOnTab: true
  4727               acceptOnTab: true
  4714 	      acceptOnLostFocus: false
  4728               acceptOnLostFocus: false
  4715 	      acceptChannel: acceptChannel
  4729               acceptChannel: acceptChannel
  4716 	      modifiedChannel: modifiedChannel
  4730               modifiedChannel: modifiedChannel
  4717 	      acceptOnPointerLeave: false
  4731               acceptOnPointerLeave: false
  4718 	    )
  4732             )
  4719 	   (LabelSpec
  4733            (LabelSpec
  4720 	      label: 'Indication:'
  4734               label: 'Indication:'
  4721 	      name: 'indicationLabel'
  4735               name: 'indicationLabel'
  4722 	      layout: (AlignmentOrigin 107 0 138 0 1 0.5)
  4736               layout: (AlignmentOrigin 107 0 138 0 1 0.5)
  4723 	      activeHelpKey: basicsIndication
  4737               activeHelpKey: basicsIndication
  4724 	      translateLabel: true
  4738               translateLabel: true
  4725 	      resizeForLabel: true
  4739               resizeForLabel: true
  4726 	      adjust: right
  4740               adjust: right
  4727 	    )
  4741             )
  4728 	   (InputFieldSpec
  4742            (InputFieldSpec
  4729 	      name: 'indicationField'
  4743               name: 'indicationField'
  4730 	      layout: (LayoutFrame 110 0 127 0 -5 1.0 149 0)
  4744               layout: (LayoutFrame 110 0 127 0 -25 1.0 149 0)
  4731 	      activeHelpKey: basicsIndication
  4745               activeHelpKey: basicsIndication
  4732 	      enableChannel: indicationEnabled
  4746               enableChannel: indicationEnabled
  4733 	      tabable: true
  4747               tabable: true
  4734 	      model: indication
  4748               model: indication
  4735 	      group: inputGroup
  4749               group: inputGroup
  4736 	      type: symbolOrNil
  4750               type: symbolOrNil
  4737 	      immediateAccept: true
  4751               immediateAccept: true
  4738 	      acceptOnReturn: false
  4752               acceptOnReturn: false
  4739 	      acceptOnTab: false
  4753               acceptOnTab: false
  4740 	      acceptOnLostFocus: false
  4754               acceptOnLostFocus: false
  4741 	      modifiedChannel: modifiedChannel
  4755               modifiedChannel: modifiedChannel
  4742 	      acceptOnPointerLeave: false
  4756               acceptOnPointerLeave: false
  4743 	    )
  4757             )
  4744 	   (LabelSpec
  4758            (ActionButtonSpec
  4745 	      label: 'Choice:'
  4759               label: 'browseActionImage'
  4746 	      name: 'choiceLabel'
  4760               name: 'Button2'
  4747 	      layout: (AlignmentOrigin 107 0 163 0 1 0.5)
  4761               layout: (LayoutFrame -25 1 127 0 -5 1 149 0)
  4748 	      activeHelpKey: basicsChoice
  4762               activeHelpKey: browseMethod
  4749 	      translateLabel: true
  4763               hasCharacterOrientedLabel: false
  4750 	      resizeForLabel: true
  4764               translateLabel: true
  4751 	      adjust: right
  4765               resizeForLabel: true
  4752 	    )
  4766               tabable: true
  4753 	   (InputFieldSpec
  4767               model: doBrowseIndicationMethod
  4754 	      name: 'choiceField'
  4768             )
  4755 	      layout: (LayoutFrame 110 0 152 0 -5 1.0 174 0)
  4769            (LabelSpec
  4756 	      activeHelpKey: basicsChoice
  4770               label: 'Choice:'
  4757 	      enableChannel: choiceEnabled
  4771               name: 'choiceLabel'
  4758 	      tabable: true
  4772               layout: (AlignmentOrigin 107 0 163 0 1 0.5)
  4759 	      model: choice
  4773               activeHelpKey: basicsChoice
  4760 	      group: inputGroup
  4774               translateLabel: true
  4761 	      type: symbolOrNil
  4775               resizeForLabel: true
  4762 	      immediateAccept: true
  4776               adjust: right
  4763 	      acceptOnReturn: false
  4777             )
  4764 	      acceptOnTab: false
  4778            (InputFieldSpec
  4765 	      acceptOnLostFocus: false
  4779               name: 'choiceField'
  4766 	      modifiedChannel: modifiedChannel
  4780               layout: (LayoutFrame 110 0 152 0 -25 1.0 174 0)
  4767 	      acceptOnPointerLeave: false
  4781               activeHelpKey: basicsChoice
  4768 	    )
  4782               enableChannel: choiceEnabled
  4769 	   (LabelSpec
  4783               tabable: true
  4770 	      label: 'Value:'
  4784               model: choice
  4771 	      name: 'choiceValueLabel'
  4785               group: inputGroup
  4772 	      layout: (AlignmentOrigin 107 0 188 0 1 0.5)
  4786               type: symbolOrNil
  4773 	      activeHelpKey: basicsChoiceValue
  4787               immediateAccept: true
  4774 	      translateLabel: true
  4788               acceptOnReturn: false
  4775 	      resizeForLabel: true
  4789               acceptOnTab: false
  4776 	      adjust: right
  4790               acceptOnLostFocus: false
  4777 	    )
  4791               modifiedChannel: modifiedChannel
  4778 	   (InputFieldSpec
  4792               acceptOnPointerLeave: false
  4779 	      name: 'choiceValueField'
  4793             )
  4780 	      layout: (LayoutFrame 110 0 177 0 -5 1.0 199 0)
  4794            (ActionButtonSpec
  4781 	      activeHelpKey: basicsChoiceValue
  4795               label: 'browseActionImage'
  4782 	      enableChannel: choiceValueEnabled
  4796               name: 'Button3'
  4783 	      tabable: true
  4797               layout: (LayoutFrame -25 1 152 0 -5 1 174 0)
  4784 	      model: choiceValue
  4798               activeHelpKey: browseMethod
  4785 	      group: inputGroup
  4799               hasCharacterOrientedLabel: false
  4786 	      type: smalltalkObjectOrNil
  4800               translateLabel: true
  4787 	      immediateAccept: false
  4801               resizeForLabel: true
  4788 	      acceptOnLeave: false
  4802               tabable: true
  4789 	      acceptOnReturn: true
  4803               model: doBrowseChoiceMethod
  4790 	      acceptOnTab: true
  4804             )
  4791 	      acceptOnLostFocus: false
  4805            (LabelSpec
  4792 	      acceptChannel: acceptChannel
  4806               label: 'Value:'
  4793 	      modifiedChannel: modifiedChannel
  4807               name: 'choiceValueLabel'
  4794 	      acceptOnPointerLeave: false
  4808               layout: (AlignmentOrigin 107 0 188 0 1 0.5)
  4795 	    )
  4809               activeHelpKey: basicsChoiceValue
  4796 	   (CheckBoxSpec
  4810               translateLabel: true
  4797 	      label: 'Translate Label'
  4811               resizeForLabel: true
  4798 	      name: 'translateLabelCheckBox'
  4812               adjust: right
  4799 	      layout: (AlignmentOrigin 7 0 213 0 0 0)
  4813             )
  4800 	      activeHelpKey: basicsTranslateLabel
  4814            (InputFieldSpec
  4801 	      tabable: true
  4815               name: 'choiceValueField'
  4802 	      model: translateLabel
  4816               layout: (LayoutFrame 110 0 177 0 -5 1.0 199 0)
  4803 	      translateLabel: true
  4817               activeHelpKey: basicsChoiceValue
  4804 	    )
  4818               enableChannel: choiceValueEnabled
  4805 	   (CheckBoxSpec
  4819               tabable: true
  4806 	      label: 'Is Button'
  4820               model: choiceValue
  4807 	      name: 'isButtonCheckBox'
  4821               group: inputGroup
  4808 	      layout: (AlignmentOrigin 7 0 238 0 0 0)
  4822               type: smalltalkObjectOrNil
  4809 	      activeHelpKey: basicsIsButton
  4823               immediateAccept: false
  4810 	      tabable: true
  4824               acceptOnLeave: false
  4811 	      model: isButton
  4825               acceptOnReturn: true
  4812 	      translateLabel: true
  4826               acceptOnTab: true
  4813 	    )
  4827               acceptOnLostFocus: false
  4814 	   (CheckBoxSpec
  4828               acceptChannel: acceptChannel
  4815 	      label: 'Hide Menu after Activation'
  4829               modifiedChannel: modifiedChannel
  4816 	      name: 'hideMenuOnActivated'
  4830               acceptOnPointerLeave: false
  4817 	      layout: (AlignmentOrigin 7 0 263 0 0 0)
  4831             )
  4818 	      activeHelpKey: hideMenuOnActivated
  4832            (CheckBoxSpec
  4819 	      tabable: true
  4833               label: 'Translate Label'
  4820 	      model: hideMenuOnActivated
  4834               name: 'translateLabelCheckBox'
  4821 	      translateLabel: true
  4835               layout: (AlignmentOrigin 7 0 213 0 0 0)
  4822 	    )
  4836               activeHelpKey: basicsTranslateLabel
  4823 	   (CheckBoxSpec
  4837               tabable: true
  4824 	      label: 'BusyCursor while Active'
  4838               model: translateLabel
  4825 	      name: 'showBusyCursorWhilePerforming'
  4839               translateLabel: true
  4826 	      layout: (AlignmentOrigin 7 0 288 0 0 0)
  4840             )
  4827 	      activeHelpKey: showBusyCursorWhilePerforming
  4841            (CheckBoxSpec
  4828 	      tabable: true
  4842               label: 'Is Button'
  4829 	      model: showBusyCursorWhilePerforming
  4843               name: 'isButtonCheckBox'
  4830 	      translateLabel: true
  4844               layout: (AlignmentOrigin 7 0 238 0 0 0)
  4831 	    )
  4845               activeHelpKey: basicsIsButton
  4832 	   (CheckBoxSpec
  4846               tabable: true
  4833 	      label: 'Trigger On Down'
  4847               model: isButton
  4834 	      name: 'triggerOnDown'
  4848               translateLabel: true
  4835 	      layout: (AlignmentOrigin 25 0.5 238 0 0 0)
  4849             )
  4836 	      activeHelpKey: triggerOnDown
  4850            (CheckBoxSpec
  4837 	      enableChannel: hasNoDelayedMenuValue
  4851               label: 'Hide Menu after Activation'
  4838 	      tabable: true
  4852               name: 'hideMenuOnActivated'
  4839 	      model: triggerOnDown
  4853               layout: (AlignmentOrigin 7 0 263 0 0 0)
  4840 	      translateLabel: true
  4854               activeHelpKey: hideMenuOnActivated
  4841 	    )
  4855               tabable: true
  4842 	   (CheckBoxSpec
  4856               model: hideMenuOnActivated
  4843 	      label: 'Send To Originating Widget'
  4857               translateLabel: true
  4844 	      name: 'sendToOriginator'
  4858             )
  4845 	      layout: (AlignmentOrigin 7 0 313 0 0 0)
  4859            (CheckBoxSpec
  4846 	      activeHelpKey: sendToOriginator
  4860               label: 'BusyCursor while Active'
  4847 	      enableChannel: hasItemValue
  4861               name: 'showBusyCursorWhilePerforming'
  4848 	      tabable: true
  4862               layout: (AlignmentOrigin 7 0 288 0 0 0)
  4849 	      model: sendToOriginator
  4863               activeHelpKey: showBusyCursorWhilePerforming
  4850 	      translateLabel: true
  4864               tabable: true
  4851 	    )
  4865               model: showBusyCursorWhilePerforming
  4852 	   )
  4866               translateLabel: true
  4853 
  4867             )
  4854 	)
  4868            (CheckBoxSpec
       
  4869               label: 'Trigger On Down'
       
  4870               name: 'triggerOnDown'
       
  4871               layout: (AlignmentOrigin 25 0.5 238 0 0 0)
       
  4872               activeHelpKey: triggerOnDown
       
  4873               enableChannel: hasNoDelayedMenuValue
       
  4874               tabable: true
       
  4875               model: triggerOnDown
       
  4876               translateLabel: true
       
  4877             )
       
  4878            (CheckBoxSpec
       
  4879               label: 'Send To Originating Widget'
       
  4880               name: 'sendToOriginator'
       
  4881               layout: (AlignmentOrigin 7 0 313 0 0 0)
       
  4882               activeHelpKey: sendToOriginator
       
  4883               enableChannel: hasItemValue
       
  4884               tabable: true
       
  4885               model: sendToOriginator
       
  4886               translateLabel: true
       
  4887             )
       
  4888            )
       
  4889          
       
  4890         )
  4855       )
  4891       )
  4856 
       
  4857     "Modified: / 21-10-2010 / 14:14:49 / cg"
       
  4858 ! !
  4892 ! !
  4859 
  4893 
  4860 !MenuEditor::ActionItem class methodsFor:'interface-editor'!
  4894 !MenuEditor::ActionItem class methodsFor:'interface-editor'!
  4861 
  4895 
  4862 addBindingsTo:aspects for:aMenuEditor
  4896 addBindingsTo:aspects for:aMenuEditor