"

 COPYRIGHT (c) 1995 by Claus Gittinger

              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:libwidg' }"

Controller subclass:#VariablePanelController

	instanceVariableNames:'movedHandle prevPos clickPos saveCursor startResizing resizeMode'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support-Controllers'

!

!VariablePanelController class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by Claus Gittinger

              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

"

    An abstract class for variablePanel controllers;

    normally, not used directly by applications, these are created automatically

    whenever a variablePanel is created.

    Instances are responsible for tracking the mouse pointer and resize the

    views (a panel) subviews as appropriate.

    [author:]

        Claus Gittinger

"

! !

!VariablePanelController methodsFor:'event handling'!

buttonMotion:state x:bx y:by

    "mouse-button was moved while pressed;

     clear prev handleBar and draw handle bar at new position

    "

    |nextPos layout entered hindex opaqueResizing|

    state == 0 ifTrue:[

        view snapMode isNil ifTrue:[^ self].

        hindex := self detectHandleIndexAt:bx y:by.

        hindex ~~ movedHandle ifTrue:[

            self pointerLeave:0.

            movedHandle := hindex.

        ].

        movedHandle isNil ifTrue:[^ self].

        "check entering click button ...."

        layout  := view snapLayoutAt:movedHandle.

        entered := layout notNil and:[layout containsPointX:bx y:by].

        entered ~~ (saveCursor notNil) ifTrue:[

            entered ifTrue:[

                saveCursor := view cursor.

                view cursor:(Cursor normal).

            ] ifFalse:[

                view cursor:saveCursor.

                saveCursor := nil.

            ].

            view drawSnapAt:movedHandle

        ].

        ^ self

    ].

    (movedHandle isNil or:[resizeMode isNil]) ifTrue:[^ self].

    "RESIZING"

    "compute new position ...."

    nextPos := self checkedHandleMovementX:bx y:by.

    opaqueResizing := UserPreferences current opaqueVariablePanelResizing == true.

    resizeMode == #active ifTrue:[

        "check position changed ..."

        (prevPos  - nextPos) abs < 2 ifTrue:[^ self].

        opaqueResizing ifFalse:[

            self doInvertHandle   "undo the last invert"

        ]

    ] ifFalse:[

        (clickPos - nextPos) abs < 5 ifTrue:[^ self].

        resizeMode := #active.

        "/ restore the snap cursor

        saveCursor notNil ifTrue:[

            view grabPointerWithCursor:saveCursor.

            saveCursor := nil.

            view drawSnapAt:movedHandle.

        ]

    ].

    prevPos := nextPos.

    opaqueResizing ifFalse:[

        self doInvertHandle.

    ] ifTrue:[

        self doResize.

    ].

!

buttonPress:button x:bx y:by

    "button was pressed - setup resizing if a handle is hit

    "

    ((button == 1) or:[button == #select]) ifFalse:[

          self pointerLeave:0.

        ^ super buttonPress:button x:bx y:by.

    ].

    hindex := self detectHandleIndexAt:bx y:by.

    movedHandle notNil ifTrue:[

        hindex ~~ movedHandle ifTrue:[self pointerLeave:0].     "restore the cursor"

    ].

    (     (movedHandle := hindex) notNil

     and:[(view canChangeExtentOfViewAt:movedHandle)]

    ) ifFalse:[

        ^ self

    ].

    view grabPointerWithCursor:(view cursor).

    handleView := view subViews at:movedHandle.

    "setup resizeing"

    resizeMode := #init.

    view orientation ~~ #vertical ifTrue:[

        clickPos := bx.

        prevPos  := handleView right.

    ] ifFalse:[

        clickPos := by.

        prevPos  := handleView bottom.

    ].

    prevPos := prevPos + (view barHeight + 1 // 2).

    saveCursor notNil ifTrue:[

        "there is a snap under the cursor; redraw selected"

        view drawSnapAt:movedHandle

    ]

!

buttonRelease:button x:bx y:by

    "end bar-move"

    |subViews layout aboveView|

    ((button == 1) or:[button == #select]) ifFalse:[

        resizeMode := nil.

        ^ super buttonRelease:button x:bx y:by

    ].

    view ungrabPointer.

    movedHandle isNil ifTrue:[^ self].

    resizeMode notNil ifTrue:[

        resizeMode == #active ifTrue:[

            self doResize

        ] ifFalse:[

            (    (layout := view snapLayoutAt:movedHandle) notNil

             and:[layout containsPointX:bx y:by]

            ) ifTrue:[

            ].

        ].

    ].

    self pointerLeave:0.

    self pointerEnter:0 x:bx y:by.      "check whether mouse on a handle"

!

pointerEnter:state x:bx y:by

    state == 0 ifTrue:[

        view snapMode notNil ifTrue:[

            (movedHandle := self detectHandleIndexAt:bx y:by) notNil ifTrue:[

                self buttonMotion:state x:bx y:by

            ]

        ]

    ]

!

pointerLeave:state

    saveCursor notNil ifTrue:[

        "restore the cursor"

        view cursor:saveCursor.

        saveCursor := nil

    ].

    state == 0 ifTrue:[

        resizeMode := nil.

        movedHandle notNil ifTrue:[

            view drawSnapAt:movedHandle.

            movedHandle := nil.

        ]

    ].

! !

!VariablePanelController methodsFor:'private'!

checkedHandleMovementX:bx y:by

    "check and return valid position a handle can be placed

    "

    |max min pos subViews halfBarHeight|

    subViews := view subViews.

    halfBarHeight := view barHeight + 1 // 2.

    view orientation == #vertical ifTrue:[

	pos := by.

	min := (subViews at:movedHandle)     top.

	max := (subViews at:movedHandle + 1) bottom.

    ] ifFalse:[

	pos := bx.

	min := (subViews at:movedHandle)     left.

	max := (subViews at:movedHandle + 1) right.

    ].

    min := min + halfBarHeight.

    pos < min ifTrue:[^ min].

  ^ pos min:(max - halfBarHeight)

