--- a/WindowGroup.st	Sat Nov 09 16:52:15 1996 +0100
+++ b/WindowGroup.st	Sat Nov 09 17:01:12 1996 +0100
@@ -141,6 +141,19 @@
     [class variables:]
         LeaveSignal             if raised, a modal box leaves (closes)
 
+        WindowGroupQuerySignal  to ask for the current windowGroup,
+                                anywhere in the program, simply raise this
+                                signal. The raise returns nil, for processes,
+                                which are not under control of a windowGroup.
+                                (i.e. wg := WindowGroup windowGroupQuerySignal raise)
+
+        LastEventQuerySignal    to ask for the event which was responsible
+                                for being where you are (whereever that is).
+                                The raise returns nil, if you did not arrive
+                                there due to an event.
+                                (i.e. ev := WindowGroup lastEventQuerySignal raise)
+                                The event can be asked for the view, the type
+                                of event, x/y position etc.
 
     (*) 
         due to historic reasons, many views have the controller functionality
@@ -159,7 +172,7 @@
         Claus Gittinger
 
     [see also:]
-        WindowSensor EventListener KeyboardForwarder
+        WindowSensor WindowEvent EventListener KeyboardForwarder
         DeviceWorkstation
         View StandardSystemView
         ApplicationModel
@@ -177,12 +190,17 @@
         LeaveSignal notifierString:'unhandled leave signal'.
 
         WindowGroupQuerySignal := QuerySignal new.
+        WindowGroupQuerySignal nameClass:self message:#windowGroupQuerySignal.
+        WindowGroupQuerySignal notifierString:'query for windowgroup'.
+
         LastEventQuerySignal := QuerySignal new.
+        LastEventQuerySignal nameClass:self message:#lastEventQuerySignal.
+        LastEventQuerySignal notifierString:'query for last event'.
     ].
 
     "WindowGroup initialize"
 
-    "Modified: 17.7.1996 / 15:38:00 / cg"
+    "Modified: 9.11.1996 / 17:00:53 / cg"
 ! !
 
 !WindowGroup class methodsFor:'instance creation'!
@@ -1397,6 +1415,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.89 1996-11-09 15:52:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.90 1996-11-09 16:01:12 cg Exp $'
 ! !
 WindowGroup initialize!