equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1999 by eXept Software AG |
4 COPYRIGHT (c) 1999 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libwidg2' }" |
14 "{ Package: 'stx:libwidg2' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 List subclass:#HierarchicalList |
18 List subclass:#HierarchicalList |
15 instanceVariableNames:'recursionLock root showRoot application monitoringTask |
19 instanceVariableNames:'recursionLock root showRoot application monitoringTask |
16 monitoringTaskDelay additionalItemsToMonitorSemaphore' |
20 monitoringTaskDelay additionalItemsToMonitorSemaphore' |
17 classVariableNames:'' |
21 classVariableNames:'' |
171 " |
175 " |
172 ^ root |
176 ^ root |
173 |
177 |
174 ! |
178 ! |
175 |
179 |
176 root:aRoot |
180 root:aRootItem |
177 "set the root item |
181 "set the root item |
178 " |
182 " |
179 |children| |
183 |children| |
180 |
184 |
181 self stopMonitoringTask. |
185 self stopMonitoringTask. |
182 |
186 |
|
187 "/ inlink the previous root |
183 root notNil ifTrue:[ |
188 root notNil ifTrue:[ |
184 root parent:nil. |
189 root parent:nil. |
185 root := nil. |
190 root := nil. |
186 ]. |
191 ]. |
187 |
192 |
188 (root := aRoot) isEmptyOrNil ifTrue:[ |
193 (root := aRootItem) isEmptyOrNil ifTrue:[ |
189 self removeAll. |
194 self removeAll. |
190 ] ifFalse:[ |
195 ] ifFalse:[ |
191 self showRoot ifFalse:[root expand]. |
196 self showRoot ifFalse:[root expand]. |
192 |
197 |
193 root parent:self. |
198 root parent:self. |
385 ! ! |
390 ! ! |
386 |
391 |
387 !HierarchicalList class methodsFor:'documentation'! |
392 !HierarchicalList class methodsFor:'documentation'! |
388 |
393 |
389 version |
394 version |
390 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.26 2014-11-19 21:46:22 cg Exp $' |
395 ^ '$Header$' |
391 ! |
396 ! |
392 |
397 |
393 version_CVS |
398 version_CVS |
394 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.26 2014-11-19 21:46:22 cg Exp $' |
399 ^ '$Header$' |
395 ! ! |
400 ! ! |
396 |
401 |