--- a/HierarchicalListView.st	Wed Feb 27 13:54:45 2013 +0100
+++ b/HierarchicalListView.st	Fri Mar 08 10:50:50 2013 +0100
@@ -574,12 +574,12 @@
 !
 
 showRoot:aBoolean
-    "true if the root is shown
+    "controls if the root is to be shown
     "
     showRoot ~~ aBoolean ifTrue:[
-	showRoot := aBoolean.
-	self list showRoot:showRoot.
-	self invalidate
+        showRoot := aBoolean.
+        self list showRoot:showRoot.
+        self invalidate
     ].
 !
 
@@ -1667,9 +1667,10 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.125 2010-12-19 08:22:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.126 2013-03-08 09:50:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.125 2010-12-19 08:22:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.126 2013-03-08 09:50:50 cg Exp $'
 ! !
+