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.
added a hook to allow interception of new-sub-application
authorca
Thu, 07 Oct 1999 17:26:03 +0200
changeset 2958 128f33a77fb1
parent 2957 3584d4a1a1e2
child 2959 a7969f737425
added a hook to allow interception of new-sub-application process creations. Allows for exceptionHandlers and other process state to be setup by the creating app. (for example: global signal handlers, CTRL-C catchers or UserContext passing ...)
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WindowGroup.st	Thu Oct 07 16:32:09 1999 +0200
+++ b/WindowGroup.st	Thu Oct 07 17:26:03 1999 +0200
@@ -797,7 +797,7 @@
       the caller - which may make a difference in case of errors and/or
       blocking operations ...]"
 
-    |top nm dev devNm|
+    |top nm dev devNm invokingApp|
 
     previousGroup := nil.
 
@@ -867,6 +867,13 @@
             dev notNil ifTrue:[dev flush].
         ].
 
+        "/ allow for the currently active application,
+        "/ to hook on new-application process creation.
+        invokingApp := WindowGroup activeGroup mainGroup mainView application.
+        invokingApp notNil ifTrue:[
+            invokingApp postApplicationProcessCreate:myProcess windowGroup:self.
+        ].
+
         myProcess resume.
     ]
 
@@ -2104,6 +2111,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.187 1999-10-07 14:32:09 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.188 1999-10-07 15:26:03 ca Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview