--- a/FramedBox.st	Wed Jan 15 15:02:08 1997 +0100
+++ b/FramedBox.st	Wed Jan 15 16:59:22 1997 +0100
@@ -560,6 +560,16 @@
 
 !FramedBox methodsFor:'initialization'!
 
+fetchDeviceResources
+    "fetch device colors, to avoid reallocation at redraw time"
+
+    super fetchDeviceResources.
+
+    fgColor := fgColor on:device.
+
+    "Created: 15.2.1997 / 16:57:56 / cg"
+!
+
 initStyle
     "default position is top-center, except for ms-windows, where
      the text is positioned at top-left"
@@ -655,5 +665,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.29 1997-01-03 21:45:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.30 1997-01-15 15:59:22 cg Exp $'
 ! !