--- a/HierarchicalItem.st	Thu Aug 18 21:44:49 2005 +0200
+++ b/HierarchicalItem.st	Tue Sep 13 23:07:19 2005 +0200
@@ -349,12 +349,19 @@
     "expand children and sub-children
      **** must be collapsed
     "
-    |index list|
-
     "/ test whether the item already is expanded; #canExpand could be redefined
     "/ without checking whether the node is expanded (happens already) !!
 
     isExpanded ifTrue:[ ^ self ].
+    ^ self recursiveForceExpand.
+!
+
+recursiveForceExpand
+    "expand children and sub-children
+     **** must not be collapsed
+    "
+    |index list|
+
     self canExpand ifFalse:[ ^ self ].
 
     isExpanded := true.
@@ -1893,5 +1900,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.68 2005-07-06 08:01:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.69 2005-09-13 21:07:19 ab Exp $'
 ! !