Mercurial Mercurial > hg > stx-libcomp / 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 block collector
authorClaus Gittinger <cg@exept.de>
Wed, 23 Oct 1996 17:33:22 +0200
changeset 395 16156d8711c2
parent 394 728e3b942ad5
child 396 26c32f1f791b
added block collector
MessageNd.st file | annotate | diff | comparison | revisions
MessageNode.st file | annotate | diff | comparison | revisions
ParseNode.st file | annotate | diff | comparison | revisions 
--- a/MessageNd.st	Wed Oct 23 17:32:42 1996 +0200
+++ b/MessageNd.st	Wed Oct 23 17:33:22 1996 +0200
@@ -1753,6 +1753,20 @@
 
 !MessageNode methodsFor:'queries'!
 
+collectBlocksInto:aCollection
+    |this|
+
+    receiver collectBlocksInto:aCollection.
+    argArray size > 0 ifTrue:[
+        argArray do:[:arg |
+            arg collectBlocksInto:aCollection.
+        ]
+    ].
+
+    "Created: 23.10.1996 / 15:44:49 / cg"
+    "Modified: 23.10.1996 / 16:03:46 / cg"
+!
+
 isMessage
     ^ true
 ! !
@@ -1760,5 +1774,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.57 1996-10-22 20:36:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.58 1996-10-23 15:33:22 cg Exp $'
 ! !
--- a/MessageNode.st	Wed Oct 23 17:32:42 1996 +0200
+++ b/MessageNode.st	Wed Oct 23 17:33:22 1996 +0200
@@ -1753,6 +1753,20 @@
 
 !MessageNode methodsFor:'queries'!
 
+collectBlocksInto:aCollection
+    |this|
+
+    receiver collectBlocksInto:aCollection.
+    argArray size > 0 ifTrue:[
+        argArray do:[:arg |
+            arg collectBlocksInto:aCollection.
+        ]
+    ].
+
+    "Created: 23.10.1996 / 15:44:49 / cg"
+    "Modified: 23.10.1996 / 16:03:46 / cg"
+!
+
 isMessage
     ^ true
 ! !
@@ -1760,5 +1774,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.57 1996-10-22 20:36:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.58 1996-10-23 15:33:22 cg Exp $'
 ! !
--- a/ParseNode.st	Wed Oct 23 17:32:42 1996 +0200
+++ b/ParseNode.st	Wed Oct 23 17:33:22 1996 +0200
@@ -162,6 +162,12 @@
     "Created: 14.4.1996 / 00:43:08 / cg"
 !
 
+collectBlocksInto:aCollection
+    ^ self
+
+    "Created: 23.10.1996 / 15:45:00 / cg"
+!
+
 isAssignment
     "return true, if this is a node for an assignment"
 
@@ -233,5 +239,5 @@
 !ParseNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.20 1996-10-21 14:01:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.21 1996-10-23 15:33:05 cg Exp $'
 ! !
hg/stx-libcomp