--- a/GraphicsContext.st	Fri Nov 19 14:27:54 1999 +0100
+++ b/GraphicsContext.st	Fri Nov 19 15:37:34 1999 +0100
@@ -2158,6 +2158,18 @@
 
 !GraphicsContext methodsFor:'misc'!
 
+clippedTo:aRectangle do:aBlock
+    |oldClip|
+
+    oldClip := clipRect.
+    self clippingRectangle:aRectangle.
+
+    aBlock value.
+
+    self clippingRectangle:oldClip
+
+!
+
 flush
     "send all buffered drawing to the device."
 
@@ -2169,6 +2181,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.84 1999-10-04 10:54:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.85 1999-11-19 14:37:34 ps Exp $'
 ! !
 GraphicsContext initialize!