--- a/DSVColumnView.st	Wed Oct 09 16:30:06 2002 +0200
+++ b/DSVColumnView.st	Wed Oct 09 17:31:05 2002 +0200
@@ -3253,6 +3253,22 @@
     ^ false
 !
 
+isRowVisible:aRowNr
+    |y h|
+
+    h := rowHeight.
+    y := self yVisibleOfRowNr:aRowNr.
+
+    y < margin ifTrue:[
+        (h := h + y) <= margin ifTrue:[
+            ^ false
+        ].                                            
+    ] ifFalse:[
+        y >= (height-margin) ifTrue:[^ false].
+    ].
+    ^ true
+!
+
 isSelected:aRowNr inColumn:aColNr
     "returns true if cell in a row; a row number, in a column, a column
      number is selected.
@@ -3638,5 +3654,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.150 2002-10-04 07:39:35 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.151 2002-10-09 15:31:05 penk Exp $'
 ! !