hg/stx-libwidg: comparison ListView.st

equal deleted inserted replaced

-:109a5074102f
+:33830e4f998f
 	instanceVariableNames:'list firstLineShown leftOffset nFullLinesShown nLinesShown
 		fgColor bgColor partialLines leftMargin topMargin textStartLeft
 		textStartTop innerWidth tabPositions lineSpacing fontHeight
 		fontAscent fontIsFixedWidth fontWidth autoScroll autoScrollBlock
 		autoScrollDeltaT wordCheck includesNonStrings widthOfWidestLine
-		listMsg viewOrigin listChannel backgroundAlreadyClearedColor'
+		listMsg viewOrigin listChannel backgroundAlreadyClearedColor
+		scrollWhenUpdating'
 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultTabPositions
 		DefaultLeftMargin DefaultTopMargin'
 	poolDictionaries:''
 	category:'Views-Text'
 !
 [Instance variables:]
 list                <aCollection>           the text strings, a collection of lines.
-						  Nils may be used for empty lines.
+Nils may be used for empty lines.
 firstLineShown      <Number>                the index of the 1st visible line (1 ..)
 leftOffset          <Number>                left offset for horizontal scroll
 nFullLinesShown     <Number>                the number of unclipped lines in visible area
-						  (internal; updated on size changes)
+(internal; updated on size changes)
 nLinesShown         <Number>                the number of lines in visible area, incl. partial
-						  (internal; updated on size changes)
+(internal; updated on size changes)
 fgColor             <Color>                 color to draw characters
 bgColor             <Color>                 the background
 partialLines        <Boolean>               allow last line to be partial displayed
 fontAscent          <Number>                font ascent in pixels (internal)
 fontIsFixed         <Boolean>               true if its a fixed font (internal)
 fontWidth           <Number>                width of space (internal)
 lineSpacing         <Number>                pixels between lines
 lastSearchPattern   <String>                last pattern for searching
-						  (kept to provide a default for next search)
+(kept to provide a default for next search)
 lastSearchIgnoredCase   <Boolean>           last search ignored case
-						  (kept to provide a default for next search)
+(kept to provide a default for next search)
 wordCheck           <Block>                 rule used for check for word boundaries in word select
-						  The default rule is to return true for alphaNumeric characters.
+The default rule is to return true for alphaNumeric characters.
-						  (can be changed to allow for underscore and other
+(can be changed to allow for underscore and other
-						   characters to be treated as alphaCharacters)
+characters to be treated as alphaCharacters)
 autoScrollBlock     <Block>                 block installed as timeoutBlock when doing an
-						  autoScroll (internal)
+autoScroll (internal)
 autoScrollDeltaT                            computed scroll time delta in seconds (internal)
 includesNonStrings                          cached flag if any non-strings are in list
 widthOfWidestLine                           cached width of widest line
 listMsg                                     if view has a model and listMsg is non-nil,
-						  this is sent to the model to aquired a new contents
+this is sent to the model to aquired a new contents
-						  whenever a change of the aspect  (aspectMsg) occurs.
+whenever a change of the aspect  (aspectMsg) occurs.
 viewOrigin                                  the current origin
 backgroundAlreadyClearedColor               internal; speedup by avoiding
-						  multiple fills when drawing
+multiple fills when drawing
-						  internal lines
+internal lines
+scrollWhenUpdating
+<Symbol>        defines how the view is scrolled if the
+model changes its value by some outside activity
+(i.e. not by user input).
+Can be one of:
+#keep / nil     -> stay unchanged
+#endOfText      -> scroll to the end
+#beginOfText    -> scroll to the top
+The default is #beginOfText (i.e. scroll to top).
 [StyleSheet parameters:]
 textForegroundColor                         defaults to Black
 textBackgroundColor                         defaults to White
 textFont                                    defaults to defaultFont
 textTabPositions                            defaults to #(1 9 17 25 ...)
 [author:]
-	Claus Gittinger
+Claus Gittinger
 [see also:]
