"

 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.

"

"{ Package: 'stx:libwidg2' }"

ImageView subclass:#ImageEditView

	instanceVariableNames:'magnification imageReaderClass resourceClass resourceSelector

		mouseKeyColorMode undoImages modified masterApplication editMode

		lastPastePoint imageInfoHolder activityInfoHolder

		pickedColorHolder drawingColors drawingPixels clickInfoCallBack'

	classVariableNames:'Clipboard LastMagnification ClipboardMagnification

		GridMagnificationLimit MaxUndos'

	poolDictionaries:''

	category:'Views-Misc'

!

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

"

    The ImageEditView is a view class which can be used by applications

    like the Image Editor for modifying or inspecting images.

    [see also:]

	ImageEditor Image

    [author:]

	Thomas Zwick

"

! !

!ImageEditView class methodsFor:'initialization'!

initialize

    MaxUndos := 5.

    GridMagnificationLimit := 8 @ 8.

    "

     self initialize

    "

! !

!ImageEditView class methodsFor:'accessing'!

gridMagnificationLimit

    ^ GridMagnificationLimit

!

gridMagnificationLimit:anInteger

    GridMagnificationLimit := anInteger

! !

!ImageEditView methodsFor:'accessing'!

activityInfoHolder

    "return the value of the instance variable 'activityInfoHolder' (automatically generated)"

    ^ activityInfoHolder

    "Created: / 29.7.1998 / 18:49:39 / cg"

!

activityInfoHolder:something

    "set the value of the instance variable 'activityInfoHolder' (automatically generated)"

    activityInfoHolder := something.

    "Created: / 29.7.1998 / 18:49:39 / cg"

!

clickInfoCallBack:aTwoArgBlock

     clickInfoCallBack := aTwoArgBlock

    "Created: / 10.2.2000 / 23:07:14 / cg"

!

clickInfoHolder:aValueHolderOrBlock

     clickInfoHolder := aValueHolderOrBlock

    "Created: / 10.2.2000 / 23:05:34 / cg"

!

imageInfoHolder

    "return the value of the instance variable 'imageInfoHolder' (automatically generated)"

    ^ imageInfoHolder

    "Created: / 29.7.1998 / 18:29:50 / cg"

!

imageInfoHolder:something

    "set the value of the instance variable 'imageInfoHolder' (automatically generated)"

    imageInfoHolder := something.

    "Created: / 29.7.1998 / 18:29:50 / cg"

!

magnification

    ^magnification

!

magnification: aPoint

    |oldOrg|

    magnification ~= aPoint

    ifTrue:

    [

	oldOrg := self viewOrigin / magnification.

	magnification := aPoint asPoint.

	self scrollTo:(oldOrg * magnification) rounded redraw:false.        

"/        self scrollToTopLeft.

	self contentsChanged.

	self invalidate.

	ClipboardMagnification := nil.

    ]

    "Modified: / 31.7.1998 / 02:38:47 / cg"

!

masterApplication

    ^masterApplication

!

masterApplication: anApplicationModel

    masterApplication := anApplicationModel

!

resourceClass

    ^resourceClass

!

resourceClass: aClassOrSymbol

    resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol asSymbol]

!

resourceMessage

    ^resourceClass, ' ', resourceSelector

!

resourceMessage: aString

    (aString isString and: [aString trimBlanks size > 0])

    ifTrue:

    [

	resourceClass := (aString readStream upTo: Character space) asSymbol.

	resourceSelector := (aString copy reverse readStream upTo: Character space) reverse asSymbol

    ]

    ifFalse:

    [

	^nil

    ]

!

resourceSelector

    ^resourceSelector

!

resourceSelector: aStringOrSymbol

    resourceSelector := aStringOrSymbol asSymbol

!

selectColors

    ^drawingColors

!

selectColors: anArrayTwoColors

    drawingColors := anArrayTwoColors

!

selectedColor

   ^drawingColors at: mouseKeyColorMode

!

