--- a/DeviceGraphicsContext.st	Tue Sep 21 14:19:28 1999 +0200
+++ b/DeviceGraphicsContext.st	Tue Sep 21 15:06:18 1999 +0200
@@ -211,7 +211,7 @@
 !
 
 basicFont
-    "return set the font for drawing"
+    "return the font for drawing"
 
     ^ font
 
@@ -444,6 +444,18 @@
     "Created: / 14.9.1998 / 18:50:31 / cg"
 !
 
+font
+    "return the font for drawing - here, a device font is returned if
+     the GC is realized."
+
+    device notNil ifTrue:[
+        ^ font onDevice:device
+    ].
+    ^ font
+
+    "Created: 12.5.1996 / 11:17:59 / cg"
+!
+
 font:aFont
     "set the font for drawing if it has changed.
      This should be redefined in some widget to perform an automatic
@@ -3838,6 +3850,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.72 1999-09-18 10:13:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.73 1999-09-21 13:06:18 stefan Exp $'
 ! !
 DeviceGraphicsContext initialize!