--- 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)"