--- 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 $'
! !