--- 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
)
)
)
--- 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
--- 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]))