ListView.st
changeset 4770 ac8f889cf805
parent 4768 c8e1b6871f5c
child 4830 0f1e128995e9
--- a/ListView.st	Sun Sep 15 14:36:24 2013 +0200
+++ b/ListView.st	Mon Sep 16 10:51:05 2013 +0200
@@ -3608,10 +3608,10 @@
     ] ifFalse:[
         checkedLinesForWidthOfContentsComputation >= 0 ifTrue:[
             start := 1.
-            stop := checkedLinesForWidthOfContentsComputation
+            stop := (checkedLinesForWidthOfContentsComputation min:list size)
         ] ifFalse:[
             stop := list size.
-            start := list size + 1 + checkedLinesForWidthOfContentsComputation.
+            start := (list size + 1 + checkedLinesForWidthOfContentsComputation) max:1.
         ]
     ].
 
@@ -5263,10 +5263,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.386 2013-09-14 10:45:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.387 2013-09-16 08:51:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.386 2013-09-14 10:45:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.387 2013-09-16 08:51:05 cg Exp $'
 ! !