# HG changeset patch # User ab # Date 1126646797 -7200 # Node ID 17a1d1db69dd6eebb601f3323140500c9a3dc36c # Parent fb807c9aa1958099ddbc0ac67198e7c6b6b80325 remove recursiveForceExpand -> make no sense diff -r fb807c9aa195 -r 17a1d1db69dd HierarchicalItem.st --- a/HierarchicalItem.st Tue Sep 13 23:07:19 2005 +0200 +++ b/HierarchicalItem.st Tue Sep 13 23:26:37 2005 +0200 @@ -352,15 +352,8 @@ "/ test whether the item already is expanded; #canExpand could be redefined "/ without checking whether the node is expanded (happens already) !! + |index list| isExpanded ifTrue:[ ^ self ]. - ^ self recursiveForceExpand. -! - -recursiveForceExpand - "expand children and sub-children - **** must not be collapsed - " - |index list| self canExpand ifFalse:[ ^ self ]. @@ -383,6 +376,8 @@ ] ] ]. + + ^ self recursiveForceExpand. ! recursiveToggleExpand @@ -1900,5 +1895,5 @@ !HierarchicalItem class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.69 2005-09-13 21:07:19 ab Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.70 2005-09-13 21:26:37 ab Exp $' ! !