--- a/HierarchicalListView.st	Fri Aug 08 10:11:09 2003 +0200
+++ b/HierarchicalListView.st	Fri Aug 08 16:28:15 2003 +0200
@@ -642,8 +642,13 @@
 
     indicatorAction notNil ifTrue:[
         indicatorAction valueWithOptionalArgument:aLnNr and:self.
-    ] ifFalse:[
-        item toggleExpand
+    ] ifFalse:[ |sensor|
+        sensor := self sensor.
+        (sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
+            item recursiveToggleExpand
+        ] ifFalse:[
+            item toggleExpand
+        ].
     ].
 
     (expanded or:[item isExpanded not]) ifTrue:[^ self].
@@ -1590,5 +1595,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.83 2003-05-27 06:14:26 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.84 2003-08-08 14:28:15 stefan Exp $'
 ! !