ScrollableView subclass:#SequenceView
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Views-Text'
!

!SequenceView class methodsFor:'documentation'!

documentation
"
    implements a SelectionInListView with configurable scrollbars

    ST-80 compatibility

    [see also:]
        SelectionInListView
"
!

examples
"
    same behavior as a SelectionInListView
                                                                        [exBegin]
    |top doc holder|

    top := StandardSystemView extent:500@500.
    doc := self origin:0.0@ 0.0 corner:1.0@1.0 in:top.
    top openAndWait.
    doc list:#( 'a' 'b' 'c' 'd' ).
    doc multipleSelectOk:true.
                                                                        [exEnd]
"

! !

!SequenceView methodsFor:'accessing'!

font:aFont
    "set the font for the scrooled view
    "
    super font:aFont.
    self scrolledView font:aFont.
! !

!SequenceView methodsFor:'initialization'!

initialize
    "setup scrollable view a SelectionInList instance
    "
    super initialize.

    self verticalScrollable:true;     verticalMini:false.
    self horizontalScrollable:true; horizontalMini:false.

    self scrolledView:SelectionInListView new


! !

!SequenceView class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libwidg/SequenceView.st,v 1.1 1997-06-04 11:35:56 ca Exp $'
! !