--- a/QuerySig.st Thu Dec 07 16:16:42 1995 +0100
+++ b/QuerySig.st Thu Dec 07 20:12:37 1995 +0100
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/QuerySig.st,v 1.4 1995-11-20 13:18:04 cg Exp $'
-!
-
documentation
"
QuerySignals are like signals, except that they are not accepted
@@ -84,10 +80,6 @@
!QuerySignal methodsFor:'queries'!
-isQuerySignal
- ^ true
-!
-
accepts:aSignal
"return true, if the receiver accepts the argument, aSignal.
(i.e. the receiver is aSignal or a parent of it). False otherwise."
@@ -102,4 +94,14 @@
s := s parent
].
^ false
+!
+
+isQuerySignal
+ ^ true
! !
+
+!QuerySignal class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/QuerySig.st,v 1.5 1995-12-07 19:12:37 cg Exp $'
+! !
--- a/QuerySignal.st Thu Dec 07 16:16:42 1995 +0100
+++ b/QuerySignal.st Thu Dec 07 20:12:37 1995 +0100
@@ -33,10 +33,6 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.4 1995-11-20 13:18:04 cg Exp $'
-!
-
documentation
"
QuerySignals are like signals, except that they are not accepted
@@ -84,10 +80,6 @@
!QuerySignal methodsFor:'queries'!
-isQuerySignal
- ^ true
-!
-
accepts:aSignal
"return true, if the receiver accepts the argument, aSignal.
(i.e. the receiver is aSignal or a parent of it). False otherwise."
@@ -102,4 +94,14 @@
s := s parent
].
^ false
+!
+
+isQuerySignal
+ ^ true
! !
+
+!QuerySignal class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.5 1995-12-07 19:12:37 cg Exp $'
+! !