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