# HG changeset patch
# User tz
# Date 885574797 -3600
# Node ID bb4e776b92101e98296a1f062030f113da607ad3
# Parent  ddb605aaf94a25e33b4e6154cf4014d050fb2a8e
levels changed

diff -r ddb605aaf94a -r bb4e776b9210 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Fri Jan 23 17:10:59 1998 +0100
+++ b/FileSelectionBrowser.st	Fri Jan 23 17:59:57 1998 +0100
@@ -134,11 +134,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'File Selection Browser'
-              #'layout:' #(#LayoutFrame 32 0 298 0 431 0 597 0)
+              #'layout:' #(#LayoutFrame 207 0 351 0 606 0 650 0)
               #'label:' 'File Selection Browser'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 32 298 432 598)
+              #'bounds:' #(#Rectangle 207 351 607 651)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -173,7 +173,6 @@
                                     )
                                   )
                               )
-                              #'level:' -1
                           )
                            #(#ViewSpec
                               #'name:' 'view2'
@@ -195,7 +194,6 @@
                                     )
                                   )
                               )
-                              #'level:' -1
                           )
                         )
                     )
diff -r ddb605aaf94a -r bb4e776b9210 ImageEditor.st
--- a/ImageEditor.st	Fri Jan 23 17:10:59 1998 +0100
+++ b/ImageEditor.st	Fri Jan 23 17:59:57 1998 +0100
@@ -664,11 +664,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Image Editor'
-              #'layout:' #(#LayoutFrame 230 0 403 0 729 0 748 0)
+              #'layout:' #(#LayoutFrame 127 0 279 0 626 0 624 0)
               #'label:' 'Image Editor'
               #'min:' #(#Point 400 320)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 230 403 730 749)
+              #'bounds:' #(#Rectangle 127 279 627 625)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -893,6 +893,7 @@
                           )
                         )
                     )
+                    #'level:' 1
                     #'handles:' #(#Any 0.45082 1.0)
                 )
                  #(#LabelSpec
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]))