MenuEditor.st
changeset 686 6eabad89ebf6
parent 669 1f5b2d936bcf
child 699 7746185a3621
equal deleted inserted replaced
685:f8114ec98a82 686:6eabad89ebf6
   238 
   238 
   239 #imageSelector
   239 #imageSelector
   240 'Selector returning an image.'
   240 'Selector returning an image.'
   241 
   241 
   242 )
   242 )
   243 
       
   244 ! !
   243 ! !
   245 
   244 
   246 !MenuEditor class methodsFor:'interface specs'!
   245 !MenuEditor class methodsFor:'interface specs'!
   247 
   246 
   248 basicsItemSpec
   247 basicsItemSpec
   974                 )
   973                 )
   975                  #(#UISubSpecification
   974                  #(#UISubSpecification
   976                     #'name:' 'infoBarSubSpec'
   975                     #'name:' 'infoBarSubSpec'
   977                     #'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
   976                     #'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
   978                     #'majorKey:' #ToolApplicationModel
   977                     #'majorKey:' #ToolApplicationModel
   979                     #'minorKey:' #windowSpecForInfoBarWithClock
   978                     #'minorKey:' #windowSpecForInfoBar
   980                 )
   979                 )
   981               )
   980               )
   982           )
   981           )
   983       )
   982       )
   984 ! !
   983 ! !
  1002      
  1001      
  1003        #(#Menu
  1002        #(#Menu
  1004           
  1003           
  1005            #(
  1004            #(
  1006              #(#MenuItem
  1005              #(#MenuItem
  1007                 #'label:' 'About'
  1006                 #label: 'About'
  1008                 #'activeHelpKey:' #about
  1007                 #activeHelpKey: #about
  1009                 #'accessCharacterPosition:' 1
  1008                 #accessCharacterPosition: 1
  1010                 #'labelImage:' #(#ResourceRetriever nil #menuIcon)
  1009                 #labelImage: #(#ResourceRetriever nil #menuIcon)
  1011                 #'submenuChannel:' #menuAbout
  1010                 #submenuChannel: #menuAbout
  1012             )
  1011             )
  1013              #(#MenuItem
  1012              #(#MenuItem
  1014                 #'label:' 'File'
  1013                 #label: 'File'
  1015                 #'translateLabel:' true
  1014                 #translateLabel: true
  1016                 #'activeHelpKey:' #file
  1015                 #activeHelpKey: #file
  1017                 #'submenu:' 
  1016                 #submenu: 
  1018                  #(#Menu
  1017                  #(#Menu
  1019                     
  1018                     
  1020                      #(
  1019                      #(
  1021                        #(#MenuItem
  1020                        #(#MenuItem
  1022                           #'label:' 'New'
  1021                           #label: 'New'
  1023                           #'value:' #doNew
  1022                           #value: #doNew
  1024                           #'activeHelpKey:' #fileNew
  1023                           #activeHelpKey: #fileNew
  1025                       )
  1024                       )
  1026                        #(#MenuItem
  1025                        #(#MenuItem
  1027                           #'label:' '-'
  1026                           #label: '-'
  1028                       )
  1027                       )
  1029                        #(#MenuItem
  1028                        #(#MenuItem
  1030                           #'label:' 'Load...'
  1029                           #label: 'Load...'
  1031                           #'translateLabel:' true
  1030                           #translateLabel: true
  1032                           #'value:' #doLoad
  1031                           #value: #doLoad
  1033                           #'activeHelpKey:' #fileLoad
  1032                           #activeHelpKey: #fileLoad
  1034                           #'enabled:' #isStandAlone
  1033                           #enabled: #isStandAlone
  1035                       )
  1034                       )
  1036                        #(#MenuItem
  1035                        #(#MenuItem
  1037                           #'label:' '-'
  1036                           #label: '-'
  1038                       )
  1037                       )
  1039                        #(#MenuItem
  1038                        #(#MenuItem
  1040                           #'label:' 'Save'
  1039                           #label: 'Save'
  1041                           #'value:' #doSave
  1040                           #value: #doSave
  1042                           #'activeHelpKey:' #fileSave
  1041                           #activeHelpKey: #fileSave
  1043                       )
  1042                       )
  1044                        #(#MenuItem
  1043                        #(#MenuItem
  1045                           #'label:' 'Save As...'
  1044                           #label: 'Save As...'
  1046                           #'value:' #doSaveAs
  1045                           #value: #doSaveAs
  1047                           #'activeHelpKey:' #fileSaveAs
  1046                           #activeHelpKey: #fileSaveAs
  1048                       )
  1047                       )
  1049                        #(#MenuItem
  1048                        #(#MenuItem
  1050                           #'label:' '-'
  1049                           #label: '-'
  1051                       )
  1050                       )
  1052                        #(#MenuItem
  1051                        #(#MenuItem
  1053                           #'label:' 'Pick A Menu...'
  1052                           #label: 'Pick A Menu...'
  1054                           #'value:' #doPickAMenu
  1053                           #value: #doPickAMenu
  1055                           #'activeHelpKey:' #filePickAMenu
  1054                           #activeHelpKey: #filePickAMenu
  1056                           #'enabled:' #isStandAlone
  1055                           #enabled: #isStandAlone
  1057                       )
  1056                       )
  1058                        #(#MenuItem
  1057                        #(#MenuItem
  1059                           #'label:' '-'
  1058                           #label: '-'
  1060                       )
  1059                       )
  1061                        #(#MenuItem
  1060                        #(#MenuItem
  1062                           #'label:' 'Browse Class'
  1061                           #label: 'Browse Class'
  1063                           #'value:' #doBrowseClass
  1062                           #value: #doBrowseClass
  1064                           #'activeHelpKey:' #fileBrowseClass
  1063                           #activeHelpKey: #fileBrowseClass
  1065                       )
  1064                       )
  1066                        #(#MenuItem
  1065                        #(#MenuItem
  1067                           #'label:' '-'
  1066                           #label: '-'
  1068                       )
  1067                       )
  1069                        #(#MenuItem
  1068                        #(#MenuItem
  1070                           #'label:' 'Exit'
  1069                           #label: 'Exit'
  1071                           #'translateLabel:' true
  1070                           #translateLabel: true
  1072                           #'value:' #closeRequest
  1071                           #value: #closeRequest
  1073                           #'activeHelpKey:' #fileExit
  1072                           #activeHelpKey: #fileExit
  1074                       )
  1073                       )
  1075                     ) nil
  1074                     ) nil
  1076                     nil
  1075                     nil
  1077                 )
  1076                 )
  1078             )
  1077             )
  1079              #(#MenuItem
  1078              #(#MenuItem
  1080                 #'label:' 'Edit'
  1079                 #label: 'Edit'
  1081                 #'activeHelpKey:' #edit
  1080                 #activeHelpKey: #edit
  1082                 #'submenuChannel:' #menuEdit
  1081                 #submenuChannel: #menuEdit
  1083             )
  1082             )
  1084              #(#MenuItem
  1083              #(#MenuItem
  1085                 #'label:' 'Add'
  1084                 #label: 'Add'
  1086                 #'activeHelpKey:' #add
  1085                 #activeHelpKey: #add
  1087                 #'submenuChannel:' #menuAdd
  1086                 #submenuChannel: #menuAdd
  1088             )
  1087             )
  1089              #(#MenuItem
  1088              #(#MenuItem
  1090                 #'label:' 'Test'
  1089                 #label: 'Test'
  1091                 #'activeHelpKey:' #test
  1090                 #activeHelpKey: #test
  1092                 #'submenuChannel:' #submenuTest
  1091                 #submenuChannel: #submenuTest
  1093             )
  1092             )
  1094              #(#MenuItem
  1093              #(#MenuItem
  1095                 #'label:' 'History'
  1094                 #label: 'History'
  1096                 #'activeHelpKey:' #history
  1095                 #activeHelpKey: #history
  1097                 #'submenuChannel:' #menuHistory
  1096                 #submenuChannel: #menuHistory
  1098             )
  1097             )
  1099              #(#MenuItem
  1098              #(#MenuItem
  1100                 #'label:' 'Help'
  1099                 #label: 'Help'
  1101                 #'startGroup:' #right
  1100                 #startGroup: #right
  1102                 #'activeHelpKey:' #help
  1101                 #activeHelpKey: #help
  1103                 #'submenuChannel:' #menuHelp
  1102                 #submenuChannel: #menuHelp
  1104             )
  1103             )
  1105           ) nil
  1104           ) nil
  1106           nil
  1105           nil
  1107       )
  1106       )
  1108 !
  1107 !
  1221                 #activeHelpKey: #editPaste
  1220                 #activeHelpKey: #editPaste
  1222                 #enabled: #hasAnySingleSelection
  1221                 #enabled: #hasAnySingleSelection
  1223                 #shortcutKeyCharacter: #Paste
  1222                 #shortcutKeyCharacter: #Paste
  1224             )
  1223             )
  1225              #(#MenuItem
  1224              #(#MenuItem
       
  1225                 #label: 'Delete'
       
  1226                 #value: #doDelete
       
  1227                 #activeHelpKey: #editDelete
       
  1228                 #enabled: #hasValidSelection
       
  1229                 #shortcutKeyCharacter: #Delete
       
  1230             )
       
  1231              #(#MenuItem
  1226                 #label: '-'
  1232                 #label: '-'
  1227             )
  1233             )
  1228              #(#MenuItem
  1234              #(#MenuItem
  1229                 #label: 'Move Up'
  1235                 #label: 'Move Up'
  1230                 #value: #doStepUp
  1236                 #value: #doStepUp
  1231                 #activeHelpKey: #editMoveUp
  1237                 #activeHelpKey: #editMoveUp
  1232                 #enabled: #valueOfEnableMovingUpOrDown
  1238                 #enabled: #valueOfEnableMovingUpOrDown
  1233                 #labelImage: #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
       
  1234             )
  1239             )
  1235              #(#MenuItem
  1240              #(#MenuItem
  1236                 #label: 'Move Down'
  1241                 #label: 'Move Down'
  1237                 #value: #doStepDown
  1242                 #value: #doStepDown
  1238                 #activeHelpKey: #editMoveDown
  1243                 #activeHelpKey: #editMoveDown
  1239                 #enabled: #valueOfEnableMovingUpOrDown
  1244                 #enabled: #valueOfEnableMovingUpOrDown
  1240                 #labelImage: #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
       
  1241             )
  1245             )
  1242              #(#MenuItem
  1246              #(#MenuItem
  1243                 #label: 'Move In'
  1247                 #label: 'Move In'
  1244                 #value: #doStepIn
  1248                 #value: #doStepIn
  1245                 #activeHelpKey: #editMoveIn
  1249                 #activeHelpKey: #editMoveIn
  1246                 #enabled: #valueOfEnableMovingIn
  1250                 #enabled: #valueOfEnableMovingIn
  1247                 #labelImage: #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In')
       
  1248             )
  1251             )
  1249              #(#MenuItem
  1252              #(#MenuItem
  1250                 #label: 'Move Out'
  1253                 #label: 'Move Out'
  1251                 #value: #doStepOut
  1254                 #value: #doStepOut
  1252                 #activeHelpKey: #editMoveOut
  1255                 #activeHelpKey: #editMoveOut
  1253                 #enabled: #valueOfEnableMovingOut
  1256                 #enabled: #valueOfEnableMovingOut
  1254                 #labelImage: #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out')
       
  1255             )
  1257             )
  1256           ) nil
  1258           ) nil
  1257           nil
  1259           nil
  1258       )
  1260       )
  1259 !
  1261 !
  1294                 #label: 'Save'
  1296                 #label: 'Save'
  1295                 #isButton: true
  1297                 #isButton: true
  1296                 #value: #doSave
  1298                 #value: #doSave
  1297                 #activeHelpKey: #fileSave
  1299                 #activeHelpKey: #fileSave
  1298                 #labelImage: #(#ResourceRetriever nil #saveIcon)
  1300                 #labelImage: #(#ResourceRetriever nil #saveIcon)
       
  1301             )
       
  1302              #(#MenuItem
       
  1303                 #label: ''
       
  1304             )
       
  1305              #(#MenuItem
       
  1306                 #label: 'Cut'
       
  1307                 #isButton: true
       
  1308                 #value: #doCut
       
  1309                 #activeHelpKey: #editCut
       
  1310                 #enabled: #hasValidSelection
       
  1311                 #labelImage: #(#ResourceRetriever nil #cutIcon)
       
  1312             )
       
  1313              #(#MenuItem
       
  1314                 #label: 'Copy'
       
  1315                 #isButton: true
       
  1316                 #value: #doCopy
       
  1317                 #activeHelpKey: #editCopy
       
  1318                 #enabled: #hasValidSelection
       
  1319                 #labelImage: #(#ResourceRetriever nil #copyIcon)
       
  1320             )
       
  1321              #(#MenuItem
       
  1322                 #label: 'Paste'
       
  1323                 #isButton: true
       
  1324                 #value: #doPaste
       
  1325                 #activeHelpKey: #editPaste
       
  1326                 #enabled: #hasAnySingleSelection
       
  1327                 #labelImage: #(#ResourceRetriever nil #pasteIcon)
       
  1328             )
       
  1329              #(#MenuItem
       
  1330                 #label: 'Delete'
       
  1331                 #isButton: true
       
  1332                 #value: #doDelete
       
  1333                 #activeHelpKey: #editDelete
       
  1334                 #enabled: #hasValidSelection
       
  1335                 #labelImage: #(#ResourceRetriever nil #deleteIcon)
  1299             )
  1336             )
  1300              #(#MenuItem
  1337              #(#MenuItem
  1301                 #label: ''
  1338                 #label: ''
  1302             )
  1339             )
  1303              #(#MenuItem
  1340              #(#MenuItem
  1315                 #activeHelpKey: #addMenuSeparator
  1352                 #activeHelpKey: #addMenuSeparator
  1316                 #enabled: #hasAnySingleSelection
  1353                 #enabled: #hasAnySingleSelection
  1317                 #labelImage: #(#ResourceRetriever nil #menuSeparatorImage)
  1354                 #labelImage: #(#ResourceRetriever nil #menuSeparatorImage)
  1318             )
  1355             )
  1319              #(#MenuItem
  1356              #(#MenuItem
  1320                 #label: ''
       
  1321             )
       
  1322              #(#MenuItem
       
  1323                 #label: 'Add Submenu'
  1357                 #label: 'Add Submenu'
  1324                 #isButton: true
  1358                 #isButton: true
  1325                 #value: #doCreateMenu
  1359                 #value: #doCreateMenu
  1326                 #activeHelpKey: #addSubMenu
  1360                 #activeHelpKey: #addSubMenu
  1327                 #enabled: #hasAnySingleSelection
  1361                 #enabled: #hasAnySingleSelection
  1385 
  1419 
  1386     <resource: #image>
  1420     <resource: #image>
  1387 
  1421 
  1388     ^Icon
  1422     ^Icon
  1389         constantNamed:#'MenuEditor linkSubmenuImage'
  1423         constantNamed:#'MenuEditor linkSubmenuImage'
  1390         ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@ADQDQDQDQDQDQH@D"H"H"H"H"H"K0@RH"H"H"H"H"H/@A????????????<@D@@@@@@@@@@@C0@PL3L0DQDQDQD_@A@3L3LBH"H"H"<@DCL3L3@"H"H"K0@PL3L3L0??????@A@@@@L3L@@@@@<@DQDQDCL3@PLAG0@RH"H"@3L0@3@/@AH"H"H L3L3L0<@G?????<CL3L3L@@P@@@@@@@3L3LO@ADQDQDQDP@CLA<@D"H"H"H"H LBK0@RH"H"H"H"@BH/@B????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
  1424         ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@ADQDQDQDQDQDQH@D"H"H"H"H"H"K0@RH"H"H"H"H"H/@A????????????<@D@@@@@@@@@@@C0@PL3L0DQDQDQD_@A@3L3LBH"H"H"<@DCL3L3@"H"H"K0@PL3L3L0??????@A@@@@L3L@@@@@<@DQDQDCL3@PLAG0@RH"H"@3L0@3@/@AH"H"H L3L3L0<@G?????<CL3L3L@@P@@@@@@@3L3LO@ADQDQDQDP@CLA<@D"H"H"H"H LBK0@RH"H"H"H"@BH/@B????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
  1391 
  1425 
  1392 menuItemImage
  1426 menuItemImage
  1393     "Generated by the Image Editor"
  1427     "Generated by the Image Editor"
  1394     "
  1428     "
  1395     ImageEditor openOnClass:self andSelector:#menuItemImage
  1429     ImageEditor openOnClass:self andSelector:#menuItemImage
  1397 
  1431 
  1398     <resource: #image>
  1432     <resource: #image>
  1399 
  1433 
  1400     ^Icon
  1434     ^Icon
  1401         constantNamed:#'MenuEditor menuItemImage'
  1435         constantNamed:#'MenuEditor menuItemImage'
  1402         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUQUUUUUUUPUUUUUUU_UUUUUUUPUUUUUUUP@@@@@@@@EUUUUUVAF*****+HF:?+::;@F:.+*?;@F:.+::;@F:.+*:;@F:.+::;@F*****+DK??????A@@@@@@@@UUUUUUUPUUUUUUUXUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUX'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
  1436         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUQUUUUUUUPUUUUUUU_UUUUUUUPUUUUUUUP@@@@@@@@EUUUUUVAF*****+HF:?+::;@F:.+*?;@F:.+::;@F:.+*:;@F:.+::;@F*****+DK??????A@@@@@@@@UUUUUUUPUUUUUUUXUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUX') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
  1403 
  1437 
  1404 menuSeparatorImage
  1438 menuSeparatorImage
  1405     "Generated by the Image Editor"
  1439     "Generated by the Image Editor"
  1406     "
  1440     "
  1407     ImageEditor openOnClass:self andSelector:#menuSeparatorImage
  1441     ImageEditor openOnClass:self andSelector:#menuSeparatorImage
  1409 
  1443 
  1410     <resource: #image>
  1444     <resource: #image>
  1411 
  1445 
  1412     ^Icon
  1446     ^Icon
  1413         constantNamed:#'MenuEditor menuSeparatorImage'
  1447         constantNamed:#'MenuEditor menuSeparatorImage'
  1414         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUURUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP@@@@@@@@EUUUUUV@F*****+DF*****+CF?????+@F0@@@@[@F%UUUU[HF*****+@F*****+@K??????N@@@@@@@HUUUUUUUPUUUUUUUPUUUUUUUWUUUUUUUXUUUUUUUPUUUUUUUP'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
  1448         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUURUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP@@@@@@@@EUUUUUV@F*****+DF*****+CF?????+@F0@@@@[@F%UUUU[HF*****+@F*****+@K??????N@@@@@@@HUUUUUUUPUUUUUUUPUUUUUUUWUUUUUUUXUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
  1415 
  1449 
  1416 submenuImage
  1450 submenuImage
  1417     "Generated by the Image Editor"
  1451     "Generated by the Image Editor"
  1418     "
  1452     "
  1419     ImageEditor openOnClass:self andSelector:#submenuImage
  1453     ImageEditor openOnClass:self andSelector:#submenuImage
  1421 
  1455 
  1422     <resource: #image>
  1456     <resource: #image>
  1423 
  1457 
  1424     ^Icon
  1458     ^Icon
  1425         constantNamed:#'MenuEditor submenuImage'
  1459         constantNamed:#'MenuEditor submenuImage'
  1426         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@EUUUUUV@F*****+@F*****+@G??????GD@@@@@C@EUUUUUWLF*****+@F*****+@G??????HD@@@@@C@EUUUUUW@F*****+@F*****+OG??????@D@@@@@C@EUUUUUW@F*****+@F*****+@K??????@@@@@@@@@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]! !
  1460         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@EUUUUUV@F*****+@F*****+@G??????GD@@@@@C@EUUUUUWLF*****+@F*****+@G??????HD@@@@@C@EUUUUUW@F*****+@F*****+OG??????@D@@@@@C@EUUUUUW@F*****+@F*****+@K??????@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]! !
  1427 
  1461 
  1428 !MenuEditor class methodsFor:'slices'!
  1462 !MenuEditor class methodsFor:'slices'!
  1429 
  1463 
  1430 slicesItem
  1464 slicesItem
  1431     ^#(
  1465     ^#(
  1794     [
  1828     [
  1795         self isHelpToolSelected
  1829         self isHelpToolSelected
  1796         ifTrue:
  1830         ifTrue:
  1797         [
  1831         [
  1798             self helpTool accept.
  1832             self helpTool accept.
  1799             node contents activeHelpKey: self helpTool helpKey
  1833             node contents activeHelpKey: self helpTool helpKey.
       
  1834             self valueOfEnablingCommitButtons value: false.
  1800         ]
  1835         ]
  1801         ifFalse:
  1836         ifFalse:
  1802         [
  1837         [
  1803             node contents buildFromAspects: aspects.
  1838             node contents buildFromAspects: aspects.
  1804             node changed.
  1839             node changed.
  2188 
  2223 
  2189 !MenuEditor::Item methodsFor:'queries'!
  2224 !MenuEditor::Item methodsFor:'queries'!
  2190 
  2225 
  2191 iconFor: aNode
  2226 iconFor: aNode
  2192 
  2227 
  2193     aNode hasChildren
  2228     (aNode hasChildren or: [aNode parent isNil])
  2194     ifTrue:
  2229     ifTrue:
  2195     [
  2230     [
  2196         ^MenuEditor submenuImage
  2231         ^MenuEditor submenuImage
  2197     ]
  2232     ]
  2198     ifFalse:
  2233     ifFalse:
  2404 keyPress:key x:x y:y
  2439 keyPress:key x:x y:y
  2405     "invoked if any key was pressed"
  2440     "invoked if any key was pressed"
  2406 
  2441 
  2407     <resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste)>
  2442     <resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste)>
  2408 
  2443 
  2409     (key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [^self doCut].
  2444     (key == #Delete or:[key == #BackSpace]) ifTrue: [^self doDelete].
  2410 
  2445     key == #Cut  ifTrue:[^self doCut].
  2411     key == #Copy  ifTrue:[^self doCopy].
  2446     key == #Copy  ifTrue:[^self doCopy].
  2412     key == #Paste ifTrue:[^self doPaste].
  2447     key == #Paste ifTrue:[^self doPaste].
  2413 
  2448 
  2414     super keyPress:key x:x y:y
  2449     super keyPress:key x:x y:y
  2415 
  2450 
  2473     self addElement:(self nodeLabel:nil)
  2508     self addElement:(self nodeLabel:nil)
  2474 !
  2509 !
  2475 
  2510 
  2476 doCut
  2511 doCut
  2477 
  2512 
  2478     self askForItemModification
  2513     (self topView application hasValidSelection value and: [self askForItemModification])
  2479     ifTrue:
  2514     ifTrue:
  2480     [
  2515     [
  2481         |selectedNodes|
  2516         |selectedNodes|
  2482         self doCopy.
  2517         self doCopy.
       
  2518         selectedNodes := self selection asSortedCollection.
       
  2519         self selectedNodesRemove.
       
  2520         self selection: selectedNodes first - 1.
       
  2521         self setModified.
       
  2522     ]
       
  2523 
       
  2524 !
       
  2525 
       
  2526 doDelete
       
  2527 
       
  2528     (self topView application hasValidSelection value and: [self askForItemModification])
       
  2529     ifTrue:
       
  2530     [
       
  2531         |selectedNodes|
  2483         selectedNodes := self selection asSortedCollection.
  2532         selectedNodes := self selection asSortedCollection.
  2484         self selectedNodesRemove.
  2533         self selectedNodesRemove.
  2485         self selection: selectedNodes first - 1.
  2534         self selection: selectedNodes first - 1.
  2486         self setModified.
  2535         self setModified.
  2487     ]
  2536     ]