DSVColumnView.st
changeset 765 dfd884a8820f
parent 732 cc72bcc0372b
child 809 0206d997fe99
--- a/DSVColumnView.st	Mon Feb 16 23:40:41 1998 +0100
+++ b/DSVColumnView.st	Wed Feb 18 10:13:28 1998 +0100
@@ -980,9 +980,9 @@
     self paint:bgColor.
     self fillRectangleX:x y:y width:w height:h.
 
-    columnDescriptors size ~~ 0 ifTrue:[
-        yTop  := margin - viewOrigin y.
-        c0    := y - yTop.
+    columnDescriptors size ~~ 0 ifTrue:[                
+        yTop  := margin - viewOrigin y.                   
+        c0    := y - yTop max:0.
         start := (c0 // rowHeight) + 1.
         stop  := (c0 + h - 1 // rowHeight + 1) min:(list size).
 
@@ -1013,6 +1013,7 @@
         ]
     ]
 
+    "Modified: / 17.2.1998 / 18:04:15 / stefan"
 ! !
 
 !DSVColumnView methodsFor:'enumerating columns'!
@@ -2307,5 +2308,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.28 1998-02-05 16:57:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.29 1998-02-18 09:13:28 stefan Exp $'
 ! !