--- a/ContextInspectorView.st	Tue Sep 04 20:45:01 2001 +0200
+++ b/ContextInspectorView.st	Tue Sep 04 20:48:59 2001 +0200
@@ -385,14 +385,15 @@
 
     <resource: #programMenu >
 
-    |items|
+    |items m|
 
     showingTemporaries ifFalse:[
         items := #(
                         ('inspect'          #doInspect)
                         ('basicInspect'     #doBasicInspect)
                         ('-')
-                        ('browse'           #browse)
+                        ('browse'               #browse)
+                        ('browse blocks home'   #browseHome)
                         ('-')
                         ('show temporaries' #showTemporaries)
                   )
@@ -401,7 +402,8 @@
                         ('inspect'          #doInspect)
                         ('basicInspect'     #doBasicInspect)
                         ('-')
-                        ('browse'           #browse)
+                        ('browse'               #browse)
+                        ('browse blocks home'   #browseHome)
                         ('-')
                         ('hide temporaries' #hideTemporaries)
                   )
@@ -418,9 +420,14 @@
                         ('hex integers'      #toggleHex               )
                           )
     ].
-    ^ PopUpMenu
+    m := PopUpMenu
           itemList:items
-          resources:resources
+          resources:resources.
+
+    self selection isBlock ifFalse:[
+          m disable:#browseHome
+    ].
+    ^ m
 
     "Modified: / 21.5.1998 / 13:20:18 / cg"
 !
@@ -548,5 +555,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.49 2001-01-26 12:56:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.50 2001-09-04 18:48:59 cg Exp $'
 ! !