diff -r 29d8a448659e -r b2381760f050 WindowGroup.st
--- a/WindowGroup.st	Thu Jan 27 17:35:10 2011 +0100
+++ b/WindowGroup.st	Thu Jan 27 18:30:41 2011 +0100
@@ -24,6 +24,20 @@
 	category:'Interface-Support-UI'
 !
 
+Query subclass:#LastEventQuery
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowGroup
+!
+
+Query subclass:#WindowGroupQuery
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowGroup
+!
+
 !WindowGroup class methodsFor:'documentation'!
 
 copyright
@@ -213,22 +227,25 @@
 
 initialize
     LeaveSignal isNil ifTrue:[
-	LeaveSignal := (Signal new) mayProceed:true.
-	LeaveSignal nameClass:self message:#leaveSignal.
-	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'.
+        LeaveSignal := (Signal new) mayProceed:true.
+        LeaveSignal nameClass:self message:#leaveSignal.
+        LeaveSignal notifierString:'unhandled leave signal'.
+
+        WindowGroupQuerySignal := WindowGroupQuery.
+        LastEventQuerySignal := LastEventQuery.
+
+"/        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: 9.11.1996 / 17:00:53 / cg"
+    "Modified: / 27-01-2011 / 18:14:34 / cg"
 ! !
 
 !WindowGroup class methodsFor:'instance creation'!
@@ -2723,11 +2740,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.310 2011-01-20 21:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.311 2011-01-27 17:30:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.310 2011-01-20 21:40:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.311 2011-01-27 17:30:41 cg Exp $'
 ! !
 
 WindowGroup initialize!