--- a/HierarchicalListEditor.st Thu Sep 04 14:17:21 1997 +0200
+++ b/HierarchicalListEditor.st Thu Sep 04 14:18:25 1997 +0200
@@ -1040,14 +1040,7 @@
, specSelector , '\'
, ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
- , ' |holder root|\\'
- , ' (holder := builder bindingAt:#', specSelector, ') isNil ifTrue:[\'
- , ' holder := SelectionInTree new.\'
- , ' root := self class ', specSelector, '.\'
- , ' root expand.\'
- , ' holder root:root.\'
- , ' ].\'
- , ' ^ holder'
+ , ' ^ self class ', specSelector
, '\'
, Character excla asString
, ' '
@@ -1064,11 +1057,7 @@
doNew
"remove all items; restart
"
- |anchor|
-
- anchor := TreeItem name:'Anchor' contents:#anchor.
- anchor expand.
- treeView model:(SelectionInTree new root:anchor).
+ treeView root:(TreeItem name:'Anchor' contents:#anchor).
treeView selection:0.
!
@@ -1245,7 +1234,7 @@
].
anchor notNil ifTrue:[
anchor expand.
- treeView model root:anchor.
+ treeView root:anchor.
] ifFalse:[
self doNew
].