MenuEditor.st
changeset 2122 417dabd716d5
parent 2118 caee73c7b7dd
child 2123 7a78e0088013
equal deleted inserted replaced
2121:ef8750cd1bab 2122:417dabd716d5
  1035             submenuChannel: menuHistory
  1035             submenuChannel: menuHistory
  1036           )
  1036           )
  1037          (MenuItem
  1037          (MenuItem
  1038             label: '&Help'
  1038             label: '&Help'
  1039             translateLabel: true
  1039             translateLabel: true
  1040             startGroup: right
  1040             startGroup: conditionalRight
  1041             submenuChannel: helpMenu
  1041             submenuChannel: helpMenu
  1042             keepLinkedMenu: true
  1042             keepLinkedMenu: true
  1043           )
  1043           )
  1044          )
  1044          )
  1045         nil
  1045         nil
  1046         nil
  1046         nil
  1047       )
  1047       )
       
  1048 
       
  1049     "Modified: / 16-10-2006 / 12:49:43 / cg"
  1048 !
  1050 !
  1049 
  1051 
  1050 settingsMenu
  1052 settingsMenu
  1051     "This resource specification was automatically generated
  1053     "This resource specification was automatically generated
  1052      by the MenuEditor of ST/X."
  1054      by the MenuEditor of ST/X."
  2654     "
  2656     "
  2655     |item|
  2657     |item|
  2656 
  2658 
  2657     self addAndSelectValueOf:[
  2659     self addAndSelectValueOf:[
  2658         item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true.
  2660         item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true.
  2659         item aspectAt:#startGroup put:#right.
  2661         item aspectAt:#startGroup put:#conditionalRight.
  2660         item
  2662         item
  2661     ].
  2663     ].
       
  2664 
       
  2665     "Modified: / 16-10-2006 / 12:49:27 / cg"
  2662 ! !
  2666 ! !
  2663 
  2667 
  2664 !MenuEditor methodsFor:'user actions-editing'!
  2668 !MenuEditor methodsFor:'user actions-editing'!
  2665 
  2669 
  2666 doCopy
  2670 doCopy
  3185               name: 'StartGroupPopUp'
  3189               name: 'StartGroupPopUp'
  3186               layout: (LayoutFrame 110 0 128 0 -5 1.0 150 0)
  3190               layout: (LayoutFrame 110 0 128 0 -5 1.0 150 0)
  3187               activeHelpKey: detailsStartGroup
  3191               activeHelpKey: detailsStartGroup
  3188               tabable: true
  3192               tabable: true
  3189               model: startGroup
  3193               model: startGroup
  3190               menu: 
  3194               menu: (left right conditionalRight)
  3191              (left
       
  3192                 right
       
  3193               )
       
  3194             )
  3195             )
  3195            (LabelSpec
  3196            (LabelSpec
  3196               label: 'Access Character Position:'
  3197               label: 'Access Character Position:'
  3197               name: 'accessCharLabel'
  3198               name: 'accessCharLabel'
  3198               layout: (AlignmentOrigin 217 0 170 0 1 0.5)
  3199               layout: (AlignmentOrigin 217 0 170 0 1 0.5)
  3265             )
  3266             )
  3266            )
  3267            )
  3267          
  3268          
  3268         )
  3269         )
  3269       )
  3270       )
       
  3271 
       
  3272     "Modified: / 16-10-2006 / 12:48:12 / cg"
  3270 ! !
  3273 ! !
  3271 
  3274 
  3272 !MenuEditor::Item class methodsFor:'interface-editor'!
  3275 !MenuEditor::Item class methodsFor:'interface-editor'!
  3273 
  3276 
  3274 addBindingsTo:aspects for:aMenuEditor
  3277 addBindingsTo:aspects for:aMenuEditor
  5528               name: 'startGroupPopUp'
  5531               name: 'startGroupPopUp'
  5529               layout: (LayoutFrame 110 0 77 0 -5 1.0 99 0)
  5532               layout: (LayoutFrame 110 0 77 0 -5 1.0 99 0)
  5530               activeHelpKey: detailsStartGroup
  5533               activeHelpKey: detailsStartGroup
  5531               tabable: true
  5534               tabable: true
  5532               model: startGroup
  5535               model: startGroup
  5533               menu: 
  5536               menu: (left right conditionalRight)
  5534              (left
       
  5535                 right
       
  5536               )
       
  5537             )
  5537             )
  5538            )
  5538            )
  5539          
  5539          
  5540         )
  5540         )
  5541       )
  5541       )
       
  5542 
       
  5543     "Modified: / 16-10-2006 / 12:48:30 / cg"
  5542 ! !
  5544 ! !
  5543 
  5545 
  5544 !MenuEditor::SeparatorItem class methodsFor:'interface-editor'!
  5546 !MenuEditor::SeparatorItem class methodsFor:'interface-editor'!
  5545 
  5547 
  5546 addBindingsTo:aspects for:aMenuEditor
  5548 addBindingsTo:aspects for:aMenuEditor