--- a/SetInspectorView.st Wed Jul 07 02:22:33 1999 +0200
+++ b/SetInspectorView.st Wed Jul 07 02:26:33 1999 +0200
@@ -39,7 +39,7 @@
doRemoveKey
).
- (self keyIndexForLine:selectedLine) isNil ifTrue:[
+ (self keyIndexForLine:selectionIndex) isNil ifTrue:[
menu disableAll:#(doRemoveKey)
].
@@ -123,14 +123,14 @@
|key idx|
- idx := self keyIndexForLine:selectedLine.
+ idx := self keyIndexForLine:selectionIndex.
idx notNil ifTrue:[
key := keys at:idx.
(inspectedObject includes:key) ifTrue:[
listView cursor:(Cursor wait).
inspectedObject remove:key.
keys := nil.
- selectedLine := nil.
+ selectionIndex := selectedLine := nil.
inspectedObject changed.
listView cursor:(Cursor hand).
self reinspect.
@@ -168,5 +168,5 @@
!SetInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.11 1999-06-23 16:39:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.12 1999-07-07 00:26:33 cg Exp $'
! !