equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'jv:vdb' }" |
3 "{ Package: 'jv:vdb' }" |
2 |
4 |
3 "{ NameSpace: Smalltalk }" |
5 "{ NameSpace: Smalltalk }" |
4 |
6 |
5 VDBAbstractApplication subclass:#VDBDebuggerApplication |
7 VDBAbstractApplication subclass:#VDBDebuggerApplication |
608 updateAfterSelectedFrameHolderChanged |
610 updateAfterSelectedFrameHolderChanged |
609 | frame | |
611 | frame | |
610 |
612 |
611 frame := selectedFrameHolder value. |
613 frame := selectedFrameHolder value. |
612 frame notNil ifTrue:[ |
614 frame notNil ifTrue:[ |
613 debugger send: (GDBMI_thread_select new arguments:(Array with: frame thread id)) wait: false. |
615 debugger |
614 debugger send: (GDBMI_stack_select_frame new arguments:(Array with: frame level)) wait: false. |
616 send:(GDBMI_thread_select new arguments:(Array with:frame thread id)) |
|
617 andWait:false. |
|
618 debugger |
|
619 send:(GDBMI_stack_select_frame new arguments:(Array with:frame level)) |
|
620 andWait:false. |
615 ]. |
621 ]. |
616 |
622 |
617 "Created: / 27-02-2015 / 13:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
623 "Created: / 27-02-2015 / 13:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
618 ! ! |
624 ! ! |
619 |
625 |
660 | file | |
666 | file | |
661 |
667 |
662 file := Dialog requestFileName:'Selected executable to debug' pattern:'*'. |
668 file := Dialog requestFileName:'Selected executable to debug' pattern:'*'. |
663 file isNil ifTrue:[ ^ self ]. |
669 file isNil ifTrue:[ ^ self ]. |
664 file := file asFilename. |
670 file := file asFilename. |
665 debugger send: (GDBMI_file_exec_and_symbols arguments: { file asString }) wait: false. |
671 debugger send:(GDBMI_file_exec_and_symbols arguments:{ file asString }) andWait:false. |
666 |
672 |
667 "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
673 "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
674 "Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
668 ! |
675 ! |
669 |
676 |
670 doQuit |
677 doQuit |
671 "automatically generated by UIEditor ..." |
678 "automatically generated by UIEditor ..." |
672 |
679 |