--- a/GraphicsContext.st	Sat Nov 26 21:38:57 2016 +0000
+++ b/GraphicsContext.st	Sat Nov 26 22:00:53 2016 +0000
@@ -984,6 +984,10 @@
     "Modified: 12.5.1996 / 19:40:43 / cg"
 !
 
+setDevice:aDevice
+    device := aDevice
+!
+
 viewOrigin
     "return the drawables visible origin (for scrolling)"