equal
deleted
inserted
replaced
87 ! |
87 ! |
88 |
88 |
89 root:aRoot |
89 root:aRoot |
90 "set a new root |
90 "set a new root |
91 " |
91 " |
|
92 |tree| |
|
93 |
92 root notNil ifTrue: [ |
94 root notNil ifTrue: [ |
93 root tree: nil |
95 tree := root tree. |
|
96 root tree:nil. |
|
97 ] ifFalse:[ |
|
98 tree := self |
94 ]. |
99 ]. |
95 self stopRunningTasks. |
100 self stopRunningTasks. |
96 |
101 |
97 (root := aRoot) notNil ifTrue:[ |
102 (root := aRoot) notNil ifTrue:[ |
|
103 root tree:tree. |
98 root parent:nil. |
104 root parent:nil. |
99 root tree: self. |
|
100 ]. |
105 ]. |
101 self listFromRoot. |
106 self listFromRoot. |
102 self changed:#list. |
107 self changed:#list. |
103 ! |
108 ! |
104 |
109 |
823 ! ! |
828 ! ! |
824 |
829 |
825 !SelectionInTree class methodsFor:'documentation'! |
830 !SelectionInTree class methodsFor:'documentation'! |
826 |
831 |
827 version |
832 version |
828 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.19 1998-10-31 12:03:29 ca Exp $' |
833 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.20 1998-11-14 19:46:16 cg Exp $' |
829 ! ! |
834 ! ! |