--- a/FramedBox.st	Sat Mar 20 14:18:36 2004 +0100
+++ b/FramedBox.st	Tue Mar 23 12:05:04 2004 +0100
@@ -668,6 +668,7 @@
     labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter.
     frame3D := StyleSheet at:'framedBox.3DFrame' default:true.
     font := StyleSheet at:'framedBox.font' default:font.
+    font := font onDevice:device.
     borderWidth := 0.
 
     "Modified: / 26.10.1997 / 17:00:57 / cg"
@@ -759,5 +760,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.46 2004-02-26 12:19:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.47 2004-03-23 11:05:04 james Exp $'
 ! !