"

 COPYRIGHT (c) 1997 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

ToolApplicationModel subclass:#ImageEditor

	instanceVariableNames:'colorMapMode selectedColorIndex postOpenAction'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!ImageEditor class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    By the Image Editor you are able to create, design, modify or just inspect images.

    [start with:]

        ImageEditor open

        ImageEditor openOnClass:ImageEditor andSelector:#newImageIcon

    [see also:]

        ImageEditView Image

    [author:]

        Thomas Zwick, eXept Software AG

"

!

listOfColors

    ^List new

! !

!ImageEditor class methodsFor:'instance creation'!

openModalOnClass: aClass andSelector: aSelector

    "self openModalOnClass: self andSelector: #newImageIcon"

    |imageEditor imageEditView className resourceClassName resourceSelector|                      

    imageEditor := self new.

    aClass isClass ifTrue: [className := aClass name].

    aClass isString ifTrue: [className := aClass].      

    imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector].

    imageEditor openModal.

    resourceClassName := imageEditView resourceClass.

    resourceSelector := imageEditView resourceSelector.

    (className asString ~= resourceClassName) | (aSelector asString ~= resourceSelector)

        ifTrue: [^resourceClassName, ' ', resourceSelector]

        ifFalse:[^nil]

!

openOnClass: aClass andSelector: aSelector

    "self openOnClass: self andSelector: #newImageIcon"

    ^self open loadFromMessage: aClass name, ' ', aSelector

!

openOnFile: image

    "self openOnFile: 'bitmaps/SmalltalkX.xbm'"

    ^self open loadFromFile: image

!

openOnImage: image

    "self openOnImage: self stxIcon"

    ^self open loadFromImage: image

! !

!ImageEditor class methodsFor:'accessing'!

