--- a/GraphicsContext.st	Fri Apr 12 19:06:48 1996 +0200
+++ b/GraphicsContext.st	Sat Apr 13 20:06:18 1996 +0200
@@ -290,6 +290,12 @@
     ^ self clipRect
 !
 
+clippingRectangleOrNil
+    ^ self subclassResponsibility
+
+    "Created: 10.4.1996 / 14:31:19 / cg"
+!
+
 font
     "return the current drawing font"
 
@@ -837,6 +843,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.23 1996-03-07 18:38:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.24 1996-04-13 18:05:20 cg Exp $'
 ! !
 GraphicsContext initialize!