*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 02 Oct 2009 14:49:08 +0200
changeset 8850 4b2ed745536c
parent 8849 f257f3a223a7
child 8851 287f3e03a645
*** empty log message ***
Tools_NavigationState.st
--- 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 $'
 ! !