--- a/GraphicsContext.st	Mon Feb 03 11:35:05 2014 +0100
+++ b/GraphicsContext.st	Mon Feb 03 11:35:35 2014 +0100
@@ -765,8 +765,8 @@
 
     <resource:#obsolete>
 
-    self obsoleteMethodWarning:'use #clippingRectangle:'.
-    ^ self clippingRectangle:aRectangle
+    self obsoleteMethodWarning:'use #clippingBounds:'.
+    ^ self clippingBounds:aRectangle
 
     "Modified: 28.5.1996 / 14:13:09 / cg"
 !
@@ -774,23 +774,23 @@
 clippingBounds
     "return the clip-rectangle for drawing.
      If there is currently no active clip, return the underlying
-     displaySurfaces (i.e. views) bounds. Added for ST-80 compatibility."
+     medium (i.e. device) bounds. Added for ST-80 compatibility."
 
     |rect|
 
     clipRect isNil ifTrue:[
-	rect := 0@0 extent:(self medium extent).
-	transformation notNil ifTrue:[
-	    rect := transformation applyInverseTo:rect.
-	].
-	^ rect
+        rect := 0@0 extent:(self medium extent).
+        transformation notNil ifTrue:[
+            rect := transformation applyInverseTo:rect.
+        ].
+        ^ rect
     ].
     ^ clipRect
 
     "Modified: 28.5.1996 / 14:05:15 / cg"
 !
 
-clippingRectangle:aRectangleOrNil
+clippingBounds:aRectangleOrNil
     "set the clipping rectangle for drawing (in logical coordinates);
      a nil argument turn off clipping (i.e. whole view is drawable)"
 
@@ -800,7 +800,28 @@
     "Created: 28.5.1996 / 14:09:27 / cg"
 !
 
+clippingBoundsOrNil
+    "return the clipping bounds (a Rectangle) for drawing, nil if there is none."
+
+    ^ clipRect
+
+    "Created: 10.4.1996 / 14:32:02 / cg"
+    "Modified: 28.5.1996 / 14:08:19 / cg"
+!
+
+clippingRectangle:aRectangleOrNil
+    <resource: #obsolete>
+    "set the clipping rectangle for drawing (in logical coordinates);
+     a nil argument turn off clipping (i.e. whole view is drawable)"
+
+    self clippingBounds:aRectangleOrNil.
+
+    "Modified: 22.5.1996 / 13:12:07 / cg"
+    "Created: 28.5.1996 / 14:09:27 / cg"
+!
+
 clippingRectangleOrNil
+    <resource: #obsolete>
     "return the clipping rectangle for drawing, nil if there is none."
 
     ^ clipRect
@@ -2469,11 +2490,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.129 2013-12-06 14:41:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.130 2014-02-03 10:35:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.129 2013-12-06 14:41:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.130 2014-02-03 10:35:35 stefan Exp $'
 ! !