--- a/InfoBox.st	Wed Aug 18 16:42:04 1999 +0200
+++ b/InfoBox.st	Wed Aug 18 16:44:40 1999 +0200
@@ -206,7 +206,7 @@
             InfoBitmap := Image fromFile:imgFileName.
         ].
         InfoBitmap notNil ifTrue:[
-            InfoBitmap := InfoBitmap on:Display
+            InfoBitmap := InfoBitmap onDevice:Display
         ]
     ].
     ^ InfoBitmap
@@ -369,5 +369,5 @@
 !InfoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.33 1997-10-28 20:02:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.34 1999-08-18 14:44:40 cg Exp $'
 ! !

--- a/Label.st	Wed Aug 18 16:42:04 1999 +0200
+++ b/Label.st	Wed Aug 18 16:44:40 1999 +0200
@@ -1119,7 +1119,7 @@
              normalFont/boldFont/italicFont parameters."
 
     (aFont notNil and:[aFont ~~ font]) ifTrue:[
-        super font:(aFont on:device).
+        super font:(aFont onDevice:device).
         self newLayout
     ]
 
@@ -1336,7 +1336,7 @@
 initialize
     super initialize.
 
-    font := font on:device.
+    font := font onDevice:device.
     self initialHeight:(font height + font descent).
     adjust := #center.
     labelOriginX := labelOriginY := 0.
@@ -1352,7 +1352,7 @@
      different font parameters"
 
     super recreate.
-    font := font on:device.
+    font := font onDevice:device.
     self computeLabelSize.
     self computeLabelOrigin
 ! !
@@ -1762,5 +1762,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.106 1999-07-08 09:32:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.107 1999-08-18 14:43:59 cg Exp $'
 ! !