--- a/VariableVerticalPanel.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/VariableVerticalPanel.st	Thu Jan 13 01:18:51 1994 +0100
@@ -32,7 +32,7 @@
 The bar-handle is either an exposed knob (style == #motif)
 or the forms defined in Scroller (style ~~ #motif)
 
-$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.5 1994-01-08 17:31:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.6 1994-01-13 00:18:51 claus Exp $
 
 written summer 91 by claus
 '!
@@ -191,13 +191,13 @@
      and:[shadowColor colorId notNil
           and:[lightColor colorId notNil]]) ifTrue:[
         self foreground:viewBackground background:noColor function:#xor.
-        self drawOpaqueForm:shadowForm x:hx y:hy.
+        self displayOpaqueForm:shadowForm x:hx y:hy.
         self foreground:shadowColor function:#or.
-        self drawOpaqueForm:shadowForm x:hx y:hy.
+        self displayOpaqueForm:shadowForm x:hx y:hy.
         self foreground:viewBackground function:#xor.
-        self drawOpaqueForm:lightForm x:hx y:hy.
+        self displayOpaqueForm:lightForm x:hx y:hy.
         self foreground:lightColor function:#or.
-        self drawOpaqueForm:lightForm x:hx y:hy.
+        self displayOpaqueForm:lightForm x:hx y:hy.
 
         self foreground:viewBackground.
         paint := nil. "kludge to force paint to be really set"