"

 COPYRIGHT (c) 1997-1998 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-1998 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

"

! !

!ImageEditor class methodsFor:'instance creation'!

openModalOnClass: aClass andSelector: aSelector

    "opens modal a Image Editor on aClass and 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) 

    or:[aSelector asString ~= resourceSelector])

        ifTrue: [^resourceClassName, ' ', resourceSelector]

        ifFalse:[^nil]

!

openOnClass: aClass andSelector: aSelector

    "opens a Image Editor on aClass and aSelector"

    "

     self openOnClass: self andSelector: #leftMouseKeyIcon

    "

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

!

openOnFile: aFileName

    "opens a Image Editor on aFileName"

    "

     self openOnFile: 'bitmaps/SmalltalkX.xbm'

    "

    ^self open loadFromFile: aFileName

!

openOnImage: anImage

    "opens a Image Editor on anImage"

    "

     self openOnImage: Icon startIcon

    "

    ^self open loadFromImage: anImage

! !

!ImageEditor class methodsFor:'accessing'!

listOfColorMaps

    "returns the list of default color maps for a new image"

    |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 redByte: 127 greenByte:   0 blueByte:   0);

        add: (Color redByte:   0 greenByte: 127 blueByte:   0);

        add: (Color redByte:   0 greenByte:   0 blueByte: 127);

        add: (Color redByte:   0 greenByte: 127 blueByte: 127);

        add: (Color redByte: 127 greenByte: 127 blueByte:   0);

        add: (Color redByte: 127 greenByte:   0 blueByte: 127);

        add: (Color redByte: 127 greenByte: 127 blueByte: 127);

        add: (Color redByte: 170 greenByte: 170 blueByte: 170).

    0 to: 5 do:

    [:r|                                                    

        0 to: 5 do:         

        [:g|

            0 to: 5 do:                             

            [:b|

                colorMap add: (Color redByte: (r*255//5) ceiling greenByte: (g*255//5) ceiling blueByte: (b*255//5) ceiling)

            ]

        ]

    ].

    1 to: 25 do:

    [:g|                             

        colorMap add: (Color redByte: (g*255//26) ceiling greenByte: (g*255//26) ceiling blueByte: (g*255//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

    "returns the list of default sizes for a new image"

    ^#('22x22' '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'!

dialogSpecForNewImage

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

     ImageEditor new openInterface:#dialogSpecForNewImage

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'New Image'

              #layout: #(#LayoutFrame 240 0 278 0 540 0 382 0)

              #label: 'New Image'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 240 278 541 383)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'View'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#FramedBoxSpec

                              #name: 'framedBox1'

                              #layout: #(#LayoutFrame 1 0.0 7 0.0 0 0.4 66 0)

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#ComboBoxSpec

                                        #name: 'defaultSizesComboBox'

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

                                        #model: #selectionOfSize

                                        #type: #string

                                        #comboList: #listOfDefaultSizes

                                    )

                                  )

                              )

                              #label: 'Size'

                              #labelPosition: #topLeft

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

                          )

                           #(#FramedBoxSpec

                              #name: 'framedBox2'

                              #layout: #(#LayoutFrame 0 0.4 7 0.0 -1 1.0 66 0)

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#ComboListSpec

                                        #name: 'colorMapComboBox'

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

                                        #model: #selectionOfColorMap

                                        #comboList: #listOfColorMaps

                                        #useIndex: false

                                    )

                                  )

                              )

                              #label: 'Color Map'

                              #labelPosition: #topLeft

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

                          )

                        )

                    )

                    #level: 1

                )

                 #(#UISubSpecification

                    #name: 'UISubSpecification1'

                    #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForCommitWithoutChannels

                )

              )

          )

      )

!

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 167 0 330 0 666 0 675 0)

              #label: 'Image Editor'

              #min: #(#Point 400 320)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 167 330 667 676)

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

                                                                  #labelAlignment: #left

                                                                  #model: #rowRedByte