--- a/ContextInspectorView.st	Mon Oct 23 10:40:24 2006 +0200
+++ b/ContextInspectorView.st	Mon Oct 23 10:41:16 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 InspectorView subclass:#ContextInspectorView
@@ -393,17 +392,22 @@
     Error 
         handle:[:ex| ]
         do:[
-        (sel isBlock or:[sel isContext]) ifTrue:[
-            items := items , #(
-                           ('Browse Blocks Home'           #browseHome)
-                  ).
+            (sel isBlock or:[sel isContext]) ifTrue:[
+                items := items , #(
+                               ('Browse Blocks Home'           #browseHome)
+                      ).
+            ].
+            (sel isMethod) ifTrue:[
+                items := items , #(
+                               ('Browse Methods Class'         #browseMethodsClass)
+                         ).
+            ].
+            (sel isKindOf:Filename) ifTrue:[
+                items := items , #(
+                           ('Open Filebrowser'  #openFileBrowser)
+                          ).
+            ].
         ].
-        (sel isKindOf:Filename) ifTrue:[
-            items := items , #(
-                       ('Open Filebrowser'  #openFileBrowser)
-                      ).
-        ].
-    ].
 
     items := items , #(
                ('-')
@@ -446,7 +450,7 @@
     ].
     ^ m
 
-    "Modified: / 02-08-2006 / 22:27:14 / cg"
+    "Modified: / 22-10-2006 / 12:33:09 / cg"
 ! !
 
 !ContextInspectorView methodsFor:'private'!
@@ -647,5 +651,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.63 2006-08-07 11:09:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.64 2006-10-23 08:41:16 cg Exp $'
 ! !