--- a/GraphicsMedium.st	Mon Feb 03 11:35:35 2014 +0100
+++ b/GraphicsMedium.st	Mon Feb 03 11:35:50 2014 +0100
@@ -165,6 +165,19 @@
     ^ (self left + (width // 2)) @ (self top + (height // 2))
 !
 
+clippingBounds
+    "return the clipping rectangle for drawing (in logical coordinates). 
+     If there is currently no clippingBounds, a dummy is created."
+
+    clipRect notNil ifTrue:[
+        ^ clipRect.
+    ] ifFalse:[
+        ^ Rectangle
+            origin: 0 @ 0
+            corner: width @ height
+    ].
+!
+
 corner
     "return the corner point i.e. the bottom-right point"
 
@@ -423,6 +436,6 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.20 2013-04-23 12:23:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.21 2014-02-03 10:35:50 stefan Exp $'
 ! !