equal
deleted
inserted
replaced
48 |
48 |
49 [see also:] |
49 [see also:] |
50 Context DebugView |
50 Context DebugView |
51 " |
51 " |
52 ! ! |
52 ! ! |
53 |
|
54 |
53 |
55 !ContextInspectorView methodsFor:'accessing'! |
54 !ContextInspectorView methodsFor:'accessing'! |
56 |
55 |
57 inspect:aContext |
56 inspect:aContext |
58 "set the context to be inspected" |
57 "set the context to be inspected" |
265 ]. |
264 ]. |
266 "/ |
265 "/ |
267 "/ hidden temps used for loop. |
266 "/ hidden temps used for loop. |
268 "/ |
267 "/ |
269 blockNode invocationSelector == #timesRepeat ifTrue:[ |
268 blockNode invocationSelector == #timesRepeat ifTrue:[ |
270 realTempNames asOrderedCollection addFirst:'*loopStop*' |
269 realTempNames := realTempNames asOrderedCollection. |
|
270 realTempNames addFirst:'*loopStop*' |
271 ] ifFalse:[ |
271 ] ifFalse:[ |
272 blockNode invocationSelector == #to:do: ifTrue:[ |
272 blockNode invocationSelector == #to:do: ifTrue:[ |
273 realTempNames asOrderedCollection addFirst:'*loopStop*' |
273 realTempNames := realTempNames asOrderedCollection. |
|
274 realTempNames addFirst:'*loopStop*' |
274 ] |
275 ] |
275 ]. |
276 ]. |
276 blockNode := blockNode home. |
277 blockNode := blockNode home. |
277 ]. |
278 ]. |
278 tempNames |
279 tempNames |
368 super release |
369 super release |
369 |
370 |
370 "Modified: 14.12.1995 / 21:49:43 / cg" |
371 "Modified: 14.12.1995 / 21:49:43 / cg" |
371 ! ! |
372 ! ! |
372 |
373 |
373 |
|
374 !ContextInspectorView methodsFor:'initialization'! |
374 !ContextInspectorView methodsFor:'initialization'! |
375 |
375 |
376 initialize |
376 initialize |
377 super initialize. |
377 super initialize. |
378 showingTemporaries := false. |
378 showingTemporaries := false. |
379 |
379 |
380 ! ! |
380 ! ! |
381 |
|
382 |
381 |
383 !ContextInspectorView methodsFor:'menu'! |
382 !ContextInspectorView methodsFor:'menu'! |
384 |
383 |
385 fieldMenu |
384 fieldMenu |
386 "return a popUpMenu for the left (fields) pane" |
385 "return a popUpMenu for the left (fields) pane" |
457 ]. |
456 ]. |
458 ^ m |
457 ^ m |
459 |
458 |
460 "Modified: / 20-07-2012 / 10:51:12 / cg" |
459 "Modified: / 20-07-2012 / 10:51:12 / cg" |
461 ! ! |
460 ! ! |
462 |
|
463 |
461 |
464 !ContextInspectorView methodsFor:'private'! |
462 !ContextInspectorView methodsFor:'private'! |
465 |
463 |
466 defaultLabel |
464 defaultLabel |
467 ^ 'Locals' |
465 ^ 'Locals' |
628 self error:'unknown special line'. |
626 self error:'unknown special line'. |
629 |
627 |
630 "Created: / 31.10.2001 / 09:17:45 / cg" |
628 "Created: / 31.10.2001 / 09:17:45 / cg" |
631 ! ! |
629 ! ! |
632 |
630 |
633 |
|
634 !ContextInspectorView methodsFor:'user actions'! |
631 !ContextInspectorView methodsFor:'user actions'! |
635 |
|
636 |
|
637 |
632 |
638 hideTemporaries |
633 hideTemporaries |
639 "do not show contexts temporaries" |
634 "do not show contexts temporaries" |
640 |
635 |
641 showingTemporaries := false. |
636 showingTemporaries := false. |
670 |
665 |
671 "yes, you can do that with a context" |
666 "yes, you can do that with a context" |
672 inspectedContext at:contextIndex put:newValue. |
667 inspectedContext at:contextIndex put:newValue. |
673 ! ! |
668 ! ! |
674 |
669 |
675 |
|
676 !ContextInspectorView class methodsFor:'documentation'! |
670 !ContextInspectorView class methodsFor:'documentation'! |
677 |
671 |
678 version |
672 version |
679 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.80 2013-03-11 16:58:00 cg Exp $' |
673 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.81 2013-05-28 18:23:50 cg Exp $' |
680 ! |
674 ! |
681 |
675 |
682 version_CVS |
676 version_CVS |
683 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.80 2013-03-11 16:58:00 cg Exp $' |
677 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.81 2013-05-28 18:23:50 cg Exp $' |
684 ! |
678 ! |
685 |
679 |
686 version_HG |
680 version_HG |
687 |
681 |
688 ^ '$Changeset: <not expanded> $' |
682 ^ '$Changeset: <not expanded> $' |