ObjectView subclass:#UIObjectView

	instanceVariableNames:'inputView testMode undoHistory copiedExtent resizedObject

		resizeSelector createInWidget createFrame createdObject

		createClass'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!UIObjectView class methodsFor:'defaults'!

defaultGrid

    ^ 4 @ 4

!

gridShown

    ^ false

!

handleSize

    "size of blob drawn for handles"

    ^ 4

!

hitDelta

    ^ 4

! !

!UIObjectView methodsFor:'accessing'!

gridParameters

    "used by defineGrid, and in a separate method for

     easier redefinition in subclasses. 

     Returns the grid parameters in an array of 7 elements,

     which control the appearance of the grid-pattern.

     the elements are:

        bigStepH        number of pixels horizontally between 2 major steps

        bigStepV        number of pixels vertically between 2 major steps

        littleStepH     number of pixels horizontally between 2 minor steps

        littleStepV     number of pixels vertically between 2 minor steps

        gridAlignH      number of pixels for horizontal grid align (pointer snap)

        gridAlignV      number of pixels for vertical grid align (pointer snap)

        docBounds       true, if document boundary should be shown

     if littleStepH/V are nil, only bigSteps are drawn.

    "

    ^ #(10 10 nil nil 10 10 false)

!

hideGrid

    gridShown ifTrue:[

        self withSelectionHiddenDo:[

            super hideGrid

        ]

    ]

!

showGrid

    self withSelectionHiddenDo:[

        super showGrid

    ]

    "Modified: 5.9.1995 / 12:47:46 / claus"

!

testMode

    "returns testMode

    "

    ^ testMode

!

testMode:aBoolean

    "change testMode

    "

    (aBoolean == testMode) ifFalse:[

        testMode := aBoolean.

        testMode ifTrue:[

            self unselect.

            inputView unrealize

        ] ifFalse:[

            inputView raise.

            inputView realize

        ]

    ]

! !

!UIObjectView methodsFor:'cut & paste'!

convertForPaste:something

    Transcript showCR:'convertForPaste'.

    ^ nil

!

deleteSelection

    "delete the selection

    "

    undoHistory transactionNamed:'delete' do:[

        super deleteSelection

    ].

! !

!UIObjectView methodsFor:'dragging object move'!

doObjectMove:aPoint

    "move selection

    "

    selection isCollection ifTrue:[^ self].

    movedObject isNil ifTrue:[

        (movedObject := selection) isNil ifTrue:[

            ^ self

        ].

        super unselect.

        moveDelta := aPoint - movedObject computeOrigin.

        self invertOutlineOf:movedObject

    ].

    self moveObject:movedObject to:(aPoint - moveDelta)

!

endObjectMove

    "cleanup after object move"

    movedObject notNil ifTrue:[

        self invertOutlineOf:movedObject.

        self setDefaultActions.

        self select:movedObject.

        movedObject := nil

    ].

    "Modified: 5.9.1995 / 12:20:31 / claus"

!

startObjectMove:aView at:aPoint

    super startObjectMove:aView at:aPoint.

    aView notNil ifTrue:[

        undoHistory transactionNamed:'move' do:[

            self undoBlockPositionChanged:aView

        ]

    ]

!

startSelectMoreOrMove:aPoint

    "add/remove to/from selection"

    |anObject|

    testMode ifTrue:[^ self].

    anObject := self findObjectAtVisible:aPoint.

    anObject notNil ifTrue:[

        (self isSelected:anObject) ifTrue:[

            self removeFromSelection:anObject

        ] ifFalse:[

            self addToSelection:anObject

        ]

    ]

!

