SetInspectorView.st
changeset 2236 257f587ad7dc
parent 2193 3d7b1044e8c8
child 2271 0cf238543cb1
--- 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 $'
 ! !