--- a/GraphicsDevice.st	Mon Feb 03 11:43:30 2014 +0100
+++ b/GraphicsDevice.st	Tue Feb 04 10:39:07 2014 +0100
@@ -101,6 +101,17 @@
     ].
 ! !
 
+!GraphicsDevice methodsFor:'creating graphics contexts'!
+
+newGraphicsContextFor:aGraphicsMedium
+    "create a new graphics context.
+     The defaults is to use the inherited graphics context.
+     Subclasses may redefine this to use their own graphics context"
+
+    aGraphicsMedium device:self.
+    ^ aGraphicsMedium.
+! !
+
 !GraphicsDevice methodsFor:'event processing'!
 
 notifyEventListenersAbout:anEvent
@@ -142,9 +153,10 @@
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.10 2010-03-31 13:52:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.11 2014-02-04 09:39:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.10 2010-03-31 13:52:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.11 2014-02-04 09:39:07 stefan Exp $'
 ! !
+