--- a/SelectionInTree.st	Fri Apr 02 18:13:29 2004 +0200
+++ b/SelectionInTree.st	Fri Apr 02 20:19:09 2004 +0200
@@ -115,6 +115,31 @@
     ^ list
 ! !
 
+!SelectionInTree methodsFor:'accessing hierarchy new'!
+
+doMakeVisible:something
+    "make an item or list of items to become visible
+    "
+    |anchor parent|
+
+    self each:something do:[:anItem|
+        parent := anItem.
+        anchor := nil.
+
+        parent notNil ifTrue:[
+            [(parent := parent parent) notNil] whileTrue:[
+                parent hidden ifTrue:[
+                    anchor notNil ifTrue:[ anchor expand ].
+                    anchor := parent.
+                ]
+            ].
+            anchor notNil ifTrue:[
+                self expandItem:anchor do:[anchor expand]
+            ]
+        ].
+    ]
+! !
+
 !SelectionInTree methodsFor:'accessing-behavior'!
 
 childrenAction
@@ -272,27 +297,6 @@
     self each:something do:[:anItem|
         self expandItem:anItem do:[anItem expandAll]
     ]
-!
-
-doMakeVisible:something
-    "make an item or list of items to become visible
-    "
-    |anchor parent|
-
-    self each:something do:[:anItem|
-        parent := anItem.
-        anchor := nil.
-
-        [(parent := parent parent) notNil] whileTrue:[
-            parent hidden ifTrue:[
-                anchor notNil ifTrue:[ anchor expand ].
-                anchor := parent.
-            ]
-        ].
-        anchor notNil ifTrue:[
-            self expandItem:anchor do:[anchor expand]
-        ]
-    ]
 ! !
 
 !SelectionInTree methodsFor:'adding & removing'!
@@ -942,5 +946,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.32 2003-05-07 14:10:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.33 2004-04-02 18:19:09 werner Exp $'
 ! !