--- a/GraphicsContext.st	Thu Feb 13 13:38:26 2014 +0100
+++ b/GraphicsContext.st	Thu Feb 13 19:24:53 2014 +0100
@@ -830,6 +830,13 @@
     "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]
@@ -2491,11 +2498,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.131 2014-02-04 10:04:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.132 2014-02-13 18:24:53 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.131 2014-02-04 10:04:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.132 2014-02-13 18:24:53 stefan Exp $'
 ! !