'From Smalltalk/X, Version:3.1.4 on 25-feb-1997 at 2:17:24 pm'                  !

ObjectView subclass:#UIObjectView

	instanceVariableNames:'inputView testMode undoHistory copiedExtent actionData

		createClass clipChildren'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#UndoHistory

	instanceVariableNames:'history transaction enabled'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIObjectView

!

!UIObjectView class methodsFor:'defaults'!

defaultGrid

    ^ 4 @ 4

!

gridShown

    ^ false

!

handleSize

    "size of blob drawn for handles"

    ^ 4

!

hitDelta

    ^ 4

! !

!UIObjectView methodsFor:'accessing'!

gridAlign

    ^ aligning

!

gridAlign:aBool

    aBool ifTrue:[self alignOn]

         ifFalse:[self alignOff]

!

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)

!

gridShown:aBool

    aBool ifTrue:[self showGrid]

         ifFalse:[self hideGrid]

!

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:'blocked'!

addObject:anObject

    "add the argument, anObject to the contents - with redraw"

    self halt

!

addObjectWithoutRedraw:anObject

    "add the argument, anObject to the contents - with redraw"

    self halt

! !

!UIObjectView methodsFor:'event handling'!

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.

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

!

keyPress:key x:x y:y

    <resource: #keyboard ( #InspectIt #Delete #BackSpace #Cut) >

    key == #InspectIt ifTrue:[

        ^ self inspectSelection

    ].

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

        ^ self deleteSelection

    ].

    super keyPress:key x:x y:y

!

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.

    self setDefaultActions.

    undoHistory  := UndoHistory new.

    testMode     := false.

    clipChildren := true.

    (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

    |wasClipped delta|

    (wasClipped := clipChildren) ifTrue:[

        self clippedByChildren:(clipChildren := false).

    ].

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

    self xoring:[

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

    ].

    wasClipped ifTrue:[

        self clippedByChildren:(clipChildren := true).

    ].

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

!

setDefaultActions

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

    shiftPressAction := [:pressPoint | self startSelectMoreOrMove:pressPoint].

    motionAction     := [:movePoint  | nil].

    releaseAction    := [nil].

    keyPressAction   := nil.

    self cursor:Cursor normal.

!

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

XXstartCreate:aPoint

    "start a widget create

    "

    |widget object start frame delta|

    (createClass isNil or:[self numberOfSelections > 1]) ifTrue:[

        self unselect.

      ^ self setDefaultActions.

    ].

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

    releaseAction := [ self endCreate].

    widget := self singleSelection.

    (     widget notNil

     and:[(self isPoint:aPoint containedIn:widget)

     and:[self supportsSubComponents:widget]]

    ) ifFalse:[

        self unselect.

        widget := self.

    ].

    object := createClass new.

    widget addSubView:object.

    start := self alignToGrid:aPoint.

    delta := widget originRelativeTo:self.

    frame := Rectangle origin:(start - delta) corner:start.

    object origin:(frame origin).

    self setupCreatedObject:object.

    object realize.

    self actionCreate:object frame:frame delta:delta.

    self invertOutlineOf:object.

!

actionCreate:anObject frame:aFrame delta:aDelta

    "create and initialize action data

    "

    |extent x y selectors values|

"minimum extent

"

    extent := self extent.

    x := extent x // 3.

    y := extent y // 3.

    extent := anObject preferredExtent.

    (extent x > x) ifTrue:[extent x:x].

    (extent y > y) ifTrue:[extent y:y].

"setup structure

"

    selectors := #( object frame delta vertical horizontal minExtent ).

    values    := Array new:(selectors size).

    values at:1 put:anObject.

    values at:2 put:aFrame.

    values at:3 put:aDelta.

    values at:4 put:(self isVerticalResizable:anObject).

    values at:5 put:(self isHorizontalResizable:anObject).

    values at:6 put:extent.

    actionData := Structure newWith:selectors values:values.

"can change cursor dependent on vertical/horizontal resizing

"

    oldCursor := cursor.

    self cursor:(Cursor leftHand).

!

createWidgetWithClass:aClass

    "prepare to create new widgets

    "

    createClass := aClass.

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

    self cursor:Cursor origin.

!

doDragCreate:aPoint

    "do a widget create drag

    "

    |frame object extent minimum|

    frame   := actionData frame.

    frame corner:((self alignToGrid:aPoint) - (actionData delta)).

    object  := actionData object.

    minimum := actionData minExtent.

    extent  := frame extent.

    ((extent x < minimum x) or:[actionData horizontal not]) ifTrue:[

        extent x:(minimum x)

    ].

    ((extent y < minimum y) or:[actionData vertical not]) ifTrue:[

        extent y:(minimum y)

    ].

    frame extent:extent.

    self invertOutlineOf:object.

    object origin:(frame origin) extent:(frame extent).

    self invertOutlineOf:object.

!

endCreate

    "end a widget create drag

    "

    |layout x y object|

    object := actionData object.

    self invertOutlineOf:object.

    inputView raise.

    object superView specClass basicNew setupInitialLayoutFor:object.

    self changed:#tree.

    self select:object.

    actionData := nil.

    self setDefaultActions.

!

setupCreatedObject:anObject

    self subclassResponsibility

!

startCreate:aPoint

    "start a widget create

    "

    |widget object start frame delta|

    (createClass isNil or:[self numberOfSelections > 1]) ifTrue:[

        self unselect.

      ^ self setDefaultActions.

    ].

    (widget := self singleSelection) notNil ifTrue:[

        self unselect.

        (self isPoint:aPoint containedIn:widget) ifFalse:[

            widget := self

        ] ifTrue:[

            (self supportsSubComponents:widget) ifFalse:[

                ^ self setDefaultActions.

            ]

        ]

    ] ifFalse:[

        widget := self

    ].

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

    releaseAction := [ self endCreate].

    object := createClass new.

    widget addSubView:object.

    start := self alignToGrid:aPoint.

    delta := widget originRelativeTo:self.

    frame := Rectangle origin:(start - delta) corner:start.

    object origin:(frame origin).

    self setupCreatedObject:object.

    object realize.