listOfColorMaps

    |colorMap|

    (colorMap := OrderedCollection new)

        add: Color black;

        add: Color white;

        add: Color red;

        add: Color green;

        add: Color blue;

        add: Color cyan;

        add: Color yellow;

        add: Color magenta;

        add: (Color red: 50 green: 0 blue: 0);

        add: (Color red: 0 green: 50 blue: 0);

        add: (Color red: 0 green: 0 blue: 50);

        add: (Color red: 0 green: 50 blue: 50);

        add: (Color red: 50 green: 50 blue: 0);

        add: (Color red: 50 green: 0 blue: 50);

        add: Color gray;

        add: Color lightGray.                                

    0 to: 5 do:

    [:r|                                                    

        0 to: 5 do:         

        [:g|

            0 to: 5 do:                             

            [:b|

                colorMap add: (Color red: (r*100//5) ceiling green: (g*100//5) ceiling blue: (b*100//5) ceiling)

            ]

        ]

    ].

    1 to: 25 do:

    [:g|                             

        colorMap add: (Color gray: (g*100//26) ceiling)

    ].

    ^Dictionary new

        at: '8-plane' put: colorMap;

        at: '8-plane + mask' put: colorMap;

        at: '4-plane' put: (colorMap copyFrom: 1 to: 16);

        at: '4-plane + mask' put: (colorMap copyFrom: 1 to: 16);

        at: '2-plane' put: (colorMap copyFrom: 1 to: 4);

        at: '2-plane + mask' put: (colorMap copyFrom: 1 to: 4);

        at: '1-plane' put: (colorMap copyFrom: 1 to: 2);

        at: '1-plane + mask' put: (colorMap copyFrom: 1 to: 2);

        yourself

!

listOfDefaultSizes

    ^#('24x24' '16x16' '32x32')

! !

!ImageEditor class methodsFor:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:ImageEditor    

    "

  ^ super helpSpec addPairsFrom:#(

#colorMap

'Increases or reduces size of color map of the image.'

#colorMapTable

'Shows a list of used colors of the image.'

#drawModeBox

'Switches to mode drawing boxes.'

#drawModeCopy

'Switches to mode copying areas.'

#drawModeFill

'Switches to mode filling areas around selected point.'

#drawModeFilledBox

'Switches to mode drawing filled boxes.'

#drawModePaste

'Switches to mode pasting areas at selected point.'

#drawModePoint

'Switches to mode drawing points.'

#editFlipHorizontal

'Flips horizontally the image.'

#editFlipVertical

'Flips vertically the image.'

#editMagnifyImage

'Opens a dialog to magnify the image.'

#editNegate

'Convertes colors of image by negating them.'

#editResize

'Opens a dialog to resize the image with preserving the old image.'

#editRotate

'Opens a dialog to rotate the image in degrees.'

#fileLoadFromClass

'Opens a dialog for selecting and loading an image from resource method of a class.'

#fileLoadFromFile

'Opens a dialog for selecting and loading an image from a file.'

#fileNewImage

'Opens a dialog with choices of size and color depth to create an new image.'

#filePrint

'Print the image on a postscript printer.'

#fileSaveAs

'Opens a dialog to save the image to a file.'

#fileSaveMaskAs

'Opens a dialog to save the mask of the image to a file.'

#fileSaveMethod

'Saves the image on current class and selector.'

#fileSaveMethodAs

'Opens a dialog for selecting and saving the image in a resource method of a class.'

#magnificationNumber

'Shows current number of magnification.'

#magnifyImageDown

'Magnifies down the image.'

#magnifyImageUp

'Magnifies up the image.'

#mouseKeyColorMode

'Switches between left and right mouse button color.'

#previewView

'Shows preview of the image.'

)

! !

!ImageEditor class methodsFor:'interface specs'!

windowSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:ImageEditor andSelector:#windowSpec

     ImageEditor new openInterface:#windowSpec

    "

    "ImageEditor open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Image Editor'

              #layout: #(#LayoutFrame 153 0 246 0 652 0 591 0)

              #label: 'Image Editor'

              #min: #(#Point 400 320)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 153 246 653 592)

              #menu: #menu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#MenuPanelSpec

                    #name: 'menuToolbarView'

                    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)

                    #menu: #menuToolbar

                    #style: #(#FontDescription #helvetica #medium #roman 10)

                    #showSeparatingLines: true

                )

                 #(#VariableHorizontalPanelSpec

                    #name: 'variableHorizontalPanel1'

                    #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ViewSpec

                              #name: 'view1'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#VariableVerticalPanelSpec

                                        #name: 'VariableVerticalPanel1'

                                        #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#ViewSpec

                                                  #name: 'View1'

                                                  #component: 

                                                   #(#SpecCollection

                                                      #collection: 

                                                       #(

                                                         #(#MenuPanelSpec

                                                            #name: 'MenuPanel1'

                                                            #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 24 0)

                                                            #menu: #menuMouseButtonColors

                                                        )

                                                         #(#DataSetSpec

                                                            #name: 'colorDataSetView'

                                                            #layout: #(#LayoutFrame 0 0.0 26 0.0 0 1.0 0 1.0)

                                                            #activeHelpKey: #colorMapTable

                                                            #model: #selectionOfColor

                                                            #style: #(#FontDescription #helvetica #medium #roman 10)

                                                            #hasHorizontalScrollBar: true

                                                            #hasVerticalScrollBar: true

                                                            #miniScrollerHorizontal: true

                                                            #miniScrollerVertical: true

                                                            #dataList: #listOfColors

                                                            #level: -1

                                                            #has3Dsepartors: true

                                                            #verticalSpacing: 1

                                                            #columns: 

                                                             #(

                                                               #(#DataSetColumnSpec

                                                                  #rendererType: #rowSelector

                                                                  #backgroundSelector: #yourself

                                                              )

                                                               #(#DataSetColumnSpec

                                                                  #label: 'R'

                                                                  #model: #rowRedByte

                                                                  #canSelect: false

                                                              )

                                                               #(#DataSetColumnSpec

                                                                  #label: 'G'

                                                                  #model: #rowGreenByte

                                                                  #canSelect: false

                                                              )

                                                               #(#DataSetColumnSpec

                                                                  #label: 'B'

                                                                  #model: #rowBlueByte

                                                                  #canSelect: false

                                                              )

                                                            )

                                                        )

                                                      )

                                                  )

                                              )

                                               #(#ArbitraryComponentSpec

                                                  #name: 'imagePreView'

                                                  #activeHelpKey: #previewView

                                                  #hasHorizontalScrollBar: true

                                                  #hasVerticalScrollBar: true

                                                  #miniScrollerHorizontal: true

                                                  #miniScrollerVertical: true

                                                  #component: #ImageView

                                                  #hasBorder: false

                                              )

                                            )

                                        )

                                        #handles: #(#Any 0.723776 1.0)

                                    )

                                  )

                              )

                          )

                           #(#ViewSpec

                              #name: 'view2'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#ArbitraryComponentSpec

                                        #name: 'imageEditView'

                                        #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #component: #ImageEditView

                                        #hasBorder: false

                                    )

                                     #(#LabelSpec

                                        #name: 'coordLabel'

                                        #layout: #(#LayoutFrame 2 0.0 -22 1 -83 1.0 0 1.0)

                                        #level: -1

                                        #adjust: #left

                                    )

                                     #(#ArrowButtonSpec

                                        #name: 'magnifyDownButton'

                                        #layout: #(#LayoutFrame -80 1 -22 1 -58 1 0 1)

                                        #activeHelpKey: #magnifyImageDown

                                        #model: #magnifyDown

                                        #enableChannel: #imageIsLoaded

                                        #isTriggerOnDown: true

                                        #direction: #left

                                    )

                                     #(#ArrowButtonSpec

                                        #name: 'magnifyUpButton'

                                        #layout: #(#LayoutFrame -24 1 -22 1 -2 1 0 1)

                                        #activeHelpKey: #magnifyImageUp

                                        #model: #magnifyUp

                                        #enableChannel: #imageIsLoaded

                                        #isTriggerOnDown: true

                                        #direction: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'magnificationInputField'

                                        #layout: #(#LayoutFrame -57 1 -22 1 -26 1 0 1)

                                        #activeHelpKey: #magnificationNumber

                                        #enableChannel: #imageIsLoaded

                                        #model: #valueOfMagnification

                                        #type: #number

                                        #acceptOnReturn: false

                                        #acceptOnTab: false

                                        #numChars: 2

                                    )

                                  )

                              )

                              #level: -1

                          )

                        )

                    )

                    #handles: #(#Any 0.276 1.0)

                )

                 #(#UISubSpecification

                    #name: 'infoBarSubSpec'

                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForInfoBar

                )

              )

          )

      )

!

windowSpecForNewImage

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:ImageEditor andSelector:#windowSpecForNewImage

     ImageEditor new openInterface:#windowSpecForNewImage

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'New Image'

              #layout: #(#LayoutFrame 328 0 326 0 628 0 430 0)

              #label: 'New Image'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 328 326 629 431)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'View'

                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -37 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#FramedBoxSpec

                              #name: 'framedBox1'

                              #layout: #(#LayoutFrame 1 0.0 1 0.0 0 0.4 60 0)

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#ComboBoxSpec

                                        #name: 'defaultSizesComboBox'

                                        #layout: #(#LayoutFrame 15 0.0 20 0.0 17 1.0 16 1.0)

                                        #model: #selectionOfSize