--- a/ParseNode.st	Tue Jul 10 15:59:31 2018 +0100
+++ b/ParseNode.st	Sun Jul 15 18:18:34 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2015 Jan Vrany
@@ -189,6 +187,7 @@
     ^ type
 ! !
 
+
 !ParseNode methodsFor:'attributes access'!
 
 objectAttributes
@@ -383,6 +382,19 @@
     "/ self subclassResponsibility.
 !
 
+blockNodesDo:aBlock recursively: aBoolean
+    "
+    Evaluate `aBlock` for each `BlockNode` in receicer's subtree. 
+
+    If, `aBoolean` is true, then recurse into block nodes themselves, 
+    evaluating `aBlock` for (all) nested blocks.
+    If `aBoolean` is false, stop at any block node.
+    " 
+    ^ self
+
+    "Created: / 15-07-2018 / 10:35:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 messageNodesDo:aBlock
     "evaluate aBlock for each message-node here and in subnodes"
 
@@ -451,6 +463,8 @@
     "Created: / 22-02-2011 / 16:29:50 / Jakub <zelenja7@fel.cvut.cz>"
 ! !
 
+
+
 !ParseNode methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -722,12 +736,6 @@
     ^ false
 !
 
-isSelector
-    "return true, if this is a selector-node"
-
-    ^ false
-!
-
 isSelf
     "return true, if this is a self-node"