startSelectOrMove:aPoint

    "a button is pressed at a point

    "

    |anObject b|

    testMode ifTrue:[^ self].

    "if there is one selection and point hits handle, start a resize

    "

    self singleSelection notNil ifTrue:[

        b := self whichHandleOf:selection isHitBy:aPoint.

        (b notNil and:[b ~~ #view]) ifTrue:[

            ^ self startResizeBorder:b of:selection at:aPoint.

        ]

    ].

    anObject := self findObjectAtVisible:aPoint.

    "nothing is selected

    "

    anObject isNil ifTrue:[

        ^ self unselect

    ].

    "object not in selection; clear selection and add anObject to selection

    "

    (self isSelected:anObject) ifFalse:[

        super unselect.

        self select:anObject.

    ] ifTrue:[

        selection isCollection ifTrue:[

            ^ self removeFromSelection:anObject.

        ]

    ].

    "prepare move operation for an object

    "

    motionAction := [:movePoint|

        (aPoint dist:movePoint) > 2.0 ifTrue:[

            self startObjectMove:anObject at:aPoint

        ]

    ].

    releaseAction := [self setDefaultActions].

! !

!UIObjectView methodsFor:'event handling'!

doKeyInput:key

    ^ self

!

elementChanged:aView 

    "some element has been changed - kludge to force a resizing

     operation (for child layout recomputation) in its superView"

    aView superView sizeChanged:nil.

    self changed:#any.

!

elementChangedLayout:aView 

    "some element has been changed - kludge to force a resizing

     operation (for child layout recomputation) in its superView"

    aView superView sizeChanged:nil.

    self changed:#layout.

!

exposeX:x y:y width:w height:h

    "handle an expose event from device; redraw selection

    "

    super exposeX:x y:y width:w height:h.

    selection notNil ifTrue:[

        self selectionDo:[:v | self showSelected:v]

    ]

!

keyPress:key x:x y:y

    key == #InspectIt ifTrue:[

        ^ self inspectSelection

    ].

    (key == #Delete or:[key == #BackSpace]) ifTrue: [

        selection notNil ifTrue:[

            self deleteSelection

        ]

    ] ifFalse:[

        keyPressAction notNil ifTrue:[

            keyPressAction value:key

        ]

    ]

!

processEvent:anEvent

    "catch expose events for components, and redraw its handles after

     the redraw when this happens

    "

    |view|

    selection notNil ifTrue:[

        anEvent type == #damage ifTrue:[

            view := anEvent view.

            (selection == view

            or:[selection isCollection

                and:[selection includes:view]]) ifTrue:[

                    self showSelected:view

            ]

        ]

    ].

    ^ false.

!

sizeChanged:how

    self withSelectionHiddenDo:[

        super sizeChanged:how

    ]

! !

!UIObjectView methodsFor:'initialization'!

initialize

    super initialize.

    "funny: since I do not want the created widgets to get pointer

     events, I put an InputView on top of them, which catches those events

     and passes them back to me - have to take care, that this inputView

     is always on top

    "

    inputView := InputView origin:0.0@0.0 extent:1.0@1.0 in:self.

    inputView eventReceiver:self.

    inputView enableButtonEvents.

    inputView enableButtonMotionEvents.

    undoHistory := UndoHistory new.

    undoHistory modifiedAction:[:what|

        self changed:#undoHistory with:what

    ].

    testMode := false.

    (self class gridShown) ifTrue:[

        super showGrid

    ].

!

realize

    super realize.

    self windowGroup postEventHook:self

! !

!UIObjectView methodsFor:'misc'!

cursor:aCursor

    inputView realized ifTrue:[

        inputView cursor:aCursor

    ].

    super cursor:aCursor

!

invertOutlineOf:anObject

    |delta|

    self clippedByChildren:false.

    delta := (anObject originRelativeTo:self) - anObject origin.

    self xoring:[

        self displayRectangle:((anObject origin + delta) extent:anObject extent).

    ].

    self clippedByChildren:true.

    "Modified: 5.9.1995 / 12:25:25 / claus"

!

showDragging:something offset:anOffset

    "drag around a View"

    |top|

    self forEach:something do:[:anObject |

        self drawRectangle:((anObject origin + anOffset) extent:(anObject extent))

    ]

