"

 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

"

    Image Editor allows you 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: #leftMouseKeyIcon"

    |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: #leftMouseKeyIcon"

    ^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

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:ImageEditor    

    "

    <resource: #help>

    ^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:'image specs'!

leftMouseKeyIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ImageEditor leftMouseKeyIcon'

        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@JEE@@B!!QP@@(TT@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]!

rightMouseKeyIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ImageEditor rightMouseKeyIcon'

        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@EEJ@@AQR @@TT(@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]! !

!ImageEditor class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:ImageEditor andSelector:#windowSpec

     ImageEditor new openInterface:#windowSpec

     ImageEditor open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Image Editor'

              #layout: #(#LayoutFrame 188 0 318 0 687 0 663 0)

              #label: 'Image Editor'

              #min: #(#Point 400 320)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 188 318 688 664)

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

                                                            #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

                                                            #level: -1

                                                            #dataList: #listOfColors

                                                            #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

                                        #resizeForLabel: false

                                    )

                                     #(#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 resource specification was automatically generated

     by the UIPainter of ST/X."