-	TextView EditTextView
+TextView EditTextView
 "
 !
 examples
 "Modified: 5.6.1997 / 11:10:54 / cg"
 !
 list:aCollection
 "set the contents (a collection of strings or list entries)
-and scroll to top-left.
+and scroll as specified in scrollWhenUpdating (default:top-left).
 See also #setList:, which does not scroll.
 Tabs are expanded (to spaces).
 The passed list is scanned for nonStrings
 (remembered to optimize later redraws)."
 "Modified: 5.6.1997 / 11:10:45 / cg"
 !
 list:aCollection expandTabs:expand
-"set the contents (a collection of strings) and scroll to top-left.
+"set the contents (a collection of strings)
+and scroll as specified in scrollWhenUpdating (default:top-left).
 If expand is true, tabs are expanded (to spaces).
 The passed list is scanned for nonStrings (remembered to optimize
 later redraws)."
 self list:aCollection expandTabs:expand scanForNonStrings:true
 "Modified: 5.6.1997 / 11:09:44 / cg"
 !
 list:aCollection expandTabs:expand scanForNonStrings:scan
-"set the contents (a collection of strings) and scroll to top-left.
+"set the contents (a collection of strings)
+and scroll as specified in scrollWhenUpdating (default:top-left).
 If expand is true, tabs are expanded (to spaces).
 If scan is true, scan the passed list for nonStrings; otherwise,
 assume that it does contain non-strings
 (remembered to optimize later redraws)."
 self
-	list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:true
+list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:true
 "Modified: 5.6.1997 / 12:40:35 / cg"
 !
 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings
-"set the contents (a collection of strings) and scroll to top-left.
+"set the contents (a collection of strings)
+and scroll as specified in scrollWhenUpdating (default:top-left).
 If expand is true, tabs are expanded (to spaces).
 If scan is true, scan the passed list for nonStrings;
 otherwise, take the information from the nonStrings arg.
 (the nonStrings information is remembered to optimize later redraws & height computations)."
 |oldFirst oldLeft nonStringsBefore fontHeightBefore|
 (aCollection isNil and:[list isNil]) ifTrue:[
-"no change"
+"no contents change"
-self scrollToTop.
+(scrollWhenUpdating == #begin
-self scrollToLeft.
+or:[scrollWhenUpdating == #beginOfText]) ifTrue:[
+self scrollToTop.
+self scrollToLeft.
+] ifFalse:[
+(scrollWhenUpdating == #end
+or:[scrollWhenUpdating == #endOfText]) ifTrue:[
+self scrollToBottom.
+]
+].
 ^ self
 ].
 list := aCollection.
 nonStringsBefore := includesNonStrings.
 ].
 widthOfWidestLine := nil.   "/ i.e. unknown
 oldFirst := firstLineShown.
 oldLeft := leftOffset.
-firstLineShown := 1.
-leftOffset := 0.
+(scrollWhenUpdating == #begin
+or:[scrollWhenUpdating == #beginOfText]) ifTrue:[
+firstLineShown := 1.
+leftOffset := 0.
+] ifFalse:[
+(scrollWhenUpdating == #end
+or:[scrollWhenUpdating == #endOfText]) ifTrue:[
+firstLineShown := (list size - nFullLinesShown - 1) max:1.
+leftOffset := 0.
+]
+].
 realized ifTrue:[
 (includesNonStrings ~~ nonStringsBefore) ifTrue:[
 self computeNumberOfLinesShown.
 ].
 partialLines := true.
 tabPositions := DefaultTabPositions.
 includesNonStrings := false.
 self getFontParameters.
 wordCheck := [:char | char isNationalAlphaNumeric].
+scrollWhenUpdating := #beginOfText.
 autoScroll := true.
 "Modified: 4.11.1996 / 23:28:17 / cg"
 !
 ! !
 !ListView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.216 1999-12-15 22:24:12 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.217 2000-02-09 17:50:15 cg Exp $'
 ! !

changeset 2128	33830e4f998f
parent 2090	85c0dd8a4281
child 2132	5d91bceb675f