Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pass up AbortAllSignals to the original handler
authorClaus Gittinger <cg@exept.de>
Mon, 30 Jan 2006 18:32:41 +0100
changeset 4474 58a2e62065a6
parent 4473 db64c0d90778
child 4475 f94446a203a0
pass up AbortAllSignals to the original handler if in a modal dialog (otherwise, they get cought here, and \"Cancel All\" is void.
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WindowGroup.st	Tue Jan 24 16:40:59 2006 +0100
+++ b/WindowGroup.st	Mon Jan 30 18:32:41 2006 +0100
@@ -1276,10 +1276,13 @@
     thisProcess := Processor activeProcess.
 
     sigs := SignalSet 
-                with:AbortAllOperationRequest 
+                "/ with:AbortAllOperationRequest 
                 with:LeaveSignal 
                 with:(self class activityNotificationSignal).
 
+    (isModal not or:[AbortAllOperationRequest isHandled not]) ifTrue:[
+        sigs add:AbortAllOperationRequest
+    ].
     [
         |p g s mainGroup mySema waitSema groupForSema|
 
@@ -2784,7 +2787,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.277 2005-07-26 08:50:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.278 2006-01-30 17:32:41 cg Exp $'
 ! !
 
 WindowGroup initialize!
hg/stx-libview