--- a/GraphicsContext.st	Mon Aug 01 23:30:02 2016 +0100
+++ b/GraphicsContext.st	Fri Sep 02 17:42:18 2016 +0100
@@ -691,6 +691,14 @@
     "Modified: 12.5.1996 / 22:25:17 / cg"
 !
 
+basicFont
+    "return the font for drawing"
+
+    ^ font
+
+    "Created: 12.5.1996 / 11:17:59 / cg"
+!
+
 blackColor
     "return the black color on this device.
      This is the same as 'Color black onDevice:self device', but much faster."
@@ -799,13 +807,6 @@
     "Modified: 28.5.1996 / 14:08:19 / cg"
 !
 
-createFontOnDevice
-    "make sure, that the font is a device font"
-
-    font := font onDevice:device.
-    ^ font.
-!
-
 dashStyle:aDashList offset:dashOffset
     "define dashes. Each element of the dashList specifies the length
      of a corresponding dash. For example, setting it to [4 4]