--- 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>"
! !