diff -r ddb605aaf94a -r bb4e776b9210 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Fri Jan 23 17:10:59 1998 +0100
+++ b/ResourceSelectionBrowser.st	Fri Jan 23 17:59:57 1998 +0100
@@ -82,16 +82,16 @@
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
               #'name:' 'Resource Browser'
-              #'layout:' #(#LayoutFrame 74 0 329 0 485 0 628 0)
+              #'layout:' #(#LayoutFrame 169 0 290 0 580 0 589 0)
               #'label:' 'Resource Browser'
               #'min:' #(#Point 400 300)
               #'max:' #(#Point 1152 864)
-              #'bounds:' #(#Rectangle 74 329 486 629)
+              #'bounds:' #(#Rectangle 169 290 581 590)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -119,6 +119,8 @@
                                         #'hasVerticalScrollBar:' true
                                         #'miniScrollerHorizontal:' true
                                         #'showRoot:' false
+                                        #'showDirectoryIndicatorForRoot:' false
+                                        #'showDirectoryIndicator:' true
                                         #'valueChangeSelector:' #'classSelected:'
                                         #'hierarchicalList:' #listOfClasses
                                     )
@@ -129,7 +131,6 @@
                                     )
                                   )
                               )
-                              #'level:' -1
                           )
                            #(#ViewSpec
                               #'name:' 'view2'
@@ -176,7 +177,6 @@
                                     )
                                   )
                               )
-                              #'level:' -1
                           )
                         )
                     )
@@ -191,7 +191,6 @@
               )
           )
       )
-
 ! !
 
 !ResourceSelectionBrowser methodsFor:'accessing - views'!
@@ -305,7 +304,7 @@
 postBuildWith:aBuilder
 
     |classSelection classSelectionBlock|
-    classSelection := self class lastSelection ? resourceClass.
+    classSelection := self class lastSelection ? resourceClass ? ''.
     classSelectionBlock := [:cls|
     self listOfClassesView selectFromListOfNames: 
             (((Smalltalk at: cls asSymbol ifAbsent: [Object]))