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