extensions.st
changeset 895 b3aea8e7474c
parent 891 e6d1d6d1db61
child 947 fc447c16aab8
--- a/extensions.st	Fri Sep 04 11:36:36 2015 +0200
+++ b/extensions.st	Tue Oct 27 15:52:20 2015 +0000
@@ -400,6 +400,23 @@
     "Created: / 01-02-2012 / 12:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!RBMethod methodsFor:'inspecting'!
+
+inspector2TabRBParseTreeInspector
+    <inspector2Tab>
+
+    ^ (self newInspector2Tab)
+        label:'Parse Tree (RB)';
+        priority:35;
+        application:
+                [
+                    SmallSense::ParseTreeInspector new node:self source: self source.
+                ];
+        yourself
+
+    "Created: / 26-10-2015 / 11:25:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBMethodNode methodsFor:'enumeration'!
 
 childNamesAndValuesDo:aBlock
@@ -414,6 +431,23 @@
     "Modified: / 15-10-2014 / 10:41:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!RBMethodNode methodsFor:'inspecting'!
+
+inspector2TabRBParseTreeInspector
+    <inspector2Tab>
+
+    ^ (self newInspector2Tab)
+        label:'Parse Tree (RB)';
+        priority:35;
+        application:
+                [
+                    SmallSense::ParseTreeInspector new node:self source:self source.
+                ];
+        yourself
+
+    "Created: / 26-10-2015 / 11:26:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBProgramNode methodsFor:'enumeration'!
 
 childNamesAndValuesDo:aBlock
@@ -1309,14 +1343,7 @@
 
 !stx_goodies_smallsense class methodsFor:'documentation'!
 
-extensionsVersion_CVS
-    ^ '$Header$'
-! !
-
-!stx_goodies_smallsense class methodsFor:'documentation'!
-
 extensionsVersion_HG
 
     ^ '$Changeset: <not expanded> $'
 ! !
-