--- a/Tools_NavigationState.st	Fri Aug 05 14:36:26 2011 +0200
+++ b/Tools_NavigationState.st	Fri Aug 05 14:51:20 2011 +0200
@@ -448,7 +448,8 @@
     (UserPreferences current useCodeView2In: #Browser) ifTrue:[
         codeView := aScrollableCodeView := CodeView2 new.
         codeView mode: #method.
-        codeView methodHolder: self theSingleSelectedMethodHolder
+        codeView methodHolder: self theSingleSelectedMethodHolder.
+        codeView classHolder: self theSingleSelectedClassHolder.
     ] ifFalse:[
         aScrollableCodeView := HVScrollableView for:CodeView.
         codeView := aScrollableCodeView scrolledView.
@@ -490,7 +491,7 @@
    ^aScrollableCodeView
 
     "Modified: / 05-07-2011 / 10:34:33 / cg"
-    "Modified: / 26-07-2011 / 10:29:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-08-2011 / 09:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 specialEditorCanvasClassForResourceType:resourceTypeSymbol
@@ -1039,6 +1040,17 @@
     "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+theSingleSelectedClassHolder
+
+    ^BlockValue 
+        with:
+            [:i1 | self theSingleSelectedClass]
+        argument: 
+            self selectedClasses
+
+    "Created: / 05-08-2011 / 09:44:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 theSingleSelectedLanguageFromMethodOrClass
 
     | mth cls |
@@ -1601,7 +1613,7 @@
 !NavigationState class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.36 2011-07-26 09:50:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.37 2011-08-05 12:51:20 vrany Exp $'
 !
 
 version_SVN