--- a/OrderedCollectionInspectorView.st	Mon Feb 02 10:47:27 2004 +0100
+++ b/OrderedCollectionInspectorView.st	Mon Feb 02 14:57:52 2004 +0100
@@ -67,7 +67,7 @@
 
     <resource: #programMenu>
 
-    |items m|
+    |items m sel|
 
     items := #(
                   ('Inspect'                     doInspect              )
@@ -79,9 +79,20 @@
                   ('Browse'                      browse                 )
 "/                      ('Browse class hierarchy'      browseClassHierarchy   )
 "/                      ('Browse full class protocol'  browseFullClassProtocol)
+               ).
+
+    sel := self selection.
+    (sel isBlock or:[sel isContext]) ifTrue:[
+        items := items , #(
+                       ('Browse Blocks Home'           #browseHome)
+              ).
+    ].
+
+    items := items , #(
                   ('-')
                   ('Remove'                      removeIndex            )
                ).
+
     (hasMore) ifTrue:[
         items := items , #(                                  
                       ('-')
@@ -168,5 +179,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.34 2003-06-16 09:24:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.35 2004-02-02 13:57:52 ca Exp $'
 ! !