--- a/SmallSense__ParseTreeIndex.st	Tue Apr 08 21:46:51 2014 +0200
+++ b/SmallSense__ParseTreeIndex.st	Wed Apr 09 09:58:54 2014 +0200
@@ -14,7 +14,7 @@
 "{ NameSpace: SmallSense }"
 
 SortedCollection subclass:#ParseTreeIndex
-	instanceVariableNames:'tree'
+	instanceVariableNames:'tree source'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Index'
@@ -82,6 +82,14 @@
     "Created: / 20-10-2013 / 01:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+source
+    ^ source
+!
+
+source:something
+    source := something.
+!
+
 tree
     ^ tree
 !
@@ -90,6 +98,24 @@
     tree := aParseNode.
 ! !
 
+!ParseTreeIndex methodsFor:'inspecting'!
+
+inspector2TabTreeInspector
+    ^ self newInspector2Tab
+            label: 'Parse Tree';
+            priority: 35;
+            application: [ SmallSense::ParseNodeInspector new node: tree source: source ]
+            yourself
+
+    "Created: / 09-04-2014 / 09:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+inspector2Tabs
+    ^ super inspector2Tabs , #(inspector2TabTreeInspector)
+
+    "Created: / 09-04-2014 / 09:32:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ParseTreeIndex methodsFor:'utilities'!
 
 newElementFor: aParseNode