equal
deleted
inserted
replaced
70 existingHierarchyNode := list at: anIndex ifAbsent: [^nil]. |
70 existingHierarchyNode := list at: anIndex ifAbsent: [^nil]. |
71 self add: aHierarchyNode below: existingHierarchyNode |
71 self add: aHierarchyNode below: existingHierarchyNode |
72 |
72 |
73 "Modified: 10.10.1994 / 16:13:36 / W.Olberding" |
73 "Modified: 10.10.1994 / 16:13:36 / W.Olberding" |
74 "Modified: 15.4.1997 / 16:27:50 / cg" |
74 "Modified: 15.4.1997 / 16:27:50 / cg" |
|
75 ! |
|
76 |
|
77 addChildAndSubChildren:aHierarchyNode below:existingHierarchyNode after:aChild |
|
78 "Add a new HierarchyNode to the tree." |
|
79 |
|
80 existingHierarchyNode addChildAndSubChildren:aHierarchyNode after:aChild. |
|
81 self setNewList. |
75 ! |
82 ! |
76 |
83 |
77 getHierarchyNodeForContents: something |
84 getHierarchyNodeForContents: something |
78 "return the hierarchyNode whose contents is something" |
85 "return the hierarchyNode whose contents is something" |
79 |
86 |
328 "Modified: 10.10.94 / 16:13:37 / W.Olberding"! ! |
335 "Modified: 10.10.94 / 16:13:37 / W.Olberding"! ! |
329 |
336 |
330 !SelectionInHierarchy class methodsFor:'documentation'! |
337 !SelectionInHierarchy class methodsFor:'documentation'! |
331 |
338 |
332 version |
339 version |
333 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.6 1997-04-15 16:07:26 cg Exp $' |
340 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.7 1997-07-01 13:21:36 ca Exp $' |
334 ! ! |
341 ! ! |