equal
deleted
inserted
replaced
110 ! |
110 ! |
111 |
111 |
112 doRemoveKey |
112 doRemoveKey |
113 "remove selected item from keys" |
113 "remove selected item from keys" |
114 |
114 |
115 |key| |
115 |key idx| |
116 |
116 |
117 selectedLine == 1 ifFalse:[ |
117 idx := selectedLine. |
118 key := (keys at:selectedLine - 1). |
118 (idx notNil and:[idx ~~ 1]) ifTrue:[ |
|
119 idx := idx + Set instSize. |
|
120 idx <= inspectedObject class instSize ifTrue:[ |
|
121 ^ self |
|
122 ]. |
|
123 idx := idx - inspectedObject class instSize. |
|
124 |
|
125 key := keys at:idx. |
119 (inspectedObject includes:key) ifTrue:[ |
126 (inspectedObject includes:key) ifTrue:[ |
120 listView cursor:(Cursor wait). |
127 listView cursor:(Cursor wait). |
121 inspectedObject remove:key. |
128 inspectedObject remove:key. |
122 keys := nil. |
129 keys := nil. |
123 selectedLine := nil. |
130 selectedLine := nil. |
142 ^ inspectedObject |
149 ^ inspectedObject |
143 ]. |
150 ]. |
144 idx := idx - 1. |
151 idx := idx - 1. |
145 ]. |
152 ]. |
146 |
153 |
147 inspectedObject ~~ Smalltalk ifTrue:[ |
154 idx := idx + Set instSize. |
148 idx := idx + Dictionary instSize. |
155 idx <= inspectedObject class instSize ifTrue:[ |
149 idx <= inspectedObject class instSize ifTrue:[ |
156 ^ inspectedObject instVarAt:idx |
150 ^ inspectedObject instVarAt:idx |
|
151 ]. |
|
152 idx := idx - inspectedObject class instSize. |
|
153 ]. |
157 ]. |
|
158 idx := idx - inspectedObject class instSize. |
154 |
159 |
155 key := keys at:idx. |
160 key := keys at:idx. |
156 ^ key. |
161 ^ key. |
157 |
162 |
158 ! ! |
163 ! ! |
159 |
164 |
160 !SetInspectorView class methodsFor:'documentation'! |
165 !SetInspectorView class methodsFor:'documentation'! |
161 |
166 |
162 version |
167 version |
163 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.9 1999-06-23 16:02:23 cg Exp $' |
168 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.10 1999-06-23 16:04:06 cg Exp $' |
164 ! ! |
169 ! ! |