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