TabListEditor.st
changeset 3663 9d49ecf8661a
parent 3590 885f170ab630
equal deleted inserted replaced
3662:b958f57e0cfd 3663:9d49ecf8661a
   418     "
   418     "
   419 
   419 
   420     <resource: #canvas>
   420     <resource: #canvas>
   421 
   421 
   422     ^ 
   422     ^ 
   423      #(FullSpec
   423     #(FullSpec
   424         name: canvasSpec
   424        name: canvasSpec
   425         window: 
   425        uuid: '8a7c55d6-761b-11e9-98ea-b8f6b1108e05'
   426        (WindowSpec
   426        window: 
   427           label: 'Canvas'
   427       (WindowSpec
   428           name: 'Canvas'
   428          label: 'Canvas'
   429           min: (Point 10 10)
   429          name: 'Canvas'
   430           max: (Point 1280 1024)
   430          uuid: '8a7c5964-761b-11e9-98ea-b8f6b1108e05'
   431           bounds: (Rectangle 0 0 383 220)
   431          min: (Point 10 10)
   432         )
   432          max: (Point 1280 1024)
   433         component: 
   433          bounds: (Rectangle 0 0 383 220)
   434        (SpecCollection
   434        )
   435           collection: (
   435        component: 
   436            (LabelSpec
   436       (SpecCollection
   437               label: 'Class Name / Major Key:'
   437          collection: (
   438               name: 'majorKeyLabel'
   438           (LabelSpec
   439               layout: (AlignmentOrigin 160 0 26 0 1 0.5)
   439              label: 'Class / Major Key:'
   440               activeHelpKey: majorKey
   440              name: 'majorKeyLabel'
   441               translateLabel: true
   441              layout: (AlignmentOrigin 160 0 26 0 1 0.5)
   442               resizeForLabel: true
   442              activeHelpKey: majorKey
   443             )
   443              uuid: '8a7cc2f0-761b-11e9-98ea-b8f6b1108e05'
   444            (InputFieldSpec
   444              translateLabel: true
   445               name: 'majorKeyField'
   445              resizeForLabel: true
   446               layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)
   446            )
   447               activeHelpKey: majorKey
   447           (InputFieldSpec
   448               tabable: true
   448              name: 'majorKeyField'
   449               model: majorKey
   449              layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)
   450               group: inputGroup
   450              activeHelpKey: majorKey
   451               type: symbolOrNil
   451              uuid: '8a7cc82c-761b-11e9-98ea-b8f6b1108e05'
   452               immediateAccept: true
   452              tabable: true
   453               acceptOnReturn: false
   453              model: majorKey
   454               acceptOnTab: false
   454              group: inputGroup
   455               acceptOnLostFocus: false
   455              type: symbolOrNil
   456               modifiedChannel: modifiedChannel
   456              immediateAccept: true
   457               acceptOnPointerLeave: false
   457              acceptOnReturn: false
   458             )
   458              acceptOnTab: false
   459            (LabelSpec
   459              acceptOnLostFocus: false
   460               label: 'Selector / Minor Key:'
   460              modifiedChannel: modifiedChannel
   461               name: 'minorKeyLabel'
   461              acceptOnPointerLeave: false
   462               layout: (AlignmentOrigin 160 0 55 0 1 0.5)
   462            )
   463               translateLabel: true
   463           (LabelSpec
   464               resizeForLabel: true
   464              label: 'Selector / Minor Key:'
   465             )
   465              name: 'minorKeyLabel'
   466            (InputFieldSpec
   466              layout: (AlignmentOrigin 160 0 55 0 1 0.5)
   467               name: 'minorKeyField'
   467              uuid: '8a7ccda4-761b-11e9-98ea-b8f6b1108e05'
   468               layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)
   468              translateLabel: true
   469               activeHelpKey: majorKey
   469              resizeForLabel: true
   470               tabable: true
   470            )
   471               model: minorKey
   471           (InputFieldSpec
   472               group: inputGroup
   472              name: 'minorKeyField'
   473               type: symbolOrNil
   473              layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)
   474               immediateAccept: true
   474              activeHelpKey: majorKey
   475               acceptOnReturn: false
   475              uuid: '8a7ccf7a-761b-11e9-98ea-b8f6b1108e05'
   476               acceptOnTab: false
   476              tabable: true
   477               acceptOnLostFocus: false
   477              model: minorKey
   478               modifiedChannel: modifiedChannel
   478              group: inputGroup
   479               acceptOnPointerLeave: false
   479              type: symbolOrNil
   480             )
   480              immediateAccept: true
   481            (FramedBoxSpec
   481              acceptOnReturn: false
   482               label: 'Scroll Bars'
   482              acceptOnTab: false
   483               name: 'FramedBox'
   483              acceptOnLostFocus: false
   484               layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0)
   484              modifiedChannel: modifiedChannel
   485               labelPosition: topLeft
   485              acceptOnPointerLeave: false
   486               translateLabel: true
   486            )
   487               component: 
   487           (FramedBoxSpec
   488              (SpecCollection
   488              label: 'Scroll Bars'
   489                 collection: (
   489              name: 'FramedBox'
   490                  (HorizontalPanelViewSpec
   490              layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0)
   491                     name: 'HorizontalPanel1'
   491              uuid: '8a7cd1be-761b-11e9-98ea-b8f6b1108e05'
   492                     layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   492              labelPosition: topLeft
   493                     horizontalLayout: fitSpace
   493              translateLabel: true
   494                     verticalLayout: fitSpace
   494              component: 
   495                     horizontalSpace: 3
   495             (SpecCollection
   496                     verticalSpace: 3
   496                collection: (
   497                     component: 
   497                 (HorizontalPanelViewSpec
   498                    (SpecCollection
   498                    name: 'HorizontalPanel1'
   499                       collection: (
   499                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   500                        (ViewSpec
   500                    uuid: '8a7cd42a-761b-11e9-98ea-b8f6b1108e05'
   501                           name: 'Box1'
   501                    horizontalLayout: fitSpace
   502                           component: 
   502                    verticalLayout: fitSpace
   503                          (SpecCollection
   503                    horizontalSpace: 3
   504                             collection: (
   504                    verticalSpace: 3
   505                              (CheckBoxSpec
   505                    component: 
   506                                 label: 'Vertical'
   506                   (SpecCollection
   507                                 name: 'verticalScrollBarCheckBox'
   507                      collection: (
   508                                 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   508                       (ViewSpec
   509                                 activeHelpKey: verticalScroller
   509                          name: 'Box1'
   510                                 tabable: true
   510                          uuid: '8a7cd768-761b-11e9-98ea-b8f6b1108e05'
   511                                 model: hasVerticalScrollBar
   511                          component: 
   512                                 translateLabel: true
   512                         (SpecCollection
   513                               )
   513                            collection: (
   514                              (CheckBoxSpec
   514                             (CheckBoxSpec
   515                                 label: 'Mini'
   515                                label: 'Vertical'
   516                                 name: 'miniScrollerVerticalCheckBox'
   516                                name: 'verticalScrollBarCheckBox'
   517                                 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   517                                layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   518                                 activeHelpKey: verticalMiniScroller
   518                                activeHelpKey: verticalScroller
   519                                 tabable: true
   519                                uuid: '8a7cd8ee-761b-11e9-98ea-b8f6b1108e05'
   520                                 model: miniScrollerVertical
   520                                tabable: true
   521                                 translateLabel: true
   521                                model: hasVerticalScrollBar
   522                               )
   522                                translateLabel: true
   523                              )
   523                              )
   524                            
   524                             (CheckBoxSpec
   525                           )
   525                                label: 'Mini'
   526                           useDefaultExtent: true
   526                                name: 'miniScrollerVerticalCheckBox'
   527                         )
   527                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
   528                        (ViewSpec
   528                                activeHelpKey: verticalMiniScroller
   529                           name: 'Box2'
   529                                uuid: '8a7cdb82-761b-11e9-98ea-b8f6b1108e05'
   530                           component: 
   530                                tabable: true
   531                          (SpecCollection
   531                                model: miniScrollerVertical
   532                             collection: (
   532                                translateLabel: true
   533                              (CheckBoxSpec
       
   534                                 label: 'Horizontal'
       
   535                                 name: 'horizontalScrollBarCheckBox'
       
   536                                 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
       
   537                                 activeHelpKey: horizontalScroller
       
   538                                 tabable: true
       
   539                                 model: hasHorizontalScrollBar
       
   540                                 translateLabel: true
       
   541                               )
       
   542                              (CheckBoxSpec
       
   543                                 label: 'Mini'
       
   544                                 name: 'miniScrollerHorizontalCheckBox'
       
   545                                 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
       
   546                                 activeHelpKey: horizontalMiniScroller
       
   547                                 tabable: true
       
   548                                 model: miniScrollerHorizontal
       
   549                                 translateLabel: true
       
   550                               )
       
   551                              )
   533                              )
   552                            
   534                             )
   553                           )
   535                           
   554                           extent: (Point 113 61)
   536                          )
   555                         )
   537                          useDefaultExtent: true
   556                        (ViewSpec
   538                        )
   557                           name: 'Box3'
   539                       (ViewSpec
   558                           component: 
   540                          name: 'Box2'
   559                          (SpecCollection
   541                          uuid: '8a7cdda8-761b-11e9-98ea-b8f6b1108e05'
   560                             collection: (
   542                          component: 
   561                              (LabelSpec
   543                         (SpecCollection
   562                                 label: 'Auto Hide:'
   544                            collection: (
   563                                 name: 'Label1'
   545                             (CheckBoxSpec
   564                                 layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)
   546                                label: 'Horizontal'
   565                                 translateLabel: true
   547                                name: 'horizontalScrollBarCheckBox'
   566                                 resizeForLabel: true
   548                                layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
   567                                 adjust: left
   549                                activeHelpKey: horizontalScroller
   568                               )
   550                                uuid: '8a7cdede-761b-11e9-98ea-b8f6b1108e05'
   569                              (PopUpListSpec
   551                                tabable: true
   570                                 label: 'Default'
   552                                model: hasHorizontalScrollBar
   571                                 name: 'PopUpList1'
   553                                translateLabel: true
   572                                 layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)
       
   573                                 activeHelpKey: autoHideScrollBars
       
   574                                 tabable: true
       
   575                                 model: autoHideScrollBars
       
   576                                 menu: 
       
   577                                (Default
       
   578                                   On Off
       
   579                                 )
       
   580                                 useIndex: true
       
   581                               )
       
   582                              )
   554                              )
   583                            
   555                             (CheckBoxSpec
   584                           )
   556                                label: 'Mini'
   585                           extent: (Point 113 61)
   557                                name: 'miniScrollerHorizontalCheckBox'
   586                         )
   558                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
       
   559                                activeHelpKey: horizontalMiniScroller
       
   560                                uuid: '8a7ce064-761b-11e9-98ea-b8f6b1108e05'
       
   561                                tabable: true
       
   562                                model: miniScrollerHorizontal
       
   563                                translateLabel: true
       
   564                              )
       
   565                             )
       
   566                           
       
   567                          )
       
   568                          extent: (Point 111 53)
   587                        )
   569                        )
   588                      
   570                       (ViewSpec
   589                     )
   571                          name: 'Box3'
   590                   )
   572                          uuid: '8a7ce1fe-761b-11e9-98ea-b8f6b1108e05'
       
   573                          component: 
       
   574                         (SpecCollection
       
   575                            collection: (
       
   576                             (LabelSpec
       
   577                                label: 'Auto Hide:'
       
   578                                name: 'Label1'
       
   579                                layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)
       
   580                                uuid: '8a7ce334-761b-11e9-98ea-b8f6b1108e05'
       
   581                                translateLabel: true
       
   582                                resizeForLabel: true
       
   583                                adjust: left
       
   584                              )
       
   585                             (PopUpListSpec
       
   586                                label: 'Default'
       
   587                                name: 'PopUpList1'
       
   588                                layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)
       
   589                                activeHelpKey: autoHideScrollBars
       
   590                                uuid: '8a7ce4e2-761b-11e9-98ea-b8f6b1108e05'
       
   591                                translateLabel: true
       
   592                                tabable: true
       
   593                                model: autoHideScrollBars
       
   594                                menu: 
       
   595                               (ImmutableArray
       
   596                                  Default On
       
   597                                  Off
       
   598                                )
       
   599                                useIndex: true
       
   600                              )
       
   601                             )
       
   602                           
       
   603                          )
       
   604                          extent: (Point 112 53)
       
   605                        )
       
   606                       )
       
   607                     
       
   608                    )
   591                  )
   609                  )
   592                
   610                 )
   593               )
   611               
   594             )
   612              )
   595            (CheckBoxSpec
       
   596               label: 'Create New Builder'
       
   597               name: 'createNewBuilder'
       
   598               layout: (Point 161 75)
       
   599               activeHelpKey: createNewBuilder
       
   600               model: createNewBuilder
       
   601               translateLabel: true
       
   602             )
       
   603            )
   613            )
   604          
   614           (CheckBoxSpec
   605         )
   615              label: 'Create New Builder'
   606       )
   616              name: 'createNewBuilder'
       
   617              layout: (Point 161 75)
       
   618              activeHelpKey: createNewBuilder
       
   619              uuid: '8a7ce8de-761b-11e9-98ea-b8f6b1108e05'
       
   620              model: createNewBuilder
       
   621              translateLabel: true
       
   622            )
       
   623           )
       
   624         
       
   625        )
       
   626      )
   607 !
   627 !
   608 
   628 
   609 detailSpec
   629 detailSpec
   610     "This resource specification was automatically generated
   630     "This resource specification was automatically generated
   611      by the UIPainter of ST/X."
   631      by the UIPainter of ST/X."
   678     "
   698     "
   679 
   699 
   680     <resource: #canvas>
   700     <resource: #canvas>
   681 
   701 
   682     ^ 
   702     ^ 
   683      #(#FullSpec
   703     #(FullSpec
   684         #name: #windowSpec
   704        name: windowSpec
   685         #window: 
   705        uuid: 'b2e02714-761b-11e9-98ea-b8f6b1108e05'
   686        #(#WindowSpec
   706        window: 
   687           #label: 'Tab List Editor'
   707       (WindowSpec
   688           #name: 'Tab List Editor'
   708          label: 'Tab List Editor'
   689           #min: #(#Point 440 280)
   709          name: 'Tab List Editor'
   690           #bounds: #(#Rectangle 596 292 1132 661)
   710          uuid: 'b2e02a02-761b-11e9-98ea-b8f6b1108e05'
   691           #menu: #menu
   711          min: (Point 440 280)
   692         )
   712          bounds: (Rectangle 0 0 536 369)
   693         #component: 
   713          menu: menu
   694        #(#SpecCollection
   714        )
   695           #collection: #(
   715        component: 
   696            #(#MenuPanelSpec
   716       (SpecCollection
   697               #name: 'menuToolbarView'
   717          collection: (
   698               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)
   718           (MenuPanelSpec
   699               #menu: #menuToolbar
   719              name: 'menuToolbarView'
   700               #showSeparatingLines: true
   720              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)
   701             )
   721              uuid: 'b2e02c78-761b-11e9-98ea-b8f6b1108e05'
   702            #(#VariableHorizontalPanelSpec
   722              menu: menuToolbar
   703               #name: 'VariablePanel'
   723              showSeparatingLines: true
   704               #layout: #(#LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0)
   724            )
   705               #component: 
   725           (VariableHorizontalPanelSpec
   706              #(#SpecCollection
   726              name: 'VariablePanel'
   707                 #collection: #(
   727              layout: (LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0)
   708                  #(#SelectionInListModelViewSpec
   728              uuid: 'b2e02f48-761b-11e9-98ea-b8f6b1108e05'
   709                     #attributes: 
   729              component: 
   710                    #(#vpext
   730             (SpecCollection
   711                       
   731                collection: (
   712                      #(#Array
   732                 (SelectionInListModelViewSpec
   713                         #Array #Array
   733                    name: 'ListOfLabels'
   714                         #Array #Array
   734                    uuid: 'b2e031fa-761b-11e9-98ea-b8f6b1108e05'
   715                         #Array #Point
   735                    tabable: true
   716                         0.264414 1.0
   736                    model: selectionHolder
       
   737                    menu: menuEdit
       
   738                    hasHorizontalScrollBar: true
       
   739                    hasVerticalScrollBar: true
       
   740                    miniScrollerHorizontal: true
       
   741                    listModel: listOfTabs
       
   742                    highlightMode: line
       
   743                    selectConditionSelector: askForItemModification
       
   744                  )
       
   745                 (ViewSpec
       
   746                    name: 'SpecView'
       
   747                    uuid: 'b2e034d4-761b-11e9-98ea-b8f6b1108e05'
       
   748                    level: -1
       
   749                    component: 
       
   750                   (SpecCollection
       
   751                      collection: (
       
   752                       (NoteBookViewSpec
       
   753                          name: 'NoteBook'
       
   754                          layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -32 1.0)
       
   755                          uuid: 'b2e03600-761b-11e9-98ea-b8f6b1108e05'
       
   756                          enableChannel: hasSelectionHolder
       
   757                          tabable: true
       
   758                          model: noteBookModel
       
   759                          menu: noteBookTabList
       
   760                          useIndex: true
       
   761                          translateLabel: true
       
   762                          keepCanvasAlive: true
       
   763                        )
       
   764                       (UISubSpecification
       
   765                          name: 'subSpec'
       
   766                          layout: (LayoutFrame 2 0.0 -32 1 -2 1.0 0 1)
       
   767                          uuid: 'b2e039ac-761b-11e9-98ea-b8f6b1108e05'
       
   768                          majorKey: ToolApplicationModel
       
   769                          minorKey: windowSpecForCommit
       
   770                        )
       
   771                       (NoteBookViewSpec
       
   772                          name: 'TestNoteBook'
       
   773                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
       
   774                          uuid: 'b2e03b32-761b-11e9-98ea-b8f6b1108e05'
       
   775                          visibilityChannel: testMode
       
   776                          tabable: true
       
   777                          menu: testItemList
       
   778                          useIndex: true
       
   779                          translateLabel: true
       
   780                        )
   717                       )
   781                       )
   718                     )
   782                     
   719                     #name: 'ListOfLabels'
   783                    )
   720                     #tabable: true
       
   721                     #model: #selectionHolder
       
   722                     #menu: #menuEdit
       
   723                     #hasHorizontalScrollBar: true
       
   724                     #hasVerticalScrollBar: true
       
   725                     #miniScrollerHorizontal: true
       
   726                     #listModel: #listOfTabs
       
   727                     #highlightMode: #line
       
   728                     #selectConditionSelector: #askForItemModification
       
   729                   )
       
   730                  #(#ViewSpec
       
   731                     #name: 'SpecView'
       
   732                     #level: -1
       
   733                     #component: 
       
   734                    #(#SpecCollection
       
   735                       #collection: #(
       
   736                        #(#NoteBookViewSpec
       
   737                           #name: 'NoteBook'
       
   738                           #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
       
   739                           #enableChannel: #hasSelectionHolder
       
   740                           #tabable: true
       
   741                           #model: #noteBookModel
       
   742                           #menu: #noteBookTabList
       
   743                           #useIndex: true
       
   744                           #keepCanvasAlive: true
       
   745                         )
       
   746                        #(#UISubSpecification
       
   747                           #name: 'subSpec'
       
   748                           #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1)
       
   749                           #majorKey: #ToolApplicationModel
       
   750                           #minorKey: #windowSpecForCommit
       
   751                         )
       
   752                        #(#NoteBookViewSpec
       
   753                           #name: 'TestNoteBook'
       
   754                           #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
       
   755                           #visibilityChannel: #testMode
       
   756                           #tabable: true
       
   757                           #menu: #testItemList
       
   758                           #useIndex: true
       
   759                         )
       
   760                        )
       
   761                      
       
   762                     )
       
   763                   )
       
   764                  )
   784                  )
   765                
   785                 )
   766               )
   786               
   767               #handles: #(#Any 0.24053 1.0)
   787              )
   768             )
   788              handles: (Any 0.23999999999999999 1.0)
   769            #(#UISubSpecification
       
   770               #name: 'infoBarSubSpec'
       
   771               #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
       
   772               #majorKey: #ToolApplicationModel
       
   773               #minorKey: #windowSpecForInfoBar
       
   774             )
       
   775            )
   789            )
   776          
   790           (UISubSpecification
   777         )
   791              name: 'infoBarSubSpec'
   778       )
   792              layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
       
   793              uuid: 'b2e03d44-761b-11e9-98ea-b8f6b1108e05'
       
   794              majorKey: ToolApplicationModel
       
   795              minorKey: windowSpecForInfoBar
       
   796            )
       
   797           )
       
   798         
       
   799        )
       
   800      )
   779 ! !
   801 ! !
   780 
   802 
   781 !TabListEditor class methodsFor:'list specs'!
   803 !TabListEditor class methodsFor:'list specs'!
   782 
   804 
   783 noteBookTabList
   805 noteBookTabList
   821      by the MenuEditor of ST/X."
   843      by the MenuEditor of ST/X."
   822 
   844 
   823     "Do not manually edit this!! If it is corrupted,
   845     "Do not manually edit this!! If it is corrupted,
   824      the MenuEditor may not be able to read the specification."
   846      the MenuEditor may not be able to read the specification."
   825 
   847 
       
   848 
   826     "
   849     "
   827      MenuEditor new openOnClass:TabListEditor andSelector:#menu
   850      MenuEditor new openOnClass:TabListEditor andSelector:#menu
   828      (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp
   851      (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp
   829     "
   852     "
   830 
   853 
   831     <resource: #menu>
   854     <resource: #menu>
   832 
   855 
   833     ^
   856     ^ 
   834      
   857      #(Menu
   835        #(#Menu
   858         (
   836           
   859          (MenuItem
   837            #(
   860             activeHelpKey: file
   838              #(#MenuItem
   861             label: 'File'
   839                 #label: 'About'
   862             submenu: 
   840                 #activeHelpKey: #about
   863            (Menu
   841                 #labelImage: #(#ResourceRetriever nil #menuIcon)
   864               (
   842                 #submenuChannel: #menuAbout
   865                (MenuItem
   843             )
   866                   activeHelpKey: fileNew
   844              #(#MenuItem
   867                   label: 'New'
   845                 #label: 'File'
   868                   itemValue: doNew
   846                 #activeHelpKey: #file
       
   847                 #submenu: 
       
   848                  #(#Menu
       
   849                     
       
   850                      #(
       
   851                        #(#MenuItem
       
   852                           #label: 'New'
       
   853                           #value: #doNew
       
   854                           #activeHelpKey: #fileNew
       
   855                       )
       
   856                        #(#MenuItem
       
   857                           #label: '-'
       
   858                       )
       
   859                        #(#MenuItem
       
   860                           #label: 'Load...'
       
   861                           #translateLabel: true
       
   862                           #value: #doLoad
       
   863                           #activeHelpKey: #fileLoad
       
   864                       )
       
   865                        #(#MenuItem
       
   866                           #label: '-'
       
   867                       )
       
   868                        #(#MenuItem
       
   869                           #label: 'Save'
       
   870                           #value: #doSave
       
   871                           #activeHelpKey: #fileSave
       
   872                       )
       
   873                        #(#MenuItem
       
   874                           #label: 'Save As...'
       
   875                           #value: #doSaveAs
       
   876                           #activeHelpKey: #fileSave
       
   877                       )
       
   878                        #(#MenuItem
       
   879                           #label: '-'
       
   880                       )
       
   881                        #(#MenuItem
       
   882                           #label: 'Browse Class'
       
   883                           #value: #doBrowseClass
       
   884                           #activeHelpKey: #fileBrowseClass
       
   885                       )
       
   886                        #(#MenuItem
       
   887                           #label: '-'
       
   888                       )
       
   889                        #(#MenuItem
       
   890                           #label: 'Exit'
       
   891                           #value: #closeRequest
       
   892                           #activeHelpKey: #fileExit
       
   893                       )
       
   894                     ) nil
       
   895                     nil
       
   896                 )
   869                 )
   897             )
   870                (MenuItem
   898              #(#MenuItem
   871                   label: '-'
   899                 #label: 'Edit'
       
   900                 #activeHelpKey: #edit
       
   901                 #submenuChannel: #menuEdit
       
   902             )
       
   903              #(#MenuItem
       
   904                 #label: 'Add'
       
   905                 #activeHelpKey: #add
       
   906                 #submenu: 
       
   907                  #(#Menu
       
   908                     
       
   909                      #(
       
   910                        #(#MenuItem
       
   911                           #label: 'Tab Item'
       
   912                           #value: #doCreate
       
   913                           #activeHelpKey: #addTabItem
       
   914                           #labelImage: #(#ResourceRetriever nil #newTabItemIcon 'Tab Item')
       
   915                       )
       
   916                     ) nil
       
   917                     nil
       
   918                 )
   872                 )
   919             )
   873                (MenuItem
   920              #(#MenuItem
   874                   activeHelpKey: fileLoad
   921                 #label: 'Generate'
   875                   label: 'Load...'
   922                 #activeHelpKey: #add
   876                   itemValue: doLoad
   923                 #submenu: 
       
   924                  #(#Menu
       
   925                     
       
   926                      #(
       
   927                        #(#MenuItem
       
   928                           #label: 'Aspect Method'
       
   929                           #value: #doGenerateAspectMethod
       
   930                           #activeHelpKey: #fileCreateAspectMethod
       
   931                           #enabled: #hasClassAndSelector
       
   932                       )
       
   933                     ) nil
       
   934                     nil
       
   935                 )
   877                 )
   936             )
   878                (MenuItem
   937              #(#MenuItem
   879                   label: '-'
   938                 #label: 'Test'
       
   939                 #activeHelpKey: #test
       
   940                 #submenu: 
       
   941                  #(#Menu
       
   942                     
       
   943                      #(
       
   944                        #(#MenuItem
       
   945                           #label: 'Preview'
       
   946                           #activeHelpKey: #testPreview
       
   947                           #enabled: #canToggleTestMode
       
   948                           #indication: #testMode
       
   949                       )
       
   950                     ) nil
       
   951                     nil
       
   952                 )
   880                 )
   953             )
   881                (MenuItem
   954              #(#MenuItem
   882                   activeHelpKey: fileSave
   955                 #label: 'History'
   883                   label: 'Save'
   956                 #activeHelpKey: #history
   884                   itemValue: doSave
   957                 #submenuChannel: #menuHistory
   885                 )
   958             )
   886                (MenuItem
   959              #(#MenuItem
   887                   activeHelpKey: fileSave
   960                 label: 'MENU_Help'
   888                   label: 'Save As...'
   961                 #startGroup: #right
   889                   itemValue: doSaveAs
   962                 #activeHelpKey: #help
   890                 )
   963                 #submenuChannel: #menuHelp
   891                (MenuItem
   964                 startGroup: conditionalRight
   892                   label: '-'
   965             )
   893                 )
   966           ) nil
   894                (MenuItem
   967           nil
   895                   activeHelpKey: fileBrowseClass
       
   896                   label: 'Browse Class'
       
   897                   itemValue: doBrowseClass
       
   898                 )
       
   899                (MenuItem
       
   900                   label: '-'
       
   901                 )
       
   902                (MenuItem
       
   903                   activeHelpKey: fileExit
       
   904                   label: 'Exit'
       
   905                   itemValue: closeRequest
       
   906                 )
       
   907                )
       
   908               nil
       
   909               nil
       
   910             )
       
   911           )
       
   912          (MenuItem
       
   913             activeHelpKey: edit
       
   914             label: 'Edit'
       
   915             submenuChannel: menuEdit
       
   916           )
       
   917          (MenuItem
       
   918             activeHelpKey: add
       
   919             label: 'Add'
       
   920             submenu: 
       
   921            (Menu
       
   922               (
       
   923                (MenuItem
       
   924                   activeHelpKey: addTabItem
       
   925                   label: 'Tab Item'
       
   926                   itemValue: doCreate
       
   927                   labelImage: (ResourceRetriever nil newTabItemIcon 'Tab Item')
       
   928                 )
       
   929                )
       
   930               nil
       
   931               nil
       
   932             )
       
   933           )
       
   934          (MenuItem
       
   935             activeHelpKey: add
       
   936             label: 'Generate'
       
   937             submenu: 
       
   938            (Menu
       
   939               (
       
   940                (MenuItem
       
   941                   activeHelpKey: fileCreateAspectMethod
       
   942                   enabled: hasClassAndSelector
       
   943                   label: 'Aspect Method'
       
   944                   itemValue: doGenerateAspectMethod
       
   945                 )
       
   946                )
       
   947               nil
       
   948               nil
       
   949             )
       
   950           )
       
   951          (MenuItem
       
   952             activeHelpKey: test
       
   953             label: 'Test'
       
   954             submenu: 
       
   955            (Menu
       
   956               (
       
   957                (MenuItem
       
   958                   activeHelpKey: testPreview
       
   959                   enabled: canToggleTestMode
       
   960                   label: 'Preview'
       
   961                   indication: testMode
       
   962                 )
       
   963                )
       
   964               nil
       
   965               nil
       
   966             )
       
   967           )
       
   968          (MenuItem
       
   969             activeHelpKey: history
       
   970             label: 'History'
       
   971             submenuChannel: menuHistory
       
   972           )
       
   973          (MenuItem
       
   974             activeHelpKey: help
       
   975             label: 'MENU_Help'
       
   976             startGroup: conditionalRight
       
   977             submenuChannel: menuHelp
       
   978           )
       
   979          )
       
   980         nil
       
   981         nil
   968       )
   982       )
   969 !
   983 !
   970 
   984 
   971 menuEdit
   985 menuEdit
   972     "This resource specification was automatically generated
   986     "This resource specification was automatically generated