--- 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 $'
! !