MenuEditor.st
changeset 525 3c59244da8c8
parent 520 f6ca67d537b6
child 532 de091386bbae
equal deleted inserted replaced
524:6ced725af608 525:3c59244da8c8
   116     UIHelpTool openOnClass:MenuEditor    
   116     UIHelpTool openOnClass:MenuEditor    
   117     "
   117     "
   118 
   118 
   119   ^ super helpSpec addPairsFrom:#(
   119   ^ super helpSpec addPairsFrom:#(
   120 
   120 
   121 #aboutSTX
       
   122 'Open an InfoBox about running ST/X.'
       
   123 
       
   124 #aboutThisAppliaction
       
   125 'Open an InfoBox about release and author.'
       
   126 
       
   127 #accessCharaterPos
   121 #accessCharaterPos
   128 'The index of the access character position into the textual label (optional).'
   122 'The index of the access character position into the textual label (optional).'
   129 
   123 
   130 #argument
   124 #argument
   131 'An argument passed to the value method, if the value  selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'
   125 'An argument passed to the value method, if the value  selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'
   132 
   126 
   133 #enbled
   127 #enbled
   134 'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether  the respective field can be selected, a value of true, or not, a value of false.'
   128 'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether  the respective field can be selected, a value of true, or not, a value of false.'
   135 
   129 
   136 #fileExit
       
   137 'Exit current application.'
       
   138 
       
   139 #helpClassDocumentation
       
   140 'Open a HTML-browser with a class documentation for the current application.'
       
   141 
       
   142 #helpProgrammersGuide
       
   143 'Open a HTML-browser with a programmers guide.'
       
   144 
       
   145 #helpShowHelp
       
   146 'Toggle on/off displaying help texts.'
       
   147 
       
   148 #helpTutorial
       
   149 'Open a HTML-browser with tutorial for beginners.'
       
   150 
       
   151 #icon
   130 #icon
   152 'Selector which returns an image to be displayed.'
   131 'Selector which returns an image to be displayed.'
   153 
   132 
   154 #iconAndLabel
   133 #iconAndLabel
   155 'Boolean flag to specify that both image and textual label shall be shown.'
   134 'Boolean flag to specify that both image and textual label shall be shown.'
   184 )
   163 )
   185 ! !
   164 ! !
   186 
   165 
   187 !MenuEditor class methodsFor:'interface specs'!
   166 !MenuEditor class methodsFor:'interface specs'!
   188 
   167 
   189 classDefineSpec
   168 basicsItemSpec
   190     "this window spec was automatically generated by the ST/X UIPainter"
   169     "this window spec was automatically generated by the ST/X UIPainter"
   191 
   170 
   192     "do not manually edit this - the painter/builder may not be able to
   171     "do not manually edit this - the painter/builder may not be able to
   193      handle the specification if its corrupted."
   172      handle the specification if its corrupted."
   194 
   173 
   195     "
   174     "
   196      UIPainter new openOnClass:MenuEditor andSelector:#classDefineSpec
   175      UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec
   197      MenuEditor new openInterface:#classDefineSpec
   176      MenuEditor new openInterface:#basicsItemSpec
   198     "
   177     "
   199 
   178 
   200     <resource: #canvas>
   179     <resource: #canvas>
   201 
   180 
   202     ^
   181     ^
   203      
   182      
   204        #(#FullSpec
   183        #(#FullSpec
   205           #'window:' 
   184           #'window:' 
   206            #(#WindowSpec
   185            #(#WindowSpec
   207               #'name:' 'MenuEditor'
   186               #'name:' 'unnamed canvas'
       
   187               #'layout:' #(#LayoutFrame 170 0 315 0 436 0 633 0)
       
   188               #'label:' 'unnamed canvas'
       
   189               #'min:' #(#Point 10 10)
       
   190               #'max:' #(#Point 1160 870)
       
   191               #'bounds:' #(#Rectangle 170 315 437 634)
       
   192               #'usePreferredExtent:' false
       
   193           )
       
   194           #'component:' 
       
   195            #(#SpecCollection
       
   196               #'collection:' 
       
   197                #(
       
   198                  #(#LabelSpec
       
   199                     #'name:' 'nameKeyLabel'
       
   200                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   201                     #'label:' 'NameKey:'
       
   202                     #'adjust:' #right
       
   203                     #'resizeForLabel:' true
       
   204                 )
       
   205                  #(#InputFieldSpec
       
   206                     #'name:' 'nameKeyField'
       
   207                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   208                     #'activeHelpKey:' #nameKey
       
   209                     #'tabable:' true
       
   210                     #'model:' #nameKey
       
   211                     #'type:' #symbolOrNil
       
   212                     #'acceptOnReturn:' false
       
   213                     #'acceptOnTab:' false
       
   214                 )
       
   215                  #(#LabelSpec
       
   216                     #'name:' 'labelLabel'
       
   217                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   218                     #'label:' 'Label:'
       
   219                     #'adjust:' #right
       
   220                     #'resizeForLabel:' true
       
   221                 )
       
   222                  #(#InputFieldSpec
       
   223                     #'name:' 'labelField'
       
   224                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   225                     #'activeHelpKey:' #label
       
   226                     #'tabable:' true
       
   227                     #'model:' #label
       
   228                     #'acceptOnReturn:' false
       
   229                     #'acceptOnTab:' false
       
   230                 )
       
   231                  #(#LabelSpec
       
   232                     #'name:' 'valueLabel'
       
   233                     #'layout:' #(#AlignmentOrigin 107 0 90 0 1 0.5)
       
   234                     #'label:' 'Value:'
       
   235                     #'adjust:' #right
       
   236                     #'resizeForLabel:' true
       
   237                 )
       
   238                  #(#InputFieldSpec
       
   239                     #'name:' 'valueField'
       
   240                     #'layout:' #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
       
   241                     #'activeHelpKey:' #value
       
   242                     #'tabable:' true
       
   243                     #'model:' #value
       
   244                     #'type:' #symbolOrNil
       
   245                     #'acceptOnReturn:' false
       
   246                     #'acceptOnTab:' false
       
   247                 )
       
   248                  #(#LabelSpec
       
   249                     #'name:' 'argumentLabel'
       
   250                     #'layout:' #(#AlignmentOrigin 107 0 115 0 1 0.5)
       
   251                     #'label:' 'Argument:'
       
   252                     #'adjust:' #right
       
   253                     #'resizeForLabel:' true
       
   254                 )
       
   255                  #(#InputFieldSpec
       
   256                     #'name:' 'argumentField'
       
   257                     #'layout:' #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
       
   258                     #'activeHelpKey:' #argument
       
   259                     #'tabable:' true
       
   260                     #'model:' #argument
       
   261                     #'type:' #string
       
   262                     #'acceptOnReturn:' false
       
   263                     #'acceptOnTab:' false
       
   264                 )
       
   265                  #(#LabelSpec
       
   266                     #'name:' 'indicationLabel'
       
   267                     #'layout:' #(#AlignmentOrigin 107 0 155 0 1 0.5)
       
   268                     #'label:' 'Indication:'
       
   269                     #'adjust:' #right
       
   270                     #'resizeForLabel:' true
       
   271                 )
       
   272                  #(#InputFieldSpec
       
   273                     #'name:' 'indicationField'
       
   274                     #'layout:' #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
       
   275                     #'activeHelpKey:' #indication
       
   276                     #'tabable:' true
       
   277                     #'model:' #indication
       
   278                     #'type:' #symbolOrNil
       
   279                     #'acceptOnReturn:' false
       
   280                     #'acceptOnTab:' false
       
   281                 )
       
   282                  #(#CheckBoxSpec
       
   283                     #'name:' 'translateLabelCheckBox'
       
   284                     #'layout:' #(#Point 20 192)
       
   285                     #'activeHelpKey:' #translateLabel
       
   286                     #'tabable:' true
       
   287                     #'model:' #translateLabel
       
   288                     #'label:' 'Translate Label'
       
   289                 )
       
   290                  #(#CheckBoxSpec
       
   291                     #'name:' 'isButtonCheckBox'
       
   292                     #'layout:' #(#Point 20 221)
       
   293                     #'activeHelpKey:' #translateLabel
       
   294                     #'tabable:' true
       
   295                     #'model:' #isButton
       
   296                     #'label:' 'Is Button'
       
   297                 )
       
   298               )
       
   299           )
       
   300       )
       
   301 !
       
   302 
       
   303 basicsLinkSpec
       
   304     "this window spec was automatically generated by the ST/X UIPainter"
       
   305 
       
   306     "do not manually edit this - the painter/builder may not be able to
       
   307      handle the specification if its corrupted."
       
   308 
       
   309     "
       
   310      UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec
       
   311      MenuEditor new openInterface:#basicsLinkSpec
       
   312     "
       
   313 
       
   314     <resource: #canvas>
       
   315 
       
   316     ^
       
   317      
       
   318        #(#FullSpec
       
   319           #'window:' 
       
   320            #(#WindowSpec
       
   321               #'name:' 'unnamed canvas'
       
   322               #'layout:' #(#LayoutFrame 374 0 432 0 640 0 750 0)
       
   323               #'label:' 'unnamed canvas'
       
   324               #'min:' #(#Point 10 10)
       
   325               #'max:' #(#Point 1280 1024)
       
   326               #'bounds:' #(#Rectangle 374 432 641 751)
       
   327               #'usePreferredExtent:' false
       
   328           )
       
   329           #'component:' 
       
   330            #(#SpecCollection
       
   331               #'collection:' 
       
   332                #(
       
   333                  #(#LabelSpec
       
   334                     #'name:' 'nameKeyLabel'
       
   335                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   336                     #'activeHelpKey:' #nameKey
       
   337                     #'label:' 'NameKey:'
       
   338                     #'adjust:' #right
       
   339                     #'resizeForLabel:' true
       
   340                 )
       
   341                  #(#InputFieldSpec
       
   342                     #'name:' 'nameKeyField'
       
   343                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   344                     #'activeHelpKey:' #nameKey
       
   345                     #'tabable:' true
       
   346                     #'model:' #nameKey
       
   347                     #'type:' #symbolOrNil
       
   348                     #'acceptOnReturn:' false
       
   349                     #'acceptOnTab:' false
       
   350                 )
       
   351                  #(#LabelSpec
       
   352                     #'name:' 'labelLabel'
       
   353                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   354                     #'label:' 'Label:'
       
   355                     #'resizeForLabel:' true
       
   356                 )
       
   357                  #(#InputFieldSpec
       
   358                     #'name:' 'labelField'
       
   359                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   360                     #'activeHelpKey:' #label
       
   361                     #'tabable:' true
       
   362                     #'model:' #label
       
   363                     #'acceptOnReturn:' false
       
   364                     #'acceptOnTab:' false
       
   365                 )
       
   366                  #(#LabelSpec
       
   367                     #'name:' 'menuLabel'
       
   368                     #'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5)
       
   369                     #'label:' 'Menu:'
       
   370                     #'resizeForLabel:' true
       
   371                 )
       
   372                  #(#InputFieldSpec
       
   373                     #'name:' 'menuField'
       
   374                     #'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
       
   375                     #'activeHelpKey:' #submenuChannel
       
   376                     #'tabable:' true
       
   377                     #'model:' #submenuChannel
       
   378                     #'type:' #symbolOrNil
       
   379                     #'acceptOnReturn:' false
       
   380                     #'acceptOnTab:' false
       
   381                 )
       
   382                  #(#LabelSpec
       
   383                     #'name:' 'ArgumentLabel'
       
   384                     #'layout:' #(#AlignmentOrigin 107 0 100 0 1 0.5)
       
   385                     #'label:' 'Argument:'
       
   386                     #'resizeForLabel:' true
       
   387                 )
       
   388                  #(#InputFieldSpec
       
   389                     #'name:' 'argumentField'
       
   390                     #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
       
   391                     #'activeHelpKey:' #submenuChannel
       
   392                     #'tabable:' true
       
   393                     #'model:' #submenuArgument
       
   394                     #'type:' #symbolOrNil
       
   395                     #'acceptOnReturn:' false
       
   396                     #'acceptOnTab:' false
       
   397                 )
       
   398                  #(#CheckBoxSpec
       
   399                     #'name:' 'translateLabelCheckBox'
       
   400                     #'layout:' #(#Point 20 128)
       
   401                     #'activeHelpKey:' #translateLabel
       
   402                     #'tabable:' true
       
   403                     #'model:' #translateLabel
       
   404                     #'label:' 'Translate Label'
       
   405                 )
       
   406               )
       
   407           )
       
   408       )
       
   409 !
       
   410 
       
   411 basicsMenuSpec
       
   412     "this window spec was automatically generated by the ST/X UIPainter"
       
   413 
       
   414     "do not manually edit this - the painter/builder may not be able to
       
   415      handle the specification if its corrupted."
       
   416 
       
   417     "
       
   418      UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
       
   419      MenuEditor new openInterface:#basicsMenuSpec
       
   420     "
       
   421 
       
   422     <resource: #canvas>
       
   423 
       
   424     ^
       
   425      
       
   426        #(#FullSpec
       
   427           #'window:' 
       
   428            #(#WindowSpec
       
   429               #'name:' 'unnamed canvas'
       
   430               #'layout:' #(#LayoutFrame 456 0 430 0 722 0 748 0)
       
   431               #'label:' 'unnamed canvas'
       
   432               #'min:' #(#Point 10 10)
       
   433               #'max:' #(#Point 1280 1024)
       
   434               #'bounds:' #(#Rectangle 456 430 723 749)
       
   435               #'usePreferredExtent:' false
       
   436           )
       
   437           #'component:' 
       
   438            #(#SpecCollection
       
   439               #'collection:' 
       
   440                #(
       
   441                  #(#LabelSpec
       
   442                     #'name:' 'nameKeyLabel'
       
   443                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   444                     #'label:' 'NameKey:'
       
   445                     #'adjust:' #right
       
   446                     #'resizeForLabel:' true
       
   447                 )
       
   448                  #(#InputFieldSpec
       
   449                     #'name:' 'nameKeyField'
       
   450                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   451                     #'activeHelpKey:' #nameKey
       
   452                     #'tabable:' true
       
   453                     #'model:' #nameKey
       
   454                     #'type:' #symbolOrNil
       
   455                     #'acceptOnReturn:' false
       
   456                     #'acceptOnTab:' false
       
   457                 )
       
   458                  #(#LabelSpec
       
   459                     #'name:' 'labelLabel'
       
   460                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   461                     #'label:' 'Label:'
       
   462                     #'adjust:' #right
       
   463                     #'resizeForLabel:' true
       
   464                 )
       
   465                  #(#InputFieldSpec
       
   466                     #'name:' 'labelField'
       
   467                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   468                     #'activeHelpKey:' #label
       
   469                     #'tabable:' true
       
   470                     #'model:' #label
       
   471                     #'acceptOnReturn:' false
       
   472                     #'acceptOnTab:' false
       
   473                 )
       
   474                  #(#CheckBoxSpec
       
   475                     #'name:' 'translateLabelCheckBox'
       
   476                     #'layout:' #(#Point 20 100)
       
   477                     #'activeHelpKey:' #translateLabel
       
   478                     #'tabable:' true
       
   479                     #'model:' #translateLabel
       
   480                     #'label:' 'Translate Label'
       
   481                 )
       
   482               )
       
   483           )
       
   484       )
       
   485 !
       
   486 
       
   487 basicsRootSpec
       
   488     "this window spec was automatically generated by the ST/X UIPainter"
       
   489 
       
   490     "do not manually edit this - the painter/builder may not be able to
       
   491      handle the specification if its corrupted."
       
   492 
       
   493     "
       
   494      UIPainter new openOnClass:MenuEditor andSelector:#basicsRootSpec
       
   495      MenuEditor new openInterface:#basicsRootSpec
       
   496     "
       
   497 
       
   498     <resource: #canvas>
       
   499 
       
   500     ^
       
   501      
       
   502        #(#FullSpec
       
   503           #'window:' 
       
   504            #(#WindowSpec
       
   505               #'name:' 'unnamed canvas'
       
   506               #'layout:' #(#LayoutFrame 230 0 231 0 496 0 549 0)
       
   507               #'label:' 'unnamed canvas'
       
   508               #'min:' #(#Point 10 10)
       
   509               #'max:' #(#Point 1280 1024)
       
   510               #'bounds:' #(#Rectangle 230 231 497 550)
       
   511               #'usePreferredExtent:' false
       
   512           )
       
   513           #'component:' 
       
   514            #(#SpecCollection
       
   515               #'collection:' 
       
   516                #(
       
   517                  #(#LabelSpec
       
   518                     #'name:' 'selectorLabel'
       
   519                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   520                     #'label:' 'Selector:'
       
   521                     #'adjust:' #right
       
   522                     #'resizeForLabel:' true
       
   523                 )
       
   524                  #(#InputFieldSpec
       
   525                     #'name:' 'selectorField'
       
   526                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   527                     #'activeHelpKey:' #menuSelector
       
   528                     #'tabable:' true
       
   529                     #'model:' #label
       
   530                     #'acceptOnReturn:' false
       
   531                     #'acceptOnTab:' false
       
   532                 )
       
   533               )
       
   534           )
       
   535       )
       
   536 !
       
   537 
       
   538 basicsSeparatorSpec
       
   539     "this window spec was automatically generated by the ST/X UIPainter"
       
   540 
       
   541     "do not manually edit this - the painter/builder may not be able to
       
   542      handle the specification if its corrupted."
       
   543 
       
   544     "
       
   545      UIPainter new openOnClass:MenuEditor andSelector:#basicsSeparatorSpec
       
   546      MenuEditor new openInterface:#basicsSeparatorSpec
       
   547     "
       
   548 
       
   549     <resource: #canvas>
       
   550 
       
   551     ^
       
   552      
       
   553        #(#FullSpec
       
   554           #'window:' 
       
   555            #(#WindowSpec
       
   556               #'name:' 'unnamed canvas'
       
   557               #'layout:' #(#LayoutFrame 359 0 319 0 625 0 637 0)
       
   558               #'label:' 'unnamed canvas'
       
   559               #'min:' #(#Point 10 10)
       
   560               #'max:' #(#Point 1160 870)
       
   561               #'bounds:' #(#Rectangle 359 319 626 638)
       
   562               #'usePreferredExtent:' false
       
   563           )
       
   564           #'component:' 
       
   565            #(#SpecCollection
       
   566               #'collection:' 
       
   567                #(
       
   568                  #(#LabelSpec
       
   569                     #'name:' 'separatorLabel'
       
   570                     #'layout:' #(#AlignmentOrigin 127 0 26 0 1 0.5)
       
   571                     #'label:' 'Separator Type:'
       
   572                     #'adjust:' #right
       
   573                     #'resizeForLabel:' true
       
   574                 )
       
   575                  #(#ComboListSpec
       
   576                     #'name:' 'seperatorList'
       
   577                     #'layout:' #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
       
   578                     #'activeHelpKey:' #seperatorList
       
   579                     #'tabable:' true
       
   580                     #'model:' #seperatorSelection
       
   581                     #'useIndex:' true
       
   582                 )
       
   583               )
       
   584           )
       
   585       )
       
   586 !
       
   587 
       
   588 classDefineSpec
       
   589     "this window spec was automatically generated by the ST/X UIPainter"
       
   590 
       
   591     "do not manually edit this - the painter/builder may not be able to
       
   592      handle the specification if its corrupted."
       
   593 
       
   594     "
       
   595      UIPainter new openOnClass:MenuEditor andSelector:#classDefineSpec
       
   596      MenuEditor new openInterface:#classDefineSpec
       
   597     "
       
   598 
       
   599     <resource: #canvas>
       
   600 
       
   601     ^
       
   602      
       
   603        #(#FullSpec
       
   604           #'window:' 
       
   605            #(#WindowSpec
       
   606               #'name:' 'Menu Editor'
   208               #'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
   607               #'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
   209               #'label:' 'MenuEditor'
   608               #'label:' 'Menu Editor'
   210               #'min:' #(#Point 10 10)
   609               #'min:' #(#Point 10 10)
   211               #'max:' #(#Point 1152 900)
   610               #'max:' #(#Point 1152 900)
   212               #'bounds:' #(#Rectangle 262 426 509 520)
   611               #'bounds:' #(#Rectangle 262 426 509 520)
   213               #'usePreferredExtent:' false
   612               #'usePreferredExtent:' false
   214           )
   613           )
   217               #'collection:' 
   616               #'collection:' 
   218                #(
   617                #(
   219                  #(#LabelSpec
   618                  #(#LabelSpec
   220                     #'name:' 'boxLabel'
   619                     #'name:' 'boxLabel'
   221                     #'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
   620                     #'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
   222                     #'label:' 'Class for menu spec:'
   621                     #'label:' 'Class for code:'
   223                     #'adjust:' #left
   622                     #'adjust:' #left
   224                     #'resizeForLabel:' true
   623                     #'resizeForLabel:' true
   225                 )
   624                 )
   226                  #(#InputFieldSpec
   625                  #(#InputFieldSpec
   227                     #'name:' 'classNameField'
   626                     #'name:' 'classNameField'
   240               )
   639               )
   241           )
   640           )
   242       )
   641       )
   243 !
   642 !
   244 
   643 
   245 menuAdd
   644 detailsEditSpec
   246     "this window spec was automatically generated by the ST/X MenuEditor"
   645     "this window spec was automatically generated by the ST/X UIPainter"
   247 
   646 
   248     "do not manually edit this - the builder may not be able to
   647     "do not manually edit this - the painter/builder may not be able to
   249      handle the specification if its corrupted."
   648      handle the specification if its corrupted."
   250 
   649 
   251     "
   650     "
   252      MenuEditor new openOnClass:MenuEditor andSelector:#menuAdd
   651      UIPainter new openOnClass:MenuEditor andSelector:#detailsEditSpec
   253      (Menu new fromLiteralArrayEncoding:(MenuEditor menuAdd)) startUp
   652      MenuEditor new openInterface:#detailsEditSpec
   254     "
   653     "
   255 
   654 
   256     <resource: #menu>
   655     <resource: #canvas>
   257 
   656 
   258     ^
   657     ^
   259      
   658      
   260        #(#Menu
   659        #(#FullSpec
   261           
   660           #'window:' 
   262            #(
   661            #(#WindowSpec
   263              #(#MenuItem
   662               #'name:' 'unnamed canvas'
   264                 #'label:' 'Item'
   663               #'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0)
   265                 #'value:' #doCreateItem
   664               #'label:' 'unnamed canvas'
   266                 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Item')
   665               #'min:' #(#Point 10 10)
   267             )
   666               #'max:' #(#Point 1280 1024)
   268              #(#MenuItem
   667               #'bounds:' #(#Rectangle 237 249 496 537)
   269                 #'label:' 'Separator'
   668               #'usePreferredExtent:' false
   270                 #'value:' #doCreateSep
   669           )
   271                 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Separator')
   670           #'component:' 
   272             )
   671            #(#SpecCollection
   273              #(#MenuItem
   672               #'collection:' 
   274                 #'label:' '-'
   673                #(
   275             )
   674                  #(#LabelSpec
   276              #(#MenuItem
   675                     #'name:' 'shortcutKeyLabel'
   277                 #'label:' 'Submenu'
   676                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
   278                 #'value:' #doCreateMenu
   677                     #'label:' 'Accelerator:'
   279                 #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu')
   678                     #'adjust:' #right
   280             )
   679                     #'resizeForLabel:' true
   281              #(#MenuItem
   680                 )
   282                 #'label:' 'Submenu Link'
   681                  #(#InputFieldSpec
   283                 #'value:' #doCreateLink
   682                     #'name:' 'shortcutKeyField'
   284                 #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link')
   683                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   285             )
   684                     #'activeHelpKey:' #shortcutKey
   286           ) nil
   685                     #'tabable:' true
   287           nil
   686                     #'model:' #shortcutKey
       
   687                     #'type:' #symbolOrNil
       
   688                     #'acceptOnReturn:' false
       
   689                     #'acceptOnTab:' false
       
   690                 )
       
   691                  #(#LabelSpec
       
   692                     #'name:' 'enabledLabel'
       
   693                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   694                     #'label:' 'Enabled:'
       
   695                     #'adjust:' #right
       
   696                     #'resizeForLabel:' true
       
   697                 )
       
   698                  #(#InputFieldSpec
       
   699                     #'name:' 'enabledField'
       
   700                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   701                     #'activeHelpKey:' #enbled
       
   702                     #'tabable:' true
       
   703                     #'model:' #enabled
       
   704                     #'type:' #symbolOrNil
       
   705                     #'acceptOnReturn:' false
       
   706                     #'acceptOnTab:' false
       
   707                 )
       
   708                  #(#LabelSpec
       
   709                     #'name:' 'accessCharLabel'
       
   710                     #'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5)
       
   711                     #'label:' 'Access Character Position:'
       
   712                     #'adjust:' #right
       
   713                     #'resizeForLabel:' true
       
   714                 )
       
   715                  #(#InputFieldSpec
       
   716                     #'name:' 'accessCharField'
       
   717                     #'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0)
       
   718                     #'activeHelpKey:' #accessCharaterPos
       
   719                     #'tabable:' true
       
   720                     #'model:' #accessCharacterPos
       
   721                     #'type:' #numberOrNil
       
   722                     #'acceptOnReturn:' false
       
   723                     #'acceptOnTab:' false
       
   724                 )
       
   725               )
       
   726           )
       
   727       )
       
   728 !
       
   729 
       
   730 imageEditSpec
       
   731     "this window spec was automatically generated by the ST/X UIPainter"
       
   732 
       
   733     "do not manually edit this - the painter/builder may not be able to
       
   734      handle the specification if its corrupted."
       
   735 
       
   736     "
       
   737      UIPainter new openOnClass:MenuEditor andSelector:#imageEditSpec
       
   738      MenuEditor new openInterface:#imageEditSpec
       
   739     "
       
   740 
       
   741     <resource: #canvas>
       
   742 
       
   743     ^
       
   744      
       
   745        #(#FullSpec
       
   746           #'window:' 
       
   747            #(#WindowSpec
       
   748               #'name:' 'unnamed canvas'
       
   749               #'layout:' #(#LayoutFrame 104 0 316 0 348 0 457 0)
       
   750               #'label:' 'unnamed canvas'
       
   751               #'min:' #(#Point 10 10)
       
   752               #'max:' #(#Point 1280 1024)
       
   753               #'bounds:' #(#Rectangle 104 316 349 458)
       
   754               #'usePreferredExtent:' false
       
   755           )
       
   756           #'component:' 
       
   757            #(#SpecCollection
       
   758               #'collection:' 
       
   759                #(
       
   760                  #(#LabelSpec
       
   761                     #'name:' 'retrieverLabel'
       
   762                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   763                     #'label:' 'Retriever:'
       
   764                     #'adjust:' #right
       
   765                     #'resizeForLabel:' true
       
   766                 )
       
   767                  #(#InputFieldSpec
       
   768                     #'name:' 'retrieverField'
       
   769                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   770                     #'activeHelpKey:' #retriever
       
   771                     #'tabable:' true
       
   772                     #'model:' #retriever
       
   773                     #'type:' #symbolOrNil
       
   774                     #'acceptOnReturn:' false
       
   775                     #'acceptOnTab:' false
       
   776                 )
       
   777                  #(#LabelSpec
       
   778                     #'name:' 'iconLabel'
       
   779                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   780                     #'label:' 'Selector:'
       
   781                     #'adjust:' #right
       
   782                     #'resizeForLabel:' true
       
   783                 )
       
   784                  #(#InputFieldSpec
       
   785                     #'name:' 'iconField'
       
   786                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   787                     #'activeHelpKey:' #icon
       
   788                     #'tabable:' true
       
   789                     #'model:' #icon
       
   790                     #'type:' #symbolOrNil
       
   791                     #'acceptOnReturn:' false
       
   792                     #'acceptOnTab:' false
       
   793                 )
       
   794                  #(#ActionButtonSpec
       
   795                     #'name:' 'imageEditorButton'
       
   796                     #'layout:' #(#LayoutFrame 110 0 66 0 -5 1 90 0)
       
   797                     #'label:' 'Image Editor'
       
   798                     #'tabable:' true
       
   799                     #'model:' #doEditImage
       
   800                 )
       
   801                  #(#CheckBoxSpec
       
   802                     #'name:' 'iconAndLabel'
       
   803                     #'layout:' #(#LayoutOrigin 20 0 104 0)
       
   804                     #'activeHelpKey:' #iconAndLabel
       
   805                     #'tabable:' true
       
   806                     #'model:' #iconAndLabel
       
   807                     #'label:' 'Image & Label'
       
   808                 )
       
   809               )
       
   810           )
   288       )
   811       )
   289 !
   812 !
   290 
   813 
   291 windowSpec
   814 windowSpec
   292     "this window spec was automatically generated by the ST/X UIPainter"
   815     "this window spec was automatically generated by the ST/X UIPainter"
   488           ) nil
  1011           ) nil
   489           nil
  1012           nil
   490       )
  1013       )
   491 !
  1014 !
   492 
  1015 
       
  1016 menuAdd
       
  1017     "this window spec was automatically generated by the ST/X MenuEditor"
       
  1018 
       
  1019     "do not manually edit this - the builder may not be able to
       
  1020      handle the specification if its corrupted."
       
  1021 
       
  1022     "
       
  1023      MenuEditor new openOnClass:MenuEditor andSelector:#menuAdd
       
  1024      (Menu new fromLiteralArrayEncoding:(MenuEditor menuAdd)) startUp
       
  1025     "
       
  1026 
       
  1027     <resource: #menu>
       
  1028 
       
  1029     ^
       
  1030      
       
  1031        #(#Menu
       
  1032           
       
  1033            #(
       
  1034              #(#MenuItem
       
  1035                 #'label:' 'Item'
       
  1036                 #'value:' #doCreateItem
       
  1037                 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Item')
       
  1038             )
       
  1039              #(#MenuItem
       
  1040                 #'label:' 'Separator'
       
  1041                 #'value:' #doCreateSep
       
  1042                 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Separator')
       
  1043             )
       
  1044              #(#MenuItem
       
  1045                 #'label:' '-'
       
  1046             )
       
  1047              #(#MenuItem
       
  1048                 #'label:' 'Submenu'
       
  1049                 #'value:' #doCreateMenu
       
  1050                 #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu')
       
  1051             )
       
  1052              #(#MenuItem
       
  1053                 #'label:' 'Submenu Link'
       
  1054                 #'value:' #doCreateLink
       
  1055                 #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link')
       
  1056             )
       
  1057           ) nil
       
  1058           nil
       
  1059       )
       
  1060 !
       
  1061 
   493 menuDefaultLink
  1062 menuDefaultLink
   494     "this window spec was automatically generated by the ST/X MenuEditor"
  1063     "this window spec was automatically generated by the ST/X MenuEditor"
   495 
  1064 
   496     "do not manually edit this - the builder may not be able to
  1065     "do not manually edit this - the builder may not be able to
   497      handle the specification if its corrupted."
  1066      handle the specification if its corrupted."
   779 slicesSeparatorMenu
  1348 slicesSeparatorMenu
   780     ^#(
  1349     ^#(
   781             (Basics   basicsSeparatorSpec)
  1350             (Basics   basicsSeparatorSpec)
   782       )
  1351       )
   783 
  1352 
   784 ! !
       
   785 
       
   786 !MenuEditor class methodsFor:'specs'!
       
   787 
       
   788 basicsItemSpec
       
   789     "this window spec was automatically generated by the ST/X UIPainter"
       
   790 
       
   791     "do not manually edit this - the painter/builder may not be able to
       
   792      handle the specification if its corrupted."
       
   793 
       
   794     "
       
   795      UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec
       
   796      MenuEditor new openInterface:#basicsItemSpec
       
   797     "
       
   798 
       
   799     <resource: #canvas>
       
   800 
       
   801     ^
       
   802      
       
   803        #(#FullSpec
       
   804           #'window:' 
       
   805            #(#WindowSpec
       
   806               #'name:' 'unnamed canvas'
       
   807               #'layout:' #(#LayoutFrame 170 0 315 0 436 0 633 0)
       
   808               #'label:' 'unnamed canvas'
       
   809               #'min:' #(#Point 10 10)
       
   810               #'max:' #(#Point 1160 870)
       
   811               #'bounds:' #(#Rectangle 170 315 437 634)
       
   812               #'usePreferredExtent:' false
       
   813           )
       
   814           #'component:' 
       
   815            #(#SpecCollection
       
   816               #'collection:' 
       
   817                #(
       
   818                  #(#LabelSpec
       
   819                     #'name:' 'nameKeyLabel'
       
   820                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   821                     #'label:' 'NameKey:'
       
   822                     #'adjust:' #right
       
   823                     #'resizeForLabel:' true
       
   824                 )
       
   825                  #(#InputFieldSpec
       
   826                     #'name:' 'nameKeyField'
       
   827                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   828                     #'activeHelpKey:' #nameKey
       
   829                     #'tabable:' true
       
   830                     #'model:' #nameKey
       
   831                     #'type:' #symbolOrNil
       
   832                     #'acceptOnReturn:' false
       
   833                     #'acceptOnTab:' false
       
   834                 )
       
   835                  #(#LabelSpec
       
   836                     #'name:' 'labelLabel'
       
   837                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   838                     #'label:' 'Label:'
       
   839                     #'adjust:' #right
       
   840                     #'resizeForLabel:' true
       
   841                 )
       
   842                  #(#InputFieldSpec
       
   843                     #'name:' 'labelField'
       
   844                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   845                     #'activeHelpKey:' #label
       
   846                     #'tabable:' true
       
   847                     #'model:' #label
       
   848                     #'acceptOnReturn:' false
       
   849                     #'acceptOnTab:' false
       
   850                 )
       
   851                  #(#LabelSpec
       
   852                     #'name:' 'valueLabel'
       
   853                     #'layout:' #(#AlignmentOrigin 107 0 90 0 1 0.5)
       
   854                     #'label:' 'Value:'
       
   855                     #'adjust:' #right
       
   856                     #'resizeForLabel:' true
       
   857                 )
       
   858                  #(#InputFieldSpec
       
   859                     #'name:' 'valueField'
       
   860                     #'layout:' #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
       
   861                     #'activeHelpKey:' #value
       
   862                     #'tabable:' true
       
   863                     #'model:' #value
       
   864                     #'type:' #symbolOrNil
       
   865                     #'acceptOnReturn:' false
       
   866                     #'acceptOnTab:' false
       
   867                 )
       
   868                  #(#LabelSpec
       
   869                     #'name:' 'argumentLabel'
       
   870                     #'layout:' #(#AlignmentOrigin 107 0 115 0 1 0.5)
       
   871                     #'label:' 'Argument:'
       
   872                     #'adjust:' #right
       
   873                     #'resizeForLabel:' true
       
   874                 )
       
   875                  #(#InputFieldSpec
       
   876                     #'name:' 'argumentField'
       
   877                     #'layout:' #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
       
   878                     #'activeHelpKey:' #argument
       
   879                     #'tabable:' true
       
   880                     #'model:' #argument
       
   881                     #'type:' #string
       
   882                     #'acceptOnReturn:' false
       
   883                     #'acceptOnTab:' false
       
   884                 )
       
   885                  #(#LabelSpec
       
   886                     #'name:' 'indicationLabel'
       
   887                     #'layout:' #(#AlignmentOrigin 107 0 155 0 1 0.5)
       
   888                     #'label:' 'Indication:'
       
   889                     #'adjust:' #right
       
   890                     #'resizeForLabel:' true
       
   891                 )
       
   892                  #(#InputFieldSpec
       
   893                     #'name:' 'indicationField'
       
   894                     #'layout:' #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
       
   895                     #'activeHelpKey:' #indication
       
   896                     #'tabable:' true
       
   897                     #'model:' #indication
       
   898                     #'type:' #symbolOrNil
       
   899                     #'acceptOnReturn:' false
       
   900                     #'acceptOnTab:' false
       
   901                 )
       
   902                  #(#CheckBoxSpec
       
   903                     #'name:' 'translateLabelCheckBox'
       
   904                     #'layout:' #(#Point 20 192)
       
   905                     #'activeHelpKey:' #translateLabel
       
   906                     #'tabable:' true
       
   907                     #'model:' #translateLabel
       
   908                     #'label:' 'Translate Label'
       
   909                 )
       
   910                  #(#CheckBoxSpec
       
   911                     #'name:' 'isButtonCheckBox'
       
   912                     #'layout:' #(#Point 20 221)
       
   913                     #'activeHelpKey:' #translateLabel
       
   914                     #'tabable:' true
       
   915                     #'model:' #isButton
       
   916                     #'label:' 'Is Button'
       
   917                 )
       
   918               )
       
   919           )
       
   920       )
       
   921 !
       
   922 
       
   923 basicsLinkSpec
       
   924     "this window spec was automatically generated by the ST/X UIPainter"
       
   925 
       
   926     "do not manually edit this - the painter/builder may not be able to
       
   927      handle the specification if its corrupted."
       
   928 
       
   929     "
       
   930      UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec
       
   931      MenuEditor new openInterface:#basicsLinkSpec
       
   932     "
       
   933 
       
   934     <resource: #canvas>
       
   935 
       
   936     ^
       
   937      
       
   938        #(#FullSpec
       
   939           #'window:' 
       
   940            #(#WindowSpec
       
   941               #'name:' 'unnamed canvas'
       
   942               #'layout:' #(#LayoutFrame 374 0 432 0 640 0 750 0)
       
   943               #'label:' 'unnamed canvas'
       
   944               #'min:' #(#Point 10 10)
       
   945               #'max:' #(#Point 1280 1024)
       
   946               #'bounds:' #(#Rectangle 374 432 641 751)
       
   947               #'usePreferredExtent:' false
       
   948           )
       
   949           #'component:' 
       
   950            #(#SpecCollection
       
   951               #'collection:' 
       
   952                #(
       
   953                  #(#LabelSpec
       
   954                     #'name:' 'nameKeyLabel'
       
   955                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
   956                     #'activeHelpKey:' #nameKey
       
   957                     #'label:' 'NameKey:'
       
   958                     #'adjust:' #right
       
   959                     #'resizeForLabel:' true
       
   960                 )
       
   961                  #(#InputFieldSpec
       
   962                     #'name:' 'nameKeyField'
       
   963                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
   964                     #'activeHelpKey:' #nameKey
       
   965                     #'tabable:' true
       
   966                     #'model:' #nameKey
       
   967                     #'type:' #symbolOrNil
       
   968                     #'acceptOnReturn:' false
       
   969                     #'acceptOnTab:' false
       
   970                 )
       
   971                  #(#LabelSpec
       
   972                     #'name:' 'labelLabel'
       
   973                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
   974                     #'label:' 'Label:'
       
   975                     #'resizeForLabel:' true
       
   976                 )
       
   977                  #(#InputFieldSpec
       
   978                     #'name:' 'labelField'
       
   979                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
   980                     #'activeHelpKey:' #label
       
   981                     #'tabable:' true
       
   982                     #'model:' #label
       
   983                     #'acceptOnReturn:' false
       
   984                     #'acceptOnTab:' false
       
   985                 )
       
   986                  #(#LabelSpec
       
   987                     #'name:' 'menuLabel'
       
   988                     #'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5)
       
   989                     #'label:' 'Menu:'
       
   990                     #'resizeForLabel:' true
       
   991                 )
       
   992                  #(#InputFieldSpec
       
   993                     #'name:' 'menuField'
       
   994                     #'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
       
   995                     #'activeHelpKey:' #submenuChannel
       
   996                     #'tabable:' true
       
   997                     #'model:' #submenuChannel
       
   998                     #'type:' #symbolOrNil
       
   999                     #'acceptOnReturn:' false
       
  1000                     #'acceptOnTab:' false
       
  1001                 )
       
  1002                  #(#LabelSpec
       
  1003                     #'name:' 'ArgumentLabel'
       
  1004                     #'layout:' #(#AlignmentOrigin 107 0 100 0 1 0.5)
       
  1005                     #'label:' 'Argument:'
       
  1006                     #'resizeForLabel:' true
       
  1007                 )
       
  1008                  #(#InputFieldSpec
       
  1009                     #'name:' 'argumentField'
       
  1010                     #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
       
  1011                     #'activeHelpKey:' #submenuChannel
       
  1012                     #'tabable:' true
       
  1013                     #'model:' #submenuArgument
       
  1014                     #'type:' #symbolOrNil
       
  1015                     #'acceptOnReturn:' false
       
  1016                     #'acceptOnTab:' false
       
  1017                 )
       
  1018                  #(#CheckBoxSpec
       
  1019                     #'name:' 'translateLabelCheckBox'
       
  1020                     #'layout:' #(#Point 20 128)
       
  1021                     #'activeHelpKey:' #translateLabel
       
  1022                     #'tabable:' true
       
  1023                     #'model:' #translateLabel
       
  1024                     #'label:' 'Translate Label'
       
  1025                 )
       
  1026               )
       
  1027           )
       
  1028       )
       
  1029 !
       
  1030 
       
  1031 basicsMenuSpec
       
  1032     "this window spec was automatically generated by the ST/X UIPainter"
       
  1033 
       
  1034     "do not manually edit this - the painter/builder may not be able to
       
  1035      handle the specification if its corrupted."
       
  1036 
       
  1037     "
       
  1038      UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
       
  1039      MenuEditor new openInterface:#basicsMenuSpec
       
  1040     "
       
  1041 
       
  1042     <resource: #canvas>
       
  1043 
       
  1044     ^
       
  1045      
       
  1046        #(#FullSpec
       
  1047           #'window:' 
       
  1048            #(#WindowSpec
       
  1049               #'name:' 'unnamed canvas'
       
  1050               #'layout:' #(#LayoutFrame 456 0 430 0 722 0 748 0)
       
  1051               #'label:' 'unnamed canvas'
       
  1052               #'min:' #(#Point 10 10)
       
  1053               #'max:' #(#Point 1280 1024)
       
  1054               #'bounds:' #(#Rectangle 456 430 723 749)
       
  1055               #'usePreferredExtent:' false
       
  1056           )
       
  1057           #'component:' 
       
  1058            #(#SpecCollection
       
  1059               #'collection:' 
       
  1060                #(
       
  1061                  #(#LabelSpec
       
  1062                     #'name:' 'nameKeyLabel'
       
  1063                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
  1064                     #'label:' 'NameKey:'
       
  1065                     #'adjust:' #right
       
  1066                     #'resizeForLabel:' true
       
  1067                 )
       
  1068                  #(#InputFieldSpec
       
  1069                     #'name:' 'nameKeyField'
       
  1070                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
  1071                     #'activeHelpKey:' #nameKey
       
  1072                     #'tabable:' true
       
  1073                     #'model:' #nameKey
       
  1074                     #'type:' #symbolOrNil
       
  1075                     #'acceptOnReturn:' false
       
  1076                     #'acceptOnTab:' false
       
  1077                 )
       
  1078                  #(#LabelSpec
       
  1079                     #'name:' 'labelLabel'
       
  1080                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
  1081                     #'label:' 'Label:'
       
  1082                     #'adjust:' #right
       
  1083                     #'resizeForLabel:' true
       
  1084                 )
       
  1085                  #(#InputFieldSpec
       
  1086                     #'name:' 'labelField'
       
  1087                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
  1088                     #'activeHelpKey:' #label
       
  1089                     #'tabable:' true
       
  1090                     #'model:' #label
       
  1091                     #'acceptOnReturn:' false
       
  1092                     #'acceptOnTab:' false
       
  1093                 )
       
  1094                  #(#CheckBoxSpec
       
  1095                     #'name:' 'translateLabelCheckBox'
       
  1096                     #'layout:' #(#Point 20 100)
       
  1097                     #'activeHelpKey:' #translateLabel
       
  1098                     #'tabable:' true
       
  1099                     #'model:' #translateLabel
       
  1100                     #'label:' 'Translate Label'
       
  1101                 )
       
  1102               )
       
  1103           )
       
  1104       )
       
  1105 !
       
  1106 
       
  1107 basicsRootSpec
       
  1108     "this window spec was automatically generated by the ST/X UIPainter"
       
  1109 
       
  1110     "do not manually edit this - the painter/builder may not be able to
       
  1111      handle the specification if its corrupted."
       
  1112 
       
  1113     "
       
  1114      UIPainter new openOnClass:MenuEditor andSelector:#basicsRootSpec
       
  1115      MenuEditor new openInterface:#basicsRootSpec
       
  1116     "
       
  1117 
       
  1118     <resource: #canvas>
       
  1119 
       
  1120     ^
       
  1121      
       
  1122        #(#FullSpec
       
  1123           #'window:' 
       
  1124            #(#WindowSpec
       
  1125               #'name:' 'unnamed canvas'
       
  1126               #'layout:' #(#LayoutFrame 230 0 231 0 496 0 549 0)
       
  1127               #'label:' 'unnamed canvas'
       
  1128               #'min:' #(#Point 10 10)
       
  1129               #'max:' #(#Point 1280 1024)
       
  1130               #'bounds:' #(#Rectangle 230 231 497 550)
       
  1131               #'usePreferredExtent:' false
       
  1132           )
       
  1133           #'component:' 
       
  1134            #(#SpecCollection
       
  1135               #'collection:' 
       
  1136                #(
       
  1137                  #(#LabelSpec
       
  1138                     #'name:' 'selectorLabel'
       
  1139                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
  1140                     #'label:' 'Selector:'
       
  1141                     #'adjust:' #right
       
  1142                     #'resizeForLabel:' true
       
  1143                 )
       
  1144                  #(#InputFieldSpec
       
  1145                     #'name:' 'selectorField'
       
  1146                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
  1147                     #'activeHelpKey:' #menuSelector
       
  1148                     #'tabable:' true
       
  1149                     #'model:' #label
       
  1150                     #'acceptOnReturn:' false
       
  1151                     #'acceptOnTab:' false
       
  1152                 )
       
  1153               )
       
  1154           )
       
  1155       )
       
  1156 !
       
  1157 
       
  1158 basicsSeparatorSpec
       
  1159     "this window spec was automatically generated by the ST/X UIPainter"
       
  1160 
       
  1161     "do not manually edit this - the painter/builder may not be able to
       
  1162      handle the specification if its corrupted."
       
  1163 
       
  1164     "
       
  1165      UIPainter new openOnClass:MenuEditor andSelector:#basicsSeparatorSpec
       
  1166      MenuEditor new openInterface:#basicsSeparatorSpec
       
  1167     "
       
  1168 
       
  1169     <resource: #canvas>
       
  1170 
       
  1171     ^
       
  1172      
       
  1173        #(#FullSpec
       
  1174           #'window:' 
       
  1175            #(#WindowSpec
       
  1176               #'name:' 'unnamed canvas'
       
  1177               #'layout:' #(#LayoutFrame 359 0 319 0 625 0 637 0)
       
  1178               #'label:' 'unnamed canvas'
       
  1179               #'min:' #(#Point 10 10)
       
  1180               #'max:' #(#Point 1160 870)
       
  1181               #'bounds:' #(#Rectangle 359 319 626 638)
       
  1182               #'usePreferredExtent:' false
       
  1183           )
       
  1184           #'component:' 
       
  1185            #(#SpecCollection
       
  1186               #'collection:' 
       
  1187                #(
       
  1188                  #(#LabelSpec
       
  1189                     #'name:' 'separatorLabel'
       
  1190                     #'layout:' #(#AlignmentOrigin 127 0 26 0 1 0.5)
       
  1191                     #'label:' 'Separator Type:'
       
  1192                     #'adjust:' #right
       
  1193                     #'resizeForLabel:' true
       
  1194                 )
       
  1195                  #(#ComboListSpec
       
  1196                     #'name:' 'seperatorList'
       
  1197                     #'layout:' #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
       
  1198                     #'activeHelpKey:' #seperatorList
       
  1199                     #'tabable:' true
       
  1200                     #'model:' #seperatorSelection
       
  1201                     #'useIndex:' true
       
  1202                 )
       
  1203               )
       
  1204           )
       
  1205       )
       
  1206 !
       
  1207 
       
  1208 detailsEditSpec
       
  1209     "this window spec was automatically generated by the ST/X UIPainter"
       
  1210 
       
  1211     "do not manually edit this - the painter/builder may not be able to
       
  1212      handle the specification if its corrupted."
       
  1213 
       
  1214     "
       
  1215      UIPainter new openOnClass:MenuEditor andSelector:#detailsEditSpec
       
  1216      MenuEditor new openInterface:#detailsEditSpec
       
  1217     "
       
  1218 
       
  1219     <resource: #canvas>
       
  1220 
       
  1221     ^
       
  1222      
       
  1223        #(#FullSpec
       
  1224           #'window:' 
       
  1225            #(#WindowSpec
       
  1226               #'name:' 'unnamed canvas'
       
  1227               #'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0)
       
  1228               #'label:' 'unnamed canvas'
       
  1229               #'min:' #(#Point 10 10)
       
  1230               #'max:' #(#Point 1280 1024)
       
  1231               #'bounds:' #(#Rectangle 237 249 496 537)
       
  1232               #'usePreferredExtent:' false
       
  1233           )
       
  1234           #'component:' 
       
  1235            #(#SpecCollection
       
  1236               #'collection:' 
       
  1237                #(
       
  1238                  #(#LabelSpec
       
  1239                     #'name:' 'shortcutKeyLabel'
       
  1240                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
  1241                     #'label:' 'Accelerator:'
       
  1242                     #'adjust:' #right
       
  1243                     #'resizeForLabel:' true
       
  1244                 )
       
  1245                  #(#InputFieldSpec
       
  1246                     #'name:' 'shortcutKeyField'
       
  1247                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
  1248                     #'activeHelpKey:' #shortcutKey
       
  1249                     #'tabable:' true
       
  1250                     #'model:' #shortcutKey
       
  1251                     #'type:' #symbolOrNil
       
  1252                     #'acceptOnReturn:' false
       
  1253                     #'acceptOnTab:' false
       
  1254                 )
       
  1255                  #(#LabelSpec
       
  1256                     #'name:' 'enabledLabel'
       
  1257                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
  1258                     #'label:' 'Enabled:'
       
  1259                     #'adjust:' #right
       
  1260                     #'resizeForLabel:' true
       
  1261                 )
       
  1262                  #(#InputFieldSpec
       
  1263                     #'name:' 'enabledField'
       
  1264                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
  1265                     #'activeHelpKey:' #enbled
       
  1266                     #'tabable:' true
       
  1267                     #'model:' #enabled
       
  1268                     #'type:' #symbolOrNil
       
  1269                     #'acceptOnReturn:' false
       
  1270                     #'acceptOnTab:' false
       
  1271                 )
       
  1272                  #(#LabelSpec
       
  1273                     #'name:' 'accessCharLabel'
       
  1274                     #'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5)
       
  1275                     #'label:' 'Access Character Position:'
       
  1276                     #'adjust:' #right
       
  1277                     #'resizeForLabel:' true
       
  1278                 )
       
  1279                  #(#InputFieldSpec
       
  1280                     #'name:' 'accessCharField'
       
  1281                     #'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0)
       
  1282                     #'activeHelpKey:' #accessCharaterPos
       
  1283                     #'tabable:' true
       
  1284                     #'model:' #accessCharacterPos
       
  1285                     #'type:' #numberOrNil
       
  1286                     #'acceptOnReturn:' false
       
  1287                     #'acceptOnTab:' false
       
  1288                 )
       
  1289               )
       
  1290           )
       
  1291       )
       
  1292 !
       
  1293 
       
  1294 imageEditSpec
       
  1295     "this window spec was automatically generated by the ST/X UIPainter"
       
  1296 
       
  1297     "do not manually edit this - the painter/builder may not be able to
       
  1298      handle the specification if its corrupted."
       
  1299 
       
  1300     "
       
  1301      UIPainter new openOnClass:MenuEditor andSelector:#imageEditSpec
       
  1302      MenuEditor new openInterface:#imageEditSpec
       
  1303     "
       
  1304 
       
  1305     <resource: #canvas>
       
  1306 
       
  1307     ^
       
  1308      
       
  1309        #(#FullSpec
       
  1310           #'window:' 
       
  1311            #(#WindowSpec
       
  1312               #'name:' 'unnamed canvas'
       
  1313               #'layout:' #(#LayoutFrame 104 0 316 0 348 0 457 0)
       
  1314               #'label:' 'unnamed canvas'
       
  1315               #'min:' #(#Point 10 10)
       
  1316               #'max:' #(#Point 1280 1024)
       
  1317               #'bounds:' #(#Rectangle 104 316 349 458)
       
  1318               #'usePreferredExtent:' false
       
  1319           )
       
  1320           #'component:' 
       
  1321            #(#SpecCollection
       
  1322               #'collection:' 
       
  1323                #(
       
  1324                  #(#LabelSpec
       
  1325                     #'name:' 'retrieverLabel'
       
  1326                     #'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
       
  1327                     #'label:' 'Retriever:'
       
  1328                     #'adjust:' #right
       
  1329                     #'resizeForLabel:' true
       
  1330                 )
       
  1331                  #(#InputFieldSpec
       
  1332                     #'name:' 'retrieverField'
       
  1333                     #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
       
  1334                     #'activeHelpKey:' #retriever
       
  1335                     #'tabable:' true
       
  1336                     #'model:' #retriever
       
  1337                     #'type:' #symbolOrNil
       
  1338                     #'acceptOnReturn:' false
       
  1339                     #'acceptOnTab:' false
       
  1340                 )
       
  1341                  #(#LabelSpec
       
  1342                     #'name:' 'iconLabel'
       
  1343                     #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
       
  1344                     #'label:' 'Selector:'
       
  1345                     #'adjust:' #right
       
  1346                     #'resizeForLabel:' true
       
  1347                 )
       
  1348                  #(#InputFieldSpec
       
  1349                     #'name:' 'iconField'
       
  1350                     #'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
       
  1351                     #'activeHelpKey:' #icon
       
  1352                     #'tabable:' true
       
  1353                     #'model:' #icon
       
  1354                     #'type:' #symbolOrNil
       
  1355                     #'acceptOnReturn:' false
       
  1356                     #'acceptOnTab:' false
       
  1357                 )
       
  1358                  #(#ActionButtonSpec
       
  1359                     #'name:' 'imageEditorButton'
       
  1360                     #'layout:' #(#LayoutFrame 110 0 66 0 -5 1 90 0)
       
  1361                     #'label:' 'Image Editor'
       
  1362                     #'tabable:' true
       
  1363                     #'model:' #doEditImage
       
  1364                 )
       
  1365                  #(#CheckBoxSpec
       
  1366                     #'name:' 'iconAndLabel'
       
  1367                     #'layout:' #(#LayoutOrigin 20 0 104 0)
       
  1368                     #'activeHelpKey:' #iconAndLabel
       
  1369                     #'tabable:' true
       
  1370                     #'model:' #iconAndLabel
       
  1371                     #'label:' 'Image & Label'
       
  1372                 )
       
  1373               )
       
  1374           )
       
  1375       )
       
  1376 ! !
  1353 ! !
  1377 
  1354 
  1378 !MenuEditor methodsFor:'accessing'!
  1355 !MenuEditor methodsFor:'accessing'!
  1379 
  1356 
  1380 isModified: aBoolean         
  1357 isModified: aBoolean