selectedColor: aColor

    drawingColors at: mouseKeyColorMode put: aColor

!

selectedColorIndex

   ^ drawingPixels at: mouseKeyColorMode

!

selectedColorIndex: aPixelIndex

    drawingPixels at: mouseKeyColorMode put: aPixelIndex

!

undoImages

   ^undoImages

! !

!ImageEditView methodsFor:'drawing'!

drawFrame

    self paint:Color black.

    self lineWidth: (magnification x//3 min: 3).

    self displayRectangle: ((0@0) extent:(image extent * magnification) + margin).

    self lineWidth:1.

!

drawFramesIn: aRectangle

    magnification >= GridMagnificationLimit

    ifTrue:

    [   

        |origin lineStartingPoint lineEndingPoint oldColor|

        origin := aRectangle origin - 1.

        lineStartingPoint := origin + (0@magnification y).

        lineEndingPoint   := lineStartingPoint + (aRectangle width@0).

        oldColor := self paint.

        self xoring:

        [

            self displayLineFrom: lineStartingPoint to: lineEndingPoint.

            lineStartingPoint x to: lineStartingPoint x + aRectangle width - magnification x by: magnification x do:

            [:x|   

                self displayLineFrom: x@(origin y) to: x@(origin y + magnification y)

            ].

        ].

        self paint: oldColor.

    ]

!

drawPasteRectangleAt: aPoint

    |currentPoint gridCorrection extent org|

    magnification >= GridMagnificationLimit ifFalse: [gridCorrection := 0] ifTrue: [gridCorrection := 1].

    currentPoint := aPoint // magnification*magnification + margin. 

    currentPoint ~= lastPastePoint ifTrue:[              

        ClipboardMagnification isNil ifTrue:[

            ClipboardMagnification := (Clipboard magnifiedBy: magnification) onDevice: device

        ].   

        extent       := ClipboardMagnification extent.

        currentPoint := currentPoint - self viewOrigin.

        self redraw: ((lastPastePoint ? currentPoint) extent: extent).

        (extent x > 200 or: [extent y > 200]) ifTrue:[

            self xoring: [

                self fillRectangle: (currentPoint extent: extent)

            ]   

        ] ifFalse:[

            self displayDeviceForm: ClipboardMagnification x: currentPoint x y: currentPoint y.

            editMode == #pasteUnder ifTrue:[

                self redrawImageX:currentPoint x y:currentPoint y width:extent x height:extent y unmaskedOnly:true

            ]

        ]  

    ]. 

    lastPastePoint := currentPoint.

    "Modified: / 18.5.1999 / 20:23:33 / cg"

!

fillFramedRectangle: aRectangle

    self fillRectangle: aRectangle.

    self drawFramesIn: aRectangle

!

redraw:aRectangle

    super redraw:(aRectangle origin + self viewOrigin extent:aRectangle extent). 

!

redrawImageX:x y:y width:w height:h

    self redrawImageX:x y:y width:w height:h unmaskedOnly:false

    "Modified: / 18.5.1999 / 20:14:03 / cg"

!

