MenuEditor.st
changeset 2355 72444ef06dcf
parent 2345 abdefb8e2b52
child 2373 03e95da6776d
equal deleted inserted replaced
2354:15be12f5e320 2355:72444ef06dcf
  1116      (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
  1116      (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
  1117     "
  1117     "
  1118 
  1118 
  1119     <resource: #menu>
  1119     <resource: #menu>
  1120 
  1120 
  1121     ^
  1121     ^ 
  1122      #(Menu
  1122      #(Menu
  1123 	(
  1123         (
  1124 	 (MenuItem
  1124          (MenuItem
  1125 	    label: '&File'
  1125             label: '&File'
  1126 	    translateLabel: true
  1126             translateLabel: true
  1127 	    submenuChannel: fileMenu
  1127             submenuChannel: fileMenu
  1128 	    keepLinkedMenu: true
  1128             keepLinkedMenu: true
  1129 	  )
  1129             ignoreMnemonicKeys: true
  1130 	 (MenuItem
  1130             ignoreShortcutKeys: true
  1131 	    label: '&Edit'
  1131           )
  1132 	    translateLabel: true
  1132          (MenuItem
  1133 	    submenuChannel: editMenuForMainMenuWithoutAccelerators
  1133             label: '&Edit'
  1134 	    keepLinkedMenu: true
  1134             translateLabel: true
  1135 	  )
  1135             submenuChannel: editMenuForMainMenuWithoutAccelerators
  1136 	 (MenuItem
  1136             keepLinkedMenu: true
  1137 	    enabled: hasSingleSelectionChannel
  1137           )
  1138 	    label: 'Item'
  1138          (MenuItem
  1139 	    translateLabel: true
  1139             enabled: hasSingleSelectionChannel
  1140 	    submenuChannel: addMenu
  1140             label: 'Item'
  1141 	    keepLinkedMenu: true
  1141             translateLabel: true
  1142 	  )
  1142             submenuChannel: addMenu
  1143 	 (MenuItem
  1143             keepLinkedMenu: true
  1144 	    label: 'Generate'
  1144             ignoreMnemonicKeys: true
  1145 	    translateLabel: true
  1145             ignoreShortcutKeys: true
  1146 	    submenuChannel: generateMenu
  1146           )
  1147 	    keepLinkedMenu: true
  1147          (MenuItem
  1148 	  )
  1148             label: 'Generate'
  1149 	 (MenuItem
  1149             translateLabel: true
  1150 	    label: 'Test'
  1150             submenuChannel: generateMenu
  1151 	    translateLabel: true
  1151             keepLinkedMenu: true
  1152 	    submenuChannel: submenuTest
  1152             ignoreMnemonicKeys: true
  1153 	  )
  1153             ignoreShortcutKeys: true
  1154 	 (MenuItem
  1154           )
  1155 	    label: 'Settings'
  1155          (MenuItem
  1156 	    translateLabel: true
  1156             label: 'Test'
  1157 	    submenuChannel: settingsMenu
  1157             translateLabel: true
  1158 	    keepLinkedMenu: true
  1158             submenuChannel: submenuTest
  1159 	  )
  1159             ignoreMnemonicKeys: true
  1160 	 (MenuItem
  1160             ignoreShortcutKeys: true
  1161 	    label: 'History'
  1161           )
  1162 	    translateLabel: true
  1162          (MenuItem
  1163 	    isVisible: isStandAlone
  1163             label: 'Settings'
  1164 	    submenuChannel: menuHistory
  1164             translateLabel: true
  1165 	  )
  1165             submenuChannel: settingsMenu
  1166 	 (MenuItem
  1166             keepLinkedMenu: true
  1167 	    label: 'MENU_Help'
  1167             ignoreMnemonicKeys: true
  1168 	    translateLabel: true
  1168             ignoreShortcutKeys: true
  1169 	    startGroup: conditionalRight
  1169           )
  1170 	    submenuChannel: helpMenu
  1170          (MenuItem
  1171 	    keepLinkedMenu: true
  1171             label: 'History'
  1172 	  )
  1172             translateLabel: true
  1173 	 )
  1173             isVisible: isStandAlone
  1174 	nil
  1174             submenuChannel: menuHistory
  1175 	nil
  1175             ignoreMnemonicKeys: true
       
  1176             ignoreShortcutKeys: true
       
  1177           )
       
  1178          (MenuItem
       
  1179             label: 'MENU_Help'
       
  1180             translateLabel: true
       
  1181             startGroup: conditionalRight
       
  1182             submenuChannel: helpMenu
       
  1183             keepLinkedMenu: true
       
  1184             ignoreMnemonicKeys: true
       
  1185             ignoreShortcutKeys: true
       
  1186           )
       
  1187          )
       
  1188         nil
       
  1189         nil
  1176       )
  1190       )
  1177 !
  1191 !
  1178 
  1192 
  1179 settingsMenu
  1193 settingsMenu
  1180     "This resource specification was automatically generated
  1194     "This resource specification was automatically generated