"

 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

"

! !

!ImageEditor class methodsFor:'instance creation'!

openModalOnClass: aClass andSelector: aSelector

    "self openModalOnClass: self andSelector: #newImageIcon"

    |imageEditor className resourceClassName resourceSelector|                      

    imageEditor := self new.

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

    aClass isString ifTrue: [className := aClass].      

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

    imageEditor openModal.

    resourceClassName := imageEditor valueOfResourceClass value.

    resourceSelector := imageEditor valueOfResourceSelector value.

    (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 current 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 dialog to save the image on a file.'

#fileSaveFile

'Saves current image on current file name.'

#fileSaveMaskAs

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

#fileSaveMethod

'Saves current image into selected class and selector.'

#fileSaveMethodAs

'Opens dialog to save the image on a class and a selector.'

#inputFieldFileName

'File name of the image.'

#inputFieldOfClass

'Class implementing the image method.'

#inputFieldOfSelector

'Selector of the class returning the image.'

#magnificationNumber

'Shows current number of magnification.'

#magnifyImageDown

'Magnifies down current image.'

#magnifyImageUp

'Magnifies up current image.'

#mouseKeyColorMode

'Toggles between left and right mouse key color.'

#previewView

'Shows preview of the current 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 69 0 265 0 568 0 610 0)

              #'label:' 'Image Editor'

              #'min:' #(#Point 400 320)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 69 265 569 611)

              #'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:' 

                                   #(

                                     #(#FramedBoxSpec

                                        #'name:' 'framedBox1'

                                        #'layout:' #(#LayoutFrame 1 0.0 3 0.0 110 0 65 0)

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#ArrowButtonSpec

                                                  #'name:' 'magnifyDownButton'

                                                  #'layout:' #(#LayoutFrame 13 0 20 0 35 0 42 0)

                                                  #'activeHelpKey:' #magnifyImageDown

                                                  #'model:' #magnifyDown

                                                  #'enableChannel:' #imageIsLoaded

                                                  #'isTriggerOnDown:' true

                                                  #'direction:' #left

                                              )

                                               #(#ArrowButtonSpec

                                                  #'name:' 'magnifyUpButton'

                                                  #'layout:' #(#LayoutFrame 73 0 20 0 95 0 42 0)

                                                  #'activeHelpKey:' #magnifyImageUp

                                                  #'model:' #magnifyUp

                                                  #'enableChannel:' #imageIsLoaded

                                                  #'isTriggerOnDown:' true

                                                  #'direction:' #right

                                              )

                                               #(#InputFieldSpec

                                                  #'name:' 'magnificationInputField'

                                                  #'layout:' #(#LayoutFrame 36 0 20 0.0 72 0 42 0)

                                                  #'activeHelpKey:' #magnificationNumber

                                                  #'enableChannel:' #imageIsLoaded

                                                  #'model:' #valueOfMagnification

                                                  #'type:' #number

                                                  #'acceptOnReturn:' false

                                                  #'acceptOnTab:' false

                                                  #'numChars:' 2

                                              )

                                            )

                                        )

                                        #'label:' 'Magnification'

                                        #'labelPosition:' #topLeft

                                        #'style:' #(#FontDescription #helvetica #medium #roman 12)

                                    )

                                     #(#ArbitraryComponentSpec

                                        #'name:' 'imagePreView'

                                        #'layout:' #(#LayoutFrame 111 0.0 9 0.0 -6 1 60 0)

                                        #'activeHelpKey:' #previewView

                                        #'hasHorizontalScrollBar:' true

                                        #'hasVerticalScrollBar:' true

                                        #'miniScrollerHorizontal:' true

                                        #'miniScrollerVertical:' true

                                        #'component:' #ImageView

                                        #'hasBorder:' true

                                    )

                                     #(#FramedBoxSpec

                                        #'name:' 'framedBox2'

                                        #'layout:' #(#LayoutFrame 1 0.0 68 0 0 1.0 -66 1)

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#DataSetSpec

                                                  #'name:' 'colorDataSetView'

                                                  #'layout:' #(#LayoutFrame 11 0.0 19 0.0 20 1.0 -10 1.0)

                                                  #'activeHelpKey:' #colorMapTable

                                                  #'model:' #selectionOfColor

                                                  #'style:' #(#FontDescription #helvetica #medium #roman 12)

                                                  #'hasHorizontalScrollBar:' true

                                                  #'hasVerticalScrollBar:' true

                                                  #'miniScrollerHorizontal:' true

                                                  #'miniScrollerVertical:' true

                                                  #'dataList:' #listOfColors

                                                  #'level:' -1

                                                  #'has3Dsepartors:' true

                                                  #'verticalSpacing:' 1

                                                  #'columns:' 

                                                   #(

                                                     #(#DataSetColumnSpec

                                                        #'rendererType:' #rowSelector

                                                        #'backgroundSelector:' #yourself

                                                    )

                                                     #(#DataSetColumnSpec

                                                        #'label:' 'Red'

                                                        #'model:' #rowRedByte

                                                        #'canSelect:' false

                                                    )

                                                     #(#DataSetColumnSpec

                                                        #'label:' 'Green'

                                                        #'model:' #rowGreenByte

                                                        #'canSelect:' false

                                                    )

                                                     #(#DataSetColumnSpec

                                                        #'label:' 'Blue'

                                                        #'model:' #rowBlueByte

                                                        #'canSelect:' false

                                                    )

                                                  )

                                              )

                                               #(#MenuPanelSpec

                                                  #'name:' 'menuColorAssignmentPanel'

                                                  #'layout:' #(#LayoutFrame 11 0 -10 1 18 1 17 1)

                                                  #'activeHelpKey:' #mouseKeyColorMode

                                                  #'enableChannel:' #imageIsLoaded

                                                  #'menu:' #menuColorAssignment

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

                                              )

                                            )

                                        )

                                        #'label:' 'Color Map'

                                        #'labelPosition:' #topLeft

                                        #'style:' #(#FontDescription #helvetica #medium #roman 12)

                                    )

                                     #(#VerticalPanelViewSpec

                                        #'name:' 'verticalPanelView1'

                                        #'layout:' #(#LayoutFrame 1 0.0 -68 1 83 0 0 1.0)

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#LabelSpec

                                                  #'name:' 'classNameLabel'

                                                  #'label:' 'Class:'

                                                  #'adjust:' #right

                                                  #'extent:' #(#Point 82 21)

                                              )

                                               #(#LabelSpec

                                                  #'name:' 'selectorLabel'

                                                  #'label:' 'Selector:'

                                                  #'adjust:' #right

                                                  #'extent:' #(#Point 82 20)

                                              )

                                               #(#LabelSpec

                                                  #'name:' 'fileNameLabel'

                                                  #'label:' 'File Name:'

                                                  #'adjust:' #right

                                                  #'extent:' #(#Point 82 21)

                                              )

                                            )

                                        )

                                        #'horizontalLayout:' #fit

                                        #'verticalLayout:' #fit

                                        #'horizontalSpace:' 3

                                        #'verticalSpace:' 3

                                    )

                                     #(#VerticalPanelViewSpec

                                        #'name:' 'verticalPanelView2'

                                        #'layout:' #(#LayoutFrame 85 0.0 -68 1 -6 1 0 1.0)

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#InputFieldSpec

                                                  #'name:' 'resourceClassInputField'

                                                  #'activeHelpKey:' #inputFieldOfClass

                                                  #'model:' #valueOfResourceClass

                                                  #'immediateAccept:' false

                                                  #'extent:' #(#Point 107 21)

                                              )

                                               #(#InputFieldSpec

                                                  #'name:' 'resourceSelectorInputField'

                                                  #'activeHelpKey:' #inputFieldOfSelector

                                                  #'model:' #valueOfResourceSelector

                                                  #'immediateAccept:' false

                                                  #'acceptOnTab:' false

                                                  #'extent:' #(#Point 107 20)

                                              )

                                               #(#InputFieldSpec

                                                  #'name:' 'fileNameInputField'

                                                  #'activeHelpKey:' #inputFieldFileName

                                                  #'model:' #valueOfFileName

                                                  #'immediateAccept:' false

                                                  #'acceptOnTab:' false

                                                  #'extent:' #(#Point 107 21)

                                              )

                                            )

                                        )

                                        #'horizontalLayout:' #fit

                                        #'verticalLayout:' #fit

                                        #'horizontalSpace:' 3

                                        #'verticalSpace:' 3

                                    )

                                  )

                              )

                              #'level:' -1

                          )

                           #(#ViewSpec

                              #'name:' 'view2'

                              #'component:' 

                               #(#SpecCollection

                                  #'collection:' 

                                   #(