! !

!UIObjectView methodsFor:'object creation'!

doDragCreate:aPoint

    "do a widget create drag

    "

    |p|

    p := self alignToGrid:aPoint.

    createFrame corner:(p - (createInWidget originRelativeTo:self)).

    (createFrame extent x < 10) ifTrue:[

        createFrame extent x:10

    ].

    (createFrame extent y < 10) ifTrue:[

        createFrame extent y:10

    ].

    self invertOutlineOf:createdObject.

    createdObject origin:(createFrame origin) extent:(createFrame extent).

    self invertOutlineOf:createdObject.

!

endCreate

    "end a widget create drag

    "

    self invertOutlineOf:createdObject.

    self cursor:oldCursor.

    inputView raise.

    createdObject geometryLayout:(createdObject bounds asLayout).

    self changed:#tree.

    self select:createdObject.

    createdObject := nil.

    pressAction   := [:pressPoint | self startSelectOrMove:pressPoint].

    motionAction  := [:movePoint | true].

    releaseAction := [ true ].

    self cursor:Cursor normal.

!

initializeCreatedObject:anObject

    self subclassResponsibility

!

startCreate:aPoint

    "start a widget create

    "

    |props index startPoint|

    createClass isNil ifTrue:[

        ^ self

    ].

    startPoint    := self alignToGrid:aPoint.

    motionAction  := [:movePoint | self doDragCreate:movePoint].

    releaseAction := [self endCreate].

    (selection isNil or:[selection isKindOf:Collection]) ifTrue:[

        createInWidget := self findObjectIn:self at:aPoint

    ] ifFalse:[

        createInWidget := self findObjectIn:selection at:aPoint

    ].

    super unselect.

    self select:createInWidget.

    oldCursor := cursor.

    self cursor:(Cursor leftHand).

    createInWidget isNil ifTrue:[

        createdObject  := createClass in:self.

        createInWidget := self.

    ] ifFalse:[

        createdObject := createClass new.

        createInWidget addSubView:createdObject.

    ].

    createFrame := Rectangle origin:(startPoint - (createInWidget originRelativeTo:self))

                             corner:startPoint.

    createdObject origin:(createFrame origin).

    undoHistory transactionNamed:'create' do:[

        self initializeCreatedObject:createdObject.

    ].

    createdObject realize.

    self invertOutlineOf:createdObject.

! !

!UIObjectView methodsFor:'private handles'!

handlesOf:aComponent do:aBlock

    |delta layout vertical horizontal|

    layout := aComponent geometryLayout.

    delta  := (aComponent originRelativeTo:self) - aComponent origin.

    (layout isLayout not or:[layout isLayoutFrame]) ifTrue:[

        vertical   := self isVerticalResizable:aComponent.

        horizontal := self isHorizontalResizable:aComponent.

    ] ifFalse:[

        vertical   := false.

        horizontal := false.

    ].

    horizontal ifTrue:[

        aBlock value:(aComponent leftCenter   + delta) value:#left.

        aBlock value:(aComponent rightCenter  + delta) value:#right.

    ].

    vertical ifTrue:[

        aBlock value:(aComponent topCenter    + delta) value:#top.

        aBlock value:(aComponent bottomCenter + delta) value:#bottom.

    ].

    (horizontal and:[vertical]) ifTrue:[

        aBlock value:(aComponent origin     + delta) value:#origin.

        aBlock value:(aComponent corner     + delta) value:#corner.

        aBlock value:(aComponent topRight   + delta) value:#topRight.

        aBlock value:(aComponent bottomLeft + delta) value:#bottomLeft.

    ] ifFalse:[

        aBlock value:(aComponent origin     + delta) value:#view.

        aBlock value:(aComponent corner     + delta) value:#view.

        aBlock value:(aComponent topRight   + delta) value:#view.

        aBlock value:(aComponent bottomLeft + delta) value:#view.

    ].