"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1989 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' }"

"{ NameSpace: Smalltalk }"

SimpleView subclass:#ScrollableView

	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates

		hideVScrollBar hideHScrollBar hasHorizontalScrollBar

		hasVerticalScrollBar horizontalMini verticalMini vScrollBarHidden

		hScrollBarHidden scrolledViewHMargin scrolledViewVMargin

		scrollBarVSpacing scrollBarHSpacing scrolledViewLayout

		hScrollBarLayout vScrollBarLayout hideScrollbarIfPointerOutside'

	classVariableNames:'DefaultScrolledViewLevel DefaultScrolledViewMargin

		DefaultScrollBarSpacing DefaultScrolledViewBorderWidth

		DefaultLevel DefaultScrollBarLevel MyDefaultViewBackgroundColor'

	poolDictionaries:''

	category:'Views-Basic'

!

!ScrollableView class methodsFor:'documentation'!

copyright

"

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

"

    a view containing a scrollbar and some other (slave-)view.

    This view wraps scrollbar(s) around the view to be scrolled.

    The scrollbars are setup to send scrollUp/scrollDown/scrollVerticalTo

    and scrollLeft/scrollRight/scrollHorizontalTo- messages whenever moved.

    The view itself has to implement these (there is a default implementation

    in the common View class for this - so your widgets usually don't have to

    care for this).

    For the scrollbars to know about the full (maximum) size, the view

    MUST implement #heightOfContents and/or #widthOfContents.

    The values returned by those methods are used to compute the fraction

    which is visible (i.e. the scrollers thumb heights).

    There are three ways to setup a scrollableView:

    if the type of the view to be scrolled is known in advance,

    use:

        v := ScrollableView for:<ViewClass>

    or:

        v := ScrollableView for:<ViewClass> in:someSuperView

    otherwise, create an empty scrollableView with:

        v := ScrollableView new

    or:

        v := ScrollableView in:someSuperView

    and define the view later with:

        v scrolledView:aViewToBeScrolled

    Finally, if the view to be scrolled has been already created,

    use:

        v := ScrollableView forView:aViewToBeScrolled

    or:

        v := ScrollableView forView:aViewToBeScrolled in:someSuperView

    It is also possible to change the scrolledView later (even multiple times).

    This may be useful if different views are needed to display different types

    of data (see example2) and at creation time, it is not known what type

    of view is required (multidocument format applications).

    If you want to scroll a bunch of other views (instead of a view's contents),

    you need a companion class (ViewScroller). See the documentation there.

    By default, scrollbars are full size scrollbars - for horizontal scrolling

    (which is less often used), scrollableViews can optionally be created with

    miniscrollers which take up less screen space.

    Recent changes:

        Originally, there were two classes, for vertical-only and

        horizontal+vertical scrollability.

        These have now been merged into the common ScrollableView class,

        and each scrollability can be controlled individually.

    [author:]

        Claus Gittinger

    [see also:]

        ScrollBar

        Scroller

        ScrolledView

"

!

examples

"

  simple scrolled text:

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example1'.

        top extent:200@100.

        scr := ScrollableView for:EditTextView in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        txt := scr scrolledView.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  changing the scrolledView later:

                                                                        [exBegin]

        |top scr txtView1 txtView2 browserView|

        top := StandardSystemView label:'scroll example2'.

        top extent:300@100.

        scr := ScrollableView in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        top open.

        (Delay forSeconds:5) wait.

        txtView1 := EditTextView new.

        txtView1 list:#(

                        'wait 5 seconds to see the other text'

                        'line2'

                        'line3'

                        'line4'

                        'line5'

                        'line7'

                        'line8'

                        'line9'

                        'line10'

                  ).

        scr scrolledView:txtView1.

        (Delay forSeconds:5) wait.

        txtView2 := EditTextView new.

        txtView2 list:#('this is the other views text'

                        'alternative line2'

                        'alternative line3'

                        'alternative line4'

                        'alternative line5'

                        'alternative line6').

        scr scrolledView:txtView2.

                                                                        [exEnd]

  using a miniscroller:

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example3'.

        top extent:200@100.

        scr := ScrollableView for:EditTextView miniScroller:true in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        txt := scr scrolledView.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  scrolling in both directions:

    Notice: HVScrollableView remains existent for backward compatibility;

            scrollability can now be controlled in both directions at any

            time (see examples below).

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example4'.

        top extent:200@100.

        scr := HVScrollableView for:EditTextView in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        txt := scr scrolledView.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  using a full scroller vertically, miniscroller horizontally:

    Notice: HVScrollableView remains existent for backward compatibility;

            scrollability can now be controlled in both directions at any

            time (see examples below).

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example5'.

        top extent:200@100.

        scr := HVScrollableView for:EditTextView miniScrollerH:true in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        txt := scr scrolledView.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  using miniscrollers for both directions:

    Notice: HVScrollableView remains existent for backward compatibility;

            scrollability can now be controlled in both directions at any

            time (see examples below).

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example6'.

        top extent:200@100.

        scr := HVScrollableView for:EditTextView miniScroller:true in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        txt := scr scrolledView.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  controlling scrollability:

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example6'.

        top extent:200@100.

        txt := EditTextView new.

        scr := ScrollableView forView:txt in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        scr horizontalScrollable:true.

        scr verticalScrollable:false.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  controlling scrollability and miniScroller:

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example6'.

        top extent:200@100.

        txt := EditTextView new.

        scr := ScrollableView forView:txt in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        scr horizontalScrollable:true; horizontalMini:false.

        scr verticalScrollable:true; verticalMini:true.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

  autohiding scrollbars (edit the text to make scrollbars visible/invisible)

  (NOTICE:

        this is controlled by the styleSheet and

        should normally NOT be done by the program):

                                                                        [exBegin]

        |top scr txt|

        top := StandardSystemView label:'scroll example6'.

        top extent:200@100.

        txt := EditTextView new.

        scr := ScrollableView forView:txt in:top.

        scr origin:0.0@0.0 corner:1.0@1.0.

        scr horizontalScrollable:true; horizontalMini:false.

        scr verticalScrollable:true; verticalMini:true.

        scr autoHideScrollBars:true.

        txt list:#('line1'

                   'line2'

                   'line3'

                   'line4'

                   'line5'

                   'line7'

                   'line8'

                   'line9'

                   'line10'

                  ).

        top open

                                                                        [exEnd]

