--- a/HierarchicalListView.st	Fri Jul 27 11:23:11 2007 +0200
+++ b/HierarchicalListView.st	Wed Sep 19 12:35:18 2007 +0200
@@ -645,7 +645,9 @@
 
     indicatorAction notNil ifTrue:[
         indicatorAction valueWithOptionalArgument:aLnNr and:self.
-    ] ifFalse:[ |sensor|
+    ] ifFalse:[
+        |sensor|
+
         sensor := self sensor.
         (sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
             item recursiveToggleExpand
@@ -665,7 +667,6 @@
 "/    numChildren == 0 ifTrue:[
 "/        ^ self
 "/    ].
-    ^ self
 
 "/    idx    := aLnNr + numChildren.
 "/    vwOrgY := viewOrigin y.
@@ -680,6 +681,8 @@
 "/    ].
 "/    vwOrgX := self computeViewOriginXat:aLnNr.
 "/    self scrollTo:(vwOrgX @ vwOrgY).
+
+    "Modified: / 19-09-2007 / 08:48:15 / cg"
 !
 
 lineChangedAt:aLnNr with:arg
@@ -1225,10 +1228,14 @@
         item toggleExpand.
         ^ self
     ].
-    isCursorLeft := aKey == #CursorLeft.
+    isCursorLeft := (aKey == #CursorLeft).
 
     item isExpanded == isCursorLeft ifTrue:[
-        item toggleExpand.
+        (self sensor ctrlDown or:[self sensor shiftDown]) ifTrue:[
+            item recursiveToggleExpand.
+        ] ifFalse:[
+            item toggleExpand.
+        ].
         ^ self
     ].
     isCursorLeft ifTrue:[
@@ -1245,6 +1252,8 @@
     (self canSelectIndex:lineNr forAdd:false) ifTrue:[
         self selection:lineNr
     ].
+
+    "Modified: / 18-09-2007 / 23:02:09 / cg"
 ! !
 
 !HierarchicalListView methodsFor:'fetch resources'!
@@ -1666,5 +1675,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.107 2007-07-05 15:06:46 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.108 2007-09-19 10:35:18 cg Exp $'
 ! !