--- a/SelListV.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/SelListV.st	Thu Jan 13 01:18:51 1994 +0100
@@ -37,7 +37,7 @@
 this one is a ListView with a selected line (which is shown highlighted)
 If multipleSelectionsOk is true, it is also allowed to shift-click multiple entries.
 
-$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.6 1994-01-08 17:29:52 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.7 1994-01-13 00:18:21 claus Exp $
 
 written spring/summer 89 by claus
 3D Jan 90 by claus
@@ -736,16 +736,16 @@
         form := self class rightArrowFormOn:device.
         y := y + ((font height - form height) // 2).
         self foreground:Black.
-        self drawForm:form x:x y:y.
+        self displayForm:form x:x y:y.
     ] ifFalse:[
         form := self class rightArrowLightFormOn:device.
         y := y + ((font height - form height) // 2).
 
         self foreground:lightColor.
-        self drawForm:form x:x y:y.
+        self displayForm:form x:x y:y.
 
         self foreground:shadowColor.
-        self drawForm:(self class rightArrowShadowFormOn:device) x:x y:y.
+        self displayForm:(self class rightArrowShadowFormOn:device) x:x y:y.
     ]
 !