InspectorView.st
changeset 8065 1fa2c55f1cf9
parent 8025 33e306c26e0f
child 8090 45e0ec5d10f5
--- a/InspectorView.st	Tue Apr 08 12:08:27 2008 +0200
+++ b/InspectorView.st	Wed Apr 09 19:03:41 2008 +0200
@@ -642,7 +642,7 @@
                        ('Browse Methods Class'         #browseMethodsClass)
                  ).
     ].
-    (self fieldList at:selectionIndex ifAbsent:nil) = '-dependents' ifTrue:[
+    (selectionIndex notNil and:[(self fieldList at:selectionIndex ifAbsent:nil) = '-dependents']) ifTrue:[
         items := items , #(
                        ('Browse Update Methods'        #browseUpdateMethods)
                  ).
@@ -2055,5 +2055,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.178 2008-03-14 10:23:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.179 2008-04-09 17:03:41 stefan Exp $'
 ! !