--- a/Button.st	Thu Dec 09 12:16:45 1999 +0100
+++ b/Button.st	Thu Dec 09 12:18:51 1999 +0100
@@ -867,7 +867,7 @@
     (ReturnForm notNil and:[aDevice == ReturnForm graphicsDevice]) ifTrue:[
         ^ ReturnForm
     ].
-    f := Smalltalk bitmapFromFileNamed:'Return.xbm' inPackage:#'stx:libwidg'.
+    f := Smalltalk imageFromFileNamed:'Return.xbm' inPackage:#'stx:libwidg'.
     f notNil ifTrue:[
         f := f onDevice:aDevice
     ] ifFalse:[
@@ -902,7 +902,7 @@
     (ReturnLightForm notNil and:[aDevice == ReturnLightForm graphicsDevice]) ifTrue:[
         ^ ReturnLightForm
     ].
-    f := Smalltalk bitmapFromFileNamed:'ReturnLight.xbm' inPackage:#'stx:libwidg'.
+    f := Smalltalk imageFromFileNamed:'ReturnLight.xbm' inPackage:#'stx:libwidg'.
     f notNil ifTrue:[
         f := f onDevice:aDevice
     ] ifFalse:[
@@ -937,7 +937,7 @@
     (ReturnShadowForm notNil and:[aDevice == ReturnShadowForm graphicsDevice]) ifTrue:[
         ^ ReturnShadowForm
     ].
-    f := Smalltalk bitmapFromFileNamed:'ReturnShadow.xbm' inPackage:#'stx:libwidg'.
+    f := Smalltalk imageFromFileNamed:'ReturnShadow.xbm' inPackage:#'stx:libwidg'.
     f notNil ifTrue:[
         f := f onDevice:aDevice
     ] ifFalse:[
@@ -2252,5 +2252,5 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.113 1999-12-01 19:58:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.114 1999-12-09 11:18:51 cg Exp $'
 ! !