equal
deleted
inserted
replaced
315 1 to:sz do:[:i | |
315 1 to:sz do:[:i | |
316 self instVarAt:i put:0 |
316 self instVarAt:i put:0 |
317 ] |
317 ] |
318 ! ! |
318 ! ! |
319 |
319 |
320 !JavaObject methodsFor:'inspecting'! |
|
321 |
|
322 inspectorExtraAttributes |
|
323 |
|
324 | attrs nm | |
|
325 |
|
326 attrs := super inspectorExtraAttributes. |
|
327 nm := self class binaryName. |
|
328 nm == #'java/lang/reflect/Method' ifTrue:[ |
|
329 VMInternalError handle:[:ex | |
|
330 "/ happens when the method cannot be resolved |
|
331 ] do:[ |
|
332 attrs at:'-method' put: (JavaVM reflection methodForJavaMethodObject: self). |
|
333 ]. |
|
334 ^attrs. |
|
335 ]. |
|
336 nm == #'java/lang/Class' ifTrue:[ |
|
337 VMInternalError handle:[:ex | |
|
338 "/ happens when the class cannot be resolved |
|
339 ] do:[ |
|
340 attrs at:'-class' put: (JavaVM reflection classForJavaClassObject: self). |
|
341 ]. |
|
342 ^attrs. |
|
343 ]. |
|
344 ^attrs |
|
345 |
|
346 "Created: / 04-12-2011 / 19:28:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
347 "Modified: / 08-10-2013 / 22:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
348 ! ! |
|
349 |
320 |
350 !JavaObject methodsFor:'message sending'! |
321 !JavaObject methodsFor:'message sending'! |
351 |
322 |
352 doesNotUnderstand:aMessage |
323 doesNotUnderstand:aMessage |
353 |
324 |