MenuEditor.st
changeset 1155 512913ffbdd9
parent 1104 cd4a620e6f94
child 1189 0e7e286f864c
equal deleted inserted replaced
1154:0febd9497fe1 1155:512913ffbdd9
   177 
   177 
   178 #basicsArgument
   178 #basicsArgument
   179 'An argument passed to above selector, if it is a 1 or a 2 argument selector.'
   179 'An argument passed to above selector, if it is a 1 or a 2 argument selector.'
   180 
   180 
   181 #basicsChoice
   181 #basicsChoice
   182 'A boolean holder, a boolean block, or a boolean method, specifying the choices state.'
   182 'A boolean holder, block or method, specifying the choices state (like a RadioButtonGroup).'
   183 
   183 
   184 #basicsChoiceValue
   184 #basicsChoiceValue
   185 'That choices value (typically number or symbol).'
   185 'That choices value (typically number or symbol).'
   186 
   186 
   187 #basicsIndication
   187 #basicsIndication
   349      MenuEditor new openInterface:#basicsItemSpec
   349      MenuEditor new openInterface:#basicsItemSpec
   350     "
   350     "
   351 
   351 
   352     <resource: #canvas>
   352     <resource: #canvas>
   353 
   353 
   354     ^
   354     ^ 
   355      
   355      #(#FullSpec
   356        #(#FullSpec
   356         #name: #basicsItemSpec
   357           #window: 
   357         #window: 
   358            #(#WindowSpec
   358        #(#WindowSpec
   359               #name: 'Basics Item'
   359           #label: 'Basics Item'
   360               #layout: #(#LayoutFrame 216 0 173 0 482 0 491 0)
   360           #name: 'Basics Item'
   361               #label: 'Basics Item'
   361           #layout: #(#LayoutFrame 40 0 116 0 306 0 434 0)
   362               #min: #(#Point 10 10)
   362           #level: 0
   363               #max: #(#Point 1160 870)
   363           #min: #(#Point 10 10)
   364               #bounds: #(#Rectangle 216 173 483 492)
   364           #max: #(#Point 1160 870)
   365               #usePreferredExtent: false
   365           #bounds: #(#Rectangle 40 116 307 435)
   366           )
   366           #usePreferredExtent: false
   367           #component: 
   367           #returnIsOKInDialog: true
   368            #(#SpecCollection
   368           #escapeIsCancelInDialog: true
   369               #collection: 
   369         )
   370                #(
   370         #component: 
   371                  #(#LabelSpec
   371        #(#SpecCollection
   372                     #name: 'nameKeyLabel'
   372           #collection: #(
   373                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   373            #(#LabelSpec
   374                     #activeHelpKey: #basicsKey
   374               #label: 'Name Key:'
   375                     #label: 'Name Key:'
   375               #name: 'nameKeyLabel'
   376                     #adjust: #right
   376               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   377                     #resizeForLabel: true
   377               #activeHelpKey: #basicsKey
   378                 )
   378               #resizeForLabel: true
   379                  #(#InputFieldSpec
   379               #adjust: #right
   380                     #name: 'nameKeyField'
   380             )
   381                     #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   381            #(#InputFieldSpec
   382                     #activeHelpKey: #basicsKey
   382               #name: 'nameKeyField'
   383                     #tabable: true
   383               #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   384                     #model: #nameKey
   384               #activeHelpKey: #basicsKey
   385                     #group: #inputGroup
   385               #tabable: true
   386                     #type: #symbolOrNil
   386               #model: #nameKey
   387                     #acceptOnReturn: false
   387               #group: #inputGroup
   388                     #acceptOnTab: false
   388               #type: #symbolOrNil
   389                     #acceptOnLostFocus: true
   389               #acceptOnLeave: false
   390                     #modifiedChannel: #modifiedChannel
   390               #acceptOnReturn: true
   391                     #acceptChannel: #acceptChannel
   391               #acceptOnTab: true
   392                 )
   392               #acceptOnLostFocus: false
   393                  #(#LabelSpec
   393               #acceptChannel: #acceptChannel
   394                     #name: 'labelLabel'
   394               #modifiedChannel: #modifiedChannel
   395                     #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   395               #acceptOnPointerLeave: false
   396                     #activeHelpKey: #basicsLabel
   396             )
   397                     #label: 'Label:'
   397            #(#LabelSpec
   398                     #adjust: #right
   398               #label: 'Label:'
   399                     #resizeForLabel: true
   399               #name: 'labelLabel'
   400                 )
   400               #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   401                  #(#InputFieldSpec
   401               #activeHelpKey: #basicsLabel
   402                     #name: 'labelField'
   402               #resizeForLabel: true
   403                     #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   403               #adjust: #right
   404                     #activeHelpKey: #basicsLabel
   404             )
   405                     #tabable: true
   405            #(#InputFieldSpec
   406                     #model: #label
   406               #name: 'labelField'
   407                     #group: #inputGroup
   407               #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   408                     #acceptOnReturn: false
   408               #activeHelpKey: #basicsLabel
   409                     #acceptOnTab: false
   409               #tabable: true
   410                     #acceptOnLostFocus: true
   410               #model: #label
   411                     #modifiedChannel: #modifiedChannel
   411               #group: #inputGroup
   412                     #acceptChannel: #acceptChannel
   412               #acceptOnReturn: true
   413                 )
   413               #acceptOnTab: true
   414                  #(#LabelSpec
   414               #acceptOnLostFocus: false
   415                     #name: 'valueLabel'
   415               #acceptChannel: #acceptChannel
   416                     #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
   416               #modifiedChannel: #modifiedChannel
   417                     #activeHelpKey: #basicsAction
   417               #acceptOnPointerLeave: false
   418                     #label: 'Action:'
   418             )
   419                     #adjust: #right
   419            #(#LabelSpec
   420                     #resizeForLabel: true
   420               #label: 'Action:'
   421                 )
   421               #name: 'valueLabel'
   422                  #(#InputFieldSpec
   422               #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
   423                     #name: 'valueField'
   423               #activeHelpKey: #basicsAction
   424                     #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
   424               #resizeForLabel: true
   425                     #activeHelpKey: #basicsAction
   425               #adjust: #right
   426                     #tabable: true
   426             )
   427                     #model: #value
   427            #(#InputFieldSpec
   428                     #group: #inputGroup
   428               #name: 'valueField'
   429                     #type: #symbolOrNil
   429               #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
   430                     #acceptOnReturn: false
   430               #activeHelpKey: #basicsAction
   431                     #acceptOnTab: false
   431               #tabable: true
   432                     #acceptOnLostFocus: true
   432               #model: #value
   433                     #modifiedChannel: #modifiedChannel
   433               #group: #inputGroup
   434                     #acceptChannel: #acceptChannel
   434               #type: #symbolOrNil
   435                 )
   435               #acceptOnReturn: true
   436                  #(#LabelSpec
   436               #acceptOnTab: true
   437                     #name: 'argumentLabel'
   437               #acceptOnLostFocus: false
   438                     #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
   438               #acceptChannel: #acceptChannel
   439                     #activeHelpKey: #basicsArgument
   439               #modifiedChannel: #modifiedChannel
   440                     #label: 'Argument:'
   440               #acceptOnPointerLeave: false
   441                     #adjust: #right
   441             )
   442                     #resizeForLabel: true
   442            #(#LabelSpec
   443                 )
   443               #label: 'Argument:'
   444                  #(#InputFieldSpec
   444               #name: 'argumentLabel'
   445                     #name: 'argumentField'
   445               #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
   446                     #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
   446               #activeHelpKey: #basicsArgument
   447                     #activeHelpKey: #basicsArgument
   447               #resizeForLabel: true
   448                     #tabable: true
   448               #adjust: #right
   449                     #model: #argument
   449             )
   450                     #group: #inputGroup
   450            #(#InputFieldSpec
   451                     #type: #string
   451               #name: 'argumentField'
   452                     #acceptOnReturn: false
   452               #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
   453                     #acceptOnTab: false
   453               #activeHelpKey: #basicsArgument
   454                     #acceptOnLostFocus: true
   454               #tabable: true
   455                     #modifiedChannel: #modifiedChannel
   455               #model: #argument
   456                     #acceptChannel: #acceptChannel
   456               #group: #inputGroup
   457                 )
   457               #type: #string
   458                  #(#LabelSpec
   458               #acceptOnReturn: true
   459                     #name: 'indicationLabel'
   459               #acceptOnTab: true
   460                     #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
   460               #acceptOnLostFocus: false
   461                     #activeHelpKey: #basicsIndication
   461               #acceptChannel: #acceptChannel
   462                     #label: 'Indication:'
   462               #modifiedChannel: #modifiedChannel
   463                     #adjust: #right
   463               #acceptOnPointerLeave: false
   464                     #resizeForLabel: true
   464             )
   465                 )
   465            #(#LabelSpec
   466                  #(#InputFieldSpec
   466               #label: 'Indication:'
   467                     #name: 'indicationField'
   467               #name: 'indicationLabel'
   468                     #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
   468               #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
   469                     #activeHelpKey: #basicsIndication
   469               #activeHelpKey: #basicsIndication
   470                     #enableChannel: #indicationEnabled
   470               #resizeForLabel: true
   471                     #tabable: true
   471               #adjust: #right
   472                     #model: #indication
   472             )
   473                     #group: #inputGroup
   473            #(#InputFieldSpec
   474                     #type: #symbolOrNil
   474               #name: 'indicationField'
   475                     #acceptOnReturn: false
   475               #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
   476                     #acceptOnTab: false
   476               #activeHelpKey: #basicsIndication
   477                     #acceptOnLostFocus: true
   477               #enableChannel: #indicationEnabled
   478                     #modifiedChannel: #modifiedChannel
   478               #tabable: true
   479                     #acceptChannel: #acceptChannel
   479               #model: #indication
   480                 )
   480               #group: #inputGroup
   481                  #(#LabelSpec
   481               #type: #symbolOrNil
   482                     #name: 'choiceLabel'
   482               #immediateAccept: true
   483                     #layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
   483               #acceptOnReturn: true
   484                     #activeHelpKey: #basicsChoice
   484               #acceptOnTab: true
   485                     #label: 'Choice:'
   485               #acceptOnLostFocus: false
   486                     #translateLabel: true
   486               #acceptChannel: #acceptChannel
   487                     #adjust: #right
   487               #modifiedChannel: #modifiedChannel
   488                     #resizeForLabel: true
   488               #acceptOnPointerLeave: false
   489                 )
   489             )
   490                  #(#InputFieldSpec
   490            #(#LabelSpec
   491                     #name: 'choiceField'
   491               #label: 'Choice:'
   492                     #layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
   492               #name: 'choiceLabel'
   493                     #activeHelpKey: #basicsChoice
   493               #layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
   494                     #enableChannel: #choiceEnabled
   494               #activeHelpKey: #basicsChoice
   495                     #tabable: true
   495               #translateLabel: true
   496                     #model: #choice
   496               #resizeForLabel: true
   497                     #group: #inputGroup
   497               #adjust: #right
   498                     #type: #symbolOrNil
   498             )
   499                     #acceptOnReturn: false
   499            #(#InputFieldSpec
   500                     #acceptOnTab: false
   500               #name: 'choiceField'
   501                     #acceptOnLostFocus: true
   501               #layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
   502                     #modifiedChannel: #modifiedChannel
   502               #activeHelpKey: #basicsChoice
   503                     #acceptChannel: #acceptChannel
   503               #enableChannel: #choiceEnabled
   504                 )
   504               #tabable: true
   505                  #(#LabelSpec
   505               #model: #choice
   506                     #name: 'choiceValueLabel'
   506               #group: #inputGroup
   507                     #layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
   507               #type: #symbolOrNil
   508                     #activeHelpKey: #basicsChoiceValue
   508               #immediateAccept: true
   509                     #label: 'Value:'
   509               #acceptOnReturn: true
   510                     #translateLabel: true
   510               #acceptOnTab: true
   511                     #adjust: #right
   511               #acceptOnLostFocus: false
   512                     #resizeForLabel: true
   512               #acceptChannel: #acceptChannel
   513                 )
   513               #modifiedChannel: #modifiedChannel
   514                  #(#InputFieldSpec
   514               #acceptOnPointerLeave: false
   515                     #name: 'choiceValueField'
   515             )
   516                     #layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
   516            #(#LabelSpec
   517                     #activeHelpKey: #basicsChoiceValue
   517               #label: 'Value:'
   518                     #enableChannel: #choiceValueEnabled
   518               #name: 'choiceValueLabel'
   519                     #tabable: true
   519               #layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
   520                     #model: #choiceValue
   520               #activeHelpKey: #basicsChoiceValue
   521                     #group: #inputGroup
   521               #translateLabel: true
   522                     #type: #smalltalkObject
   522               #resizeForLabel: true
   523                     #immediateAccept: false
   523               #adjust: #right
   524                     #acceptOnLeave: true
   524             )
   525                     #acceptOnReturn: true
   525            #(#InputFieldSpec
   526                     #acceptOnTab: true
   526               #name: 'choiceValueField'
   527                     #acceptOnLostFocus: true
   527               #layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
   528                     #modifiedChannel: #modifiedChannel
   528               #activeHelpKey: #basicsChoiceValue
   529                     #acceptChannel: #acceptChannel
   529               #enableChannel: #choiceValueEnabled
   530                 )
   530               #tabable: true
   531                  #(#CheckBoxSpec
   531               #model: #choiceValue
   532                     #name: 'translateLabelCheckBox'
   532               #group: #inputGroup
   533                     #layout: #(#Point 20 230)
   533               #type: #smalltalkObject
   534                     #activeHelpKey: #basicsTranslateLabel
   534               #acceptOnLeave: false
   535                     #tabable: true
   535               #acceptOnReturn: true
   536                     #model: #translateLabel
   536               #acceptOnTab: true
   537                     #label: 'Translate Label'
   537               #acceptOnLostFocus: false
   538                 )
   538               #acceptChannel: #acceptChannel
   539                  #(#CheckBoxSpec
   539               #modifiedChannel: #modifiedChannel
   540                     #name: 'isButtonCheckBox'
   540               #acceptOnPointerLeave: false
   541                     #layout: #(#Point 20 259)
   541             )
   542                     #activeHelpKey: #basicsIsButton
   542            #(#CheckBoxSpec
   543                     #tabable: true
   543               #label: 'Translate Label'
   544                     #model: #isButton
   544               #name: 'translateLabelCheckBox'
   545                     #label: 'Is Button'
   545               #layout: #(#Point 20 230)
   546                 )
   546               #activeHelpKey: #basicsTranslateLabel
   547               )
   547               #tabable: true
   548           )
   548               #model: #translateLabel
       
   549             )
       
   550            #(#CheckBoxSpec
       
   551               #label: 'Is Button'
       
   552               #name: 'isButtonCheckBox'
       
   553               #layout: #(#Point 20 259)
       
   554               #activeHelpKey: #basicsIsButton
       
   555               #tabable: true
       
   556               #model: #isButton
       
   557             )
       
   558            )
       
   559          
       
   560         )
   549       )
   561       )
   550 !
   562 !
   551 
   563 
   552 basicsLinkSpec
   564 basicsLinkSpec
   553     "This resource specification was automatically generated
   565     "This resource specification was automatically generated
   561      MenuEditor new openInterface:#basicsLinkSpec
   573      MenuEditor new openInterface:#basicsLinkSpec
   562     "
   574     "
   563 
   575 
   564     <resource: #canvas>
   576     <resource: #canvas>
   565 
   577 
   566     ^
   578     ^ 
   567      
   579      #(#FullSpec
   568        #(#FullSpec
   580         #name: #basicsLinkSpec
   569           #window: 
   581         #window: 
   570            #(#WindowSpec
   582        #(#WindowSpec
   571               #name: 'Basics Link'
   583           #label: 'Basics Link'
   572               #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
   584           #name: 'Basics Link'
   573               #label: 'Basics Link'
   585           #layout: #(#LayoutFrame 8 0 143 0 274 0 461 0)
   574               #min: #(#Point 10 10)
   586           #level: 0
   575               #max: #(#Point 1280 1024)
   587           #min: #(#Point 10 10)
   576               #bounds: #(#Rectangle 473 301 740 620)
   588           #max: #(#Point 1280 1024)
   577               #usePreferredExtent: false
   589           #bounds: #(#Rectangle 8 143 275 462)
   578           )
   590           #usePreferredExtent: false
   579           #component: 
   591           #returnIsOKInDialog: true
   580            #(#SpecCollection
   592           #escapeIsCancelInDialog: true
   581               #collection: 
   593         )
   582                #(
   594         #component: 
   583                  #(#LabelSpec
   595        #(#SpecCollection
   584                     #name: 'nameKeyLabel'
   596           #collection: #(
   585                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   597            #(#LabelSpec
   586                     #activeHelpKey: #nameKey
   598               #label: 'Name Key:'
   587                     #label: 'Name Key:'
   599               #name: 'nameKeyLabel'
   588                     #adjust: #right
   600               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   589                     #resizeForLabel: true
   601               #activeHelpKey: #nameKey
   590                 )
   602               #resizeForLabel: true
   591                  #(#InputFieldSpec
   603               #adjust: #right
   592                     #name: 'nameKeyField'
   604             )
   593                     #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   605            #(#InputFieldSpec
   594                     #activeHelpKey: #basicsNameKey
   606               #name: 'nameKeyField'
   595                     #tabable: true
   607               #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   596                     #model: #nameKey
   608               #activeHelpKey: #basicsNameKey
   597                     #type: #symbolOrNil
   609               #tabable: true
   598                     #acceptOnReturn: false
   610               #model: #nameKey
   599                     #acceptOnTab: false
   611               #group: #inputGroup
   600                     #group: #inputGroup
   612               #type: #symbolOrNil
   601                     #modifiedChannel: #modifiedChannel
   613               #acceptOnReturn: true
   602                     #acceptChannel: #acceptChannel
   614               #acceptOnTab: true
   603                 )
   615               #acceptChannel: #acceptChannel
   604                  #(#LabelSpec
   616               #modifiedChannel: #modifiedChannel
   605                     #name: 'labelLabel'
   617               #acceptOnPointerLeave: false
   606                     #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   618             )
   607                     #label: 'Label:'
   619            #(#LabelSpec
   608                     #resizeForLabel: true
   620               #label: 'Label:'
   609                 )
   621               #name: 'labelLabel'
   610                  #(#InputFieldSpec
   622               #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   611                     #name: 'labelField'
   623               #resizeForLabel: true
   612                     #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   624             )
   613                     #activeHelpKey: #basicsLabel
   625            #(#InputFieldSpec
   614                     #tabable: true
   626               #name: 'labelField'
   615                     #model: #label
   627               #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   616                     #acceptOnReturn: false
   628               #activeHelpKey: #basicsLabel
   617                     #acceptOnTab: false
   629               #tabable: true
   618                     #group: #inputGroup
   630               #model: #label
   619                     #modifiedChannel: #modifiedChannel
   631               #group: #inputGroup
   620                     #acceptChannel: #acceptChannel
   632               #acceptOnReturn: true
   621                 )
   633               #acceptOnTab: true
   622                  #(#LabelSpec
   634               #acceptChannel: #acceptChannel
   623                     #name: 'menuLabel'
   635               #modifiedChannel: #modifiedChannel
   624                     #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
   636               #acceptOnPointerLeave: false
   625                     #label: 'Menu:'
   637             )
   626                     #resizeForLabel: true
   638            #(#LabelSpec
   627                 )
   639               #label: 'Menu:'
   628                  #(#InputFieldSpec
   640               #name: 'menuLabel'
   629                     #name: 'menuField'
   641               #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
   630                     #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
   642               #resizeForLabel: true
   631                     #activeHelpKey: #basicsMenu
   643             )
   632                     #tabable: true
   644            #(#InputFieldSpec
   633                     #model: #submenuChannel
   645               #name: 'menuField'
   634                     #type: #symbolOrNil
   646               #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
   635                     #acceptOnReturn: false
   647               #activeHelpKey: #basicsMenu
   636                     #acceptOnTab: false
   648               #tabable: true
   637                     #group: #inputGroup
   649               #model: #submenuChannel
   638                     #modifiedChannel: #modifiedChannel
   650               #group: #inputGroup
   639                     #acceptChannel: #acceptChannel
   651               #type: #symbolOrNil
   640                 )
   652               #acceptOnReturn: true
   641                  #(#LabelSpec
   653               #acceptOnTab: true
   642                     #name: 'ArgumentLabel'
   654               #acceptChannel: #acceptChannel
   643                     #layout: #(#AlignmentOrigin 107 0 100 0 1 0.5)
   655               #modifiedChannel: #modifiedChannel
   644                     #label: 'Argument:'
   656               #acceptOnPointerLeave: false
   645                     #resizeForLabel: true
   657             )
   646                 )
   658            #(#LabelSpec
   647                  #(#InputFieldSpec
   659               #label: 'Argument:'
   648                     #name: 'argumentField'
   660               #name: 'ArgumentLabel'
   649                     #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
   661               #layout: #(#AlignmentOrigin 107 0 100 0 1 0.5)
   650                     #activeHelpKey: #basicsMenuArgument
   662               #resizeForLabel: true
   651                     #tabable: true
   663             )
   652                     #model: #argument
   664            #(#InputFieldSpec
   653                     #acceptOnReturn: false
   665               #name: 'argumentField'
   654                     #acceptOnTab: false
   666               #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
   655                     #group: #inputGroup
   667               #activeHelpKey: #basicsMenuArgument
   656                     #modifiedChannel: #modifiedChannel
   668               #tabable: true
   657                     #acceptChannel: #acceptChannel
   669               #model: #argument
   658                 )
   670               #group: #inputGroup
   659                  #(#CheckBoxSpec
   671               #acceptOnReturn: true
   660                     #name: 'translateLabelCheckBox'
   672               #acceptOnTab: true
   661                     #layout: #(#Point 20 190)
   673               #acceptChannel: #acceptChannel
   662                     #activeHelpKey: #basicsTranslateLabel
   674               #modifiedChannel: #modifiedChannel
   663                     #tabable: true
   675               #acceptOnPointerLeave: false
   664                     #model: #translateLabel
   676             )
   665                     #label: 'Translate Label'
   677            #(#CheckBoxSpec
   666                 )
   678               #label: 'Translate Label'
   667               )
   679               #name: 'translateLabelCheckBox'
   668           )
   680               #layout: #(#Point 20 190)
       
   681               #activeHelpKey: #basicsTranslateLabel
       
   682               #tabable: true
       
   683               #model: #translateLabel
       
   684             )
       
   685            )
       
   686          
       
   687         )
   669       )
   688       )
   670 
       
   671     "Modified: / 31.7.1998 / 01:18:16 / cg"
       
   672 !
   689 !
   673 
   690 
   674 basicsMenuSpec
   691 basicsMenuSpec
   675     "This resource specification was automatically generated
   692     "This resource specification was automatically generated
   676      by the UIPainter of ST/X."
   693      by the UIPainter of ST/X."
   683      MenuEditor new openInterface:#basicsMenuSpec
   700      MenuEditor new openInterface:#basicsMenuSpec
   684     "
   701     "
   685 
   702 
   686     <resource: #canvas>
   703     <resource: #canvas>
   687 
   704 
   688     ^
   705     ^ 
   689      
   706      #(#FullSpec
   690        #(#FullSpec
   707         #name: #basicsMenuSpec
   691           #window: 
   708         #window: 
   692            #(#WindowSpec
   709        #(#WindowSpec
   693               #name: 'Basics Menu'
   710           #label: 'Basics Menu'
   694               #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
   711           #name: 'Basics Menu'
   695               #label: 'Basics Menu'
   712           #layout: #(#LayoutFrame 50 0 134 0 316 0 452 0)
   696               #min: #(#Point 10 10)
   713           #level: 0
   697               #max: #(#Point 1280 1024)
   714           #min: #(#Point 10 10)
   698               #bounds: #(#Rectangle 473 301 740 620)
   715           #max: #(#Point 1280 1024)
   699               #usePreferredExtent: false
   716           #bounds: #(#Rectangle 50 134 317 453)
   700           )
   717           #usePreferredExtent: false
   701           #component: 
   718           #returnIsOKInDialog: true
   702            #(#SpecCollection
   719           #escapeIsCancelInDialog: true
   703               #collection: 
   720         )
   704                #(
   721         #component: 
   705                  #(#LabelSpec
   722        #(#SpecCollection
   706                     #name: 'nameKeyLabel'
   723           #collection: #(
   707                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   724            #(#LabelSpec
   708                     #label: 'Name Key:'
   725               #label: 'Name Key:'
   709                     #adjust: #right
   726               #name: 'nameKeyLabel'
   710                     #resizeForLabel: true
   727               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   711                 )
   728               #resizeForLabel: true
   712                  #(#InputFieldSpec
   729               #adjust: #right
   713                     #name: 'nameKeyField'
   730             )
   714                     #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   731            #(#InputFieldSpec
   715                     #activeHelpKey: #basicsNameKey
   732               #name: 'nameKeyField'
   716                     #tabable: true
   733               #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   717                     #model: #nameKey
   734               #activeHelpKey: #basicsNameKey
   718                     #type: #symbolOrNil
   735               #tabable: true
   719                     #acceptOnReturn: false
   736               #model: #nameKey
   720                     #acceptOnTab: false
   737               #group: #inputGroup
   721                     #group: #inputGroup
   738               #type: #symbolOrNil
   722                     #modifiedChannel: #modifiedChannel
   739               #acceptOnReturn: true
   723                     #acceptChannel: #acceptChannel
   740               #acceptOnTab: true
   724                 )
   741               #acceptChannel: #acceptChannel
   725                  #(#LabelSpec
   742               #modifiedChannel: #modifiedChannel
   726                     #name: 'labelLabel'
   743               #acceptOnPointerLeave: false
   727                     #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   744             )
   728                     #label: 'Label:'
   745            #(#LabelSpec
   729                     #adjust: #right
   746               #label: 'Label:'
   730                     #resizeForLabel: true
   747               #name: 'labelLabel'
   731                 )
   748               #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   732                  #(#InputFieldSpec
   749               #resizeForLabel: true
   733                     #name: 'labelField'
   750               #adjust: #right
   734                     #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   751             )
   735                     #activeHelpKey: #basicsLabel
   752            #(#InputFieldSpec
   736                     #tabable: true
   753               #name: 'labelField'
   737                     #model: #label
   754               #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   738                     #acceptOnReturn: false
   755               #activeHelpKey: #basicsLabel
   739                     #acceptOnTab: false
   756               #tabable: true
   740                     #group: #inputGroup
   757               #model: #label
   741                     #modifiedChannel: #modifiedChannel
   758               #group: #inputGroup
   742                     #acceptChannel: #acceptChannel
   759               #acceptOnReturn: true
   743                 )
   760               #acceptOnTab: true
   744                  #(#CheckBoxSpec
   761               #acceptChannel: #acceptChannel
   745                     #name: 'translateLabelCheckBox'
   762               #modifiedChannel: #modifiedChannel
   746                     #layout: #(#Point 20 190)
   763               #acceptOnPointerLeave: false
   747                     #activeHelpKey: #basicsTranslateLabel
   764             )
   748                     #tabable: true
   765            #(#CheckBoxSpec
   749                     #model: #translateLabel
   766               #label: 'Translate Label'
   750                     #label: 'Translate Label'
   767               #name: 'translateLabelCheckBox'
   751                 )
   768               #layout: #(#Point 20 190)
   752               )
   769               #activeHelpKey: #basicsTranslateLabel
   753           )
   770               #tabable: true
       
   771               #model: #translateLabel
       
   772             )
       
   773            )
       
   774          
       
   775         )
   754       )
   776       )
   755 
       
   756     "Modified: / 31.7.1998 / 01:18:23 / cg"
       
   757 !
   777 !
   758 
   778 
   759 basicsRootSpec
   779 basicsRootSpec
   760     "This resource specification was automatically generated
   780     "This resource specification was automatically generated
   761      by the UIPainter of ST/X."
   781      by the UIPainter of ST/X."
   768      MenuEditor new openInterface:#basicsRootSpec
   788      MenuEditor new openInterface:#basicsRootSpec
   769     "
   789     "
   770 
   790 
   771     <resource: #canvas>
   791     <resource: #canvas>
   772 
   792 
   773     ^
   793     ^ 
   774      
   794      #(#FullSpec
   775        #(#FullSpec
   795         #name: #basicsRootSpec
   776           #window: 
   796         #window: 
   777            #(#WindowSpec
   797        #(#WindowSpec
   778               #name: 'Basics Root'
   798           #label: 'Basics Root'
   779               #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
   799           #name: 'Basics Root'
   780               #label: 'Basics Root'
   800           #layout: #(#LayoutFrame 11 0 100 0 277 0 418 0)
   781               #min: #(#Point 10 10)
   801           #level: 0
   782               #max: #(#Point 1280 1024)
   802           #min: #(#Point 10 10)
   783               #bounds: #(#Rectangle 473 301 740 620)
   803           #max: #(#Point 1280 1024)
   784               #usePreferredExtent: false
   804           #bounds: #(#Rectangle 11 100 278 419)
   785           )
   805           #usePreferredExtent: false
   786           #component: 
   806           #returnIsOKInDialog: true
   787            #(#SpecCollection
   807           #escapeIsCancelInDialog: true
   788               #collection: 
   808         )
   789                #(
   809         #component: 
   790                  #(#LabelSpec
   810        #(#SpecCollection
   791                     #name: 'selectorLabel'
   811           #collection: #(
   792                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   812            #(#LabelSpec
   793                     #label: 'Selector:'
   813               #label: 'Selector:'
   794                     #adjust: #right
   814               #name: 'selectorLabel'
   795                     #resizeForLabel: true
   815               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   796                 )
   816               #resizeForLabel: true
   797                  #(#InputFieldSpec
   817               #adjust: #right
   798                     #name: 'selectorField'
   818             )
   799                     #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   819            #(#InputFieldSpec
   800                     #activeHelpKey: #basicsSelector
   820               #name: 'selectorField'
   801                     #tabable: true
   821               #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   802                     #model: #label
   822               #activeHelpKey: #basicsSelector
   803                     #acceptOnReturn: false
   823               #tabable: true
   804                     #acceptOnTab: false
   824               #model: #label
   805                     #group: #inputGroup
   825               #group: #inputGroup
   806                     #modifiedChannel: #modifiedChannel
   826               #acceptOnReturn: true
   807                     #acceptChannel: #acceptChannel
   827               #acceptOnTab: true
   808                 )
   828               #acceptChannel: #acceptChannel
   809               )
   829               #modifiedChannel: #modifiedChannel
   810           )
   830               #acceptOnPointerLeave: false
       
   831             )
       
   832            )
       
   833          
       
   834         )
   811       )
   835       )
   812 
       
   813     "Modified: / 31.7.1998 / 01:18:28 / cg"
       
   814 !
   836 !
   815 
   837 
   816 basicsSeparatorSpec
   838 basicsSeparatorSpec
   817     "This resource specification was automatically generated
   839     "This resource specification was automatically generated
   818      by the UIPainter of ST/X."
   840      by the UIPainter of ST/X."
   825      MenuEditor new openInterface:#basicsSeparatorSpec
   847      MenuEditor new openInterface:#basicsSeparatorSpec
   826     "
   848     "
   827 
   849 
   828     <resource: #canvas>
   850     <resource: #canvas>
   829 
   851 
   830     ^
   852     ^ 
   831      
   853      #(#FullSpec
   832        #(#FullSpec
   854         #name: #basicsSeparatorSpec
   833           #window: 
   855         #window: 
   834            #(#WindowSpec
   856        #(#WindowSpec
   835               #name: 'Basics Separator'
   857           #label: 'Basics Separator'
   836               #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
   858           #name: 'Basics Separator'
   837               #label: 'Basics Separator'
   859           #layout: #(#LayoutFrame 9 0 149 0 275 0 467 0)
   838               #min: #(#Point 10 10)
   860           #level: 0
   839               #max: #(#Point 1160 870)
   861           #min: #(#Point 10 10)
   840               #bounds: #(#Rectangle 473 301 740 620)
   862           #max: #(#Point 1160 870)
   841               #usePreferredExtent: false
   863           #bounds: #(#Rectangle 9 149 276 468)
   842           )
   864           #usePreferredExtent: false
   843           #component: 
   865           #returnIsOKInDialog: true
   844            #(#SpecCollection
   866           #escapeIsCancelInDialog: true
   845               #collection: 
   867         )
   846                #(
   868         #component: 
   847                  #(#LabelSpec
   869        #(#SpecCollection
   848                     #name: 'separatorLabel'
   870           #collection: #(
   849                     #layout: #(#AlignmentOrigin 127 0 26 0 1 0.5)
   871            #(#LabelSpec
   850                     #label: 'Separator Type:'
   872               #label: 'Separator Type:'
   851                     #adjust: #right
   873               #name: 'separatorLabel'
   852                     #resizeForLabel: true
   874               #layout: #(#AlignmentOrigin 127 0 26 0 1 0.5)
   853                 )
   875               #resizeForLabel: true
   854                  #(#ComboListSpec
   876               #adjust: #right
   855                     #name: 'seperatorList'
   877             )
   856                     #layout: #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
   878            #(#ComboListSpec
   857                     #activeHelpKey: #basicsSeparatorType
   879               #name: 'seperatorList'
   858                     #tabable: true
   880               #layout: #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
   859                     #model: #seperatorSelection
   881               #activeHelpKey: #basicsSeparatorType
   860                     #useIndex: true
   882               #tabable: true
   861                 )
   883               #model: #seperatorSelection
   862                  #(#LabelSpec
   884               #useIndex: true
   863                     #name: 'visibilityLabel'
   885             )
   864                     #layout: #(#AlignmentOrigin 127 0 76 0 1 0.5)
   886            #(#LabelSpec
   865                     #label: 'Visibility:'
   887               #label: 'Visibility:'
   866                     #adjust: #right
   888               #name: 'visibilityLabel'
   867                     #resizeForLabel: true
   889               #layout: #(#AlignmentOrigin 127 0 76 0 1 0.5)
   868                 )
   890               #resizeForLabel: true
   869                  #(#InputFieldSpec
   891               #adjust: #right
   870                     #name: 'visibilityInputField'
   892             )
   871                     #layout: #(#LayoutFrame 132 0 65 0 -5 1.0 87 0)
   893            #(#InputFieldSpec
   872                     #activeHelpKey: #detailsVisibility
   894               #name: 'visibilityInputField'
   873                     #tabable: true
   895               #layout: #(#LayoutFrame 132 0 65 0 -5 1.0 87 0)
   874                     #model: #isVisible
   896               #activeHelpKey: #detailsVisibility
   875                     #type: #symbolOrNil
   897               #tabable: true
   876                     #acceptOnReturn: false
   898               #model: #isVisible
   877                     #acceptOnTab: false
   899               #group: #inputGroup
   878                     #group: #inputGroup
   900               #type: #symbolOrNil
   879                     #modifiedChannel: #modifiedChannel
   901               #acceptOnReturn: true
   880                     #acceptChannel: #acceptChannel
   902               #acceptOnTab: true
   881                 )
   903               #acceptChannel: #acceptChannel
   882               )
   904               #modifiedChannel: #modifiedChannel
   883           )
   905               #acceptOnPointerLeave: false
       
   906             )
       
   907            )
       
   908          
       
   909         )
   884       )
   910       )
   885 
       
   886     "Modified: / 31.7.1998 / 01:18:32 / cg"
       
   887 !
   911 !
   888 
   912 
   889 detailsEditSpec
   913 detailsEditSpec
   890     "This resource specification was automatically generated
   914     "This resource specification was automatically generated
   891      by the UIPainter of ST/X."
   915      by the UIPainter of ST/X."
   898      MenuEditor new openInterface:#detailsEditSpec
   922      MenuEditor new openInterface:#detailsEditSpec
   899     "
   923     "
   900 
   924 
   901     <resource: #canvas>
   925     <resource: #canvas>
   902 
   926 
   903     ^
   927     ^ 
   904      
   928      #(#FullSpec
   905        #(#FullSpec
   929         #name: #detailsEditSpec
   906           #window: 
   930         #window: 
   907            #(#WindowSpec
   931        #(#WindowSpec
   908               #name: 'Details Edit'
   932           #label: 'Details Edit'
   909               #layout: #(#LayoutFrame 332 0 374 0 590 0 661 0)
   933           #name: 'Details Edit'
   910               #label: 'Details Edit'
   934           #layout: #(#LayoutFrame 707 0 270 0 965 0 557 0)
   911               #min: #(#Point 10 10)
   935           #level: 0
   912               #max: #(#Point 1280 1024)
   936           #min: #(#Point 10 10)
   913               #bounds: #(#Rectangle 332 374 591 662)
   937           #max: #(#Point 1280 1024)
   914               #usePreferredExtent: false
   938           #bounds: #(#Rectangle 707 270 966 558)
   915           )
   939           #usePreferredExtent: false
   916           #component: 
   940           #returnIsOKInDialog: true
   917            #(#SpecCollection
   941           #escapeIsCancelInDialog: true
   918               #collection: 
   942         )
   919                #(
   943         #component: 
   920                  #(#LabelSpec
   944        #(#SpecCollection
   921                     #name: 'shortcutKeyLabel'
   945           #collection: #(
   922                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   946            #(#LabelSpec
   923                     #activeHelpKey: #detailsAccelerator
   947               #label: 'Accelerator:'
   924                     #label: 'Accelerator:'
   948               #name: 'shortcutKeyLabel'
   925                     #adjust: #right
   949               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
   926                     #resizeForLabel: true
   950               #activeHelpKey: #detailsAccelerator
   927                 )
   951               #resizeForLabel: true
   928                  #(#InputFieldSpec
   952               #adjust: #right
   929                     #name: 'shortcutKeyField'
   953             )
   930                     #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   954            #(#InputFieldSpec
   931                     #activeHelpKey: #detailsAccelerator
   955               #name: 'shortcutKeyField'
   932                     #tabable: true
   956               #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
   933                     #model: #shortcutKey
   957               #activeHelpKey: #detailsAccelerator
   934                     #type: #symbolOrNil
   958               #tabable: true
   935                     #acceptOnReturn: false
   959               #model: #shortcutKey
   936                     #acceptOnTab: false
   960               #group: #inputGroup
   937                     #group: #inputGroup
   961               #type: #symbolOrNil
   938                     #modifiedChannel: #modifiedChannel
   962               #acceptOnReturn: true
   939                     #acceptChannel: #acceptChannel
   963               #acceptOnTab: true
   940                 )
   964               #acceptChannel: #acceptChannel
   941                  #(#LabelSpec
   965               #modifiedChannel: #modifiedChannel
   942                     #name: 'enabledLabel'
   966               #acceptOnPointerLeave: false
   943                     #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   967             )
   944                     #activeHelpKey: #detailsEnabled
   968            #(#LabelSpec
   945                     #label: 'Enabled:'
   969               #label: 'Enabled:'
   946                     #adjust: #right
   970               #name: 'enabledLabel'
   947                     #resizeForLabel: true
   971               #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
   948                 )
   972               #activeHelpKey: #detailsEnabled
   949                  #(#InputFieldSpec
   973               #resizeForLabel: true
   950                     #name: 'enabledField'
   974               #adjust: #right
   951                     #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   975             )
   952                     #activeHelpKey: #detailsEnabled
   976            #(#InputFieldSpec
   953                     #tabable: true
   977               #name: 'enabledField'
   954                     #model: #enabled
   978               #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
   955                     #type: #symbolOrNil
   979               #activeHelpKey: #detailsEnabled
   956                     #acceptOnReturn: false
   980               #tabable: true
   957                     #acceptOnTab: false
   981               #model: #enabled
   958                     #group: #inputGroup
   982               #group: #inputGroup
   959                     #modifiedChannel: #modifiedChannel
   983               #type: #symbolOrNil
   960                     #acceptChannel: #acceptChannel
   984               #acceptOnReturn: true
   961                 )
   985               #acceptOnTab: true
   962                  #(#LabelSpec
   986               #acceptChannel: #acceptChannel
   963                     #name: 'visibilityLabel'
   987               #modifiedChannel: #modifiedChannel
   964                     #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
   988               #acceptOnPointerLeave: false
   965                     #activeHelpKey: #detailsVisibility
   989             )
   966                     #label: 'Visibility:'
   990            #(#LabelSpec
   967                     #adjust: #right
   991               #label: 'Visibility:'
   968                     #resizeForLabel: true
   992               #name: 'visibilityLabel'
   969                 )
   993               #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
   970                  #(#InputFieldSpec
   994               #activeHelpKey: #detailsVisibility
   971                     #name: 'isVisibleInputField'
   995               #resizeForLabel: true
   972                     #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
   996               #adjust: #right
   973                     #activeHelpKey: #detailsVisibility
   997             )
   974                     #tabable: true
   998            #(#InputFieldSpec
   975                     #model: #isVisible
   999               #name: 'isVisibleInputField'
   976                     #type: #symbolOrNil
  1000               #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
   977                     #acceptOnReturn: false
  1001               #activeHelpKey: #detailsVisibility
   978                     #acceptOnTab: false
  1002               #tabable: true
   979                     #group: #inputGroup
  1003               #model: #isVisible
   980                     #modifiedChannel: #modifiedChannel
  1004               #group: #inputGroup
   981                     #acceptChannel: #acceptChannel
  1005               #type: #symbolOrNil
   982                 )
  1006               #acceptOnReturn: true
   983                  #(#LabelSpec
  1007               #acceptOnTab: true
   984                     #name: 'StartGroupLabel'
  1008               #acceptChannel: #acceptChannel
   985                     #layout: #(#AlignmentOrigin 107 0 111 0 1 0.5)
  1009               #modifiedChannel: #modifiedChannel
   986                     #activeHelpKey: #detailsStartGroup
  1010               #acceptOnPointerLeave: false
   987                     #label: 'Start Group:'
  1011             )
   988                     #adjust: #right
  1012            #(#LabelSpec
   989                     #resizeForLabel: true
  1013               #label: 'Start Group:'
   990                 )
  1014               #name: 'StartGroupLabel'
   991                  #(#PopUpListSpec
  1015               #layout: #(#AlignmentOrigin 107 0 111 0 1 0.5)
   992                     #name: 'StartGroupPopUp'
  1016               #activeHelpKey: #detailsStartGroup
   993                     #activeHelpKey: #detailsStartGroup
  1017               #resizeForLabel: true
   994                     #layout: #(#LayoutFrame 110 0 100 0 -5 1.0 122 0)
  1018               #adjust: #right
   995                     #label: 'PopUpList'
  1019             )
   996                     #tabable: true
  1020            #(#PopUpListSpec
   997                     #model: #startGroup
  1021               #label: 'PopUpList'
   998                     #menu: 
  1022               #name: 'StartGroupPopUp'
   999                      #(nil
  1023               #layout: #(#LayoutFrame 110 0 100 0 -5 1.0 122 0)
  1000                         #right
  1024               #activeHelpKey: #detailsStartGroup
  1001                     )
  1025               #tabable: true
  1002                     #useIndex: false
  1026               #model: #startGroup
  1003                 )
  1027               #menu: 
  1004                  #(#LabelSpec
  1028              #(nil
  1005                     #name: 'accessCharLabel'
  1029                 #right
  1006                     #layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
       
  1007                     #activeHelpKey: #detailsAccessCharaterPosition
       
  1008                     #label: 'Access Character Position:'
       
  1009                     #adjust: #right
       
  1010                     #resizeForLabel: true
       
  1011                 )
       
  1012                  #(#InputFieldSpec
       
  1013                     #name: 'accessCharField'
       
  1014                     #layout: #(#LayoutFrame 220 0 131 0 -5 1.0 153 0)
       
  1015                     #activeHelpKey: #detailsAccessCharaterPosition
       
  1016                     #tabable: true
       
  1017                     #model: #accessCharacterPos
       
  1018                     #type: #numberOrNil
       
  1019                     #acceptOnReturn: false
       
  1020                     #acceptOnTab: false
       
  1021                     #group: #inputGroup
       
  1022                     #modifiedChannel: #modifiedChannel
       
  1023                     #acceptChannel: #acceptChannel
       
  1024                 )
       
  1025               )
  1030               )
  1026           )
  1031               #useIndex: false
       
  1032             )
       
  1033            #(#LabelSpec
       
  1034               #label: 'Access Character Position:'
       
  1035               #name: 'accessCharLabel'
       
  1036               #layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
       
  1037               #activeHelpKey: #detailsAccessCharaterPosition
       
  1038               #resizeForLabel: true
       
  1039               #adjust: #right
       
  1040             )
       
  1041            #(#InputFieldSpec
       
  1042               #name: 'accessCharField'
       
  1043               #layout: #(#LayoutFrame 220 0 131 0 -5 1.0 153 0)
       
  1044               #activeHelpKey: #detailsAccessCharaterPosition
       
  1045               #tabable: true
       
  1046               #model: #accessCharacterPos
       
  1047               #group: #inputGroup
       
  1048               #type: #numberOrNil
       
  1049               #immediateAccept: false
       
  1050               #acceptOnReturn: true
       
  1051               #acceptOnTab: true
       
  1052               #acceptChannel: #acceptChannel
       
  1053               #modifiedChannel: #modifiedChannel
       
  1054               #acceptOnPointerLeave: false
       
  1055             )
       
  1056            )
       
  1057          
       
  1058         )
  1027       )
  1059       )
  1028 
       
  1029     "Modified: / 18.8.1998 / 16:16:46 / cg"
       
  1030 !
  1060 !
  1031 
  1061 
  1032 imageEditSpec
  1062 imageEditSpec
  1033     "This resource specification was automatically generated
  1063     "This resource specification was automatically generated
  1034      by the UIPainter of ST/X."
  1064      by the UIPainter of ST/X."
  1041      MenuEditor new openInterface:#imageEditSpec
  1071      MenuEditor new openInterface:#imageEditSpec
  1042     "
  1072     "
  1043 
  1073 
  1044     <resource: #canvas>
  1074     <resource: #canvas>
  1045 
  1075 
  1046     ^
  1076     ^ 
  1047      
  1077      #(#FullSpec
  1048        #(#FullSpec
  1078         #name: #imageEditSpec
  1049           #window: 
  1079         #window: 
  1050            #(#WindowSpec
  1080        #(#WindowSpec
  1051               #name: 'Image Item'
  1081           #label: 'Image Item'
  1052               #layout: #(#LayoutFrame 25 0 119 0 420 0 395 0)
  1082           #name: 'Image Item'
  1053               #label: 'Image Item'
  1083           #layout: #(#LayoutFrame 21 0 108 0 416 0 384 0)
  1054               #min: #(#Point 10 10)
  1084           #level: 0
  1055               #max: #(#Point 1280 1024)
  1085           #min: #(#Point 10 10)
  1056               #bounds: #(#Rectangle 25 119 421 396)
  1086           #max: #(#Point 1280 1024)
  1057               #usePreferredExtent: false
  1087           #bounds: #(#Rectangle 21 108 417 385)
  1058           )
  1088           #usePreferredExtent: false
  1059           #component: 
  1089           #returnIsOKInDialog: true
  1060            #(#SpecCollection
  1090           #escapeIsCancelInDialog: true
  1061               #collection: 
  1091         )
  1062                #(
  1092         #component: 
  1063                  #(#CheckBoxSpec
  1093        #(#SpecCollection
  1064                     #name: 'iconAndLabelCheckBox'
  1094           #collection: #(
  1065                     #layout: #(#LayoutOrigin 20 0 215 0)
  1095            #(#CheckBoxSpec
  1066                     #activeHelpKey: #imageImageAndLabel
  1096               #label: 'Image & Label'
  1067                     #tabable: true
  1097               #name: 'iconAndLabelCheckBox'
  1068                     #model: #iconAndLabel
  1098               #layout: #(#LayoutOrigin 20 0 215 0)
  1069                     #label: 'Image & Label'
  1099               #activeHelpKey: #imageImageAndLabel
  1070                 )
  1100               #tabable: true
  1071                  #(#LabelSpec
  1101               #model: #iconAndLabel
  1072                     #name: 'retrieverLabel'
  1102             )
  1073                     #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
  1103            #(#LabelSpec
  1074                     #activeHelpKey: #imageRetriever
  1104               #label: 'Retriever:'
  1075                     #label: 'Retriever:'
  1105               #name: 'retrieverLabel'
  1076                     #resizeForLabel: true
  1106               #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
  1077                     #adjust: #right
  1107               #activeHelpKey: #imageRetriever
  1078                 )
  1108               #resizeForLabel: true
  1079                  #(#ComboBoxSpec
  1109               #adjust: #right
  1080                     #name: 'retrieverField'
  1110             )
  1081                     #layout: #(#LayoutFrame 110 0 15 0 0 1.0 37 0)
  1111            #(#ComboBoxSpec
  1082                     #activeHelpKey: #imageRetriever
  1112               #name: 'retrieverField'
  1083                     #tabable: true
  1113               #layout: #(#LayoutFrame 110 0 15 0 0 1.0 37 0)
  1084                     #model: #retriever
  1114               #activeHelpKey: #imageRetriever
  1085                     #type: #symbolOrNil
  1115               #tabable: true
  1086                     #acceptOnReturn: false
  1116               #model: #retriever
  1087                     #acceptOnTab: false
  1117               #type: #symbolOrNil
  1088                     #comboList: #retrieverClassList
  1118               #acceptOnReturn: true
  1089                 )
  1119               #acceptOnTab: true
  1090                  #(#LabelSpec
  1120               #acceptChannel: #acceptChannel
  1091                     #name: 'iconLabel'
  1121               #acceptOnPointerLeave: false
  1092                     #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
  1122               #comboList: #retrieverClassList
  1093                     #activeHelpKey: #imageSelector
  1123             )
  1094                     #label: 'Selector:'
  1124            #(#LabelSpec
  1095                     #resizeForLabel: true
  1125               #label: 'Selector:'
  1096                     #adjust: #right
  1126               #name: 'iconLabel'
  1097                 )
  1127               #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
  1098                  #(#InputFieldSpec
  1128               #activeHelpKey: #imageSelector
  1099                     #name: 'iconField'
  1129               #resizeForLabel: true
  1100                     #layout: #(#LayoutFrame 110 0 40 0 -31 1.0 62 0)
  1130               #adjust: #right
  1101                     #activeHelpKey: #imageSelector
  1131             )
  1102                     #tabable: true
  1132            #(#InputFieldSpec
  1103                     #model: #icon
  1133               #name: 'iconField'
  1104                     #group: #inputGroup
  1134               #layout: #(#LayoutFrame 110 0 40 0 -31 1.0 62 0)
  1105                     #type: #symbolOrNil
  1135               #activeHelpKey: #imageSelector
  1106                     #acceptOnReturn: false
  1136               #tabable: true
  1107                     #modifiedChannel: #modifiedChannel
  1137               #model: #icon
  1108                     #acceptOnTab: false
  1138               #group: #inputGroup
  1109                     #acceptChannel: #acceptChannel
  1139               #type: #symbolOrNil
  1110                 )
  1140               #acceptOnReturn: true
  1111                  #(#ActionButtonSpec
  1141               #acceptOnTab: true
  1112                     #name: 'imageEditorButton'
  1142               #acceptChannel: #acceptChannel
  1113                     #layout: #(#LayoutFrame 19 0.6 128 0 -5 1 152 0)
  1143               #modifiedChannel: #modifiedChannel
  1114                     #activeHelpKey: #imageImageEditor
  1144               #acceptOnPointerLeave: false
  1115                     #label: 'Image Editor'
  1145             )
  1116                     #tabable: true
  1146            #(#ActionButtonSpec
  1117                     #model: #doEditImage
  1147               #label: 'Image Editor'
  1118                 )
  1148               #name: 'imageEditorButton'
  1119                  #(#SequenceViewSpec
  1149               #layout: #(#LayoutFrame 19 0.6 128 0 -5 1 152 0)
  1120                     #name: 'systemOrUserImagesList'
  1150               #activeHelpKey: #imageImageEditor
  1121                     #layout: #(#LayoutFrame 22 0 67 0 11 0.6 200 0)
  1151               #tabable: true
  1122                     #activeHelpKey: #imageImageList
  1152               #model: #doEditImage
  1123                     #model: #selectionOfImage
  1153             )
  1124                     #menu: #menuEditImage
  1154            #(#SequenceViewSpec
  1125                     #hasHorizontalScrollBar: true
  1155               #name: 'systemOrUserImagesList'
  1126                     #hasVerticalScrollBar: true
  1156               #layout: #(#LayoutFrame 22 0 67 0 11 0.6 200 0)
  1127                     #miniScrollerHorizontal: true
  1157               #activeHelpKey: #imageImageList
  1128                     #doubleClickSelector: #doEditImage
  1158               #model: #selectionOfImage
  1129                     #valueChangeSelector: #imageSelected
  1159               #menu: #menuEditImage
  1130                     #useIndex: false
  1160               #hasHorizontalScrollBar: true
  1131                     #sequenceList: #listOfImages
  1161               #hasVerticalScrollBar: true
  1132                 )
  1162               #miniScrollerHorizontal: true
  1133                  #(#ActionButtonSpec
  1163               #doubleClickSelector: #doEditImage
  1134                     #name: 'browseButton'
  1164               #valueChangeSelector: #imageSelected
  1135                     #layout: #(#LayoutFrame -26 1 41 0 -2 1 63 0)
  1165               #useIndex: false
  1136                     #activeHelpKey: #browseResource
  1166               #sequenceList: #listOfImages
  1137                     #label: '...'
  1167             )
  1138                     #model: #doBrowseForImageResource
  1168            #(#ActionButtonSpec
  1139                 )
  1169               #label: '...'
  1140               )
  1170               #name: 'browseButton'
  1141           )
  1171               #layout: #(#LayoutFrame -26 1 41 0 -2 1 63 0)
       
  1172               #activeHelpKey: #browseResource
       
  1173               #model: #doBrowseForImageResource
       
  1174             )
       
  1175            )
       
  1176          
       
  1177         )
  1142       )
  1178       )
  1143 !
  1179 !
  1144 
  1180 
  1145 windowSpec
  1181 windowSpec
  1146     "This resource specification was automatically generated
  1182     "This resource specification was automatically generated
  2363             node changed.
  2399             node changed.
  2364             specSelector := self treeView selectorName.
  2400             specSelector := self treeView selectorName.
  2365         ]
  2401         ]
  2366     ].   
  2402     ].   
  2367     self updateInfoLabel.
  2403     self updateInfoLabel.
  2368     self updateListAndSelectionOfImage
  2404     self updateListAndSelectionOfImage.
       
  2405 
  2369 !
  2406 !
  2370 
  2407 
  2371 cancel
  2408 cancel
  2372     "invoked by button 'Cancel'"
  2409     "invoked by button 'Cancel'"
  2373 
  2410 
  2374     |node|
  2411     |node|
  2375 
  2412 
  2376     (node := self treeView selectedNode) notNil ifTrue:[          
  2413     (node := self treeView selectedNode) notNil ifTrue:[          
  2377         self helpTool helpKey:(self helpKey).
  2414         self helpTool helpKey:(self helpKey).
  2378         aspects do:[:anAspect| anAspect value:nil].
  2415         aspects do:[:anAspect| anAspect value:'' ].
  2379         node contents toAspects:aspects
  2416         node contents toAspects:aspects
  2380     ].
  2417     ].
  2381     self valueOfEnablingCommitButtons value: false.
  2418     self valueOfEnablingCommitButtons value: false.
  2382     self modifiedChannel value: false.
  2419     self modifiedChannel value: false.
  2383     modified := false
  2420     modified := false