--- a/UIObjectView.st Sat Feb 15 19:15:25 1997 +0100
+++ b/UIObjectView.st Sat Feb 15 19:19:32 1997 +0100
@@ -1,15 +1,1559 @@
+ObjectView subclass:#UIObjectView
+ instanceVariableNames:'inputView testMode undoHistory copiedExtent resizedObject
+ resizeSelector createInWidget createFrame createdObject
+ createClass clipChildren'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-UIPainter'
+!
+
Object subclass:#UndoHistory
- instanceVariableNames:'history transaction enabled modifiedAction'
- classVariableNames:''
- poolDictionaries:''
- privateIn:UIObjectView
+ instanceVariableNames:'history transaction enabled modifiedAction'
+ 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'!
+
+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:'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.
+
+ self setDefaultActions.
+
+ undoHistory := UndoHistory new.
+
+ undoHistory modifiedAction:[:what|
+ self changed:#undoHistory with:what
+ ].
+
+ 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 := [:key | self doKeyInput:key].
+
+ 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'!
+
+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
+ "
+ |layout x y|
+
+ self invertOutlineOf:createdObject.
+ inputView raise.
+
+ layout := createdObject bounds asLayout.
+ createdObject geometryLayout:layout.
+
+ self changed:#tree.
+ self select:createdObject.
+ createdObject := nil.
+
+ self setDefaultActions.
+
+!
+
+setupCreatedObject:anObject
+ self subclassResponsibility
+!
+
+startCreate:aPoint
+ "start a widget create
+ "
+ |startPoint|
+
+ createClass isNil ifTrue:[
+ ^ self setDefaultActions
+ ].
+ (selection isKindOf:Collection) ifTrue:[
+ self unselect.
+ ^ self setDefaultActions.
+ ].
+
+ startPoint := self alignToGrid:aPoint.
+ motionAction := [:movePoint| self doDragCreate:movePoint].
+ releaseAction := [ self endCreate].
+
+ selection notNil ifTrue:[
+ ( (self isPoint:aPoint containedIn:selection)
+ and:[selection specClass basicNew supportsSubComponents]
+ ) ifFalse:[
+ self unselect
+ ]
+ ].
+
+ oldCursor := cursor.
+ self cursor:(Cursor leftHand).
+
+ createInWidget := selection ? self.
+ createdObject := createClass new.
+ createInWidget addSubView:createdObject.
+
+ createFrame := Rectangle origin:(startPoint - (createInWidget originRelativeTo:self))
+ corner:startPoint.
+
+ createdObject origin:(createFrame origin).
+
+ undoHistory transactionNamed:'create' do:[
+ self setupCreatedObject:createdObject.
+ ].
+ createdObject realize.
+ self invertOutlineOf:createdObject.
+! !
+
+!UIObjectView methodsFor:'object moving'!
+
+doObjectMove:aPoint
+ "move selection
+ "
+ movedObject notNil ifTrue:[
+ movedObject keysAndValuesDo:[:nr :aView|
+ self invertOutlineOf:aView.
+ self moveObject:aView to:(aPoint - (moveDelta at:nr)).
+ self invertOutlineOf:aView.
+ ]
+ ]
+
+!
+
+endObjectMove
+ "cleanup after object move"
+
+ movedObject notNil ifTrue:[
+ movedObject do:[:aView|
+ self invertOutlineOf:aView
+ ].
+
+ movedObject do:[:aView|
+ self showSelected:aView
+ ].
+ movedObject size == 1 ifTrue:[
+ selection := movedObject at:1
+ ] ifFalse:[
+ selection := movedObject
+ ].
+
+ movedObject := nil.
+ self setDefaultActions.
+ self changed:#layout.
+ ].
+!
+
+startObjectMoveAt:aPoint
+
+ self startObjectMove:selection at:aPoint.
+
+ selection size == 0 ifTrue:[
+ movedObject := Array with:selection
+ ] ifFalse:[
+ movedObject := selection
+ ].
+ super unselect.
+
+ moveDelta := movedObject collect:[:aView|
+ aPoint - aView computeOrigin
+ ].
+
+ undoHistory transactionNamed:'move' do:[
+ movedObject do:[:aView|
+ self invertOutlineOf:aView.
+ self undoBlockPositionChanged:aView
+ ]
+ ]
+!
+
+startSelectMoreOrMove:aPoint
+ "add/remove to/from selection"
+
+ |anObject|
+
+ testMode ifTrue:[^ self].
+
+ anObject := self findObjectAt: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 findObjectAt:aPoint.
+
+ "nothing is selected
+ "
+ anObject isNil ifTrue:[
+ ^ self unselect
+ ].
+
+ (self isSelected:anObject) ifFalse:[
+ super unselect.
+ self select:anObject.
+ ].
+
+ selection isCollection ifTrue:[
+ releaseAction := [
+ self setDefaultActions.
+ self select:anObject
+ ]
+ ] ifFalse:[
+ releaseAction := [self setDefaultActions]
+ ].
+
+ "prepare move operation for an object
+ "
+ motionAction := [:movePoint|
+ (aPoint dist:movePoint) > 2.0 ifTrue:[
+ self startObjectMoveAt:aPoint
+ ]
+ ].
+! !
+
+!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.
+ ].
+
+
+!
+
+showSelected:aComponent
+ |wasClipped delta oldPaint|
+
+ self paint:Color black.
+
+ (wasClipped := clipChildren) ifTrue:[
+ self clippedByChildren:(clipChildren := false).
+ ].
+
+ self handlesOf:aComponent do:[:pnt :what |
+ what == #view ifTrue:[self displayRectangle:(pnt - (4@4) extent:7@7)]
+ ifFalse:[self fillRectangle:(pnt - (4@4) extent:7@7)]
+ ].
+
+ wasClipped ifTrue:[
+ self clippedByChildren:(clipChildren := true).
+ ].
+ self paint:oldPaint.
+!
+
+showUnselected:aComponent
+ |wasClipped delta r oldPaint|
+
+ r := aComponent origin extent:8@8.
+
+ (wasClipped := clipChildren) ifTrue:[
+ self clippedByChildren:(clipChildren := false).
+ ].
+
+ self handlesOf:aComponent do:[:pnt :what |
+ self clearRectangle:(pnt - (4@4) extent:7@7).
+ ].
+
+ wasClipped ifTrue:[
+ self clippedByChildren:(clipChildren := true).
+ ].
+
+ "/ must redraw all components which are affected b the handles
+
+ r := (aComponent originRelativeTo:self) - (4@4)
+ extent:(aComponent extent + (4@4)).
+
+ subViews do:[:anotherComponent |
+ |absOrg absFrame|
+
+ anotherComponent ~~ inputView ifTrue:[
+ absOrg := anotherComponent originRelativeTo:self.
+ absFrame := absOrg extent:(anotherComponent extent).
+ (absFrame intersects:r) ifTrue:[
+ anotherComponent withAllSubViewsDo:[:v |
+ v clear.
+ v exposeX:0 y:0 width:9999 height:9999.
+ ]
+ ]
+ ]
+ ]
+
+!
+
+whichHandleOf:aView isHitBy:aPoint
+ |bounds|
+
+ self handlesOf:aView do:[:pnt :what |
+ ((pnt - (4@4) extent:7@7) containsPoint:aPoint) ifTrue:[
+ ^ what
+ ].
+ ].
+
+ ^ #view
+
+ "Modified: 5.9.1995 / 14:39:34 / claus"
+
+! !
+
+!UIObjectView methodsFor:'private resizing-subviews'!
+
+resize:aView bottom:aPoint
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:aView top:0 bottom:((aPoint y) - (aView computeCorner y))
+ ]
+!
+
+resize:aView corner:aPoint
+ |delta|
+
+ delta := aPoint - aView computeCorner.
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:aView top:0 bottom:(delta y) left:0 right:(delta x)
+ ]
+!
+
+resize:aView left:aPoint
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:aView left:((aPoint x) - (aView computeOrigin x)) right:0
+ ]
+
+!
+
+resize:aView right:aPoint
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:aView left:0 right:((aPoint x) - (aView computeCorner x))
+ ]
+!
+
+resize:aView top:aPoint
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:aView top:((aPoint y) - (aView computeOrigin y)) bottom:0
+ ]
+! !
+
+!UIObjectView methodsFor:'private shift-layout'!
+
+shifLayout:aView left:l right:r
+ "shift layout for a view; in case of an open transaction, the
+ undoAction will be defined
+ "
+ self shifLayout:aView top:0 bottom:0 left:l right:r
+
+!
+
+shifLayout:aView top:t bottom:b
+ "shift layout for a view; in case of an open transaction, the
+ undoAction will be defined
+ "
+ self shifLayout:aView top:t bottom:b left:0 right:0
+
+
+!
+
+shifLayout:aView top:t bottom:b left:l right:r
+ "shift layout for a view; in case of an open transaction, the
+ undoAction will be defined
+ "
+ |layout|
+
+ self undoBlockPositionChanged:aView.
+
+ layout := aView geometryLayout.
+
+ layout leftOffset:(layout leftOffset + l)
+ topOffset:(layout topOffset + t).
+
+ layout isLayoutFrame ifTrue:[
+ layout bottomOffset:(layout bottomOffset + b).
+ layout rightOffset:(layout rightOffset + r).
+ ].
+
+ aView geometryLayout:layout.
+
+
+
+! !
+
+!UIObjectView methodsFor:'private undo-actions'!
+
+undoBlockDimensionChanged:aView
+
+ undoHistory isTransactionOpen ifTrue:[
+ |layout|
+
+ layout := aView geometryLayout copy.
+
+ undoHistory addUndoBlock:[
+ aView geometryLayout:layout.
+ aView superView sizeChanged:nil.
+ ]
+ ]
+
+!
+
+undoBlockPositionChanged:aView
+
+ undoHistory isTransactionOpen ifTrue:[
+ |layout|
+
+ layout := aView geometryLayout copy.
+ undoHistory addUndoBlock:[aView geometryLayout:layout]
+ ]
+
+! !
+
+!UIObjectView methodsFor:'searching'!
+
+findObjectAt:aPoint
+ "find the origin/corner of the currentWidget
+ "
+ |view viewId lastId point|
+
+ viewId := rootView id.
+ point := aPoint + (device translatePoint:0@0 from:(self id) to:viewId).
+
+ inputView lower.
+
+ [viewId notNil] whileTrue:[
+ lastId := viewId.
+ viewId := device viewIdFromPoint:point in:lastId
+ ].
+
+ inputView raise.
+
+ view := device viewFromId:lastId.
+
+ view ~~ inputView ifTrue:[^ view]
+ ifFalse:[^ nil]
+
+
+!
+
+isPoint:aPoint containedIn:aView
+ "checks whether a point is covered by a view.
+ "
+ |org ext|
+
+ org := aView computeOrigin.
+ ext := aView computeExtent.
+
+ ^ ((org extent:ext) containsPoint:aPoint)
!
-!UIObjectView::UndoHistory class methodsFor:'instance creation'!
+whichBorderOf:aView isHitBy:aPoint
+ |p r bw org|
+
+ bw := aView borderWidth.
+ p := aPoint - (aView superView originRelativeTo:self).
+
+ r := Rectangle origin:(aView origin)
+ extent:(aView width @ bw).
+ (r containsPoint:p) ifTrue:[^ #top:].
+
+ r origin:(aView left @ (aView bottom + bw)) extent:(aView width @ bw).
+ (r containsPoint:p) ifTrue:[^ #bottom:].
+
+ r top:(aView top).
+ r extent:(bw @ aView height).
+ (r containsPoint:p) ifTrue:[^ #left:].
+
+ r origin:((aView right + bw) @ aView top).
+ (r containsPoint:p) ifTrue:[^ #right:].
+
+ ^ nil
+
+
+! !
+
+!UIObjectView methodsFor:'selections'!
+
+addToSelection:something
+ (testMode or:[something == selection]) ifFalse:[
+ super addToSelection:something.
+ self changed:#selection.
+ ]
+!
+
+inspectSelection
+ self singleSelectionDo:[:aView |
+ aView inspect
+ ]
+!
+
+removeFromSelection:something
+ super removeFromSelection:something.
+ self changed:#selection
+
+!
+
+select:something
+ (testMode or:[something == selection]) ifFalse:[
+ super select:something.
+ self changed:#selection
+ ]
+
+!
+
+selection
+ ^ selection
+
+
+!
+
+selectionFindMinimum:aOneArgBlock
+ "returns the minimum value from the block evaluated on each view
+ in the selection
+ "
+ |min val|
+
+ self selectionDo:[:aView|
+ val := aOneArgBlock value:aView.
+
+ min isNil ifTrue:[min := val]
+ ifFalse:[min := min min:val]
+ ].
+ ^ min
+!
+
+selectionHiddenDo:aBlock
+ "apply block to every object in selection"
+
+ self selectionDo:[:aView |
+ self showUnselected:aView.
+ ].
+ device flush.
+ aBlock value.
+ self selectionDo:[:aView |
+ self showSelected:aView
+ ]
+
+
+!
+
+singleSelection
+ "returns single selection or nil
+ "
+ (selection isKindOf:SimpleView) ifTrue:[^ selection]
+ ifFalse:[^ nil]
+!
+
+singleSelectionDo:aBlock
+
+ self singleSelection notNil ifTrue:[
+ aBlock value:selection
+ ]
+!
+
+unselect
+ selection notNil ifTrue:[
+ super unselect.
+ self changed:#selection
+ ]
+
+!
+
+withSelectionHiddenDo:aBlock
+ "evaluate aBlock while selection is hidden"
+
+ |sel|
+
+ selection isNil ifTrue:[
+ aBlock value
+ ] ifFalse:[
+ sel := selection.
+ super unselect.
+ aBlock value.
+ super select:sel
+ ]
+
+ "Modified: 6.9.1995 / 01:46:16 / claus"
+
+
+! !
+
+!UIObjectView methodsFor:'testing'!
+
+canMove:something
+ ^ true
+
+
+!
+
+isHorizontalResizable:aComponent
+ ^ self subclassResponsibility
+
+
+!
+
+isVerticalResizable:aComponent
+ ^ self subclassResponsibility
+
+
+! !
+
+!UIObjectView methodsFor:'user actions'!
+
+createWidgetWithClass:aClass
+ "prepare to create new widgets
+ "
+ createClass := aClass.
+ pressAction := [:pressPoint | self startCreate:pressPoint].
+ self cursor:Cursor origin.
+
+
+!
+
+undoAction
+ undoHistory notEmpty ifTrue:[
+ self unselect.
+ undoHistory undoLast
+ ]
+
+
+! !
+
+!UIObjectView methodsFor:'user actions - dimension'!
+
+copyExtent
+ (selection isNil or:[selection isKindOf:Collection]) ifTrue:[
+ ^ self warn:'exactly one element must be selected'.
+ ].
+ copiedExtent := selection computeExtent
+
+
+
+!
+
+pasteExtent
+ copiedExtent notNil ifTrue:[
+ self transition:'paste extent' dimensionDo:[:v|
+ self resize:v corner:(v computeOrigin + copiedExtent)
+ ]
+ ]
+!
+
+pasteHeight
+ copiedExtent notNil ifTrue:[
+ self transition:'paste height' dimensionDo:[:v|
+ self resize:v bottom:(v computeOrigin + copiedExtent)
+ ]
+ ]
+
+!
+
+pasteWidth
+ copiedExtent notNil ifTrue:[
+ self transition:'paste width' dimensionDo:[:v|
+ self resize:v right:(v computeOrigin + copiedExtent)
+ ]
+ ]
+
+!
+
+setDimension:aLayout
+ |undoText|
+
+ undoText := 'change layout'.
+ aLayout isLayout ifTrue:[
+ undoText := 'change to layout frame'.
+ aLayout isAlignmentOrigin ifTrue:[
+ undoText := 'change to layout alignOrigin'.
+ ] ifFalse:[
+ aLayout isAlignmentOrigin ifTrue:[
+ undoText := 'change to layout origin'.
+ ]
+ ]
+ ].
+
+ self transition:undoText dimensionDo:[:v| v geometryLayout:(aLayout copy)]
+
+!
+
+setToDefaultExtent
+ self transition:'default extent' dimensionDo:[:v|
+ self resize:v corner:(v computeOrigin + (v preferredExtent))
+ ]
+
+!
+
+setToDefaultHeight
+ self transition:'default height' dimensionDo:[:v|
+ self resize:v bottom:(v computeOrigin + (v preferredExtent))
+ ]
+
+!
+
+setToDefaultWidth
+ self transition:'default width' dimensionDo:[:v|
+ self resize:v right:(v computeOrigin + (v preferredExtent))
+ ]
+
+!
+
+transition:what dimensionDo:aOneArgBlock
+ "change dimension within a transaction for the selected elements by evaluating
+ the block with the argument a view.
+ "
+ self selectionHiddenDo:[
+ undoHistory transactionNamed:what do:[
+ self selectionDo:[:aView|
+ self undoBlockDimensionChanged:aView.
+ aOneArgBlock value:aView.
+ self elementChangedLayout:aView.
+ ]
+ ]
+ ]
+! !
+
+!UIObjectView methodsFor:'user actions - move'!
+
+basicMoveSelectionHorizontal:n
+ "move left: n < 0
+ move right: n > 0
+ "
+ self selectionHiddenDo:[
+ undoHistory transactionNamed:'move' do:[
+ self selectionDo:[:aView|self shifLayout:aView left:n right:n]
+ ].
+ self changed:#layout
+ ]
+
+
+!
+
+basicMoveSelectionVertical:n
+ "move up: n < 0
+ move down: n > 0
+ "
+ self selectionHiddenDo:[
+ undoHistory transactionNamed:'move' do:[
+ self selectionDo:[:aView| self shifLayout:aView top:n bottom:n ]
+ ].
+ self changed:#layout
+ ]
+
+
+
+!
+
+moveObject:anObject to:aPoint
+ "move anObject to newOrigin, aPoint
+ "
+ |dX dY org delta|
+
+ anObject notNil ifTrue:[
+ org := anObject computeOrigin.
+
+ delta := aPoint - org.
+ delta := (self alignToGrid:aPoint) - org.
+ dX := delta x.
+ dY := delta y.
+
+ undoHistory disabledTransitionDo:[
+ self shifLayout:anObject top:dY bottom:dY left:dX right:dX
+ ].
+ self elementChangedLayout:anObject.
+ ]
+
+!
+
+moveSelectionDown
+ self moveSelectionDown:1
+
+
+!
+
+moveSelectionDown10
+ self moveSelectionDown:10
+
+
+!
+
+moveSelectionDown:n
+ self basicMoveSelectionVertical:n
+
+
+!
+
+moveSelectionLeft
+ self moveSelectionLeft:1
+
+
+!
+
+moveSelectionLeft10
+ self moveSelectionLeft:10
+
+
+!
+
+moveSelectionLeft:n
+ self basicMoveSelectionHorizontal:(n negated)
+
+
+!
+
+moveSelectionRight
+ self moveSelectionRight:1
+
+
+!
+
+moveSelectionRight10
+ self moveSelectionRight:10
+
+
+!
+
+moveSelectionRight:n
+ self basicMoveSelectionHorizontal:n
+
+
+!
+
+moveSelectionUp
+ self moveSelectionUp:1
+
+
+!
+
+moveSelectionUp10
+ self moveSelectionUp:10
+
+
+!
+
+moveSelectionUp:n
+ self basicMoveSelectionVertical:(n negated)
+
+
+! !
+
+!UIObjectView methodsFor:'user actions - position'!
-new
- ^ self basicNew initialize
+alignSelectionBottom
+ |bmost delta|
+
+ self selectionHiddenDo:[
+ bmost := 0.
+ self selectionDo:[:v| bmost := bmost max:(v computeCorner y)].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v|
+ (delta := bmost - (v computeCorner y)) ~~ 0 ifTrue:[
+ self shifLayout:v top:delta bottom:delta
+ ]
+ ]
+ ].
+ self changed:#layout
+ ]
+
+
+
+!
+
+alignSelectionCenterHor
+ |counter centerX|
+
+ self selectionHiddenDo:[
+ counter := 0.
+ centerX := 0.
+
+ self selectionDo:[:v |
+ centerX := centerX + (v computeCorner x + v computeOrigin x).
+ counter := counter + 1.
+ ].
+ centerX := centerX // (counter * 2).
+
+ undoHistory transactionNamed:'align' do:[
+ |newX oldX delta|
+
+ self selectionDo:[:v|
+ oldX := v computeOrigin x.
+ newX := centerX - ((v computeCorner x - oldX) // 2).
+ delta := newX - oldX.
+
+ self shifLayout:v left:delta right:delta
+ ]
+ ].
+ self changed:#layout
+ ]
+
+
+
+!
+
+alignSelectionCenterVer
+ |counter centerY|
+
+ self selectionHiddenDo:[
+ counter := 0.
+ centerY := 0.
+
+ self selectionDo:[:v |
+ centerY := centerY + (v computeCorner y + v computeOrigin y).
+ counter := counter + 1.
+ ].
+ centerY := centerY // (counter * 2).
+
+ undoHistory transactionNamed:'align' do:[
+ |newY oldY delta|
+
+ self selectionDo:[:v|
+ oldY := v computeOrigin y.
+ newY := centerY - ((v computeCorner y - oldY) // 2).
+ delta := newY - oldY.
+
+ self shifLayout:v top:delta bottom:delta
+ ]
+ ].
+ self changed:#layout
+ ]
+!
+
+alignSelectionLeft
+ |lmost delta|
+
+ self selectionHiddenDo:[
+ lmost := self selectionFindMinimum:[:v| v computeOrigin x].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v|
+ (delta := lmost - (v computeOrigin x)) ~~ 0 ifTrue:[
+ self shifLayout:v left:delta right:delta
+ ]
+ ]
+ ].
+ self changed:#layout
+ ]
+
+!
+
+alignSelectionLeftAndRight
+ |lmost rmost|
+
+ self selectionHiddenDo:[
+ lmost := self selectionFindMinimum:[:v| v computeOrigin x].
+ rmost := 0.
+ self selectionDo:[:v | rmost := rmost max:(v computeCorner x)].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v|
+ self shifLayout:v left:(lmost - (v computeOrigin x))
+ right:(rmost - (v computeCorner x))
+ ]
+ ].
+ self changed:#layout
+ ]
+!
+
+alignSelectionRight
+ |rmost delta|
+
+ self selectionHiddenDo:[
+ rmost := 0.
+ self selectionDo:[:v| rmost := rmost max:(v computeCorner x)].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v|
+ (delta := rmost - (v computeCorner x)) ~~ 0 ifTrue:[
+ self shifLayout:v left:delta right:delta
+ ]
+ ]
+ ].
+ self changed:#layout
+ ]
+
+!
+
+alignSelectionTop
+ |tmost delta|
+
+ self selectionHiddenDo:[
+ tmost := self selectionFindMinimum:[:v| v computeOrigin y].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v||delta|
+ (delta := tmost - (v computeOrigin y)) ~~ 0 ifTrue:[
+ self shifLayout:v top:delta bottom:delta
+ ]
+ ]
+ ].
+ self changed:#layout
+ ]
+
+!
+
+alignSelectionTopAndBottom
+ |tmost bmost|
+
+ self selectionHiddenDo:[
+ tmost := self selectionFindMinimum:[:v| v computeOrigin y].
+ bmost := 0.
+ self selectionDo:[:v| bmost := bmost max:(v computeCorner y)].
+
+ undoHistory transactionNamed:'align' do:[
+ self selectionDo:[:v|
+ self shifLayout:v top:(tmost - (v computeOrigin y))
+ bottom:(bmost - (v computeCorner y))
+ ]
+ ].
+ self changed:#layout
+ ]
+!
+
+centerSelection:aOneArgBlockXorY
+ "center selection horizontal or vertical dependant on the block result( x or y).
+ The argument to the block is the point.
+ "
+ |superview min max delta val|
+
+ self selectionHiddenDo:[
+ max := 0.
+
+ self selectionDo:[:aView |
+ superview isNil ifTrue:[
+ superview := aView superView
+ ] ifFalse:[
+ (aView superView == superview) ifFalse:[
+ ^ self notify:'views must have same superview'.
+ ]
+ ].
+ val := aOneArgBlockXorY value:(aView computeOrigin).
+
+ min isNil ifTrue:[min := val]
+ ifFalse:[min := min min:val].
+ val := aOneArgBlockXorY value:(aView computeCorner).
+ max := max max:val.
+ ].
+
+ val := aOneArgBlockXorY value:(superview computeExtent).
+ max := (min + val - max) // 2.
+
+ max == min ifFalse:[
+ delta := max - min.
+
+ undoHistory transactionNamed:'center' do:[
+ self selectionDo:[:aView|
+ self shifLayout:aView top:delta bottom:delta]
+ ]
+ ].
+ self changed:#layout
+ ]
+
+
+!
+
+centerSelectionHor
+ "center selection horizontal
+ "
+ self centerSelection:[:aPoint| aPoint x]
+
+
+!
+
+centerSelectionVer
+ "center selection vertical
+ "
+ self centerSelection:[:aPoint| aPoint y]
+!
+
+spreadSelectionHor
+ |sumWidths min max viewsInOrder topsInOrder count space|
+
+ (selection isKindOf:Collection) ifFalse:[^ self].
+
+ self selectionHiddenDo:[
+ count := 0.
+ sumWidths := 0.
+ max := 0.
+
+ self selectionDo:[:aView |
+ sumWidths := sumWidths + aView width.
+
+ min isNil ifTrue:[min := aView left]
+ ifFalse:[min := min min:(aView left)].
+
+ max := max max:(aView right).
+ count := count + 1
+ ].
+ viewsInOrder := Array withAll:selection.
+ topsInOrder := viewsInOrder collect:[:aView | aView left].
+ topsInOrder sortWith:viewsInOrder.
+
+ space := (((max - min) - sumWidths) / (count - 1)) rounded asInteger.
+
+ undoHistory transactionNamed:'spread' do:[
+ viewsInOrder do:[:aView |
+ |delta|
+
+ delta := min - aView computeOrigin x.
+ self shifLayout:aView left:delta right:delta.
+ min := min + aView computeExtent x + space
+ ]
+ ].
+ self changed:#layout
+ ]
+
+!
+
+spreadSelectionVer
+ |sumHeights min max viewsInOrder topsInOrder count space|
+
+ (selection isKindOf:Collection) ifFalse:[^ self].
+
+ self selectionHiddenDo:[
+ count := 0.
+ sumHeights := 0.
+ max := 0.
+
+ self selectionDo:[:aView |
+ sumHeights := sumHeights + aView height.
+
+ min isNil ifTrue:[min := aView top]
+ ifFalse:[min := min min:(aView top)].
+
+ max := max max:(aView bottom).
+ count := count + 1
+ ].
+ viewsInOrder := Array withAll:selection.
+ topsInOrder := viewsInOrder collect:[:aView|aView top].
+ topsInOrder sortWith:viewsInOrder.
+
+ space := (((max - min) - sumHeights) / (count - 1)) rounded asInteger.
+
+ undoHistory transactionNamed:'spread' do:[
+ viewsInOrder do:[:aView||delta|
+ delta := min - aView computeOrigin y.
+ self shifLayout:aView top:delta bottom:delta.
+ min := min + aView height + space
+ ]
+ ].
+ self changed:#layout
+ ]
+! !
+
+!UIObjectView methodsFor:'user actions - resize'!
+
+doDragResize:aPoint
+ "do a widget resize drag"
+
+ |p|
+
+ self invertOutlineOf:resizedObject.
+ p := (self alignToGrid:aPoint) - (resizedObject container originRelativeTo:self).
+ self perform:('x' , resizeSelector , ':') asSymbol with:p.
+ resizedObject geometryLayout:(resizedObject geometryLayout).
+ self invertOutlineOf:resizedObject
+
+ "Modified: 5.9.1995 / 17:11:46 / claus"
+
+!
+
+endResize
+ "cleanup after object resize"
+
+ self invertOutlineOf:resizedObject.
+ self setDefaultActions.
+ self select:resizedObject.
+ resizedObject := nil
+
+ "Modified: 5.9.1995 / 17:11:17 / claus"
+
+!
+
+startResizeBorder:b of:selection at:aPoint
+ "resize selected view
+ "
+ resizedObject := self singleSelection.
+
+ resizedObject notNil ifTrue:[
+ resizeSelector := b.
+ super unselect.
+
+ undoHistory transactionNamed:'extent' do:[
+ self undoBlockDimensionChanged:resizedObject.
+ ].
+
+ motionAction := [:movePoint | self doDragResize:movePoint].
+ releaseAction := [self endResize].
+ self invertOutlineOf:resizedObject
+ ]
+!
+
+xbottom:aPoint
+ self resize:resizedObject bottom:aPoint
+
+!
+
+xbottomLeft:aPoint
+ self resize:resizedObject left:aPoint.
+ self resize:resizedObject bottom:aPoint.
+
+!
+
+xcorner:aPoint
+ self resize:resizedObject corner:aPoint.
+
+!
+
+xleft:aPoint
+ self resize:resizedObject left:aPoint
+
+!
+
+xorigin:aPoint
+ self resize:resizedObject left:aPoint.
+ self resize:resizedObject top:aPoint.
+
+!
+
+xright:aPoint
+ self resize:resizedObject right:aPoint
+
+!
+
+xtop:aPoint
+ self resize:resizedObject top:aPoint
+
+!
+
+xtopRight:aPoint
+ self resize:resizedObject right:aPoint.
+ self resize:resizedObject top:aPoint.
! !
@@ -24,6 +1568,20 @@
! !
+!UIObjectView::UndoHistory class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !
+
+!UIObjectView::UndoHistory class methodsFor:'instance creation'!
+
+new
+ ^ self basicNew initialize
+
+
+! !
+
!UIObjectView::UndoHistory methodsFor:'accessing'!
modifiedAction:aBlockWithOneArg
@@ -208,3 +1766,9 @@
! !
+!UIObjectView class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !
+