--- a/ResourceSelectionBrowser.st Tue Mar 10 13:42:53 1998 +0100
+++ b/ResourceSelectionBrowser.st Tue Mar 10 15:50:17 1998 +0100
@@ -81,10 +81,10 @@
^[:aTreeItem|
|classes|
classes := OrderedCollection new.
- classes
- addAll: (aTreeItem contents subclasses asSortedCollection: [:i1 :i2| i1 name < i2 name]);
- yourself]
-
+ classes addAll: ((aTreeItem contents subclasses reject: [:cls| cls isPrivate]) asSortedCollection: [:i1 :i2| i1 name < i2 name]).
+ classes addAll: (aTreeItem contents privateClasses asSortedCollection: [:i1 :i2| i1 name < i2 name]).
+ classes
+ ]
!
treeViewContents
@@ -98,13 +98,29 @@
treeViewIcon
- ^[self iconClass]
+ ^[:aTreeItem|
+ |icon|
+ icon := self iconClass.
+ aTreeItem contents isPrivate
+ ifTrue:
+ [
+ icon := self iconPrivateClass
+ ].
+ icon]
!
treeViewLabel
- ^[:aTreeItem|aTreeItem contents name]
+ ^[:aTreeItem|
+ |label superCls|
+ label := aTreeItem contents name.
+ (aTreeItem contents isPrivate and: [aTreeItem parent contents ~~ (superCls := aTreeItem contents superclass)])
+ ifTrue: [label := label, ' (', superCls name, ')'].
+ label
+ ]
+
+
! !
!ResourceSelectionBrowser class methodsFor:'interface specs'!
@@ -320,21 +336,7 @@
^Icon
constantNamed:#'ResourceSelectionBrowser iconPrivateClass'
- ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU@A****(@F*??* @Z/??*@A+???(MF/??> @Z5UU:@A+UUW(DF/??> @Z???:@A*??>(@F*??* @Z****C@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]
-!
-
-iconRealPrivateClass
- "Generated by the Image Editor"
- "
- ImageEditor openOnClass:self andSelector:#iconRealPrivateClass
- "
-
- <resource: #image>
-
- ^Icon
- constantNamed:#'ResourceSelectionBrowser iconRealPrivateClass'
- ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU@A****(@F*??* @Z/??*@A+???(OF/??> @Z5UU:@A+UUW(DF/??> @Z???:@A*??>(@F*??* @Z****C0@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]
-! !
+ ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU@A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C0@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! !
!ResourceSelectionBrowser methodsFor:'accessing - views'!
@@ -420,45 +422,11 @@
!ResourceSelectionBrowser methodsFor:'callbacks - tree view'!
-treeViewChildren
-
- ^[:aTreeItem|
- |classes|
- classes := self class treeViewChildren value: aTreeItem.
- classes addAll: (aTreeItem contents privateClasses asSortedCollection: [:i1 :i2| i1 name < i2 name]);
- yourself]
-!
-
treeViewContents
^(Smalltalk at: resourceSuperclass) ? self class treeViewContents
-!
-
-treeViewIcon
-
- ^[:aTreeItem|
- |icon|
- icon := self class treeViewIcon value.
- aTreeItem contents isPrivate
- ifTrue:
- [
- aTreeItem parent contents ~~ aTreeItem contents superclass
- ifTrue: [icon := self class iconRealPrivateClass]
- ifFalse: [icon := self class iconPrivateClass]
- ].
- icon]
-!
-
-treeViewLabel
-
- ^[:aTreeItem|
- |label superCls|
- label := self class treeViewLabel value: aTreeItem.
- (aTreeItem contents isPrivate and: [aTreeItem parent contents ~~ (superCls := aTreeItem contents superclass)])
- ifTrue: [label := label, ' (', superCls name, ')'].
- label]
! !
!ResourceSelectionBrowser methodsFor:'callbacks - user'!