--- a/FramedBox.st	Wed Aug 18 16:44:40 1999 +0200
+++ b/FramedBox.st	Wed Aug 18 16:49:08 1999 +0200
@@ -542,7 +542,7 @@
     ] ifFalse:[
         label isString ifTrue:[
             l := ' ' , label , ' '.
-            font := font on:device.
+            font := font onDevice:device.
         ] ifFalse:[
             l := label
         ].
@@ -618,7 +618,7 @@
 
     super fetchDeviceResources.
 
-    fgColor := fgColor on:device.
+    fgColor := fgColor onDevice:device.
 
     "Created: 15.2.1997 / 16:57:56 / cg"
 !
@@ -721,5 +721,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.39 1999-04-17 21:59:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.40 1999-08-18 14:48:53 cg Exp $'
 ! !