Add inspector tab to present parser tree.
--- a/PPParser.st Wed May 27 03:30:35 2015 +0100
+++ b/PPParser.st Wed May 27 08:37:09 2015 +0100
@@ -171,6 +171,33 @@
initialize
! !
+!PPParser methodsFor:'inspecting'!
+
+inspector2TabTree
+ <inspector2Tab>
+
+ ^ (self newInspector2Tab)
+ label:'Tree';
+ priority:50;
+ view: [
+ | list view |
+
+ list := PluggableHierarchicalList new.
+ list childBlock: [ :parent | parent children ].
+ list labelBlock: [ :child | child printString ].
+ list root: self.
+ view := ScrollableView for:HierarchicalListView.
+ view useDefaultIcons: false.
+ view list: list.
+ view
+ ];
+ "/ application: [ ... ];
+ "/ text: [ ... ];
+ yourself
+
+ "Modified: / 22-05-2015 / 17:05:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!PPParser methodsFor:'operations'!
, aParser
@@ -654,6 +681,11 @@
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $'
! !