--- a/HierarchicalItem.st	Wed Jun 16 16:35:52 2010 +0200
+++ b/HierarchicalItem.st	Tue Jun 29 22:38:41 2010 +0200
@@ -394,14 +394,15 @@
 !
 
 toggleExpand
-    "if the item is collapsed, the item is expanded otherwise
-     collapsed"
+    "if the item is collapsed, the item is expanded otherwise collapsed"
 
     isExpanded ifTrue:[
         self collapse
     ] ifFalse:[
         self expand
     ].
+
+    "Modified: / 29-06-2010 / 21:41:53 / cg"
 ! !
 
 !HierarchicalItem methodsFor:'accessing-mvc'!
@@ -1948,9 +1949,9 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.90 2010-03-03 18:31:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.91 2010-06-29 20:38:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.90 2010-03-03 18:31:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.91 2010-06-29 20:38:41 cg Exp $'
 ! !