ImageEditor.st
changeset 420 7fd01e47c912
parent 415 f792d83774b3
child 444 cd7959cb70dd
equal deleted inserted replaced
419:34cc530118c6 420:7fd01e47c912
   525      
   525      
   526        #(#FullSpec
   526        #(#FullSpec
   527           #'window:' 
   527           #'window:' 
   528            #(#WindowSpec
   528            #(#WindowSpec
   529               #'name:' 'Image Editor'
   529               #'name:' 'Image Editor'
   530               #'layout:' #(#LayoutFrame 109 0 301 0 608 0 646 0)
   530               #'layout:' #(#LayoutFrame 189 0 240 0 688 0 585 0)
   531               #'label:' 'Image Editor'
   531               #'label:' 'Image Editor'
   532               #'min:' #(#Point 400 320)
   532               #'min:' #(#Point 400 320)
   533               #'max:' #(#Point 1152 900)
   533               #'max:' #(#Point 1152 900)
   534               #'bounds:' #(#Rectangle 109 301 609 647)
   534               #'bounds:' #(#Rectangle 189 240 689 586)
   535               #'menu:' #menu
   535               #'menu:' #menu
   536               #'usePreferredExtent:' false
   536               #'usePreferredExtent:' false
   537           )
   537           )
   538           #'component:' 
   538           #'component:' 
   539            #(#SpecCollection
   539            #(#SpecCollection
   693                                             #'collection:' 
   693                                             #'collection:' 
   694                                              #(
   694                                              #(
   695                                                #(#InputFieldSpec
   695                                                #(#InputFieldSpec
   696                                                   #'name:' 'resourceClassInputField'
   696                                                   #'name:' 'resourceClassInputField'
   697                                                   #'activeHelpKey:' #classNameInputField
   697                                                   #'activeHelpKey:' #classNameInputField
   698                                                   #'enableChannel:' #valueOfOpenedStandAlone
       
   699                                                   #'model:' #valueOfResourceClass
   698                                                   #'model:' #valueOfResourceClass
   700                                                   #'immediateAccept:' false
   699                                                   #'immediateAccept:' false
   701                                                   #'extent:' #(#Point 129 21)
   700                                                   #'extent:' #(#Point 129 21)
   702                                               )
   701                                               )
   703                                                #(#InputFieldSpec
   702                                                #(#InputFieldSpec
  1326 !
  1325 !
  1327 
  1326 
  1328 open
  1327 open
  1329 
  1328 
  1330     super open.
  1329     super open.
  1331 
  1330     self imageEditView masterApplication: self.
  1332     self resourceClassInputField entryCompletionBlock:
  1331     self resourceClassInputField entryCompletionBlock:
  1333     [:value|
  1332     [:value|
  1334         |what|
  1333         |what|
  1335         what := Smalltalk classnameCompletion: value withoutSpaces.
  1334         what := Smalltalk classnameCompletion: value withoutSpaces.
  1336         self resourceClassInputField contents:what first.
  1335         self resourceClassInputField contents:what first.