"

 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.

"

SimpleView subclass:#ScrollableView

	instanceVariableNames:'scrolledView vScrollBar hScrollBar scrollBarPosition lockUpdates

		hideScrollBars hasHorizontalScrollBar hasVerticalScrollBar

		horizontalMini verticalMini vScrollBarHidden hScrollBarHidden

		vScrollBarVisible hScrollBarVisible'

	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.

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

    must implement #heightOfContents and/or #widthOfContents.

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

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

    There are two ways to create 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 the scrollableView empty 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 (multimedia applications).

    If you want to scroll views (instead of a views contents), you need a 

    companion class (ViewScroller). See the documentation there.

    If you need horizontal scrolling too, use an instance of HVScrollableView.

    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.

    TODO:

        this is pretty old and needs a rewrite. There are quite some

        historic leftovers found here and things can be done better

        (especially in initializeFor...)

        Also, it should be rewritten into one class which supports both

        Vertical-only, Horizontal-only and HV scrolling.

        Currently, horizontal-only scrolling is not available.

        (you have to write your own class ...)

        Finally, some means to hide scrollbars should be added - this would

        give more screenspace to the view when all is visible 

        (and therefore, the scrollbars are not needed, anyway)

        Expect the above things to be fixed in an upcoming version.

    [author:]

        Claus Gittinger

    [see also:]

        ScrollBar Scroller

         HVScrollableView

"

!

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]

"

! !

!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 == HVScrollableView)

        hasVerticalScrollBar:true

        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 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 := NewScrollableView 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 == HVScrollableView)

        hasVerticalScrollBar:true

        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

     if true."

    ^ self 

        for:aViewClass

        hasHorizontalScrollBar:(self == HVScrollableView)

        hasVerticalScrollBar:true

        miniScrollerH:mini 

        miniScrollerV:mini 

        origin:nil

        corner:nil 

        in:nil

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

!

for:aViewClass miniScroller:mini in:aView

    "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

     if true."

    ^ self 

        for:aViewClass

        hasHorizontalScrollBar:(self == HVScrollableView)

        hasVerticalScrollBar:true

        miniScrollerH:mini 

        miniScrollerV:mini 

        origin:nil

        corner:nil 

        in:aView

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

!

for:aViewClass miniScroller:mini 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 mini is false, miniscrollers

     if true."

    ^ self 

        for:aViewClass

        hasHorizontalScrollBar:(self == HVScrollableView)

        hasVerticalScrollBar:true

        miniScrollerH:mini 

        miniScrollerV:mini 

        origin:org

        corner:corn 

        in:aView

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

!

for:aViewClass miniScrollerH:miniH