equal
deleted
inserted
replaced
742 (MenuItem |
742 (MenuItem |
743 label: 'IDA Pro Layout' |
743 label: 'IDA Pro Layout' |
744 isVisible: true |
744 isVisible: true |
745 choice: layoutSpecHolder |
745 choice: layoutSpecHolder |
746 choiceValue: layoutIDAProSpec |
746 choiceValue: layoutIDAProSpec |
747 ) |
747 ) |
748 (MenuItem |
748 (MenuItem |
749 label: 'Console-Only Layout' |
749 label: 'Console-Only Layout' |
750 isVisible: true |
750 isVisible: true |
751 choice: layoutSpecHolder |
751 choice: layoutSpecHolder |
752 choiceValue: layoutSingleSpec |
752 choiceValue: layoutSingleSpec |
840 (MenuItem |
840 (MenuItem |
841 label: 'Launcher' |
841 label: 'Launcher' |
842 itemValue: doDebugReopenLauncher |
842 itemValue: doDebugReopenLauncher |
843 isVisible: true |
843 isVisible: true |
844 ) |
844 ) |
|
845 (MenuItem |
|
846 label: '-' |
|
847 ) |
|
848 (MenuItem |
|
849 enabled: canDebugOpenAndAttachToGDB |
|
850 label: 'Open & Attach to GDB Process' |
|
851 itemValue: doDebugOpenAndAttachToGDB |
|
852 isVisible: true |
|
853 ) |
845 ) |
854 ) |
846 nil |
855 nil |
847 nil |
856 nil |
848 ) |
857 ) |
849 ) |
858 ) |
850 ) |
859 ) |
851 nil |
860 nil |
852 nil |
861 nil |
853 ) |
862 ) |
854 |
|
855 "Modified: / 05-10-2018 / 09:14:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
856 ! |
863 ! |
857 |
864 |
858 toolbarMenu |
865 toolbarMenu |
859 "This resource specification was automatically generated |
866 "This resource specification was automatically generated |
860 by the MenuEditor of ST/X." |
867 by the MenuEditor of ST/X." |
1428 |
1435 |
1429 "Created: / 03-08-2018 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1436 "Created: / 03-08-2018 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1430 "Modified: / 31-08-2018 / 22:51:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1437 "Modified: / 31-08-2018 / 22:51:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1431 ! |
1438 ! |
1432 |
1439 |
|
1440 doDebugOpenAndAttachToGDB |
|
1441 | debuggerOnGDB | |
|
1442 |
|
1443 debuggerOnGDB := debugger class newWithProcess: (debugger process class newWithCommand: debugger process command). |
|
1444 self class openFor: debuggerOnGDB. |
|
1445 debuggerOnGDB attach: debugger process id. |
|
1446 |
|
1447 "Modified: / 28-03-2019 / 12:42:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1448 ! |
|
1449 |
1433 doDebugReopenDebugger |
1450 doDebugReopenDebugger |
1434 | d | |
1451 | d | |
1435 |
1452 |
1436 d := debugger. |
1453 d := debugger. |
1437 self unsubscribe. |
1454 self unsubscribe. |
1636 ^ RR available |
1653 ^ RR available |
1637 |
1654 |
1638 "Modified: / 26-07-2018 / 22:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1655 "Modified: / 26-07-2018 / 22:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1639 ! |
1656 ! |
1640 |
1657 |
|
1658 canDebugOpenAndAttachToGDB |
|
1659 <resource: #uiCallback> |
|
1660 |
|
1661 ^ [ debugger notNil and:[ debugger process isLocal ] ] |
|
1662 |
|
1663 "Modified: / 27-03-2019 / 09:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1664 ! |
|
1665 |
1641 canViewEnableFrameFilters |
1666 canViewEnableFrameFilters |
1642 ^ [ debugger isFrameFiltersEnabled not ] |
1667 ^ [ debugger isFrameFiltersEnabled not ] |
1643 |
1668 |
1644 "Modified: / 12-06-2017 / 09:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1669 "Modified: / 12-06-2017 / 09:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1645 ! |
1670 ! |