remember old width/height before doing a repairDamage
in #scrollTo:redraw:;
under Win32, resizes may arrive in between.
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 class methodsFor:'defaults'!
defaultFont
^ SelectionInListView defaultFont
"Created: / 20.6.1998 / 14:17:01 / cg"
! !
!SequenceView methodsFor:'ST-80 compatibility'!
optimizeForText
"dummy - ST-80 compatibility"
"Created: / 6.7.1998 / 13:26:18 / cg"
! !
!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.3 1998-07-06 15:51:29 cg Exp $'
! !