--- a/GraphicsMedium.st	Tue May 28 20:00:24 1996 +0200
+++ b/GraphicsMedium.st	Tue May 28 20:08:18 1996 +0200
@@ -201,9 +201,11 @@
     |oldClip|
     
     oldClip := clipRect.
-    self clipRect:aRectangle.
+    self clippingRectangle:aRectangle.
     aBlock value.
-    self clipRect:oldClip
+    self clippingRectangle:oldClip
+
+    "Modified: 28.5.1996 / 20:04:58 / cg"
 !
 
 withFunction:aFunction do:aBlock
@@ -401,5 +403,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.4 1996-05-28 17:44:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.5 1996-05-28 18:07:43 cg Exp $'
 ! !