--- a/GraphicsContext.st	Wed Nov 23 21:13:19 2016 +0100
+++ b/GraphicsContext.st	Thu Nov 24 08:59:11 2016 +0100
@@ -984,6 +984,10 @@
     "Modified: 12.5.1996 / 19:40:43 / cg"
 !
 
+setDevice:aDevice
+    device := aDevice
+!
+
 viewOrigin
     "return the drawables visible origin (for scrolling)"