"

 COPYRIGHT (c) 1995 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:libtool2' }"

ObjectView subclass:#UIObjectView

	instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData

		clipChildren selectionHiddenLevel gridParameters

		setOfSuperViewsSizeChanged hasUndoHistoryHolder'

	classVariableNames:'CopiedLayout CopiedExtent'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#PostEventHandler

	instanceVariableNames:'onView'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIObjectView

!

Object subclass:#ResizeData

	instanceVariableNames:'object selector delta'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIObjectView

!

Object subclass:#UndoHistory

	instanceVariableNames:'startIdentifier identifier painter history transaction enabled'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIObjectView

!

Object subclass:#Transaction

	instanceVariableNames:'identifier type text actions'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIObjectView::UndoHistory

!

!UIObjectView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 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

"

    buildIn view used by the UIPainter; it provides all services for creating, deleting

    moving and changing layouts of painted components on a canvas.

    [see also:]

	UIBuilder

	UIPainterView

    [author:]

	Claus Atzkern

"

! !

!UIObjectView class methodsFor:'conversion'!

asLayoutFrameFromView:aView

    "convert layout from aView to a frameLayout. On success the frameLayout is

     returned otherwise nil

    "

    |lF lO rF rO tF tO bF bO type layout newLyt|

    type   := self layoutType:aView.

    layout := aView geometryLayout.

    layout isNil ifTrue:[

        type == #Extent ifTrue:[

            layout := aView bounds asLayout

        ]

    ].

    (type isNil or:[layout isNil]) ifTrue:[

        ^ nil

    ].

    type == #LayoutFrame ifTrue:[

        ^ layout copy

    ].

    layout isLayout ifFalse:[

        type == #Rectangle ifTrue:[

            lO := layout left.

            tO := layout top.

            rO := layout right.

            bO := layout bottom.

        ] ifFalse:[

            lO := layout x.

            tO := layout y.

            rO := lO + aView extent x.

            bO := tO + aView extent y.

        ].

        ^ LayoutFrame 

                leftFraction:0 offset:lO  

                rightFraction:0 offset:rO

                topFraction:0 offset:tO 

                bottomFraction:0 offset:bO

    ].

    lF := layout leftFraction.

    lO := layout leftOffset.

    tF := layout topFraction.

    tO := layout topOffset.

    bF := tF.

    bO := tO + aView extent y.

    rF := lF.

    rO := lO + aView extent x.

    newLyt := LayoutFrame 

                leftFraction:lF offset:lO  

                rightFraction:rF offset:rO

                topFraction:tF offset:tO 

                bottomFraction:bF offset:bO.

    (    (type == #AlignmentOrigin)

     and:[layout leftAlignmentFraction ~~ 0

      or:[layout topAlignmentFraction  ~~ 0]]

    ) ifTrue:[

        |svRc prBd dlta|

        svRc := aView superView viewRectangle.

        prBd := aView preferredBounds.

        dlta := (  ((layout rectangleRelativeTo:svRc preferred:prBd) corner)

                 - ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)

                ) rounded.

        newLyt 

            leftOffset:(lO + dlta x)

            rightOffset:(rO + dlta x)

            topOffset:(tO + dlta y)

            bottomOffset:(bO + dlta y).

    ].

  ^ newLyt.

    "Modified: 28.3.1997 / 19:52:48 / cg"

! !

!UIObjectView class methodsFor:'defaults'!

defaultGrid

    ^ 4 @ 4

!

gridShown

    ^ false

!

handleSize

    "size of blob drawn for handles"

    ^ 4

!

hitDelta

    ^ 4

! !

!UIObjectView class methodsFor:'handles'!