!

detectHandleIndexAt:x y:y

    "returns the handle index at position x@y or nil if none detected

    "

    |subViews

     size "{ Class: SmallInteger }"|

    subViews := view subViews.

    (size := subViews size) > 1 ifTrue:[

	view orientation == #vertical ifTrue:[

	    2 to:size do:[:i|

		(subViews at:i) top >= y ifTrue:[

		    ^ (subViews at:(i-1)) bottom < y ifTrue:[i-1] ifFalse:[nil]

		]

	    ]

	] ifFalse:[

	    2 to:size do:[:i|

		(subViews at:i) left >= x ifTrue:[

		    ^ (subViews at:(i-1)) right < x ifTrue:[i-1] ifFalse:[nil]

		]

	    ]

	]

    ].

    ^ nil

! !

!VariablePanelController methodsFor:'queries'!

isSnapEntered:anIndex

    ^ saveCursor notNil and:[anIndex == movedHandle]

!

isSnapPressed

    ^ resizeMode notNil and:[resizeMode ~~ #active]

! !

!VariablePanelController methodsFor:'user operations'!

doInvertHandle

    "invert a handle

    "

    |pos|

    pos := prevPos - (view barHeight + 1 // 2).

    view invertHandleBarAtX:pos y:pos.

!

doResize

    "perform the resize

    "

    |aboveView belowView aboveIndex belowIndex newRelPos subViews isVertical 

     opaqueResizing newCorner newOrigin halfBarHg|

    opaqueResizing := UserPreferences current opaqueVariablePanelResizing == true.

    "undo the last invert"

    (resizeMode == #active and:[opaqueResizing not]) ifTrue:[

        self doInvertHandle

    ].

    "check if position changed"

    prevPos == clickPos ifTrue:[^ self].

    "compute the new relative origins & corners"

    isVertical := view orientation == #vertical.

    aboveIndex := movedHandle.

    belowIndex := movedHandle + 1.

    subViews   := view subViews.

    aboveView  := subViews at:aboveIndex.

    belowView  := subViews at:belowIndex.

    halfBarHg  := view barHeight + 1 // 2.

    isVertical ifFalse:[

        "X complains badly if you try to create/resize a view with a dimension <= 0

        "

        prevPos - halfBarHg == aboveView left ifTrue:[prevPos := prevPos + 1].

        newRelPos := (prevPos / view width) asFloat.

        newCorner := newRelPos @ aboveView relativeCorner y.

        newOrigin := newRelPos @ belowView relativeOrigin y.

    ] ifTrue:[

        "X complains badly if you try to create/resize a view with a dimension <= 0

        "

        prevPos - halfBarHg == aboveView top ifTrue:[prevPos := prevPos + 1].

        newRelPos := (prevPos / view height) asFloat.

        newCorner := aboveView relativeCorner x @ newRelPos.

        newOrigin := belowView relativeOrigin x @ newRelPos.

    ].

    view lockRedraw.

    aboveView relativeCorner:newCorner.

    belowView relativeOrigin:newOrigin.

    prevPos > clickPos ifTrue:[ "above view grows"

        view resizeSubviewsFrom:aboveIndex to:belowIndex.

    ] ifFalse:[

        view resizeSubviewsFrom:belowIndex to:aboveIndex

    ].

    view unlockRedraw.

    prevPos := isVertical ifTrue:[aboveView bottom] ifFalse:[aboveView right].

    prevPos := prevPos + (view barHeight + 1 // 2).

!

    "perform the snap press

    "

    (mode := view snapMode) isNil ifTrue:[^ self].

    layout     := view snapLayoutAt:movedHandle.

    handle     := view subViews at:movedHandle.

    isVertical := view orientation == #vertical.

    curRCorner := handle relativeCorner.

    prvRCorner := handle objectAttributeAt:#vpext.

    ].

    newPos isNil ifTrue:[

        "restore previous extent"

        newPos := isVertical ifTrue:[view height * prvRCorner y]

                            ifFalse:[view width  * prvRCorner x].

        newPos := self checkedHandleMovementX:newPos y:newPos.

        (prevPos - newPos) abs < 2 ifTrue:[

            "cannot resize; set extent to min or max dependent on the current extent"

            isVertical ifTrue:[

                newPos := handle height > 2 ifTrue:[0] ifFalse:[99999]

            ] ifFalse:[

                newPos := handle width  > 2 ifTrue:[0] ifFalse:[99999]

            ].

            newPos := self checkedHandleMovementX:newPos y:newPos.

        ].

    ] ifFalse:[

        newPos := self checkedHandleMovementX:newPos y:newPos

    ].

    (newPos - prevPos) abs < 2 ifFalse:[

        prevPos := newPos.

        self doResize.

    ]

! !

!VariablePanelController class methodsFor:'documentation'!

version

! !