--- a/UIPainter.st Thu Aug 18 02:19:34 2011 +0200
+++ b/UIPainter.st Thu Aug 18 02:36:42 2011 +0200
@@ -6444,13 +6444,21 @@
nameForSpecInList:aSpec
"returns the tree item label for aSpec"
- |aspect|
+ |aspect aspectPrefix nameString viewClassString|
+
+ nameString := aSpec name ? ''.
+ viewClassString := '[',aSpec viewClass name,']' .
aspect := aSpec nameOfMainAspect.
aspect notNil ifTrue:[
- ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']'
- ].
- ^ aSpec name "allBold", ': [', aSpec viewClass name , ']'
+ aspectPrefix := '(',aspect allBold ,') '
+ ] ifFalse:[
+ aspectPrefix := ''.
+ ].
+
+ ^ aspectPrefix, nameString, ': ', viewClassString
+
+ "Modified: / 17-08-2011 / 09:10:31 / cg"
!
selectionChangedFrom:oldSelection