--- a/UIPainterTreeView.st	Mon Mar 03 11:08:15 1997 +0100
+++ b/UIPainterTreeView.st	Tue Mar 04 11:21:16 1997 +0100
@@ -93,7 +93,7 @@
     "update selection
     "
     builderView selectionDo:[:aView||idx|
-        idx := self indexOf:(builderView variableNameOf:aView).
+        idx := self indexOf:(builderView uniqueNameOf:aView).
 
         idx ~~ 0 ifTrue:[
             selection isNil ifTrue:[
@@ -159,15 +159,27 @@
 !UIPainterTreeView methodsFor:'menu & actions'!
 
 inspectProps
-    builderView inspectAttributes
+    |view|
+
+    (view := builderView singleSelection) notNil ifTrue:[
+        (builderView propertyOfView:view) inspect
+    ]
 !
 
 inspectSpec
-    builderView inspectSpec
+    |view|
+
+    (view := builderView singleSelection) notNil ifTrue:[
+        (builderView fullSpecFor:view) inspect
+    ]
 !
 
 inspectView
-    builderView inspectSelection
+    |view|
+
+    (view := builderView singleSelection) notNil ifTrue:[
+        view inspect
+    ]
 !
 
 menu
@@ -225,7 +237,7 @@
     values := OrderedCollection new.
     index  := 1.
 
-    spView allSubViewsDo:[:aView||props|
+    spView subViews do:[:aView||props|
         aView ~~ view ifTrue:[
             props := builderView propertyOfView:aView.
 
@@ -289,7 +301,7 @@
 updateSubTree:aView indent:anIndent
     |name indent|
 
-    name := builderView variableNameOf:aView.
+    name := builderView uniqueNameOf:aView.
 
     anIndent ~~ 0 ifTrue:[
         name := (String new:anIndent), name