--- a/ObjView.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/ObjView.st	Thu Jan 13 01:18:51 1994 +0100
@@ -42,7 +42,7 @@
 this is an abstract class providing common mechanisms - actual instances are
 DrawView, DirectoryView, LogicView or DocumentView.
 
-$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.6 1994-01-08 17:27:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.7 1994-01-13 00:17:22 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -170,7 +170,7 @@
     "redraw the grid"
 
     gridPixmap notNil ifTrue:[
-        self drawOpaqueForm:gridPixmap x:0 y:0
+        self displayOpaqueForm:gridPixmap x:0 y:0
     ]
 !
 
@@ -1552,7 +1552,7 @@
 
     self setRectangleDragActions.
     groupRectangleFrame := Rectangle origin:startPoint corner:startPoint.
-    self xoring:[self drawRectangle:groupRectangleFrame].
+    self xoring:[self displayRectangle:groupRectangleFrame].
     oldCursor := cursor.
     self cursor:leftHandCursor
 !
@@ -1561,16 +1561,16 @@
     "do drag a rectangle"
 
     self xoring:[
-        self drawRectangle:groupRectangleFrame.
+        self displayRectangle:groupRectangleFrame.
         groupRectangleFrame corner:aPoint.
-        self drawRectangle:groupRectangleFrame
+        self displayRectangle:groupRectangleFrame
     ]
 !
 
 endRectangleDrag
     "cleanup after rectangle drag; select them"
 
-    self xoring:[self drawRectangle:groupRectangleFrame].
+    self xoring:[self displayRectangle:groupRectangleFrame].
     self cursor:oldCursor.
     self selectAllIn:(groupRectangleFrame + viewOrigin)
 !