# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1199969962 -3600
# Node ID 33c98cefa7e6bb0e2494fbe4426057f44c94bb33
# Parent  21727bdd82210603ffd165c2e1b1358d7df04d8a
refactorings

diff -r 21727bdd8221 -r 33c98cefa7e6 UIPainter.st
--- a/UIPainter.st	Wed Jan 09 21:07:57 2008 +0100
+++ b/UIPainter.st	Thu Jan 10 13:59:22 2008 +0100
@@ -5056,13 +5056,13 @@
 nameForSpecInList:aSpec
     "returns the tree item label for aSpec"
 
-    |m|
-
-    m := aSpec perform:#model ifNotUnderstood:nil.
-    m notNil ifTrue:[
-        ^ '(',m allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
+    |aspect|
+
+    aspect := aSpec nameOfMainAspect.
+    aspect notNil ifTrue:[
+        ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
     ].
-    ^ aSpec name allBold, ': [', aSpec viewClass name , ']' 
+    ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' 
 !
 
 selectionChangedFrom:oldSelection