extensions.st
branchcvs_MAIN
changeset 940 d0897a6dbc08
parent 917 c1a6a847be65
child 962 4547369278b6
--- a/extensions.st	Sun Apr 24 15:11:32 2016 +0200
+++ b/extensions.st	Fri Apr 29 15:20:39 2016 +0200
@@ -108,18 +108,20 @@
 inspector2TabRBParseTreeInspector
     <inspector2Tab>
 
+    "provide an extra tab, which show the RefactoryBrowser-AST (parsetree) of the sourcecode"
+    
     ^ (self newInspector2Tab)
-	label:'Parse Tree (RB)';
-	priority:35;
-	application:
-		[
-		    | src node |
+        label:'Parse Tree (RB)';
+        priority:35;
+        application:
+                [
+                    | src node |
 
-		    src := self source.
-		    node := RBParser parseMethod: src.
-		    SmallSense::ParseTreeInspector new node:node source:src.
-		];
-	yourself
+                    src := self source.
+                    node := RBParser parseMethod: src.
+                    SmallSense::ParseTreeInspector new node:node source:src.
+                ];
+        yourself
 
     "Created: / 15-10-2014 / 02:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -129,18 +131,20 @@
 inspector2TabSTXParseTreeInspector
     <inspector2Tab>
 
+    "provide an extra tab, which show the ST/X-AST (parsetree) of the sourcecode"
+
     ^ (self newInspector2Tab)
-	label:'Parse Tree (ST/X)';
-	priority:36;
-	application:
-		[
-		    | src parser |
+        label:'Parse Tree (ST/X)';
+        priority:36;
+        application:
+                [
+                    | src parser |
 
-		    src := self source.
-		    parser := self parserClass parseMethod: src.
-		    SmallSense::ParseTreeInspector new node:parser tree source:src.
-		];
-	yourself
+                    src := self source.
+                    parser := self parserClass parseMethod: src.
+                    SmallSense::ParseTreeInspector new node:parser tree source:src.
+                ];
+        yourself
 
     "Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !