ImageEditor.st
changeset 679 9cd2115ac627
parent 676 6a21e13bb2db
child 688 788fe83ab3c0
equal deleted inserted replaced
678:4dd439ebf162 679:9cd2115ac627
    45         ImageEditView Image
    45         ImageEditView Image
    46 
    46 
    47     [author:]
    47     [author:]
    48         Thomas Zwick, eXept Software AG
    48         Thomas Zwick, eXept Software AG
    49 "
    49 "
       
    50 !
       
    51 
       
    52 listOfColors
       
    53 
       
    54     ^List new
       
    55 
    50 ! !
    56 ! !
    51 
    57 
    52 !ImageEditor class methodsFor:'instance creation'!
    58 !ImageEditor class methodsFor:'instance creation'!
    53 
    59 
    54 openModalOnClass: aClass andSelector: aSelector
    60 openModalOnClass: aClass andSelector: aSelector
   263      
   269      
   264        #(#FullSpec
   270        #(#FullSpec
   265           #window: 
   271           #window: 
   266            #(#WindowSpec
   272            #(#WindowSpec
   267               #name: 'Image Editor'
   273               #name: 'Image Editor'
   268               #layout: #(#LayoutFrame 273 0 357 0 772 0 702 0)
   274               #layout: #(#LayoutFrame 318 0 314 0 817 0 659 0)
   269               #label: 'Image Editor'
   275               #label: 'Image Editor'
   270               #min: #(#Point 400 320)
   276               #min: #(#Point 400 320)
   271               #max: #(#Point 1152 900)
   277               #max: #(#Point 1152 900)
   272               #bounds: #(#Rectangle 273 357 773 703)
   278               #bounds: #(#Rectangle 318 314 818 660)
   273               #menu: #menu
   279               #menu: #menu
   274               #usePreferredExtent: false
   280               #usePreferredExtent: false
   275           )
   281           )
   276           #component: 
   282           #component: 
   277            #(#SpecCollection
   283            #(#SpecCollection
   302                                         #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   308                                         #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   303                                         #component: 
   309                                         #component: 
   304                                          #(#SpecCollection
   310                                          #(#SpecCollection
   305                                             #collection: 
   311                                             #collection: 
   306                                              #(
   312                                              #(
   307                                                #(#DataSetSpec
   313                                                #(#ViewSpec
   308                                                   #name: 'colorDataSetView'
   314                                                   #name: 'View1'
   309                                                   #activeHelpKey: #colorMapTable
   315                                                   #component: 
   310                                                   #model: #selectionOfColor
   316                                                    #(#SpecCollection
   311                                                   #style: #(#FontDescription #helvetica #medium #roman 10)
   317                                                       #collection: 
   312                                                   #hasHorizontalScrollBar: true
   318                                                        #(
   313                                                   #hasVerticalScrollBar: true
   319                                                          #(#DataSetSpec
   314                                                   #miniScrollerHorizontal: true
   320                                                             #name: 'colorDataSetView'
   315                                                   #miniScrollerVertical: true
   321                                                             #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
   316                                                   #dataList: #listOfColors
   322                                                             #activeHelpKey: #colorMapTable
   317                                                   #level: -1
   323                                                             #model: #selectionOfColor
   318                                                   #has3Dsepartors: true
   324                                                             #style: #(#FontDescription #helvetica #medium #roman 10)
   319                                                   #verticalSpacing: 1
   325                                                             #hasHorizontalScrollBar: true
   320                                                   #columns: 
   326                                                             #hasVerticalScrollBar: true
   321                                                    #(
   327                                                             #miniScrollerHorizontal: true
   322                                                      #(#DataSetColumnSpec
   328                                                             #miniScrollerVertical: true
   323                                                         #rendererType: #rowSelector
   329                                                             #dataList: #listOfColors
   324                                                         #backgroundSelector: #yourself
   330                                                             #level: -1
   325                                                     )
   331                                                             #has3Dsepartors: true
   326                                                      #(#DataSetColumnSpec
   332                                                             #verticalSpacing: 1
   327                                                         #label: 'R'
   333                                                             #columns: 
   328                                                         #model: #rowRedByte
   334                                                              #(
   329                                                         #canSelect: false
   335                                                                #(#DataSetColumnSpec
   330                                                     )
   336                                                                   #rendererType: #rowSelector
   331                                                      #(#DataSetColumnSpec
   337                                                                   #backgroundSelector: #yourself
   332                                                         #label: 'G'
   338                                                               )
   333                                                         #model: #rowGreenByte
   339                                                                #(#DataSetColumnSpec
   334                                                         #canSelect: false
   340                                                                   #label: 'R'
   335                                                     )
   341                                                                   #model: #rowRedByte
   336                                                      #(#DataSetColumnSpec
   342                                                                   #canSelect: false
   337                                                         #label: 'B'
   343                                                               )
   338                                                         #model: #rowBlueByte
   344                                                                #(#DataSetColumnSpec
   339                                                         #canSelect: false
   345                                                                   #label: 'G'
   340                                                     )
   346                                                                   #model: #rowGreenByte
       
   347                                                                   #canSelect: false
       
   348                                                               )
       
   349                                                                #(#DataSetColumnSpec
       
   350                                                                   #label: 'B'
       
   351                                                                   #model: #rowBlueByte
       
   352                                                                   #canSelect: false
       
   353                                                               )
       
   354                                                             )
       
   355                                                         )
       
   356                                                          #(#MenuPanelSpec
       
   357                                                             #name: 'MenuPanel1'
       
   358                                                             #layout: #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
       
   359                                                             #menu: #menuMouseButtonColors
       
   360                                                         )
       
   361                                                       )
   341                                                   )
   362                                                   )
   342                                               )
   363                                               )
   343                                                #(#ArbitraryComponentSpec
   364                                                #(#ArbitraryComponentSpec
   344                                                   #name: 'imagePreView'
   365                                                   #name: 'imagePreView'
   345                                                   #activeHelpKey: #previewView
   366                                                   #activeHelpKey: #previewView
   350                                                   #component: #ImageView
   371                                                   #component: #ImageView
   351                                                   #hasBorder: true
   372                                                   #hasBorder: true
   352                                               )
   373                                               )
   353                                             )
   374                                             )
   354                                         )
   375                                         )
   355                                         #handles: #(#Any 0.601399 1.0)
   376                                         #handles: #(#Any 0.5 1.0)
   356                                     )
   377                                     )
   357                                   )
   378                                   )
   358                               )
   379                               )
   359                           )
   380                           )
   360                            #(#ViewSpec
   381                            #(#ViewSpec
   744                           #label: '1-Plane + Mask'
   765                           #label: '1-Plane + Mask'
   745                           #activeHelpKey: #colorMap
   766                           #activeHelpKey: #colorMap
   746                           #argument: '1-plane + mask'
   767                           #argument: '1-plane + mask'
   747                           #indication: #colorMapMode:value:
   768                           #indication: #colorMapMode:value:
   748                       )
   769                       )
   749                        #(#MenuItem
       
   750                           #label: '-'
       
   751                       )
       
   752                        #(#MenuItem
       
   753                           #label: 'Left Mouse Button'
       
   754                           #nameKey: #leftMouseKeyButton
       
   755                           #value: #'Left Mouse Button'
       
   756                           #activeHelpKey: #mouseKeyColorMode
       
   757                           #argument: '1'
       
   758                           #labelImage: #(#ResourceRetriever nil #leftMouseKeyIcon 'Left Mouse Button')
       
   759                           #indication: #mouseKeyColorMode:value:
       
   760                       )
       
   761                        #(#MenuItem
       
   762                           #label: 'Right Mouse Button'
       
   763                           #nameKey: #rightMouseKeyButton
       
   764                           #value: #'Right Mouse Button'
       
   765                           #activeHelpKey: #mouseKeyColorMode
       
   766                           #argument: '2'
       
   767                           #labelImage: #(#ResourceRetriever nil #rightMouseKeyIcon 'Right Mouse Button')
       
   768                           #indication: #mouseKeyColorMode:value:
       
   769                       )
       
   770                     ) nil
   770                     ) nil
   771                     nil
   771                     nil
   772                 )
   772                 )
   773             )
   773             )
   774              #(#MenuItem
   774              #(#MenuItem
   779              #(#MenuItem
   779              #(#MenuItem
   780                 #label: 'Help'
   780                 #label: 'Help'
   781                 #startGroup: #right
   781                 #startGroup: #right
   782                 #activeHelpKey: #help
   782                 #activeHelpKey: #help
   783                 #submenuChannel: #menuHelp
   783                 #submenuChannel: #menuHelp
       
   784             )
       
   785           ) nil
       
   786           nil
       
   787       )
       
   788 !
       
   789 
       
   790 menuMouseButtonColors
       
   791     "this window spec was automatically generated by the ST/X MenuEditor"
       
   792 
       
   793     "do not manually edit this - the builder may not be able to
       
   794      handle the specification if its corrupted."
       
   795 
       
   796     "
       
   797      MenuEditor new openOnClass:ImageEditor andSelector:#menuMouseButtonColors
       
   798      (Menu new fromLiteralArrayEncoding:(ImageEditor menuMouseButtonColors)) startUp
       
   799     "
       
   800 
       
   801     <resource: #menu>
       
   802 
       
   803     ^
       
   804      
       
   805        #(#Menu
       
   806           
       
   807            #(
       
   808              #(#MenuItem
       
   809                 #label: 'Left Mouse Button'
       
   810                 #nameKey: #leftMouseKeyButton
       
   811                 #activeHelpKey: #mouseKeyColorMode
       
   812                 #argument: '1'
       
   813                 #labelImage: #(#ResourceRetriever nil #leftMouseKeyIcon)
       
   814                 #indication: #mouseKeyColorMode:value:
       
   815             )
       
   816              #(#MenuItem
       
   817                 #label: 'Right Mouse Button'
       
   818                 #nameKey: #rightMouseKeyButton
       
   819                 #activeHelpKey: #mouseKeyColorMode
       
   820                 #argument: '2'
       
   821                 #labelImage: #(#ResourceRetriever nil #rightMouseKeyIcon)
       
   822                 #indication: #mouseKeyColorMode:value:
   784             )
   823             )
   785           ) nil
   824           ) nil
   786           nil
   825           nil
   787       )
   826       )
   788 !
   827 !
   951     ].
   990     ].
   952     ^ holder
   991     ^ holder
   953 !
   992 !
   954 
   993 
   955 listOfColors
   994 listOfColors
       
   995 
       
   996     |holder|
       
   997     (holder := builder bindingAt:#listOfColors) isNil ifTrue:[
       
   998         builder aspectAt:#listOfColors put:(holder :=  List new).
       
   999     ].
       
  1000     ^ holder
       
  1001 !
       
  1002 
       
  1003 listOfColors2
   956 
  1004 
   957     |holder|
  1005     |holder|
   958     (holder := builder bindingAt:#listOfColors) isNil ifTrue:[
  1006     (holder := builder bindingAt:#listOfColors) isNil ifTrue:[
   959         builder aspectAt:#listOfColors put:(holder :=  List new).
  1007         builder aspectAt:#listOfColors put:(holder :=  List new).
   960     ].
  1008     ].