# HG changeset patch
# User tz
# Date 888084444 -3600
# Node ID 21fe350cfa06c8bb1655e7ad3626570db5446b06
# Parent  093cba68e10a8a9baf39f0699ae7e9917e2a87be
tree item labels changed to a more convenient style

diff -r 093cba68e10a -r 21fe350cfa06 UIPainter.st
--- a/UIPainter.st	Sat Feb 21 16:21:44 1998 +0100
+++ b/UIPainter.st	Sat Feb 21 19:07:24 1998 +0100
@@ -3268,7 +3268,7 @@
 defaultNameOfCanvas
     "returns the default name (id) of the application
     "
-    ^ 'Canvas'
+    ^ 'WindowSpec'
 ! !
 
 !UIPainter::TreeView class methodsFor:'documentation'!
@@ -3307,7 +3307,7 @@
 
     props := UIPainterView::ViewProperty new.
     props view:aCanvas.
-    model root:(TreeItem name:(self class defaultNameOfCanvas) contents:props).
+    model root:(TreeItem name: self class defaultNameOfCanvas asBoldText contents:props).
     model root expand.
     self enableChannel:(aCanvas enableChannel).
 
@@ -3321,7 +3321,7 @@
     spec := WindowSpec new.
 
     spec fromView:(self canvas topView) callBack:nil.
-    spec name:(listOfNodes at:1) name.
+    spec name:(listOfNodes at:1) name string.
 
     windowSpec notNil ifTrue:[
         spec copyValuesFromSpec:windowSpec
@@ -3402,7 +3402,7 @@
     parent := self detectItemRespondsToView:(aProperty view superView).
 
     parent notNil ifTrue:[
-        model add:(TreeItem name:(aProperty name) contents:aProperty) below:parent
+        model add:(TreeItem new contents:aProperty) below:parent
     ]
 
 !
@@ -3416,7 +3416,7 @@
     self canvas subViews copy do:[:aView|
         (aView isKindOf:InputView) ifFalse:[aView destroy]
     ].
-    model root name:(self class defaultNameOfCanvas).
+    model root name: self class defaultNameOfCanvas asBoldText.
     model root children:(OrderedCollection new).
     model recomputeList.
     self selection:nil.
@@ -3580,7 +3580,7 @@
      and:[(self propertyDetect:[:p| p name = name]) isNil
      and:[node name ~= name]]]
     ) ifTrue:[
-        node name: name.
+        node name: self class defaultNameOfCanvas asBoldText , ': [', name, ']'.
         self redrawLine:1.
     ].
 !
@@ -3612,7 +3612,7 @@
             (end := self lastLineShown) > listOfNodes size ifTrue:[
                 end := listOfNodes size
             ].                          
-            item name: aProperty name.
+            item changed.
 
             [idx <= end] whileTrue:[
                 (listOfNodes at:idx) == item ifTrue:[
@@ -3708,7 +3708,22 @@
     self multipleSelectOk:true.
     cvsEventsDisabled := false.
     self showDirectoryIndicator: true.
-    self showDirectoryIndicatorForRoot: false
+    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) viewClass name asBoldText, 
+        ': [', spec name, ']'
+    ]
 ! !
 
 !UIPainter::TreeView methodsFor:'private'!