"

 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.

"

ImageView subclass:#ImageEditView

	instanceVariableNames:'magnification selectColors imageReaderClass resourceClass

		resourceSelector mouseKeyColorMode undoImages modified

		masterApplication editMode lastPastePoint imageInfoHolder

		activityInfoHolder pickedColorHolder'

	classVariableNames:'Clipboard LastMagnification ClipboardMagnification

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

!

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

    ^selectColors

!

selectColors: anArrayTwoColors

    selectColors := anArrayTwoColors

!

selectedColor

   ^selectColors at: mouseKeyColorMode

!

selectedColor: aColor

    selectColors at: mouseKeyColorMode put: aColor

!

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) + 2).

    self lineWidth:1.

!

drawFramesIn: aRectangle

    magnification >= GridMagnification

    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.

    ]

!

fillFramedRectangle: aRectangle

    self fillRectangle: aRectangle.

    self drawFramesIn: aRectangle

!

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

    |ih iw magX magY minX maxX minY maxY 

     color lastColor lastY runW x0 xI yI maskColor mask

     sizeOfMaskPoint|

    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|

        yy ~~ lastY

        ifTrue:

        [

            runW ~~ 0

            ifTrue:

            [

                |origin|

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

                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).

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

                maskColor ifTrue:

                [

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

                ].

                runW := 0.

            ].

            self paint: (lastColor := color).

            mask notNil ifTrue:

            [  

                maskColor := false.

                (mask colorAtX:xx y:yy) = Color black ifTrue:

                [

                    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).

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

        maskColor ifTrue:

        [

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

        ].

        runW := 0.

    ].

    "Modified: / 31.7.1998 / 02:33:42 / cg"

!

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

    |ih iw xI yI|

    image isNil ifTrue:[^self].

    magnification = (1@1) 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 := 'point')

!

editMode:aMode

    "this is concatenated with 'At:' to form the click-

     operation. I.e. any of 'point', 'box', 'filledBox' ..."

    editMode := aMode

    "Modified: / 29.7.1998 / 18:36:30 / cg"

!

mouseKeyColorMode

    ^mouseKeyColorMode printString

!

mouseKeyColorMode:aMode

    mouseKeyColorMode := aMode asInteger

! !

!ImageEditView methodsFor:'event handling'!

buttonMotion:state x:x y:y

    self drawCursorAt: x@y.

    state ~~ 0 ifTrue: [

        (self selectedColor notNil and: [(self imageContainsPoint: x@y) and: [editMode = 'point']])

            ifTrue: [^self pointAt: x@y]

    ] ifFalse:[

        (editMode = 'paste' or:[editMode = 'pasteUnder']) ifTrue: [

            (self selectedColor notNil and: [self imageContainsPastePoint: x@y]) 

                ifTrue:  [self drawPasteRectangleAt: x@y]

                ifFalse: [self cursor:Cursor stop. self releasePasteDrawing]

        ]

    ]

    "Modified: / 21.8.1998 / 20:16:01 / cg"

!

buttonPress:button x:x y:y

    self drawCursorAt: x@y.

    (self selectedColor notNil and: [self imageContainsPoint: x@y])

    ifTrue:

    [   

        |mouseButtonColorToolBar clr|

        self sensor shiftDown ifTrue:[

            pickedColorHolder notNil ifTrue:[

                "/ select the color under the cursor, place it into the

                "/ pickedColorHolder/

                clr := image colorAt:((x@y)//magnification).

                pickedColorHolder value:clr

            ].

        ] ifFalse:[

            "/ cg: what a kludge - please change to use a valueHolder,

            "/ which gets the information ...

            mouseKeyColorMode := button.

            mouseButtonColorToolBar := masterApplication builder componentAt: #MouseButtonColorToolBar.

            self makeUndo.

            masterApplication valueOfCanUndo value: true.

            (mouseButtonColorToolBar itemAt: mouseKeyColorMode) toggleIndication.

            mouseButtonColorToolBar do: [:i| i updateIndicators].

            self perform: (editMode, 'At:') asSymbol with: x@y

        ]

    ]

    "Modified: / 29.7.1998 / 18:39:05 / cg"

!

buttonRelease:button x:x y:y

    self drawCursorAt: x@y.

    (self selectedColor notNil and: [self imageContainsPoint: x@y])

    ifTrue:

    [   

        image restored.

        "/ cg: what a kludge - please change to use a valueHolder,

        "/ which gets the information ...

        masterApplication imagePreView invalidate

    ]

!

pointerLeave:state

    super pointerLeave: state.

    self updateImageInfo: self imageInfoString.

    self cursor:Cursor normal.

    (editMode = 'paste' or:[editMode = 'pasteUnder']) ifTrue: [self releasePasteDrawing]

    "Modified: / 29.7.1998 / 18:27:42 / cg"

! !

!ImageEditView methodsFor:'image - dragging & info'!

dragRectangleStartingAt: aPoint emphasis: emphasis

    "drag a rectangle (filled or unfilled)"

    |currentPoint currentExtent firstPoint lastCurrentPoint gridCorrection 

     mp lastMp p whichQuarter scrollX scrollY|

    firstPoint := currentPoint := lastCurrentPoint := aPoint//magnification*magnification.

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

    [device anyButtonPressed] whileTrue: [                                                  

        mp := self sensor mousePoint.

        mp = lastMp ifTrue:[

            Delay waitForSeconds:0.05

        ] ifFalse:[

            lastMp := mp.