--- a/HierarchicalList.st	Sat Sep 28 08:24:24 2002 +0200
+++ b/HierarchicalList.st	Mon Sep 30 18:17:17 2002 +0200
@@ -307,7 +307,7 @@
         monitoringTask := nil.
 
         Object errorSignal handle:[:ex|]do:[
-            task terminateWithAllSubprocesses.
+            task terminateWithAllSubprocessesInGroup.
             task waitUntilTerminated.
         ]
     ]
@@ -363,5 +363,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.12 2002-09-26 18:49:13 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.13 2002-09-30 16:17:17 stefan Exp $'
 ! !

--- a/MenuPanel.st	Sat Sep 28 08:24:24 2002 +0200
+++ b/MenuPanel.st	Mon Sep 30 18:17:17 2002 +0200
@@ -7242,21 +7242,21 @@
     |task resp|
 
     activeMenu isNil ifTrue:[
-	^ false
+        ^ false
     ].
     semaLock critical:[
-	resp := activeMenu notNil.
-
-	(task := scrollTask) notNil ifTrue:[
-	    scrollTask := nil.
-
-	    Error handle:[:ex|
-	    ] do:[
-		task terminateWithAllSubprocesses.
-		task waitUntilTerminated.
-	    ].
-	].
-	activeMenu := direction := nil.
+        resp := activeMenu notNil.
+
+        (task := scrollTask) notNil ifTrue:[
+            scrollTask := nil.
+
+            Error handle:[:ex|
+            ] do:[
+                task terminateWithAllSubprocessesInGroup.
+                task waitUntilTerminated.
+            ].
+        ].
+        activeMenu := direction := nil.
     ].
     ^ resp
 ! !
@@ -7264,7 +7264,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.328 2002-09-26 07:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.329 2002-09-30 16:17:03 stefan Exp $'
 ! !
 
 MenuPanel initialize!