--- a/UIPainter.st Tue Dec 11 18:49:39 2007 +0100
+++ b/UIPainter.st Mon Dec 17 12:04:57 2007 +0100
@@ -4113,6 +4113,7 @@
^ self.
].
+ aspectList sort:[:a :b | a first < b first].
displayedList := aspectList collect:[:entry | (((entry first) paddedTo:25) contractTo:25) , ' -> ' , entry second ].
aspectList := aspectList collect:[:each | each first].
@@ -5012,21 +5013,23 @@
self showDirectoryIndicator: true.
self showDirectoryIndicatorForRoot: false.
- self model iconAction:
- [:aNode|
- |specClass|
- (specClass := aNode contents spec) isNil
- ifTrue: [WindowSpec icon]
- ifFalse:[specClass class icon]
- ].
-
- self model labelAction:
- [:aNode|
- |spec|
- (spec := aNode contents spec) notNil
- ifTrue: [self nameForSpecInList:spec]
- ifFalse:[aNode name]
- ]
+ self model
+ iconAction:
+ [:aNode|
+ |specClass|
+ (specClass := aNode contents spec) isNil
+ ifTrue: [WindowSpec icon]
+ ifFalse:[specClass class icon]
+ ].
+
+ self model
+ labelAction:
+ [:aNode|
+ |spec|
+ (spec := aNode contents spec) notNil
+ ifTrue: [self nameForSpecInList:spec]
+ ifFalse:[aNode name]
+ ]
! !
!UIPainter::TreeView methodsFor:'private'!
@@ -5034,7 +5037,13 @@
nameForSpecInList:aSpec
"returns the tree item label for aSpec"
- ^ aSpec name asBoldText, ': [', aSpec viewClass name , ']'
+ |m|
+
+ m := aSpec perform:#model ifNotUnderstood:nil.
+ m notNil ifTrue:[
+ ^ '(',m allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']'
+ ].
+ ^ aSpec name allBold, ': [', aSpec viewClass name , ']'
!
selectionChangedFrom:oldSelection