--- a/Tools_NavigationState.st	Mon Aug 08 08:30:35 2011 +0200
+++ b/Tools_NavigationState.st	Mon Aug 08 10:24:04 2011 +0200
@@ -435,6 +435,16 @@
     ^ inheritanceView
 !
 
+methodCategoryList: aView
+
+    | builder |
+
+    builder := canvas builder.
+    builder namedComponents at: #MethodCategoryList put: aView.
+
+    "Created: / 08-08-2011 / 09:18:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 scrollableCodeView
     scrollableCodeView isNil ifTrue:[
         scrollableCodeView := self setUpScrollableCodeView.
@@ -1613,7 +1623,7 @@
 !NavigationState class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.37 2011-08-05 12:51:20 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.38 2011-08-08 08:24:04 vrany Exp $'
 !
 
 version_SVN