--- a/WindowGroup.st	Wed Dec 29 14:05:12 2004 +0100
+++ b/WindowGroup.st	Tue Jan 11 18:05:04 2005 +0100
@@ -1289,7 +1289,7 @@
     thisProcess := Processor activeProcess.
 
     sigs := SignalSet 
-                with:AbortOperationRequest 
+                with:AbortAllOperationRequest 
                 with:LeaveSignal 
                 with:(self class activityNotificationSignal).
 
@@ -1347,7 +1347,8 @@
             sigs handle:[:ex |
                 |theSig|
 
-                (theSig := ex signal) == AbortOperationRequest ifTrue:[
+                theSig := ex signal.
+                (AbortAllOperationRequest accepts:theSig) ifTrue:[
                     "/
                     "/ on abort, stay in loop
                     "/
@@ -1368,7 +1369,7 @@
                 "/ otherwise show the activityMessage and continue.
                 "/
                 isModal ifTrue:[
-                    (ex signal isHandledIn:ex handlerContext sender) ifFalse:[
+                    (theSig isHandledIn:ex handlerContext sender) ifFalse:[
                         ex proceedWith:nil.
                     ].
                     ex reject
@@ -2764,7 +2765,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.269 2004-11-10 17:38:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.270 2005-01-11 17:05:04 stefan Exp $'
 ! !
 
 WindowGroup initialize!