author | Claus Gittinger <cg@exept.de> |
Sat, 01 Feb 1997 19:50:30 +0100 | |
changeset 1026 | b863f3784b3c |
parent 977 | 0bd3800f9e4a |
child 1204 | e2f7a2409f7d |
permissions | -rw-r--r-- |
34 | 1 |
" |
2 |
COPYRIGHT (c) 1993 by Claus Gittinger |
|
45 | 3 |
All Rights Reserved |
34 | 4 |
|
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
||
13 |
InspectorView subclass:#ContextInspectorView |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
14 |
instanceVariableNames:'inspectedContext names showingTemporaries argsOnly' |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
15 |
classVariableNames:'' |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
16 |
poolDictionaries:'' |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
17 |
category:'Interface-Inspector' |
34 | 18 |
! |
19 |
||
785 | 20 |
!ContextInspectorView class methodsFor:'documentation'! |
34 | 21 |
|
22 |
copyright |
|
23 |
" |
|
24 |
COPYRIGHT (c) 1993 by Claus Gittinger |
|
45 | 25 |
All Rights Reserved |
34 | 26 |
|
27 |
This software is furnished under a license and may be used |
|
28 |
only in accordance with the terms of that license and with the |
|
29 |
inclusion of the above copyright notice. This software may not |
|
30 |
be provided or otherwise made available to, or used by, any |
|
31 |
other person. No title to or ownership of the software is |
|
32 |
hereby transferred. |
|
33 |
" |
|
34 |
! |
|
35 |
||
36 |
documentation |
|
37 |
" |
|
471 | 38 |
a modified Inspector for Contexts (used in the Debugger) |
39 |
TODO: |
|
40 |
when expressions are evaluated in myself, the inst-var |
|
41 |
names are not known by the expression evaluator. |
|
42 |
This has to be fixed |
|
43 |
(actual work is to be done in the Parser to allow passing of a context ...) |
|
510 | 44 |
|
45 |
[author:] |
|
46 |
Claus Gittinger |
|
47 |
||
48 |
[see also:] |
|
49 |
Context DebugView |
|
34 | 50 |
" |
51 |
! ! |
|
52 |
||
53 |
!ContextInspectorView methodsFor:'accessing'! |
|
54 |
||
868 | 55 |
inspect:aContext |
34 | 56 |
"set the context to be inspected" |
57 |
||
107 | 58 |
|homeContext method homeNames rec sel implementorClass |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
59 |
argNames varNames tmpNames m argsOnly blockNode vars |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
60 |
numVarsInSource numVarsInContext isDoIt |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
61 |
numArgs numVars| |
34 | 62 |
|
868 | 63 |
(aContext == inspectedContext) ifTrue:[ |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
64 |
listView selection notNil ifTrue:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
65 |
self showSelection:(listView selection). |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
66 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
67 |
^ self |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
68 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
69 |
|
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
70 |
hasMore := argsOnly := false. |
34 | 71 |
inspectedObject := nil. |
868 | 72 |
inspectedContext := aContext. |
49 | 73 |
|
868 | 74 |
aContext isNil ifTrue:[ |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
75 |
names := nil. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
76 |
listView list:nil. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
77 |
^ self |
34 | 78 |
]. |
79 |
||
56 | 80 |
"/ realized ifFalse:[^ self]. |
81 |
||
868 | 82 |
homeContext := aContext methodHome. |
51 | 83 |
|
84 |
homeContext isNil ifTrue:[ |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
85 |
"its a cheap blocks context" |
868 | 86 |
rec := aContext receiver. |
87 |
sel := aContext selector. |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
88 |
homeNames := OrderedCollection new. |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
89 |
isDoIt := false. |
51 | 90 |
] ifFalse:[ |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
91 |
rec := homeContext receiver. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
92 |
sel := homeContext selector. |
34 | 93 |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
94 |
"/ #doIt needs special handling below |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
95 |
isDoIt := (sel == #doIt) or:[sel == #doIt:]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
96 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
97 |
method := homeContext method. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
98 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
99 |
"/ implementorClass := homeContext methodClass. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
100 |
"/ implementorClass notNil ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
101 |
"/ method := implementorClass compiledMethodAt:sel. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
102 |
"/ ] ifFalse:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
103 |
"/ "/ mhm - an unbound method; |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
104 |
"/ "/ see if it was invoked by a direct call |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
105 |
"/ "/ consider this a kludge |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
106 |
"/ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
107 |
"/ homeContext sender notNil ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
108 |
"/ (homeContext sender selector startsWith:'valueWithReceiver:') ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
109 |
"/ method := homeContext sender receiver |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
110 |
"/ ] |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
111 |
"/ ] |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
112 |
"/ ]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
113 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
114 |
(method notNil |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
115 |
and:[method isWrapped]) ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
116 |
" |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
117 |
in a wrapped context, locals are something different |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
118 |
" |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
119 |
"/ argsOnly := true. |
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
120 |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
121 |
m := method originalMethod. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
122 |
m notNil ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
123 |
method := m. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
124 |
] ifFalse:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
125 |
argsOnly := true. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
126 |
]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
127 |
]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
128 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
129 |
method notNil ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
130 |
method source notNil ifTrue:[ |
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
131 |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
132 |
argsOnly ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
133 |
homeNames := method methodArgNames |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
134 |
] ifFalse:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
135 |
homeNames := method methodArgAndVarNames. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
136 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
137 |
"/ did it already allocate its locals ? |
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
138 |
homeNames size > (homeContext numArgs + homeContext numVars) |
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
139 |
ifTrue:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
140 |
homeNames := method methodArgNames. |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
141 |
argsOnly := true. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
142 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
143 |
]. |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
144 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
145 |
"/ there is one case, where the above is by purpose: |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
146 |
"/ the #doIt - method, which has been given an invalid |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
147 |
"/ source. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
148 |
"/ care for this here. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
149 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
150 |
isDoIt ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
151 |
homeNames := #(). |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
152 |
] ifFalse:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
153 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
154 |
"/ check |
785 | 155 |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
156 |
numVarsInContext := homeContext argsAndVars size. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
157 |
numVarsInSource := homeNames size. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
158 |
|
977 | 159 |
numVarsInSource > 0 ifTrue:[ |
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
160 |
numVarsInContext < numVarsInSource ifTrue:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
161 |
|
977 | 162 |
"/ the methods source does not correctly reflect |
163 |
"/ the number of args&vars in the context. |
|
164 |
"/ either outDated, or somehow strange. |
|
165 |
"/ (happens with wrapped methods, which are not |
|
166 |
"/ what they look) |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
167 |
|
977 | 168 |
numVarsInSource > numVarsInContext ifTrue:[ |
169 |
homeNames := homeNames copyTo:numVarsInContext. |
|
976
95a817dc94a2
fixed arg-name display of wrapped methods
Claus Gittinger <cg@exept.de>
parents:
948
diff
changeset
|
170 |
] ifFalse:[ |
977 | 171 |
numVarsInContext >= homeContext numArgs ifTrue:[ |
172 |
homeNames := homeNames copyTo:homeContext numArgs |
|
173 |
] ifFalse:[ |
|
174 |
homeNames := nil |
|
175 |
] |
|
176 |
] |
|
785 | 177 |
] |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
178 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
179 |
] |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
180 |
] |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
181 |
]. |
73 | 182 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
183 |
" |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
184 |
create dummy names for method vars (if there is no source available) |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
185 |
" |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
186 |
homeNames isNil ifTrue:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
187 |
homeNames := OrderedCollection new. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
188 |
1 to:homeContext numArgs do:[:index | |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
189 |
homeNames add:('mArg' , index printString) |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
190 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
191 |
argsOnly ifFalse:[ |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
192 |
1 to:homeContext numVars do:[:index | |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
193 |
homeNames add:('mVar' , index printString) |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
194 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
195 |
showingTemporaries ifTrue:[ |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
196 |
1 to:homeContext numTemps do:[:index | |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
197 |
homeNames add:('mTmp' , index printString) |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
198 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
199 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
200 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
201 |
]. |
34 | 202 |
]. |
51 | 203 |
|
34 | 204 |
" |
205 |
stupid: should find the block via the contexts |
|
206 |
method-home and put real names in here |
|
207 |
" |
|
868 | 208 |
aContext isBlockContext ifTrue:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
209 |
numArgs := aContext numArgs. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
210 |
numVars := aContext numVars. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
211 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
212 |
(numArgs > 0 or:[numVars > 0]) ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
213 |
|
948 | 214 |
method notNil ifTrue:[ |
215 |
isDoIt ifTrue:[ |
|
216 |
"/ special for #doIt |
|
217 |
"/ my source is found in the method. |
|
218 |
blockNode := Compiler |
|
219 |
blockAtLine:(aContext lineNumber) |
|
220 |
in:nil |
|
221 |
orSource:('[' , method source , '\]') withCRs |
|
222 |
numArgs:numArgs |
|
223 |
numVars:numVars. |
|
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
224 |
|
948 | 225 |
] ifFalse:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
226 |
blockNode := Compiler |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
227 |
blockAtLine:(aContext lineNumber) |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
228 |
in:method |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
229 |
orSource:nil |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
230 |
numArgs:numArgs |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
231 |
numVars:numVars. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
232 |
] |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
233 |
]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
234 |
|
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
235 |
blockNode notNil ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
236 |
numArgs > 0 ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
237 |
vars := blockNode arguments. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
238 |
vars size > 0 ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
239 |
argNames := vars collect:[:var | var name] |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
240 |
] |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
241 |
]. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
242 |
numVars > 0 ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
243 |
vars := blockNode variables. |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
244 |
vars size > 0 ifTrue:[ |
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
245 |
varNames := vars collect:[:var | var name]. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
246 |
] |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
247 |
] |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
248 |
]. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
249 |
]. |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
250 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
251 |
names := OrderedCollection new. |
51 | 252 |
|
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
253 |
argNames isNil ifTrue:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
254 |
argNames := (1 to:numArgs) collect:[:i | 'arg' , i printString]. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
255 |
]. |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
256 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
257 |
names addAll:argNames. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
258 |
varNames isNil ifTrue:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
259 |
varNames := (1 to:numVars) collect:[:i | 'var' , i printString]. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
260 |
] ifFalse:[ |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
261 |
varNames size ~~ numVars ifTrue:[ |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
262 |
varNames := varNames asOrderedCollection. |
868 | 263 |
varNames size+1 to:aContext numVars do:[:i | |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
264 |
varNames add:('var' , i printString) |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
265 |
] |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
266 |
] |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
267 |
]. |
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
268 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
269 |
names addAll:varNames. |
51 | 270 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
271 |
showingTemporaries ifTrue:[ |
868 | 272 |
tmpNames := (1 to:(aContext numTemps)) collect:[:i | 'tmp' , i printString]. |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
273 |
names addAll:tmpNames. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
274 |
]. |
51 | 275 |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
276 |
names addAll:homeNames. |
947
b9625d9b0881
better block-var name detection
Claus Gittinger <cg@exept.de>
parents:
868
diff
changeset
|
277 |
|
34 | 278 |
] ifFalse:[ |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
279 |
names := homeNames. |
34 | 280 |
]. |
73 | 281 |
|
282 |
listView list:names. |
|
34 | 283 |
|
284 |
workspace contents:nil. |
|
868 | 285 |
self setDoitActionIn:workspace for:aContext. |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
286 |
|
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
287 |
"Modified: 1.2.1997 / 18:17:45 / cg" |
34 | 288 |
! |
289 |
||
290 |
release |
|
291 |
"release inspected object" |
|
292 |
||
293 |
inspectedContext := nil. |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
294 |
names := nil. |
34 | 295 |
super release |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
296 |
|
297
3d34ce6e2b22
oops - leftover printMessage removed
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
297 |
"Modified: 14.12.1995 / 21:49:43 / cg" |
34 | 298 |
! ! |
299 |
||
73 | 300 |
!ContextInspectorView methodsFor:'initialization'! |
51 | 301 |
|
73 | 302 |
fieldMenu |
303 |
|labels selectors| |
|
304 |
||
305 |
showingTemporaries ifFalse:[ |
|
306 |
labels := #( |
|
307 |
'inspect' |
|
308 |
'basicInspect' |
|
309 |
'-' |
|
310 |
'show temporaries' |
|
311 |
). |
|
312 |
selectors := #( |
|
313 |
doInspect |
|
314 |
doBasicInspect |
|
315 |
nil |
|
316 |
showTemporaries |
|
317 |
) |
|
318 |
] ifTrue:[ |
|
319 |
labels := #( |
|
320 |
'inspect' |
|
321 |
'basicInspect' |
|
322 |
'-' |
|
323 |
'hide temporaries' |
|
324 |
). |
|
325 |
selectors := #( |
|
326 |
doInspect |
|
327 |
doBasicInspect |
|
328 |
nil |
|
329 |
hideTemporaries |
|
330 |
) |
|
331 |
]. |
|
332 |
||
333 |
^ PopUpMenu |
|
334 |
labels:(resources array:labels) |
|
335 |
selectors:selectors |
|
200 | 336 |
! |
337 |
||
338 |
initialize |
|
339 |
super initialize. |
|
340 |
showingTemporaries := false. |
|
341 |
||
73 | 342 |
! ! |
200 | 343 |
|
344 |
!ContextInspectorView methodsFor:'private'! |
|
345 |
||
647 | 346 |
defaultLabel |
347 |
^ 'locals' |
|
348 |
||
349 |
" |
|
350 |
ContextInspectorView openOn:thisContext sender |
|
351 |
" |
|
352 |
||
353 |
"Modified: 28.6.1996 / 16:07:49 / cg" |
|
354 |
! |
|
355 |
||
200 | 356 |
fieldList |
357 |
^ names |
|
358 |
! |
|
359 |
||
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
360 |
hasSelfEntry |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
361 |
^ false |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
362 |
|
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
363 |
"Created: 14.12.1995 / 19:29:47 / cg" |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
364 |
! |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
365 |
|
200 | 366 |
setDoitActionIn:aWorkspace for:aContext |
367 |
aWorkspace doItAction:[:theCode | |
|
368 |
Compiler evaluate:theCode |
|
369 |
in:aContext |
|
370 |
receiver:nil |
|
371 |
notifying:aWorkspace |
|
372 |
logged:true |
|
373 |
ifFail:nil |
|
374 |
] |
|
375 |
! |
|
376 |
||
377 |
valueAtLine:lineNr |
|
378 |
"helper - return the value of the selected entry" |
|
379 |
||
868 | 380 |
|homeContext theContext values| |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
381 |
|
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
382 |
inspectedContext isNil ifTrue:[^ nil]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
383 |
|
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
384 |
argsOnly := false. |
868 | 385 |
theContext := inspectedContext. |
386 |
homeContext := theContext methodHome. |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
387 |
|
868 | 388 |
theContext isBlockContext ifTrue:[ |
389 |
values := Array withAll:(theContext argsAndVars). |
|
390 |
(showingTemporaries and:[theContext numTemps ~~ 0]) ifTrue:[ |
|
391 |
values := values , theContext temporaries |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
392 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
393 |
homeContext notNil ifTrue:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
394 |
values := values , homeContext args. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
395 |
argsOnly ifFalse:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
396 |
values := values , homeContext vars. |
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
397 |
(showingTemporaries and:[homeContext numTemps ~~ 0])ifTrue:[ |
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
398 |
values := values , homeContext temporaries |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
399 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
400 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
401 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
402 |
] ifFalse:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
403 |
argsOnly ifTrue:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
404 |
values := homeContext args |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
405 |
] ifFalse:[ |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
406 |
values := homeContext argsAndVars |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
407 |
] |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
408 |
]. |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
409 |
|
200 | 410 |
^ values at:lineNr. |
411 |
||
800
3abcfccedc0c
finally: show block-arg and var-names.
Claus Gittinger <cg@exept.de>
parents:
785
diff
changeset
|
412 |
"Modified: 23.10.1996 / 16:21:05 / cg" |
200 | 413 |
! ! |
414 |
||
415 |
!ContextInspectorView methodsFor:'user actions'! |
|
416 |
||
417 |
doAccept:theText |
|
418 |
|value| |
|
419 |
||
420 |
selectedLine notNil ifTrue:[ |
|
421 |
value := Compiler evaluate:theText |
|
422 |
receiver:inspectedObject |
|
423 |
notifying:workspace. |
|
424 |
||
425 |
"yes, you can do that with a context" |
|
426 |
inspectedContext at:selectedLine put:value. |
|
427 |
]. |
|
428 |
! |
|
429 |
||
430 |
hideTemporaries |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
431 |
"do not show contexts temporaries" |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
432 |
|
200 | 433 |
showingTemporaries := false. |
434 |
self inspect:inspectedContext |
|
435 |
||
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
436 |
"Modified: 14.12.1995 / 19:24:44 / cg" |
200 | 437 |
! |
438 |
||
439 |
showTemporaries |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
440 |
"show contexts temporaries" |
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
441 |
|
200 | 442 |
showingTemporaries := true. |
443 |
self inspect:inspectedContext |
|
296
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
444 |
|
b480a51cfb5f
dont buffer values / keep context / update value (now try single stepping with a variable selected)
Claus Gittinger <cg@exept.de>
parents:
200
diff
changeset
|
445 |
"Modified: 14.12.1995 / 19:24:49 / cg" |
200 | 446 |
! ! |
447 |
||
785 | 448 |
!ContextInspectorView class methodsFor:'documentation'! |
200 | 449 |
|
450 |
version |
|
1026
b863f3784b3c
oops - methods with inlined blockVars did not show its vars
Claus Gittinger <cg@exept.de>
parents:
977
diff
changeset
|
451 |
^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.34 1997-02-01 18:50:30 cg Exp $' |
200 | 452 |
! ! |