"

 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.

"

"{ Package: 'stx:libtool2' }"

ToolApplicationModel subclass:#ImageEditor

	instanceVariableNames:'imageEditView colorMapMode editMode mouseKeyColorMode

		selectedColorIndex postOpenAction imageSeqNr'

	classVariableNames:'LastDirectory MaskClipboard'

	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:Icon andSelector:#startIcon

    [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].      

    aClass isNil    ifTrue: [className := ''].      

    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

    "

    |editor|

    editor := self new.

    editor allButOpen.

    aSelector notNil ifTrue:[

        editor loadFromMessage: aClass name, ' ', aSelector.

    ] ifFalse:[

        editor resourceClass:aClass

    ].

    editor openWindow

    "Modified: / 16.3.1999 / 21:33:49 / cg"

!

openOnFile: aFileName

    "opens a Image Editor on aFileName"

    "

     self openOnFile: 'bitmaps/SmalltalkX.xbm'

    "

    |editor|

    editor := self new.

    editor allButOpen.

    editor loadFromFile: aFileName.

    editor openWindow

    "Modified: / 16.3.1999 / 21:33:25 / cg"

!

openOnImage: anImage

    "opens a Image Editor on anImage"

    "

     self openOnImage: Icon startIcon

    "

    |editor|

    editor := self new.

    editor allButOpen.

    editor loadFromImage: anImage.

    editor openWindow

    "Modified: / 11.3.1999 / 16:18:33 / cg"

! !

!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"

    ^#('8x8' '16x16' '22x22' '32x32' '48x48' '64x64')

    "Modified: / 31.7.1998 / 01:57:34 / cg"

! !

!ImageEditor class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^super flyByHelpSpec addPairsFrom:#(

#drawModeBox

'Rectangle'

#drawModeCopy

'Copy'

#drawModeFill

'Flood-fill'

#drawModeFilledBox

'Fill Rectangle'

#drawModePaste

'Paste'

#drawModePasteUnder

'Paste under'

#drawModePoint

'Point'

#fileGrabImage

'Pick from screen.'

#fileLoadFromClass

'Load from Method'

#fileLoadFromFile

'Load from File.'

#fileNewImage

'New image'

#filePrint

'Print'

#fileSaveAs

'Save to file.'

#fileSaveMaskAs

'Save to file.'

#fileSaveMethod

'Save as method'

#fileSaveMethodAs

'Save as method'

)

!

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

'ColorMap functions.'

#colorMap1

'Convert to depth-1 image.'

#colorMap1M

'Convert to depth-1 image plus mask.'

#colorMap2

'Convert to depth-2 image.'

#colorMap2M

'Convert to depth-2 image plus mask.'

#colorMap4

'Convert to depth-4 image.'

#colorMap4M

'Convert to depth-4 image plus mask.'

#colorMap8

'Convert to depth-8 image.'

#colorMap8M

'Convert to depth-8 image plus mask.'

#colorMapTable

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

#compressColormap

'Remove unneeded entries from the colorMap.'

#cropAll

'Find and remove all borders.'

#cropBottom

'Find and remove bottom border.'

#cropLeft

'Find and remove left border.'

#cropManual

'Specify border(s) to remove.'

#cropRight

'Find and remove right border.'

#cropTop

'Find and remove top border.'

#drawModeBox

'Switches to box-drawing mode.'

#drawModeCopy

'Switches to area-copy mode.'

#drawModeFill

'Switches to flood-fill mode.'

#drawModeFilledBox

'Switches to filled-box drawing mode.'

#drawModePaste

'Switches to paste mode.'

#drawModePasteUnder

'Switches to paste under mode.'

#drawModePoint

'Switches to point-drawing mode.'

#editFlipHorizontal

'Flips the image horizontally.'

#editFlipVertical

'Flips the image vertically.'

#editMagnifyImage

'Magnify the image.'

#editNegate

'Invert the images colors.'

#editResize

'Resize the image (preserving the old image).'

#editRotate

'Rotate the image.'

#fileGrabImage

'Pick an image from the screen.'

#fileLoadFromClass

'Select and load an image from a resource method.'

#fileLoadFromFile

'Select and load an image from a file.'

#fileNewImage

'Create a new image'

#filePrint

'Print the image on a postscript printer.'

#fileSaveAs

'Save the image to a file.'

#fileSaveMaskAs

'Save the mask of the image to a file.'

#fileSaveButtonImageAs

'Save an image of a button with the image to a file (for html use).'

#fileSaveMethod

'Save the image as resource method in the current class and selector.'

#fileSaveMethodAs

'Save the image as resource method in a class.'

#magnificationNumber

'Shows the current magnification.'

#magnifyImageDown

'Decrease magnification.'

#magnifyImageUp

'Increase magnification.'

#mouseKeyColorMode

'Toggles between left and right mouse button color.'

#previewView

'Shows a preview of the image.'

#settingsGridMagnification

'Change the grid magnification of the edit view.'

)

    "Modified: / 7.9.1998 / 18:20:26 / cg"

! !

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

    "

     self leftMouseKeyIcon inspect

     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:'@@@@@@@@@@@@@@@@@EJJ@@AR" @@T((@@@@@@@B** @@**(@@J**@@B** @@**(@@J**@@@**@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; 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."

    "

     self rightMouseKeyIcon inspect

     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:'@@@@@@@@@@@@@@@@@JJE@@B"!!P@@((T@@@@@@@B** @@**(@@J**@@B** @@**(@@J**@@@**@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; 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 81 0 288 0 381 0 406 0)

              #label: 'New Image'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 81 288 382 407)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'View'

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

                    #component: 

                     #(#SpecCollection