--- a/Tools_NavigationState.st	Mon Aug 08 16:14:36 2011 +0200
+++ b/Tools_NavigationState.st	Mon Aug 08 16:36:37 2011 +0200
@@ -445,6 +445,16 @@
     "Created: / 08-08-2011 / 09:18:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+methodList: aView
+
+    | builder |
+
+    builder := canvas builder.
+    builder namedComponents at: #MethodList put: aView.
+
+    "Created: / 08-08-2011 / 15:32:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 scrollableCodeView
     scrollableCodeView isNil ifTrue:[
         scrollableCodeView := self setUpScrollableCodeView.
@@ -1623,7 +1633,7 @@
 !NavigationState class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.38 2011-08-08 08:24:04 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.39 2011-08-08 14:36:37 vrany Exp $'
 !
 
 version_SVN