--- 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 $'
 ! !