equal
deleted
inserted
replaced
66 ^ thisContext sender |
66 ^ thisContext sender |
67 ! |
67 ! |
68 |
68 |
69 raiseWithContext |
69 raiseWithContext |
70 AbortOperationRequest raiseWith:self getSendersContext |
70 AbortOperationRequest raiseWith:self getSendersContext |
|
71 ! |
|
72 |
|
73 selfReferringContext |
|
74 |ref| |
|
75 |
|
76 ref := thisContext. |
|
77 ^ thisContext |
|
78 ! |
|
79 |
|
80 senderContext |
|
81 ^ thisContext sender |
|
82 ! |
|
83 |
|
84 senderReferringContext1 |
|
85 ^ self senderReferringContext:thisContext |
|
86 ! |
|
87 |
|
88 senderReferringContext2 |
|
89 ^ self senderContext |
|
90 ! |
|
91 |
|
92 senderReferringContext:aContext |
|
93 ^ aContext |
71 ! ! |
94 ! ! |
72 |
95 |
73 !ContextTest2 methodsFor:'tests'! |
96 !ContextTest2 methodsFor:'tests'! |
74 |
97 |
75 testContextRef1 |
98 testContextRef1 |
117 ]. |
140 ]. |
118 ObjectMemory garbageCollect. |
141 ObjectMemory garbageCollect. |
119 |
142 |
120 " |
143 " |
121 self new testContextRef4 |
144 self new testContextRef4 |
|
145 " |
|
146 ! |
|
147 |
|
148 testContextRef5 |
|
149 self selfReferringContext. |
|
150 ObjectMemory garbageCollect. |
|
151 |
|
152 " |
|
153 self new testContextRef5 |
|
154 " |
|
155 ! |
|
156 |
|
157 testContextRef6 |
|
158 self senderReferringContext1. |
|
159 ObjectMemory garbageCollect. |
|
160 |
|
161 " |
|
162 self new testContextRef6 |
|
163 " |
|
164 ! |
|
165 |
|
166 testContextRef7 |
|
167 self senderReferringContext2. |
|
168 ObjectMemory garbageCollect. |
|
169 |
|
170 " |
|
171 self new testContextRef7 |
122 " |
172 " |
123 ! |
173 ! |
124 |
174 |
125 testProcess1 |
175 testProcess1 |
126 |x set lockSet p arg| |
176 |x set lockSet p arg| |