--- a/HierarchicalFileList.st	Mon Jul 17 15:31:21 2000 +0200
+++ b/HierarchicalFileList.st	Mon Jul 17 15:35:06 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 HierarchicalList subclass:#HierarchicalFileList
 	instanceVariableNames:'icons matchBlock showCursor'
 	classVariableNames:''
@@ -89,35 +91,7 @@
 !HierarchicalFileList class methodsFor:'resources'!
 
 icons
-    "returns set of icons
-    "
-    |icons resources fileKey resource baseName pathName|
-
-    resources := FileBrowser classResources.
-    icons     := Dictionary new.
-
-    #(
-        (#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )
-        (#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')
-        (#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )
-        (#file            'ICON_FILE'             'tiny_file_plain.xpm'       )
-        (#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )
-        (#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )
-        (#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )
-        (#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'        )
-        (#executableFile  'ICON_EXECUTABLEFILE'   'tiny_file_exec.xpm'        )
-
-     ) do:[:entry|
-        fileKey  := entry at:1.
-        resource := entry at:2.
-        baseName := entry at:3.
-
-        (pathName := resources at:(entry at:2) default:nil) isNil ifTrue:[
-            pathName := 'bitmaps/xpmBitmaps/document_images/' , baseName
-        ].
-        icons at:fileKey put:(Image fromFile:pathName).
-    ].
-    ^ icons
+    ^ FileBrowser icons.
 
 
 
@@ -559,5 +533,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.6 1999-10-07 05:25:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.7 2000-07-17 13:35:06 ca Exp $'
 ! !