--- a/FSelList.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/FSelList.st	Thu Jan 13 01:18:51 1994 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.2 1994-01-08 17:27:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.3 1994-01-13 00:15:25 claus Exp $
 written Dec 93 by claus
 '!
 
@@ -137,8 +137,19 @@
 redrawFromVisibleLine:startVisLineNr to:endVisLineNr
     "redefined to look for directory in every line"
 
-    startVisLineNr to:endVisLineNr do:[:l |
-        self redrawVisibleLine:l
+    |l|
+
+    "first, draw chunk of lines"
+    super redrawFromVisibleLine:startVisLineNr to:endVisLineNr.
+
+    "then draw marks"
+    startVisLineNr to:endVisLineNr do:[:visLineNr |
+        l := self visibleLineToListLine:visLineNr.
+        l notNil ifTrue:[
+            (fileTypes at:l) == #directory ifTrue:[
+                self drawRightArrowInVisibleLine:visLineNr
+            ]
+        ]
     ]
 !