--- a/HierarchicalListView.st	Wed Dec 08 21:49:10 1999 +0100
+++ b/HierarchicalListView.st	Thu Dec 09 12:14:22 1999 +0100
@@ -121,7 +121,7 @@
     <resource: #fileImage>
 
     ^ Icon constantNamed:#plus
-             ifAbsentPut:[Smalltalk bitmapFromFileNamed:'plus.xpm' forClass:self]
+             ifAbsentPut:[Smalltalk imageFromFileNamed:'plus.xpm' forClass:self]
 
 
 !
@@ -132,7 +132,7 @@
     <resource: #fileImage>
 
     ^ Icon constantNamed:#directory
-             ifAbsentPut:[Smalltalk bitmapFromFileNamed:'dir.xpm' forClass:self]
+             ifAbsentPut:[Smalltalk imageFromFileNamed:'dir.xpm' forClass:self]
 
 !
 
@@ -142,7 +142,7 @@
     <resource: #fileImage>
 
     ^ Icon constantNamed:#plainFile
-             ifAbsentPut:[Smalltalk bitmapFromFileNamed:'file_plain.xpm' forClass:self]
+             ifAbsentPut:[Smalltalk imageFromFileNamed:'file_plain.xpm' forClass:self]
 
 !
 
@@ -152,7 +152,7 @@
     <resource: #fileImage>
 
     ^ Icon constantNamed:#directoryOpened
-             ifAbsentPut:[Smalltalk bitmapFromFileNamed:'dir_open.xpm' forClass:self]
+             ifAbsentPut:[Smalltalk imageFromFileNamed:'dir_open.xpm' forClass:self]
 
 !
 
@@ -162,7 +162,7 @@
     <resource: #fileImage>
 
     ^ Icon constantNamed:#minus
-             ifAbsentPut:[Smalltalk bitmapFromFileNamed:'minus.xpm' forClass:self]
+             ifAbsentPut:[Smalltalk imageFromFileNamed:'minus.xpm' forClass:self]
 
 ! !
 
@@ -998,5 +998,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.19 1999-12-03 02:39:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.20 1999-12-09 11:14:22 cg Exp $'
 ! !