diff -r 6cc4f99397af -r 9bdf9516a7bf GraphicsMedium.st
--- a/GraphicsMedium.st	Mon Jul 25 10:42:37 2016 +0200
+++ b/GraphicsMedium.st	Mon Jul 25 15:46:55 2016 +0200
@@ -763,7 +763,21 @@
     gc device:aDevice
 !
 
+deviceClippingBounds:aRectangleOrNil
+    "set the clipping rectangle for drawing (in device coordinates);
+     a nil argument turns off clipping (i.e. whole view is drawable - incl. margins)"
+
+    gc deviceClippingBounds:aRectangleOrNil
+!
+
+deviceClippingBoundsOrNil
+    "return the clipping rectangle as physical coordinated for drawing, nil if there is none."
+
+    ^ gc deviceClippingBoundsOrNil
+!
+
 deviceClippingRectangle:aRectangleOrNil
+    <resource: #obsolete>
     "set the clipping rectangle for drawing (in device coordinates);
      a nil argument turns off clipping (i.e. whole view is drawable - incl. margins)"