--- a/TreeItem.st	Thu Oct 12 09:31:02 2006 +0200
+++ b/TreeItem.st	Fri Oct 13 13:01:49 2006 +0200
@@ -9,10 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
-
 "{ Package: 'stx:libwidg2' }"
 
 Object subclass:#TreeItem
@@ -723,10 +719,9 @@
 hasExpandedChildren
     "returns true if any of my children is expanded
     "
-    children notEmpty ifTrue:[
-        children do:[:aChild| aChild hidden ifFalse:[^ true] ]
-    ].
-    ^ false
+    ^ children contains:[:aChild | aChild hidden not].
+
+    "Modified: / 13-10-2006 / 13:00:05 / cg"
 !
 
 hidden
@@ -1031,7 +1026,7 @@
 !TreeItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.46 2006-03-06 08:46:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.47 2006-10-13 11:01:49 cg Exp $'
 ! !
 
 TreeItem initialize!