diff -r ab0acb018129 -r 0db7cbd6b7c9 Tools_NavigationState.st --- 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 " + "Modified: / 05-08-2011 / 09:44:52 / Jan Vrany " ! specialEditorCanvasClassForResourceType:resourceTypeSymbol @@ -1039,6 +1040,17 @@ "Created: / 14-02-2010 / 10:05:00 / Jan Vrany " ! +theSingleSelectedClassHolder + + ^BlockValue + with: + [:i1 | self theSingleSelectedClass] + argument: + self selectedClasses + + "Created: / 05-08-2011 / 09:44:17 / Jan Vrany " +! + 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