Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 23 Jun 1999 18:04:06 +0200
changeset 2192 c7bce869223c
parent 2191 06957119a0ac
child 2193 3d7b1044e8c8
*** empty log message ***
SetInspV.st file | annotate | diff | comparison | revisions
SetInspectorView.st file | annotate | diff | comparison | revisions 
--- a/SetInspV.st	Wed Jun 23 18:02:23 1999 +0200
+++ b/SetInspV.st	Wed Jun 23 18:04:06 1999 +0200
@@ -112,10 +112,17 @@
 doRemoveKey
     "remove selected item from keys"
 
-    |key|
+    |key idx|
 
-    selectedLine == 1 ifFalse:[
-        key := (keys at:selectedLine - 1).
+    idx := selectedLine.
+    (idx notNil and:[idx ~~ 1]) ifTrue:[
+        idx := idx + Set instSize.
+        idx <= inspectedObject class instSize ifTrue:[
+            ^ self
+        ].
+        idx := idx - inspectedObject class instSize.
+
+        key := keys at:idx.
         (inspectedObject includes:key) ifTrue:[
             listView cursor:(Cursor wait).
             inspectedObject remove:key.
@@ -144,13 +151,11 @@
         idx := idx - 1.
     ].
 
-    inspectedObject ~~ Smalltalk ifTrue:[
-        idx := idx + Dictionary instSize.
-        idx <= inspectedObject class instSize ifTrue:[
-            ^ inspectedObject instVarAt:idx
-        ].
-        idx := idx - inspectedObject class instSize.
+    idx := idx + Set instSize.
+    idx <= inspectedObject class instSize ifTrue:[
+        ^ inspectedObject instVarAt:idx
     ].
+    idx := idx - inspectedObject class instSize.
 
     key := keys at:idx.
     ^ key.
@@ -160,5 +165,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SetInspV.st,v 1.9 1999-06-23 16:02:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SetInspV.st,v 1.10 1999-06-23 16:04:06 cg Exp $'
 ! !
--- a/SetInspectorView.st	Wed Jun 23 18:02:23 1999 +0200
+++ b/SetInspectorView.st	Wed Jun 23 18:04:06 1999 +0200
@@ -112,10 +112,17 @@
 doRemoveKey
     "remove selected item from keys"
 
-    |key|
+    |key idx|
 
-    selectedLine == 1 ifFalse:[
-        key := (keys at:selectedLine - 1).
+    idx := selectedLine.
+    (idx notNil and:[idx ~~ 1]) ifTrue:[
+        idx := idx + Set instSize.
+        idx <= inspectedObject class instSize ifTrue:[
+            ^ self
+        ].
+        idx := idx - inspectedObject class instSize.
+
+        key := keys at:idx.
         (inspectedObject includes:key) ifTrue:[
             listView cursor:(Cursor wait).
             inspectedObject remove:key.
@@ -144,13 +151,11 @@
         idx := idx - 1.
     ].
 
-    inspectedObject ~~ Smalltalk ifTrue:[
-        idx := idx + Dictionary instSize.
-        idx <= inspectedObject class instSize ifTrue:[
-            ^ inspectedObject instVarAt:idx
-        ].
-        idx := idx - inspectedObject class instSize.
+    idx := idx + Set instSize.
+    idx <= inspectedObject class instSize ifTrue:[
+        ^ inspectedObject instVarAt:idx
     ].
+    idx := idx - inspectedObject class instSize.
 
     key := keys at:idx.
     ^ key.
@@ -160,5 +165,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.9 1999-06-23 16:02:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.10 1999-06-23 16:04:06 cg Exp $'
 ! !
hg/stx-libtool