--- 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!