"

! !

!ScrollableView class methodsFor:'instance creation'!

for:aViewClass

    "return a new scrolling view scrolling an instance of aViewClass.

     The subview is created here.

     The view will have full scrollbars."

    ^ self 

        for:aViewClass

        hasHorizontalScrollBar:self defaultHorizontalScrollable

        hasVerticalScrollBar:self defaultVerticalScrollable

        miniScrollerH:false 

        miniScrollerV:false 

        origin:nil

        corner:nil 

        in:nil

    "Created: 6.3.1997 / 18:06:22 / cg"

    "Modified: 6.3.1997 / 23:18:32 / cg"

!

for:aViewClass hasHorizontalScrollBar:hasH hasVerticalScrollBar:hasV miniScrollerH:miniH miniScrollerV:miniV 

    "return a new scrolling view scrolling an instance of aViewClass.

     The subview is created here.

     The view will have full scrollbars if the corresponding miniH/miniV

     is false, miniscrollers if true."

    |newView|

    aViewClass notNil ifTrue:[

        newView := aViewClass new.

    ].

    ^ self

        forView:newView

        hasHorizontalScrollBar:hasH 

        hasVerticalScrollBar:hasV 

        miniScrollerH:miniH 

        miniScrollerV:miniV 

        origin:nil 

        corner:nil 

        in:nil

    "Created: 7.4.1997 / 19:00:14 / cg"

!

for:aViewClass hasHorizontalScrollBar:hasH hasVerticalScrollBar:hasV miniScrollerH:miniH miniScrollerV:miniV origin:org corner:corn in:aView

    "return a new scrolling view scrolling an instance of aViewClass.

     The subview is created here.

     The view will have full scrollbars if the corresponding miniH/miniV

     is false, miniscrollers if true."

    |newView|

    aViewClass notNil ifTrue:[

        newView := aViewClass new.

    ].

    ^ self

        forView:newView

        hasHorizontalScrollBar:hasH 

        hasVerticalScrollBar:hasV 

        miniScrollerH:miniH 

        miniScrollerV:miniV 

        origin:org 

        corner:corn 

        in:aView

    "

     |top scr|

     top := StandardSystemView extent:200@200.

     scr := ScrollableView for:nil

                 hasHorizontalScrollBar:true

                 hasVerticalScrollBar:true

                 miniScrollerH:false

                 miniScrollerV:false

                 origin:0.0@0.0

                 corner:1.0@1.0

                 in:top.

     top open

    "

    "Modified: 6.3.1997 / 18:36:01 / cg"

!

for:aViewClass in:aView

    "return a new scrolling view scrolling an instance of aViewClass.

     The subview is created here.

     The view will have full scrollbars."

    ^ self 

        for:aViewClass

        hasHorizontalScrollBar:self defaultHorizontalScrollable

        hasVerticalScrollBar:self defaultVerticalScrollable

        miniScrollerH:false 

        miniScrollerV:false 

        origin:nil

        corner:nil 

        in:aView

    "Modified: 6.3.1997 / 23:18:41 / cg"

!

for:aViewClass miniScroller:mini

    "return a new scrolling view scrolling an instance of aViewClass.

     The subview is created here.

     The view will have full scrollbars if mini is false, miniscrollers