"

 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick

              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-Advanced-Tools'

!

!ImageEditor class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick

              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

"

! !

!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.'

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

#editUndo

'Undoes last action.'

#fileBrowseClass

'Opens the System Browser on the class and the selector.'

#fileLoadFromClass

'Opens a dialog for selecting an image resource method.'

#fileLoadFromClassWithSuperclass

'Opens a dialog for opening the resource dialog on a superclass.'

#fileLoadFromFile

'Opens a dialog for selecting an image file.'

#fileNewImage

'Opens a dialog with choices of size and color depth.'

#filePrint

'Print the image on a postscript printer.'

#fileSaveAs

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

#fileSaveFile

'Saves the image on selected 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.'

)

! !

!ImageEditor class methodsFor:'interface specs'!

menu

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:ImageEditor andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(ImageEditor menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'About'

                #'labelImage:' #(#ResourceRetriever #ImageEditor #icon)

                #'submenuChannel:' #menuAbout

            )

             #(#MenuItem

                #'label:' 'File'

                #'translateLabel:' true

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'New...'

                          #'value:' #newImage

                          #'activeHelpKey:' #fileNewImage

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Load From File...'

                          #'value:' #loadFromFile

                          #'activeHelpKey:' #fileLoadFromFile

                      )

                       #(#MenuItem

                          #'label:' 'Load From Class...'

                          #'value:' #loadFromClass

                          #'activeHelpKey:' #fileLoadFromClass

                      )

                       #(#MenuItem

                          #'label:' 'Load From Class With Superclass...'

                          #'translateLabel:' true

                          #'value:' #loadFromClassWithSuperclass

                          #'activeHelpKey:' #fileLoadFromClassWithSuperclass

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Save'

                          #'value:' #saveImageFile

                          #'activeHelpKey:' #fileSaveFile

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' 'Save As...'

                          #'value:' #saveImageFileAs

                          #'activeHelpKey:' #fileSaveAs

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' 'Save Mask As...'

                          #'value:' #saveImageMaskFileAs

                          #'activeHelpKey:' #fileSaveMaskAs

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Save Method'

                          #'value:' #saveMethod

                          #'activeHelpKey:' #fileSaveMethod

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' 'Save Method As...'

                          #'value:' #saveMethodAs

                          #'activeHelpKey:' #fileSaveMethodAs

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Print'

                          #'value:' #print

                          #'activeHelpKey:' #filePrint

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Browse Class'

                          #'value:' #browseClass

                          #'activeHelpKey:' #fileBrowseClass

                          #'enabled:' #imageIsLoaded

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Exit'

                          #'translateLabel:' true

                          #'value:' #closeRequest

                          #'activeHelpKey:' #fileExit

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Edit'

                #'enabled:' #imageIsLoaded

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'Undo'

                          #'value:' #undo

                          #'activeHelpKey:' #editUndo

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Flip - Vertical'

                          #'value:' #flipVertical

                          #'activeHelpKey:' #editFlipVertical

                      )

                       #(#MenuItem

                          #'label:' 'Flip - Horizontal'

                          #'value:' #flipHorizontal

                          #'activeHelpKey:' #editFlipHorizontal

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Resize...'

                          #'value:' #resizeImage

                          #'activeHelpKey:' #editResize

                      )

                       #(#MenuItem

                          #'label:' 'Magnify...'

                          #'value:' #magnifyImage

                          #'activeHelpKey:' #editMagnifyImage

                      )

                       #(#MenuItem

                          #'label:' 'Rotate...'

                          #'value:' #rotateImage

                          #'activeHelpKey:' #editRotate

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Negative'

                          #'value:' #negativeImage

                          #'activeHelpKey:' #editNegate

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Color Map'

                #'enabled:' #imageIsLoaded

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' '8-Plane'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '8-plane'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '4-Plane'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '4-plane'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '2-Plane'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '2-plane'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '1-Plane'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '1-plane'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' '8-Plane + Mask'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '8-plane + mask'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '4-Plane + Mask'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '4-plane + mask'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '2-Plane + Mask'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '2-plane + mask'

                          #'indication:' #'colorMapMode:value:'

                      )

                       #(#MenuItem

                          #'label:' '1-Plane + Mask'

                          #'activeHelpKey:' #colorMap

                          #'argument:' '1-plane + mask'

                          #'indication:' #'colorMapMode:value:'

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'History'

                #'submenuChannel:' #menuHistory

            )

             #(#MenuItem

                #'label:' 'Help'

                #'submenuChannel:' #menuHelp

            )

          ) nil

          nil

      )

!

menuColorAssignment

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:ImageEditor andSelector:#menuColorAssignment

     (Menu new fromLiteralArrayEncoding:(ImageEditor menuColorAssignment)) startUp

    "

    <resource: #menu>

    ^