--- a/DebugView.st	Thu Dec 09 12:13:34 1999 +0100
+++ b/DebugView.st	Thu Dec 09 12:15:37 1999 +0100
@@ -371,7 +371,7 @@
         i := self classResources at:'ICON' default:nil.
         i isNil ifTrue:[
             nm := ClassResources at:'ICON_FILE' default:'Debugger.xbm'.
-            i := Smalltalk bitmapFromFileNamed:nm forClass:self.
+            i := Smalltalk imageFromFileNamed:nm forClass:self.
             i isNil ifTrue:[
                 i := StandardSystemView defaultIcon
             ]
@@ -4097,6 +4097,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.254 1999-12-08 20:44:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.255 1999-12-09 11:15:37 cg Exp $'
 ! !
 DebugView initialize!

--- a/FileBrowser.st	Thu Dec 09 12:13:34 1999 +0100
+++ b/FileBrowser.st	Thu Dec 09 12:15:37 1999 +0100
@@ -179,7 +179,7 @@
         nm isNil ifTrue:[
             nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName
         ].
-        Icons at:key put:(Smalltalk bitmapFromFileNamed:nm forClass:self).
+        Icons at:key put:(Smalltalk imageFromFileNamed:nm forClass:self).
     ]
 
     "
@@ -230,7 +230,7 @@
         i := res at:'FILEBROWSER_ICON' default:nil.
         i isNil ifTrue:[
             nm := res at:'FILEBROWSER_ICON_FILE' default:'FBrowser.xbm'.
-            i := Smalltalk bitmapFromFileNamed:nm forClass:self.
+            i := Smalltalk imageFromFileNamed:nm forClass:self.
             i isNil ifTrue:[
                 i := StandardSystemView defaultIcon
             ]
@@ -6911,5 +6911,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.352 1999-12-01 20:20:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.353 1999-12-09 11:14:48 cg Exp $'
 ! !