equal
deleted
inserted
replaced
1 "{ Package: 'jv:vdb' }" |
1 "{ Package: 'jv:vdb' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 VDBAbstractApplication subclass:#VDBDebuggerApplication |
5 VDBAbstractApplication subclass:#VDBDebuggerApplication |
4 instanceVariableNames:'layoutSpecHolder selectedInferiorHolder selectedThreadHolder |
6 instanceVariableNames:'layoutSpecHolder selectedInferiorHolder selectedThreadHolder |
5 selectedFrameHolder containerBottom' |
7 selectedFrameHolder containerBottom' |
6 classVariableNames:'' |
8 classVariableNames:'' |
552 ^ containerBottom |
554 ^ containerBottom |
553 |
555 |
554 "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
556 "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
555 ! ! |
557 ! ! |
556 |
558 |
|
559 !VDBDebuggerApplication methodsFor:'change & update'! |
|
560 |
|
561 update:aspect with:parameter from:sender |
|
562 "Invoked when an object that I depend upon sends a change notification." |
|
563 |
|
564 "stub code automatically generated - please change as required" |
|
565 |
|
566 sender == selectedFrameHolder ifTrue:[ |
|
567 self updateAfterSelectedFrameHolderChanged. |
|
568 ]. |
|
569 |
|
570 super update:aspect with:parameter from:sender |
|
571 |
|
572 "Modified: / 27-02-2015 / 13:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
573 ! |
|
574 |
|
575 updateAfterSelectedFrameHolderChanged |
|
576 | frame | |
|
577 |
|
578 frame := selectedFrameHolder value. |
|
579 frame notNil ifTrue:[ |
|
580 debugger send: (GDBMI_thread_select new arguments:(Array with: frame thread id)) wait: false. |
|
581 debugger send: (GDBMI_stack_select_frame new arguments:(Array with: frame level)) wait: false. |
|
582 ]. |
|
583 |
|
584 "Created: / 27-02-2015 / 13:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
585 ! ! |
|
586 |
557 !VDBDebuggerApplication methodsFor:'event handling'! |
587 !VDBDebuggerApplication methodsFor:'event handling'! |
558 |
588 |
559 onRunningEvent: aGDBStoppedEvent |
589 onRunningEvent: aGDBStoppedEvent |
560 |
590 |
561 "Created: / 21-09-2014 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
591 "Created: / 21-09-2014 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |