"

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

"

ScrollableView subclass:#HVScrollableView

       instanceVariableNames:'hScrollBar'

       classVariableNames:''

       poolDictionaries:''

       category:'Views-Basic'

!

!HVScrollableView class methodsFor:'documentation'!

copyright

"

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

"

!

version

!

documentation

"

    a view containing both horizontal and vertical scrollbars

    and some other (slave-)view.

    Please see the documentation and examples in my superclass, ScrollableView

"

! !

!HVScrollableView methodsFor:'initialization'!

initializeFor:aViewClass miniScrollerH:miniH miniScrollerV:miniV

    |negativeOffset halfMargin orgX mrg halfSpacing 

     is3D cls hBorderWidth isST80 isOpenWin extra|

    isST80 := StyleSheet name = #st80.  "leftover - remove it"

    isST80 ifTrue:[

	cls := HorizontalScrollBar

    ] ifFalse:[

	cls := miniH ifTrue:[HorizontalMiniScroller] ifFalse:[HorizontalScrollBar].

    ].

    hScrollBar := cls in:self.

    super 

	initializeFor:aViewClass 

	miniScrollerH:miniH 

	miniScrollerV:miniV.

    negativeOffset := borderWidth negated.

    halfMargin := innerMargin // 2.

    is3D := styleSheet is3D.

    isOpenWin := styleSheet name = #openwin.

    "

     change vertical scrollbars size

    "

    mrg := hScrollBar borderWidth.

    mrg isNil ifTrue:[mrg := 0].

    hBorderWidth := mrg.

    is3D ifTrue:[

	isST80 ifTrue:[

	    halfSpacing := 0

	] ifFalse:[

	    mrg := mrg + innerMargin + innerMargin.

	    halfSpacing := ViewSpacing // 2.

	].

    ].

    extra := 0.

    isOpenWin ifTrue:[

	extra := 2.

    ].

    scrollBar extent:[scrollBar width 

		      @ 

		     (height - hScrollBar height - mrg + extra)].

    hScrollBar thumbOrigin:0 thumbHeight:100.

    scrollBarPosition == #left ifTrue:[

	orgX := scrollBar origin x + scrollBar width.

	is3D ifTrue:[

	    orgX := orgX + halfSpacing + 1.

	    isST80 ifTrue:[

		orgX := orgX - (scrolledView margin)

	    ]

	]

    ] ifFalse:[

	orgX := 0 - hBorderWidth.

"/      isST80 ifTrue:[

"/            orgX := orgX + 1

"/      ]

    ].

    isOpenWin ifTrue:[

	orgX := orgX + 1

    ].

    is3D ifTrue:[

	hScrollBar origin:[(orgX + innerMargin - halfSpacing - hScrollBar margin)

			   @

			   (height - hScrollBar height - halfMargin)

			  ]

		   extent:[(width - scrollBar width - (innerMargin * 2) + extra)

			   @

			   hScrollBar height

			  ]

    ] ifFalse:[

	scrollBarPosition == #left ifTrue:[

	    hScrollBar 

		origin:[(orgX + scrollBar borderWidth)

			@

			(height - hScrollBar height - hBorderWidth)

		       ]

		extent:[(width - scrollBar width) @ hScrollBar height]

	] ifFalse:[

	    hScrollBar 

		origin:[orgX @ (height - hScrollBar height - hBorderWidth) ]

		extent:[(width - scrollBar width - hBorderWidth) @ hScrollBar height]

	]

    ].

    scrolledView notNil ifTrue:[

	"redefine subviews size"

	is3D ifTrue:[

	    scrolledView 

		extent:[(width - scrollBar width - (innerMargin * 2))

			@

			(height - hScrollBar height - (innerMargin * 2)) ]

	] ifFalse:[

	    scrolledView

		extent:[(width - scrollBar width - scrollBar borderWidth) 

			@ 

			(height - hScrollBar height - hScrollBar borderWidth)

		       ]

	].

	self setScrollActions

    ]

!

realize

    super realize.

    scrolledView notNil ifTrue:[

	hScrollBar setThumbFor:scrolledView

    ]

! !

!HVScrollableView methodsFor:'private'!

setScrollActions

    scrollBar scrollAction:[:position |

	lockUpdates := true.

	scrolledView scrollVerticalToPercent:position.

	lockUpdates := false

    ].

    scrollBar scrollUpAction:[scrolledView scrollUp].

    scrollBar scrollDownAction:[scrolledView scrollDown].

    hScrollBar scrollAction:[:position |

	lockUpdates := true.

	scrolledView scrollHorizontalToPercent:position.

	lockUpdates := false

    ].

    hScrollBar scrollLeftAction:[scrolledView scrollLeft].

    hScrollBar scrollRightAction:[scrolledView scrollRight].

    scrolledView addDependent:self.

! !

!HVScrollableView methodsFor:'accessing'!

horizontalScrollBar

    "return the horizontal scrollbar"

    ^ hScrollBar

!

scrolledView:aView

    "set the scrolled view"

    super scrolledView:aView.

    "redefine subviews size"

    styleSheet is3D ifTrue:[

	scrolledView 

	    extent:[(width 

		     - scrollBar width 

		     - (innerMargin * 2))

		    @

		    (height 

		     - hScrollBar height 

		     - (innerMargin * 2))

		    ]

    ] ifFalse:[

	scrolledView

	    extent:[(width

		     - scrollBar width

		     - scrollBar borderWidth

		     "- scrolledView borderWidth") 

		    @ 

		    (height

		     - hScrollBar height

		     - hScrollBar borderWidth

		     "- scrolledView borderWidth")

		   ]

    ].

    self setScrollActions

! !

!HVScrollableView methodsFor:'queries'!

preferredExtent

    |pref m2|

    scrolledView notNil ifTrue:[ 

	m2 := innerMargin * 2.

	pref := scrolledView preferredExtent.

	^ (pref x + scrollBar width + m2) 

	  @ 

	  (pref y + hScrollBar height + m2).

    ].

    ^ super preferredExtent.

! !

!HVScrollableView methodsFor:'changes '!

update:something with:argument from:changedObject

    "whenever the scrolledview changes its contents, we have to

     update the scrollers too"

    changedObject == scrolledView ifTrue:[

	something == #sizeOfContents ifTrue:[

	    scrollBar setThumbFor:scrolledView.

	    hScrollBar setThumbFor:scrolledView.

	    ^ self

	].

	something == #originOfContents ifTrue:[

	    lockUpdates ifFalse:[

		scrollBar setThumbOriginFor:scrolledView.

		hScrollBar setThumbOriginFor:scrolledView.

	    ].

	    ^ self

	].

    ].

! !

!HVScrollableView methodsFor:'event processing'!

sizeChanged:how

    super sizeChanged:how.

    scrolledView notNil ifTrue:[

	hScrollBar setThumbFor:scrolledView

    ].

    hScrollBar thumbOrigin + hScrollBar thumbHeight >= 100 ifTrue:[

	hScrollBar thumbOrigin:(100 - hScrollBar thumbHeight).

	scrolledView scrollHorizontalToPercent:hScrollBar thumbOrigin.

    ].

    "Modified: 8.9.1995 / 12:46:36 / claus"

! !