MenuEditor.st
changeset 1632 1f0a0d241ff8
parent 1631 d7979e4253fd
child 1633 24748704c741
equal deleted inserted replaced
1631:d7979e4253fd 1632:1f0a0d241ff8
   599 
   599 
   600     ^ 
   600     ^ 
   601      #(#Menu
   601      #(#Menu
   602         #(
   602         #(
   603          #(#MenuItem
   603          #(#MenuItem
       
   604             #activeHelpKey: #addMenuSeparator
   604             #label: 'Separator'
   605             #label: 'Separator'
   605             #translateLabel: true
   606             #itemValue: #doCreateSep
   606             #value: #doCreateSep
   607             #translateLabel: true
   607             #activeHelpKey: #addMenuSeparator
       
   608             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator '')
   608             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator '')
   609           )
   609           )
   610          #(#MenuItem
   610          #(#MenuItem
       
   611             #activeHelpKey: #addMenuItem
   611             #label: 'Item'
   612             #label: 'Item'
   612             #translateLabel: true
   613             #itemValue: #doCreateItem
   613             #value: #doCreateItem
   614             #translateLabel: true
       
   615             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem '')
       
   616           )
       
   617          #(#MenuItem
   614             #activeHelpKey: #addMenuItem
   618             #activeHelpKey: #addMenuItem
   615             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem '')
       
   616           )
       
   617          #(#MenuItem
       
   618             #label: 'Menu'
   619             #label: 'Menu'
   619             #translateLabel: true
   620             #itemValue: #doCreateMenu
   620             #value: #doCreateMenu
   621             #translateLabel: true
   621             #activeHelpKey: #addMenuItem
       
   622             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu '')
   622             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu '')
   623           )
   623           )
   624          #(#MenuItem
   624          #(#MenuItem
       
   625             #activeHelpKey: #addSubMenuLink
   625             #label: 'Linked Menu'
   626             #label: 'Linked Menu'
   626             #value: #doCreateLinkedMenu
   627             #itemValue: #doCreateLinkedMenu
   627             #activeHelpKey: #addSubMenuLink
   628             #translateLabel: true
   628             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu '')
   629             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu '')
   629           )
   630           )
   630          #(#MenuItem
   631          #(#MenuItem
   631             #label: '-'
   632             #label: '-'
   632           )
   633           )
   633          #(#MenuItem
   634          #(#MenuItem
       
   635             #activeHelpKey: #addDelayedMenu
       
   636             #enabled: #canCreateDelayedMenuChannel
   634             #label: 'Delayed Menu'
   637             #label: 'Delayed Menu'
   635             #value: #doCreateDelayedMenu:
   638             #itemValue: #doCreateDelayedMenu:
       
   639             #translateLabel: true
       
   640             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu '')
       
   641             #argument: #menu
       
   642           )
       
   643          #(#MenuItem
       
   644             #activeHelpKey: #addDelayedSubMenuLink
   636             #enabled: #canCreateDelayedMenuChannel
   645             #enabled: #canCreateDelayedMenuChannel
   637             #activeHelpKey: #addDelayedMenu
       
   638            #argument: #menu
       
   639             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu '')
       
   640           )
       
   641          #(#MenuItem
       
   642             #label: 'Delayed Linked Menu'
   646             #label: 'Delayed Linked Menu'
   643             #value: #doCreateDelayedMenu:
   647             #itemValue: #doCreateDelayedMenu:
   644             #enabled: #canCreateDelayedMenuChannel
   648             #translateLabel: true
   645             #activeHelpKey: #addDelayedSubMenuLink
   649             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu '')
   646             #argument: #linkedMenu
   650             #argument: #linkedMenu
   647             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu '')
       
   648           )
   651           )
   649          #(#MenuItem
   652          #(#MenuItem
   650             #label: '-'
   653             #label: '-'
   651           )
   654           )
   652          #(#MenuItem
   655          #(#MenuItem
   677 
   680 
   678     ^ 
   681     ^ 
   679      #(#Menu
   682      #(#Menu
   680         #(
   683         #(
   681          #(#MenuItem
   684          #(#MenuItem
   682             #label: 'Cut'
       
   683             #translateLabel: true
       
   684             #activeHelpKey: #editCut
   685             #activeHelpKey: #editCut
   685             #enabled: #hasSelectionChannel
   686             #enabled: #hasSelectionChannel
   686           )
   687             #label: 'Cut'
   687          #(#MenuItem
   688             #itemValue: #doCut
   688             #label: 'Copy'
   689             #translateLabel: true
   689             #translateLabel: true
   690           )
       
   691          #(#MenuItem
   690             #activeHelpKey: #editCopy
   692             #activeHelpKey: #editCopy
   691             #enabled: #hasSelectionChannel
   693             #enabled: #hasSelectionChannel
   692           )
   694             #label: 'Copy'
   693          #(#MenuItem
   695             #itemValue: #doCopy
   694             #label: 'Paste'
   696             #translateLabel: true
   695             #translateLabel: true
   697           )
       
   698          #(#MenuItem
   696             #activeHelpKey: #editPaste
   699             #activeHelpKey: #editPaste
   697             #enabled: #valueOfCanPaste
   700             #enabled: #valueOfCanPaste
   698           )
   701             #label: 'Paste'
   699          #(#MenuItem
   702             #itemValue: #doPaste
   700             #label: 'Delete'
   703             #translateLabel: true
   701             #translateLabel: true
   704           )
   702             #isVisible: false
   705          #(#MenuItem
   703             #activeHelpKey: #editDelete
   706             #activeHelpKey: #editDelete
   704             #enabled: #hasSelectionChannel
   707             #enabled: #hasSelectionChannel
       
   708             #label: 'Delete'
       
   709             #itemValue: #doDelete
       
   710             #translateLabel: true
       
   711             #isVisible: false
   705           )
   712           )
   706          #(#MenuItem
   713          #(#MenuItem
   707             #label: '-'
   714             #label: '-'
   708           )
   715           )
   709          #(#MenuItem
   716          #(#MenuItem
   710             #label: 'Move Up'
       
   711             #translateLabel: true
       
   712             #startGroup: #right
       
   713             #activeHelpKey: #editMoveUp
   717             #activeHelpKey: #editMoveUp
   714             #enabled: #valueOfEnableMovingUpOrDown
   718             #enabled: #valueOfEnableMovingUpOrDown
       
   719             #label: 'Move Up'
       
   720             #itemValue: #doMoveUpOrDown:
       
   721             #translateLabel: true
       
   722             #startGroup: #right
       
   723             #labelImage: #(#ResourceRetriever #Icon #upIcon '')
   715             #argument: #up
   724             #argument: #up
   716             #resourceRetriever: #(#ResourceRetriever #Icon #upIcon '')
   725           )
   717           )
   726          #(#MenuItem
   718          #(#MenuItem
       
   719             #label: 'Move Down'
       
   720             #translateLabel: true
       
   721             #activeHelpKey: #editMoveDown
   727             #activeHelpKey: #editMoveDown
   722             #enabled: #valueOfEnableMovingUpOrDown
   728             #enabled: #valueOfEnableMovingUpOrDown
       
   729             #label: 'Move Down'
       
   730             #itemValue: #doMoveUpOrDown:
       
   731             #translateLabel: true
       
   732             #labelImage: #(#ResourceRetriever #Icon #downIcon '')
   723             #argument: #down
   733             #argument: #down
   724             #resourceRetriever: #(#ResourceRetriever #Icon #downIcon '')
   734           )
   725           )
   735          #(#MenuItem
   726          #(#MenuItem
       
   727             #label: 'Move Into Next'
       
   728             #translateLabel: true
       
   729             #activeHelpKey: #editMoveIn
   736             #activeHelpKey: #editMoveIn
   730             #enabled: #valueOfEnableMovingIn
   737             #enabled: #valueOfEnableMovingIn
       
   738             #label: 'Move Into Next'
       
   739             #itemValue: #doMoveIn:
       
   740             #translateLabel: true
       
   741             #labelImage: #(#ResourceRetriever #Icon #downRightIcon '')
   731             #argument: #inNext
   742             #argument: #inNext
   732             #resourceRetriever: #(#ResourceRetriever #Icon #downRightIcon '')
   743           )
   733           )
   744          #(#MenuItem
   734          #(#MenuItem
       
   735             #label: 'Move Into Previous'
       
   736             #translateLabel: true
       
   737             #activeHelpKey: #editMoveInAbove
   745             #activeHelpKey: #editMoveInAbove
   738             #enabled: #valueOfEnableMovingInAbove
   746             #enabled: #valueOfEnableMovingInAbove
       
   747             #label: 'Move Into Previous'
       
   748             #itemValue: #doMoveIn:
       
   749             #translateLabel: true
       
   750             #labelImage: #(#ResourceRetriever #Icon #upRightIcon '')
   739             #argument: #inPrev
   751             #argument: #inPrev
   740             #resourceRetriever: #(#ResourceRetriever #Icon #upRightIcon '')
   752           )
   741           )
   753          #(#MenuItem
   742          #(#MenuItem
       
   743             #label: 'Move Out'
       
   744             #translateLabel: true
       
   745             #activeHelpKey: #editMoveOut
   754             #activeHelpKey: #editMoveOut
   746             #enabled: #valueOfEnableMovingOut
   755             #enabled: #valueOfEnableMovingOut
   747             #resourceRetriever: #(#ResourceRetriever #Icon #leftDownIcon '')
   756             #label: 'Move Out'
       
   757             #itemValue: #doMoveOut
       
   758             #translateLabel: true
       
   759             #labelImage: #(#ResourceRetriever #Icon #leftDownIcon '')
   748           )
   760           )
   749          )
   761          )
   750         nil
   762         nil
   751         nil
   763         nil
   752       )
   764       )
   768 
   780 
   769     ^ 
   781     ^ 
   770      #(#Menu
   782      #(#Menu
   771         #(
   783         #(
   772          #(#MenuItem
   784          #(#MenuItem
       
   785             #activeHelpKey: #fileNew
   773             #label: 'New'
   786             #label: 'New'
   774             #translateLabel: true
   787             #itemValue: #doNew
   775             #value: #doNew
   788             #translateLabel: true
   776             #activeHelpKey: #fileNew
       
   777           )
   789           )
   778          #(#MenuItem
   790          #(#MenuItem
   779             #label: '-'
   791             #label: '-'
   780           )
   792           )
   781          #(#MenuItem
   793          #(#MenuItem
       
   794             #activeHelpKey: #fileLoad
   782             #label: 'Load...'
   795             #label: 'Load...'
   783             #translateLabel: true
   796             #itemValue: #doLoad
   784             #value: #doLoad
   797             #translateLabel: true
   785             #activeHelpKey: #fileLoad
       
   786           )
   798           )
   787          #(#MenuItem
   799          #(#MenuItem
   788             #label: '-'
   800             #label: '-'
   789           )
   801           )
   790          #(#MenuItem
   802          #(#MenuItem
       
   803             #activeHelpKey: #fileSave
   791             #label: 'Save'
   804             #label: 'Save'
   792             #translateLabel: true
   805             #itemValue: #doSave
   793             #value: #doSave
   806             #translateLabel: true
   794             #activeHelpKey: #fileSave
   807           )
   795           )
   808          #(#MenuItem
   796          #(#MenuItem
   809             #activeHelpKey: #fileSaveAs
   797             #label: 'Save As...'
   810             #label: 'Save As...'
   798             #translateLabel: true
   811             #itemValue: #doSaveAs
   799             #value: #doSaveAs
   812             #translateLabel: true
   800             #activeHelpKey: #fileSaveAs
       
   801           )
   813           )
   802          #(#MenuItem
   814          #(#MenuItem
   803             #label: '-'
   815             #label: '-'
   804           )
   816           )
   805          #(#MenuItem
   817          #(#MenuItem
       
   818             #activeHelpKey: #filePickAMenu
   806             #label: 'Pick a Menu...'
   819             #label: 'Pick a Menu...'
   807             #translateLabel: true
   820             #itemValue: #doPickAMenu
   808             #value: #doPickAMenu
   821             #translateLabel: true
   809             #activeHelpKey: #filePickAMenu
       
   810           )
   822           )
   811          #(#MenuItem
   823          #(#MenuItem
   812             #label: '-'
   824             #label: '-'
   813           )
   825           )
   814          #(#MenuItem
   826          #(#MenuItem
       
   827             #activeHelpKey: #fileShowMenuSpec
   815             #label: 'Show Menu Spec'
   828             #label: 'Show Menu Spec'
   816             #translateLabel: true
   829             #itemValue: #doShowMenuSpec
   817             #value: #doShowMenuSpec
   830             #translateLabel: true
   818             #activeHelpKey: #fileShowMenuSpec
   831           )
   819           )
   832          #(#MenuItem
   820          #(#MenuItem
       
   821             #label: 'Browse Class'
       
   822             #translateLabel: true
       
   823             #value: #doBrowseClass
       
   824             #activeHelpKey: #fileBrowseClass
   833             #activeHelpKey: #fileBrowseClass
   825             #enabled: #hasValidSpecClass
   834             #enabled: #hasValidSpecClass
       
   835             #label: 'Browse Class'
       
   836             #itemValue: #doBrowseClass
       
   837             #translateLabel: true
   826           )
   838           )
   827          #(#MenuItem
   839          #(#MenuItem
   828             #label: '-'
   840             #label: '-'
   829           )
   841           )
   830          #(#MenuItem
   842          #(#MenuItem
       
   843             #activeHelpKey: #fileExit
   831             #label: 'Exit'
   844             #label: 'Exit'
   832             #translateLabel: true
   845             #itemValue: #closeRequest
   833             #value: #closeRequest
   846             #translateLabel: true
   834             #activeHelpKey: #fileExit
       
   835           )
   847           )
   836          )
   848          )
   837         nil
   849         nil
   838         nil
   850         nil
   839       )
   851       )
   855 
   867 
   856     ^ 
   868     ^ 
   857      #(#Menu
   869      #(#Menu
   858         #(
   870         #(
   859          #(#MenuItem
   871          #(#MenuItem
   860             #label: 'Aspect Methods'
       
   861             #value: #doGenerateAspectMethods
       
   862             #activeHelpKey: #generateAspectMethods
   872             #activeHelpKey: #generateAspectMethods
   863             #enabled: #hasValidSpecClass
   873             #enabled: #hasValidSpecClass
       
   874             #label: 'Aspect Methods'
       
   875             #itemValue: #doGenerateAspectMethods
       
   876             #translateLabel: true
   864           )
   877           )
   865          )
   878          )
   866         nil
   879         nil
   867         nil
   880         nil
   868       )
   881       )
   884 
   897 
   885     ^ 
   898     ^ 
   886      #(#Menu
   899      #(#Menu
   887         #(
   900         #(
   888          #(#MenuItem
   901          #(#MenuItem
       
   902             #activeHelpKey: #helpTutorial
   889             #label: 'Documentation'
   903             #label: 'Documentation'
   890             #translateLabel: true
   904             #itemValue: #openHTMLDocument:
   891             #value: #openHTMLDocument:
   905             #translateLabel: true
   892             #activeHelpKey: #helpTutorial
       
   893             #argument: 'tools/uipainter/MenuEditor.html'
   906             #argument: 'tools/uipainter/MenuEditor.html'
   894           )
   907           )
   895          #(#MenuItem
   908          #(#MenuItem
   896             #label: '-'
   909             #label: '-'
   897           )
   910           )
   898          #(#MenuItem
   911          #(#MenuItem
       
   912             #activeHelpKey: #helpHelpTool
   899             #label: 'Help Tool'
   913             #label: 'Help Tool'
   900             #translateLabel: true
   914             #itemValue: #openHTMLDocument:
   901             #value: #openHTMLDocument:
   915             #translateLabel: true
   902             #activeHelpKey: #helpHelpTool
       
   903             #argument: 'tools/uipainter/HelpTool.html'
   916             #argument: 'tools/uipainter/HelpTool.html'
   904           )
   917           )
   905          #(#MenuItem
   918          #(#MenuItem
   906             #label: '-'
   919             #label: '-'
   907           )
   920           )
   908          #(#MenuItem
   921          #(#MenuItem
       
   922             #activeHelpKey: #helpShowHelp
   909             #label: 'Show Help Texts'
   923             #label: 'Show Help Texts'
   910             #translateLabel: true
   924             #translateLabel: true
   911             #activeHelpKey: #helpShowHelp
       
   912             #indication: #showingHelp:
   925             #indication: #showingHelp:
   913           )
   926           )
   914          #(#MenuItem
   927          #(#MenuItem
   915             #label: '-'
   928             #label: '-'
   916           )
   929           )
   917          #(#MenuItem
   930          #(#MenuItem
       
   931             #activeHelpKey: #aboutThisAppliaction
   918             #label: 'About MenuEditor...'
   932             #label: 'About MenuEditor...'
   919             #translateLabel: true
   933             #itemValue: #openAboutThisApplication
   920             #value: #openAboutThisApplication
   934             #translateLabel: true
   921             #activeHelpKey: #aboutThisAppliaction
       
   922           )
   935           )
   923          )
   936          )
   924         nil
   937         nil
   925         nil
   938         nil
   926       )
   939       )
   942 
   955 
   943     ^ 
   956     ^ 
   944      #(#Menu
   957      #(#Menu
   945         #(
   958         #(
   946          #(#MenuItem
   959          #(#MenuItem
       
   960             #activeHelpKey: #file
   947             #label: '&File'
   961             #label: '&File'
   948             #translateLabel: true
   962             #translateLabel: true
   949             #activeHelpKey: #file
       
   950             #submenuChannel: #fileMenu
   963             #submenuChannel: #fileMenu
   951             #keepLinkedMenu: true
   964             #keepLinkedMenu: true
   952           )
   965           )
   953          #(#MenuItem
   966          #(#MenuItem
       
   967             #activeHelpKey: #edit
   954             #label: '&Edit'
   968             #label: '&Edit'
   955             #translateLabel: true
   969             #translateLabel: true
   956             #activeHelpKey: #edit
       
   957             #submenuChannel: #editMenu
   970             #submenuChannel: #editMenu
   958             #keepLinkedMenu: true
   971             #keepLinkedMenu: true
   959           )
   972           )
   960          #(#MenuItem
   973          #(#MenuItem
   961             #label: 'Item'
       
   962             #translateLabel: true
       
   963             #activeHelpKey: #add
   974             #activeHelpKey: #add
   964             #enabled: #hasSingleSelectionChannel
   975             #enabled: #hasSingleSelectionChannel
       
   976             #label: 'Item'
       
   977             #translateLabel: true
   965             #submenuChannel: #addMenu
   978             #submenuChannel: #addMenu
   966             #keepLinkedMenu: true
   979             #keepLinkedMenu: true
   967           )
   980           )
   968          #(#MenuItem
   981          #(#MenuItem
       
   982             #activeHelpKey: #generate
   969             #label: 'Generate'
   983             #label: 'Generate'
   970             #translateLabel: true
   984             #translateLabel: true
   971             #activeHelpKey: #generate
       
   972             #submenuChannel: #generateMenu
   985             #submenuChannel: #generateMenu
   973             #keepLinkedMenu: true
   986             #keepLinkedMenu: true
   974           )
   987           )
   975          #(#MenuItem
   988          #(#MenuItem
       
   989             #activeHelpKey: #test
   976             #label: 'Test'
   990             #label: 'Test'
   977             #translateLabel: true
   991             #translateLabel: true
   978             #activeHelpKey: #test
       
   979             #submenuChannel: #submenuTest
   992             #submenuChannel: #submenuTest
   980           )
   993           )
   981          #(#MenuItem
   994          #(#MenuItem
       
   995             #activeHelpKey: #settings
   982             #label: 'Settings'
   996             #label: 'Settings'
   983             #translateLabel: true
   997             #translateLabel: true
   984             #activeHelpKey: #settings
       
   985             #submenuChannel: #settingsMenu
   998             #submenuChannel: #settingsMenu
   986             #keepLinkedMenu: true
   999             #keepLinkedMenu: true
   987           )
  1000           )
   988          #(#MenuItem
  1001          #(#MenuItem
       
  1002             #activeHelpKey: #history
   989             #label: 'History'
  1003             #label: 'History'
   990             #translateLabel: true
  1004             #translateLabel: true
   991             #activeHelpKey: #history
       
   992             #submenuChannel: #menuHistory
  1005             #submenuChannel: #menuHistory
   993           )
  1006           )
   994          #(#MenuItem
  1007          #(#MenuItem
       
  1008             #activeHelpKey: #help
   995             #label: '&Help'
  1009             #label: '&Help'
   996             #translateLabel: true
  1010             #translateLabel: true
   997             #startGroup: #right
  1011             #startGroup: #right
   998             #activeHelpKey: #help
       
   999             #submenuChannel: #helpMenu
  1012             #submenuChannel: #helpMenu
  1000             #keepLinkedMenu: true
  1013             #keepLinkedMenu: true
  1001           )
  1014           )
  1002          )
  1015          )
  1003         nil
  1016         nil
  1011 
  1024 
  1012     "Do not manually edit this!! If it is corrupted,
  1025     "Do not manually edit this!! If it is corrupted,
  1013      the MenuEditor may not be able to read the specification."
  1026      the MenuEditor may not be able to read the specification."
  1014 
  1027 
  1015     "
  1028     "
  1016      MenuEditor new openOnClass:MenuEditor andSelector:#generateMenu
  1029      MenuEditor new openOnClass:MenuEditor andSelector:#settingsMenu
  1017      (Menu new fromLiteralArrayEncoding:(MenuEditor generateMenu)) startUp
  1030      (Menu new fromLiteralArrayEncoding:(MenuEditor settingsMenu)) startUp
  1018     "
  1031     "
  1019 
  1032 
  1020     <resource: #menu>
  1033     <resource: #menu>
  1021 
  1034 
  1022     ^ 
  1035     ^ 
  1023      #(#Menu
  1036      #(#Menu
  1024         #(
  1037         #(
  1025          #(#MenuItem
  1038          #(#MenuItem
  1026             #label: 'Redefine Aspect Methods'
       
  1027             #translateLabel: true
       
  1028             #hideMenuOnActivated: false
       
  1029             #activeHelpKey: #settingsRedefineAspectMethods
  1039             #activeHelpKey: #settingsRedefineAspectMethods
  1030             #enabled: #hasValidSpecClass
  1040             #enabled: #hasValidSpecClass
       
  1041             #label: 'Redefine Aspect Methods'
       
  1042             #translateLabel: true
       
  1043             #hideMenuOnActivated: false
  1031             #indication: #redefineAspectMethodsChannel
  1044             #indication: #redefineAspectMethodsChannel
  1032           )
  1045           )
  1033          )
  1046          )
  1034         nil
  1047         nil
  1035         nil
  1048         nil
  1050 
  1063 
  1051     <resource: #menu>
  1064     <resource: #menu>
  1052 
  1065 
  1053     ^ 
  1066     ^ 
  1054      #(#Menu
  1067      #(#Menu
  1055 	#(
  1068         #(
  1056 	 #(#MenuItem
  1069          #(#MenuItem
  1057 	    #label: 'Standard Menu: Edit'
  1070             #label: 'Standard Menu: Edit'
  1058 	    #translateLabel: true
  1071             #itemValue: #doCreateStandardEditMenu
  1059 	    #value: #doCreateStandardEditMenu
  1072             #translateLabel: true
  1060 	  )
  1073           )
  1061 	 #(#MenuItem
  1074          #(#MenuItem
  1062 	    #label: 'Standard Menu: Help'
  1075             #label: 'Standard Menu: Help'
  1063 	    #translateLabel: true
  1076             #itemValue: #doCreateStandardHelpMenu
  1064 	    #value: #doCreateStandardHelpMenu
  1077             #translateLabel: true
  1065 	  )
  1078           )
  1066 	 #(#MenuItem
  1079          #(#MenuItem
  1067 	    #label: 'Standard Menu: File'
  1080             #label: 'Standard Menu: File'
  1068 	    #translateLabel: true
  1081             #itemValue: #doCreateStandardFileMenu
  1069 	    #value: #doCreateStandardFileMenu
  1082             #translateLabel: true
  1070 	  )
  1083           )
  1071 	 )
  1084          )
  1072 	nil
  1085         nil
  1073 	nil
  1086         nil
  1074       )
  1087       )
  1075 !
  1088 !
  1076 
  1089 
  1077 toolbar
  1090 toolbar
  1078     "This resource specification was automatically generated
  1091     "This resource specification was automatically generated
  1090 
  1103 
  1091     ^ 
  1104     ^ 
  1092      #(#Menu
  1105      #(#Menu
  1093         #(
  1106         #(
  1094          #(#MenuItem
  1107          #(#MenuItem
       
  1108             #activeHelpKey: #fileLoad
  1095             #label: 'Load'
  1109             #label: 'Load'
       
  1110             #itemValue: #doLoad
       
  1111             #translateLabel: true
  1096             #isButton: true
  1112             #isButton: true
  1097             #value: #doLoad
  1113             #submenuChannel: #menuHistory
  1098             #activeHelpKey: #fileLoad
       
  1099             #labelImage: #(#ResourceRetriever #Icon #loadIcon)
  1114             #labelImage: #(#ResourceRetriever #Icon #loadIcon)
  1100             #submenuChannel: #menuHistory
  1115           )
  1101           )
  1116          #(#MenuItem
  1102          #(#MenuItem
  1117             #activeHelpKey: #fileSave
  1103             #label: 'Save'
  1118             #label: 'Save'
       
  1119             #itemValue: #doSave
       
  1120             #translateLabel: true
  1104             #isButton: true
  1121             #isButton: true
  1105             #value: #doSave
       
  1106             #activeHelpKey: #fileSave
       
  1107             #labelImage: #(#ResourceRetriever #Icon #saveIcon)
  1122             #labelImage: #(#ResourceRetriever #Icon #saveIcon)
  1108           )
  1123           )
  1109          #(#MenuItem
  1124          #(#MenuItem
  1110             #label: ''
  1125             #label: ''
  1111           )
  1126           )
  1112          #(#MenuItem
  1127          #(#MenuItem
  1113             #label: 'Cut'
       
  1114             #isButton: true
       
  1115             #value: #doCut
       
  1116             #activeHelpKey: #editCut
  1128             #activeHelpKey: #editCut
  1117             #enabled: #hasSelectionChannel
  1129             #enabled: #hasSelectionChannel
       
  1130             #label: 'Cut'
       
  1131             #itemValue: #doCut
       
  1132             #translateLabel: true
       
  1133             #isButton: true
  1118             #labelImage: #(#ResourceRetriever #Icon #cutIcon)
  1134             #labelImage: #(#ResourceRetriever #Icon #cutIcon)
  1119           )
  1135           )
  1120          #(#MenuItem
  1136          #(#MenuItem
  1121             #label: 'Copy'
       
  1122             #isButton: true
       
  1123             #value: #doCopy
       
  1124             #activeHelpKey: #editCopy
  1137             #activeHelpKey: #editCopy
  1125             #enabled: #hasSelectionChannel
  1138             #enabled: #hasSelectionChannel
       
  1139             #label: 'Copy'
       
  1140             #itemValue: #doCopy
       
  1141             #translateLabel: true
       
  1142             #isButton: true
  1126             #labelImage: #(#ResourceRetriever #Icon #copyIcon)
  1143             #labelImage: #(#ResourceRetriever #Icon #copyIcon)
  1127           )
  1144           )
  1128          #(#MenuItem
  1145          #(#MenuItem
  1129             #label: 'Paste'
       
  1130             #isButton: true
       
  1131             #value: #doPaste
       
  1132             #activeHelpKey: #editPaste
  1146             #activeHelpKey: #editPaste
  1133             #enabled: #valueOfCanPaste
  1147             #enabled: #valueOfCanPaste
       
  1148             #label: 'Paste'
       
  1149             #itemValue: #doPaste
       
  1150             #translateLabel: true
       
  1151             #isButton: true
  1134             #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
  1152             #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
  1135           )
  1153           )
  1136          #(#MenuItem
  1154          #(#MenuItem
  1137             #label: ''
  1155             #label: ''
  1138           )
  1156           )
  1139          #(#MenuItem
  1157          #(#MenuItem
  1140             #label: 'Add Separator'
       
  1141             #isButton: true
       
  1142             #value: #doCreateSep
       
  1143             #activeHelpKey: #addMenuSeparator
  1158             #activeHelpKey: #addMenuSeparator
  1144             #enabled: #hasSingleSelectionChannel
  1159             #enabled: #hasSingleSelectionChannel
       
  1160             #label: 'Add Separator'
       
  1161             #itemValue: #doCreateSep
       
  1162             #translateLabel: true
       
  1163             #isButton: true
  1145             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator)
  1164             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator)
  1146           )
  1165           )
  1147          #(#MenuItem
  1166          #(#MenuItem
  1148             #label: 'Add Item'
       
  1149             #isButton: true
       
  1150             #value: #doCreateItem
       
  1151             #activeHelpKey: #addMenuItem
  1167             #activeHelpKey: #addMenuItem
  1152             #enabled: #hasSingleSelectionChannel
  1168             #enabled: #hasSingleSelectionChannel
       
  1169             #label: 'Add Item'
       
  1170             #itemValue: #doCreateItem
       
  1171             #translateLabel: true
       
  1172             #isButton: true
  1153             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem)
  1173             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem)
  1154           )
  1174           )
  1155          #(#MenuItem
  1175          #(#MenuItem
  1156             #label: 'Add Menu'
       
  1157             #isButton: true
       
  1158             #value: #doCreateMenu
       
  1159             #activeHelpKey: #addSubMenu
  1176             #activeHelpKey: #addSubMenu
  1160             #enabled: #hasSingleSelectionChannel
  1177             #enabled: #hasSingleSelectionChannel
       
  1178             #label: 'Add Menu'
       
  1179             #itemValue: #doCreateMenu
       
  1180             #translateLabel: true
       
  1181             #isButton: true
       
  1182             #submenuChannel: #standardMenus
  1161             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu)
  1183             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu)
  1162             #submenuChannel: #standardMenus
       
  1163             #keepLinkedMenu: true
  1184             #keepLinkedMenu: true
  1164           )
  1185           )
  1165          #(#MenuItem
  1186          #(#MenuItem
  1166             #label: 'Add Linked Menu'
       
  1167             #isButton: true
       
  1168             #value: #doCreateLinkedMenu
       
  1169             #activeHelpKey: #addSubMenuLink
  1187             #activeHelpKey: #addSubMenuLink
  1170             #enabled: #hasSingleSelectionChannel
  1188             #enabled: #hasSingleSelectionChannel
       
  1189             #label: 'Add Linked Menu'
       
  1190             #itemValue: #doCreateLinkedMenu
       
  1191             #translateLabel: true
       
  1192             #isButton: true
  1171             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu)
  1193             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu)
  1172           )
  1194           )
  1173          #(#MenuItem
  1195          #(#MenuItem
  1174             #label: ''
  1196             #label: ''
  1175           )
  1197           )
  1176          #(#MenuItem
  1198          #(#MenuItem
  1177             #label: 'Add Delayed Menu'
       
  1178             #isButton: true
       
  1179             #value: #doCreateDelayedMenu:
       
  1180             #activeHelpKey: #addDelayedMenu
  1199             #activeHelpKey: #addDelayedMenu
  1181             #enabled: #canCreateDelayedMenuChannel
  1200             #enabled: #canCreateDelayedMenuChannel
       
  1201             #label: 'Add Delayed Menu'
       
  1202             #itemValue: #doCreateDelayedMenu:
       
  1203             #translateLabel: true
       
  1204             #isButton: true
       
  1205             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu)
  1182             #argument: #menu
  1206             #argument: #menu
  1183             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu)
  1207           )
  1184           )
  1208          #(#MenuItem
  1185          #(#MenuItem
       
  1186             #label: 'Add Delayed Linked Menu'
       
  1187             #isButton: true
       
  1188             #value: #doCreateDelayedMenu:
       
  1189             #activeHelpKey: #addDelayedSubMenuLink
  1209             #activeHelpKey: #addDelayedSubMenuLink
  1190             #enabled: #canCreateDelayedMenuChannel
  1210             #enabled: #canCreateDelayedMenuChannel
       
  1211             #label: 'Add Delayed Linked Menu'
       
  1212             #itemValue: #doCreateDelayedMenu:
       
  1213             #translateLabel: true
       
  1214             #isButton: true
       
  1215             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu)
  1191             #argument: #linkedMenu
  1216             #argument: #linkedMenu
  1192             #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu)
  1217           )
  1193           )
  1218          #(#MenuItem
  1194          #(#MenuItem
  1219             #activeHelpKey: #editMoveUp
       
  1220             #enabled: #valueOfEnableMovingUpOrDown
  1195             #label: 'Move Up'
  1221             #label: 'Move Up'
       
  1222             #itemValue: #doMoveUpOrDown:
       
  1223             #translateLabel: true
  1196             #isButton: true
  1224             #isButton: true
  1197             #startGroup: #right
  1225             #startGroup: #right
  1198             #value: #doMoveUpOrDown:
  1226             #labelImage: #(#ResourceRetriever #Icon #upIcon)
  1199             #activeHelpKey: #editMoveUp
       
  1200             #enabled: #valueOfEnableMovingUpOrDown
       
  1201             #argument: #up
  1227             #argument: #up
  1202             #labelImage: #(#ResourceRetriever #Icon #upIcon)
  1228           )
  1203           )
  1229          #(#MenuItem
  1204          #(#MenuItem
       
  1205             #label: 'Move Down'
       
  1206             #isButton: true
       
  1207             #value: #doMoveUpOrDown:
       
  1208             #activeHelpKey: #editMoveDown
  1230             #activeHelpKey: #editMoveDown
  1209             #enabled: #valueOfEnableMovingUpOrDown
  1231             #enabled: #valueOfEnableMovingUpOrDown
       
  1232             #label: 'Move Down'
       
  1233             #itemValue: #doMoveUpOrDown:
       
  1234             #translateLabel: true
       
  1235             #isButton: true
       
  1236             #labelImage: #(#ResourceRetriever #Icon #downIcon)
  1210             #argument: #down
  1237             #argument: #down
  1211             #labelImage: #(#ResourceRetriever #Icon #downIcon)
  1238           )
  1212           )
  1239          #(#MenuItem
  1213          #(#MenuItem
       
  1214             #label: 'Move In'
       
  1215             #isButton: true
       
  1216             #value: #doMoveIn:
       
  1217             #activeHelpKey: #editMoveIn
  1240             #activeHelpKey: #editMoveIn
  1218             #enabled: #valueOfEnableMovingIn
  1241             #enabled: #valueOfEnableMovingIn
       
  1242             #label: 'Move In'
       
  1243             #itemValue: #doMoveIn:
       
  1244             #translateLabel: true
       
  1245             #isButton: true
       
  1246             #labelImage: #(#ResourceRetriever #Icon #downRightIcon)
  1219             #argument: #inNext
  1247             #argument: #inNext
  1220             #labelImage: #(#ResourceRetriever #Icon #downRightIcon)
  1248           )
  1221           )
  1249          #(#MenuItem
  1222          #(#MenuItem
       
  1223             #label: 'Move In Above'
       
  1224             #isButton: true
       
  1225             #value: #doMoveIn:
       
  1226             #activeHelpKey: #editMoveInAbove
  1250             #activeHelpKey: #editMoveInAbove
  1227             #enabled: #valueOfEnableMovingInAbove
  1251             #enabled: #valueOfEnableMovingInAbove
       
  1252             #label: 'Move In Above'
       
  1253             #itemValue: #doMoveIn:
       
  1254             #translateLabel: true
       
  1255             #isButton: true
       
  1256             #labelImage: #(#ResourceRetriever #Icon #upRightIcon)
  1228             #argument: #inPrev
  1257             #argument: #inPrev
  1229             #labelImage: #(#ResourceRetriever #Icon #upRightIcon)
  1258           )
  1230           )
  1259          #(#MenuItem
  1231          #(#MenuItem
       
  1232             #label: 'Move Out'
       
  1233             #isButton: true
       
  1234             #value: #doMoveOut
       
  1235             #activeHelpKey: #editMoveOut
  1260             #activeHelpKey: #editMoveOut
  1236             #enabled: #valueOfEnableMovingOut
  1261             #enabled: #valueOfEnableMovingOut
       
  1262             #label: 'Move Out'
       
  1263             #itemValue: #doMoveOut
       
  1264             #translateLabel: true
       
  1265             #isButton: true
  1237             #labelImage: #(#ResourceRetriever #Icon #leftDownIcon)
  1266             #labelImage: #(#ResourceRetriever #Icon #leftDownIcon)
  1238           )
  1267           )
  1239          )
  1268          )
  1240         nil
  1269         nil
  1241         nil
  1270         nil
  3406            #(#InputFieldSpec
  3435            #(#InputFieldSpec
  3407               #name: 'valueField'
  3436               #name: 'valueField'
  3408               #layout: #(#LayoutFrame 110 0 71 0 -5 1.0 93 0)
  3437               #layout: #(#LayoutFrame 110 0 71 0 -5 1.0 93 0)
  3409               #activeHelpKey: #basicsAction
  3438               #activeHelpKey: #basicsAction
  3410               #tabable: true
  3439               #tabable: true
  3411               #model: #value
  3440               #model: #itemValue
  3412               #group: #inputGroup
  3441               #group: #inputGroup
  3413               #type: #symbolOrNil
  3442               #type: #symbolOrNil
  3414               #immediateAccept: false
  3443               #immediateAccept: false
  3415               #acceptOnReturn: true
  3444               #acceptOnReturn: true
  3416               #acceptOnTab: true
  3445               #acceptOnTab: true
  3572 
  3601 
  3573 menuItem
  3602 menuItem
  3574     |item|
  3603     |item|
  3575 
  3604 
  3576     item := super menuItem.
  3605     item := super menuItem.
  3577 
       
  3578     self hasDelayedMenu ifTrue:[
  3606     self hasDelayedMenu ifTrue:[
  3579         children first setDelayedAttributesTo:item.
  3607         children first setDelayedAttributesTo:item.
  3580 
  3608 
  3581         menuItem value ifNil:[
  3609         menuItem value ifNil:[
  3582             menuItem value:#unspecified
  3610             menuItem value:#unspecified