redrawImageX:x y:y width:w height:h unmaskedOnly:unmaskedOnly

    |ih iw magX magY minX maxX minY maxY 

     color lastColor lastY runW x0 xI yI maskColor mask

     sizeOfMaskPoint useNearestColor|

    useNearestColor := device visualType == #PseudoColor.

    mask := image mask.

    ih := image height.

    iw := image width.

    magX := magnification x.

    magY := magnification y.

    minX := (x // magX - 1) max: 0.

    minX >= iw ifTrue:[minX := (iw - 1) max: 0].

    minY := (y // magY - 1) max: 0.

    minY >= ih ifTrue:[minY := (ih - 1) max: 0].

    maxX := (x + w) // magX + 1.

    maxX > iw ifTrue:[maxX := iw].

    maxY := (y + h) // magY + 1.

    maxY > ih ifTrue:[maxY := ih].

    lastY := -1.

    x0 := minX.

    runW := 0.

    maskColor := false.

    sizeOfMaskPoint := magnification//3.

    image 

        colorsFromX:minX y:minY toX:maxX-1 y:maxY-1 

        do:[:xx :yy :color|

            shown ifFalse:[^ self].

            yy ~~ lastY ifTrue:[

                runW ~~ 0 ifTrue:[

                    |origin|

                    origin := (x0 * magX + margin)@(lastY * magY + margin).

                    (unmaskedOnly not or:[maskColor not]) ifTrue:[

                        self fillFramedRectangle: (origin extent: (runW@magY)).                    

                        maskColor ifTrue:[

                            self xoring: [self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)]

                        ]

                    ].

                    runW := 0.

                ]. 

                x0 := xx.

                lastY := yy.

            ]. 

            color ~= lastColor ifTrue:[

                runW ~~ 0 ifTrue:[

                    |origin|

                    origin := (x0 * magX + margin)@(yy * magY + margin).

                    (unmaskedOnly not or:[maskColor not]) ifTrue:[

                        self fillFramedRectangle: (origin extent: (runW@magY)).

                        maskColor ifTrue:[

                            self xoring: [self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)]

                        ].

                    ].

                    runW := 0.

                ].

                lastColor := color.

                useNearestColor ifTrue:[

                    lastColor := lastColor nearestOn:device

                ].

                self paint:lastColor.

                mask notNil ifTrue:[  

                    maskColor := false.

                    (mask pixelAtX:xx y:yy) == 0 ifTrue:[

                        unmaskedOnly ifFalse:[

                            self paint: (lastColor := self viewBackground).

                        ].

                        maskColor := true.

                    ].

                    lastColor := nil.

                ].

                runW := 0.

                x0 := xx.

            ].  

            runW := runW + magX

        ].

    runW ~~ 0 ifTrue:[

        |origin|

        origin := (x0 * magX + margin)@(lastY * magY + margin).

        (unmaskedOnly not or:[maskColor not]) ifTrue:[

            self fillFramedRectangle: (origin extent: runW@magY).

            maskColor ifTrue:[

                self xoring:[

                    self fillRectangle: (origin + sizeOfMaskPoint extent: sizeOfMaskPoint)

                ]

            ].

        ]

    ].

    "Created: / 18.5.1999 / 20:13:39 / cg"

    "Modified: / 18.5.1999 / 20:36:20 / cg"

!

redrawX:x y:y width:w height:h

    |ih iw xI yI devImage|

    image isNil ifTrue:[^self].

    magnification = (1@1) ifTrue: [

        Object errorSignal handle:[:ex |

            Transcript showCR:'cannot convert image'.

        ] do:[

            devImage := image onDevice:device.

            devImage ~~ image ifTrue:[

                image := devImage.

            ].

        ].

        image device == device ifTrue:[

            ^ super redrawX:x y:y width:w height:h

        ].

    ].

    self clippingRectangle: (x@y extent:w@h).

    self redrawImageX:x y:y width:w height:h.

    "/ right of image ?

    adjust == #center ifTrue:

    [

        xI := (width - ih) // 2 - margin.

        yI := (height - iw) // 2 - margin.

    ]

    ifFalse:

    [

        xI := yI := margin

    ].

    (x + w - 1) > (xI + (magnification x * image width)) ifTrue:

    [

        self clearRectangleX:(xI + (magnification x * image width))

                           y:y

                       width:(x + w - (magnification x * image width) - xI)

                      height:h

    ].

    (y + h - 1) > (yI + (magnification y * image height)) ifTrue:

    [

        self clearRectangleX:margin

                           y:(yI + (magnification y * image height))

                       width:w

                      height:(y + h - (magnification y * image height) - yI)  

    ].

    self drawFrame.

    self clippingRectangle: nil.

    "Modified: / 31.7.1998 / 02:22:45 / cg"

! !

!ImageEditView methodsFor:'edit modes'!

editMode

    ^editMode

!

editMode: anEditMode