handlesOf:aViewOrComponent do:aBlock

    |type v h|

    (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[

        aBlock value:(aViewOrComponent startPoint) value:#startPoint.

        aBlock value:(aViewOrComponent endPoint) value:#endPoint.

        ^ self.

    ].

    type := self layoutType:aViewOrComponent.

    (type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[

        v := self isVerticalResizable:aViewOrComponent.

        h := self isHorizontalResizable:aViewOrComponent.

        h ifTrue:[  

            aBlock value:(aViewOrComponent leftCenter rounded ) value:#left.

            aBlock value:(aViewOrComponent rightCenter rounded) value:#right

        ].

        v ifTrue:[  

            aBlock value:(aViewOrComponent topCenter rounded   ) value:#top.

            aBlock value:(aViewOrComponent bottomCenter rounded) value:#bottom.

        ].

        (h and:[v]) ifTrue:[

            aBlock value:(aViewOrComponent origin    ) value:#origin.

            aBlock value:(aViewOrComponent topRight  ) value:#topRight.

            aBlock value:(aViewOrComponent bottomLeft) value:#bottomLeft.

            aBlock value:(aViewOrComponent corner    ) value:#corner.

            ^ self

        ]

    ].

    aBlock value:(aViewOrComponent origin    ) value:#view.

    aBlock value:(aViewOrComponent topRight  ) value:#view.

    aBlock value:(aViewOrComponent bottomLeft) value:#view.

    type == #Extent ifTrue:[

        v := self isVerticalResizable:aViewOrComponent.

        h := self isHorizontalResizable:aViewOrComponent.

        v ifTrue:[ aBlock value:(aViewOrComponent bottomCenter rounded) value:#bottom ].

        h ifTrue:[ aBlock value:(aViewOrComponent rightCenter rounded ) value:#right ].

        (h and:[v]) ifTrue:[

            aBlock value:(aViewOrComponent corner) value:#corner.

            ^ self

        ]

    ].

    aBlock value:(aViewOrComponent corner) value:#view.

! !

!UIObjectView class methodsFor:'queries'!

isHorizontalResizable:aComponent

    "returns true if aComponent is horizontal resizeable

    "

    (aComponent isKindOf:ScrollBar) ifTrue:[

        ^ aComponent orientation == #horizontal

    ].

    (aComponent isKindOf:Scroller) ifTrue:[

        ^ aComponent orientation == #horizontal

    ].

    (aComponent isKindOf:Slider) ifTrue:[

        ^ aComponent orientation == #horizontal

    ].

    (aComponent isKindOf:LineSegmentMorph) ifTrue:[

        ^ false

    ].

    ^ true

!

isVerticalResizable:aComponent

    "returns true if aComponent is vertical resizeable

    "

"/    (aComponent isKindOf:EditField) ifTrue:[

"/        ^ false

"/    ].

"/    (aComponent isKindOf:ComboBoxView) ifTrue:[

"/        ^ false

"/    ].

"/    (aComponent isKindOf:CheckBox) ifTrue:[

"/        ^ false

"/    ].

"/    (aComponent isKindOf:ScrollBar) ifTrue:[

"/        ^ aComponent orientation == #vertical

"/    ].

"/    (aComponent isKindOf:Scroller) ifTrue:[

"/        ^ aComponent orientation == #vertical

"/    ].

"/    (aComponent isKindOf:Slider) ifTrue:[

"/        ^ aComponent orientation == #vertical

"/    ].

    (aComponent isKindOf:LineSegmentMorph) ifTrue:[

        ^ false

    ].

    ^ true

!

layoutType:aViewOrComponent

    "returns layout type of aView or nil"

    |layout spec superView|

    aViewOrComponent isNil ifTrue:[ ^ nil ].

    (aViewOrComponent isKindOf:LineSegmentMorph) ifTrue:[

        ^ nil

    ].

    layout := aViewOrComponent geometryLayout.

    layout notNil ifTrue:[

        layout isLayout ifTrue:[

            layout isLayoutFrame        ifTrue:[ ^ #LayoutFrame ].

            layout isAlignmentOrigin    ifTrue:[ ^ #AlignmentOrigin ].

            layout isLayoutOrigin       ifTrue:[ ^ #LayoutOrigin ].

        ] ifFalse:[

            layout isRectangle          ifTrue:[ ^ #Rectangle ].

            layout isPoint              ifTrue:[ ^ #Point ].

        ].

    ] ifFalse:[

        (superView := aViewOrComponent superView) notNil ifTrue:[

            spec := superView specClass.

            spec canResizeSubComponents ifTrue:[

                ^ #Extent

            ]

        ]

    ].

    ^ nil

    "Modified: 28.2.1997 / 13:02:16 / cg"

! !

!UIObjectView methodsFor:'accessing'!

gridAlign

    "returns state of aligning to grid

    "

    ^ aligning

!

gridAlign:aBool

    "change state of aligning to grid

    "

    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.

    "

    gridParameters isNil ifTrue:[

	gridParameters := #(10 10 nil nil 10 10 false)

    ].

    ^ gridParameters

!

gridParameters:newGridParameters

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

    "

    newGridParameters size == 7 ifTrue:[

	gridParameters := newGridParameters

    ].

!

gridShown:aBool

    "change visibility of grid

    "

    aBool ifTrue:[self showGrid]

	 ifFalse:[self hideGrid]

!

hideGrid

    "hide grid

    "

    gridShown ifTrue:[

	self withSelectionHiddenDo:[super hideGrid]

    ]

!

showGrid

    "show grid

    "

    self withSelectionHiddenDo:[super showGrid]

! !

!UIObjectView methodsFor:'accessing-behavior'!

enableStateChanged

    "toggle the test mode

    "

    self shown ifTrue:[

        enableChannel value ifFalse:[

            saveSelection := selection.

            self hideSelection.

            selection := nil.

        ] ifTrue:[

            selection := saveSelection.

            self showSelection

        ]

    ]

    "Created: / 30.3.1999 / 16:17:24 / stefan"

!

enabled

    ^ enableChannel value

!

enabled:aState

    "set the modification / test mode

    "

    enableChannel value:aState

    "Modified: / 30.3.1999 / 16:18:12 / stefan"

!

resetModification

    "set modification state to false"

    undoHistory resetModification.

    self undoHistoryChanged.

!

testMode

    "returns true if running test

    "

    ^ enableChannel value not

!

testMode:aBoolean

    "change test mode

    "

    enableChannel value:(aBoolean not)

! !

!UIObjectView methodsFor:'aspects'!

hasUndoHistoryHolder

    hasUndoHistoryHolder isNil ifTrue:[

        hasUndoHistoryHolder := false asValue

    ].

    ^ hasUndoHistoryHolder

! !

!UIObjectView methodsFor:'blocked'!

addObject:anObject

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

    self shouldNotImplement

!

addObjectWithoutRedraw:anObject

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

    self shouldNotImplement