Tools_NavigationState.st
changeset 8850 4b2ed745536c
parent 8840 ce75492303ff
child 8864 f376b9073ea2
--- a/Tools_NavigationState.st	Fri Oct 02 14:48:53 2009 +0200
+++ b/Tools_NavigationState.st	Fri Oct 02 14:49:08 2009 +0200
@@ -31,7 +31,7 @@
 		sortVariablesBy editModeHolder scrollableCodeView specialEditors
 		selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder
 		editorNoteBookCanvasHolder codeView stringSearchToolView
-		noteBookView'
+		noteBookView inheritanceView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -357,6 +357,18 @@
     ^ codeView
 !
 
+inheritanceView
+    inheritanceView isNil ifTrue:[
+        |classTreeView scrolledView|
+
+        classTreeView := ClassTreeGraphView new.
+        scrolledView := HVScrollableView forView:classTreeView.
+        classTreeView middleButtonMenu:nil.
+        inheritanceView := scrolledView
+    ].
+    ^ inheritanceView
+!
+
 scrollableCodeView
     scrollableCodeView isNil ifTrue:[
         scrollableCodeView := self setUpScrollableCodeView.
@@ -1283,9 +1295,9 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.29 2009-10-01 16:21:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.30 2009-10-02 12:49:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.29 2009-10-01 16:21:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.30 2009-10-02 12:49:08 cg Exp $'
 ! !