447 ^ |
447 ^ |
448 #(Menu |
448 #(Menu |
449 ( |
449 ( |
450 (MenuItem |
450 (MenuItem |
451 label: 'File' |
451 label: 'File' |
|
452 isVisible: true |
452 submenu: |
453 submenu: |
453 (Menu |
454 (Menu |
454 ( |
455 ( |
455 (MenuItem |
456 (MenuItem |
456 label: 'Open Executable' |
457 label: 'Open Executable' |
457 itemValue: doOpenExecutable |
458 itemValue: doOpenExecutable |
|
459 isVisible: true |
458 ) |
460 ) |
459 (MenuItem |
461 (MenuItem |
460 label: '-' |
462 label: '-' |
|
463 ) |
|
464 (MenuItem |
|
465 enabled: canAttachToRR |
|
466 label: 'Attach to Replay Server' |
|
467 itemValue: doAttachToRR |
|
468 isVisible: true |
|
469 ) |
|
470 (MenuItem |
|
471 label: '-' |
|
472 isVisible: true |
461 ) |
473 ) |
462 (MenuItem |
474 (MenuItem |
463 label: 'Quit' |
475 label: 'Quit' |
464 itemValue: doQuit |
476 itemValue: doQuit |
|
477 isVisible: true |
465 ) |
478 ) |
466 ) |
479 ) |
467 nil |
480 nil |
468 nil |
481 nil |
469 ) |
482 ) |
470 ) |
483 ) |
471 (MenuItem |
484 (MenuItem |
472 label: 'Run' |
485 label: 'Run' |
|
486 isVisible: true |
473 submenuChannel: execMenu |
487 submenuChannel: execMenu |
474 ) |
488 ) |
475 (MenuItem |
489 (MenuItem |
476 label: 'View' |
490 label: 'View' |
|
491 isVisible: true |
477 submenu: |
492 submenu: |
478 (Menu |
493 (Menu |
479 ( |
494 ( |
480 (MenuItem |
495 (MenuItem |
481 label: 'Stack' |
496 label: 'Stack' |
482 itemValue: doOpenToolApplicationClass: |
497 itemValue: doOpenToolApplicationClass: |
|
498 isVisible: true |
483 argument: VDBStackApplication |
499 argument: VDBStackApplication |
484 ) |
500 ) |
485 (MenuItem |
501 (MenuItem |
486 label: 'Frame' |
502 label: 'Frame' |
487 itemValue: doOpenToolApplicationClass: |
503 itemValue: doOpenToolApplicationClass: |
|
504 isVisible: true |
488 argument: VDBFrameApplication |
505 argument: VDBFrameApplication |
489 ) |
506 ) |
490 (MenuItem |
507 (MenuItem |
491 label: 'Breakpoints' |
508 label: 'Breakpoints' |
492 itemValue: doOpenToolApplicationClass: |
509 itemValue: doOpenToolApplicationClass: |
|
510 isVisible: true |
493 argument: VDBBreakpointListApplication |
511 argument: VDBBreakpointListApplication |
494 ) |
512 ) |
495 (MenuItem |
513 (MenuItem |
496 label: 'Memory' |
514 label: 'Memory' |
497 itemValue: doOpenToolApplicationClass: |
515 itemValue: doOpenToolApplicationClass: |
|
516 isVisible: true |
498 argument: VDBMemoryApplication |
517 argument: VDBMemoryApplication |
499 ) |
518 ) |
500 (MenuItem |
519 (MenuItem |
501 label: '-' |
520 label: '-' |
|
521 isVisible: true |
502 ) |
522 ) |
503 (MenuItem |
523 (MenuItem |
504 enabled: canViewEnableFrameFilters |
524 enabled: canViewEnableFrameFilters |
505 label: 'Enable Frame Filters' |
525 label: 'Enable Frame Filters' |
506 itemValue: doViewEnableFrameFilters |
526 itemValue: doViewEnableFrameFilters |
|
527 isVisible: true |
507 ) |
528 ) |
508 (MenuItem |
529 (MenuItem |
509 enabled: canViewEnablePrettyPrinting |
530 enabled: canViewEnablePrettyPrinting |
510 label: 'Enable Pretty Printing' |
531 label: 'Enable Pretty Printing' |
511 itemValue: doViewEnablePrettyPrinting |
532 itemValue: doViewEnablePrettyPrinting |
|
533 isVisible: true |
512 ) |
534 ) |
513 ) |
535 ) |
514 nil |
536 nil |
515 nil |
537 nil |
516 ) |
538 ) |
517 ) |
539 ) |
518 (MenuItem |
540 (MenuItem |
519 label: 'Debug' |
541 label: 'Debug' |
520 startGroup: right |
542 startGroup: right |
|
543 isVisible: true |
521 submenu: |
544 submenu: |
522 (Menu |
545 (Menu |
523 ( |
546 ( |
524 (MenuItem |
547 (MenuItem |
525 label: 'Inspect Debugger' |
548 label: 'Inspect Debugger' |
526 itemValue: doInspectDebugger |
549 itemValue: doInspectDebugger |
|
550 isVisible: true |
527 ) |
551 ) |
528 (MenuItem |
552 (MenuItem |
529 label: 'Inspect Session Record' |
553 label: 'Inspect Session Record' |
530 itemValue: doInspectSessionRecord |
554 itemValue: doInspectSessionRecord |
|
555 isVisible: true |
531 ) |
556 ) |
532 (MenuItem |
557 (MenuItem |
533 label: '-' |
558 label: '-' |
|
559 isVisible: true |
534 ) |
560 ) |
535 (MenuItem |
561 (MenuItem |
536 label: 'Reopen' |
562 label: 'Reopen' |
537 itemValue: doDebugReopenDebugger |
563 itemValue: doDebugReopenDebugger |
|
564 isVisible: true |
538 ) |
565 ) |
539 (MenuItem |
566 (MenuItem |
540 label: 'Launcher' |
567 label: 'Launcher' |
541 itemValue: doDebugReopenLauncher |
568 itemValue: doDebugReopenLauncher |
|
569 isVisible: true |
542 ) |
570 ) |
543 ) |
571 ) |
544 nil |
572 nil |
545 nil |
573 nil |
546 ) |
574 ) |
547 ) |
575 ) |
548 ) |
576 ) |
549 nil |
577 nil |
550 nil |
578 nil |
551 ) |
579 ) |
552 |
|
553 "Modified: / 14-03-2018 / 09:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
554 ! |
580 ! |
555 |
581 |
556 toolbarMenu |
582 toolbarMenu |
557 "This resource specification was automatically generated |
583 "This resource specification was automatically generated |
558 by the MenuEditor of ST/X." |
584 by the MenuEditor of ST/X." |
940 |
966 |
941 "Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
967 "Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
942 "Modified: / 02-02-2018 / 21:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
968 "Modified: / 02-02-2018 / 21:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
943 ! |
969 ! |
944 |
970 |
|
971 onRRExitEvent: anRRExitEvent |
|
972 anRRExitEvent rr announcer unsubscribe: self. |
|
973 |
|
974 "Created: / 03-08-2018 / 13:29:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
975 ! |
|
976 |
|
977 onRRStartEvent: anRRStartEvent |
|
978 |
|
979 "Created: / 03-08-2018 / 13:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
980 ! |
|
981 |
945 onRunningEvent: aGDBStoppedEvent |
982 onRunningEvent: aGDBStoppedEvent |
946 self updateButtonEnablements |
983 self updateButtonEnablements |
947 |
984 |
948 "Created: / 21-09-2014 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
985 "Created: / 21-09-2014 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
949 "Modified: / 01-06-2017 / 23:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
986 "Modified: / 01-06-2017 / 23:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1026 "Modified (format): / 10-04-2018 / 18:30:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1063 "Modified (format): / 10-04-2018 / 18:30:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1027 ! ! |
1064 ! ! |
1028 |
1065 |
1029 !VDBDebuggerApplication methodsFor:'menu actions'! |
1066 !VDBDebuggerApplication methodsFor:'menu actions'! |
1030 |
1067 |
|
1068 doAttachToRR |
|
1069 self doAttachToRR: RR replay. |
|
1070 |
|
1071 "Modified: / 03-08-2018 / 13:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1072 ! |
|
1073 |
|
1074 doAttachToRR: rr |
|
1075 rr announcer |
|
1076 when: RRStartEvent send: #onRRStartEvent: to: self; |
|
1077 when: RRExitEvent send: #onRRExitEvent: to: self. |
|
1078 rr start. |
|
1079 (VDBUnixReplayServerConsoleApplication new) |
|
1080 debugger:debugger; |
|
1081 rr:rr; |
|
1082 open. |
|
1083 debugger targetConnectRR:rr. |
|
1084 |
|
1085 "Created: / 03-08-2018 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1086 ! |
|
1087 |
1031 doDebugReopenDebugger |
1088 doDebugReopenDebugger |
1032 | d | |
1089 | d | |
1033 |
1090 |
1034 d := debugger. |
1091 d := debugger. |
1035 self unsubscribe. |
1092 self unsubscribe. |
1154 "Modified: / 05-06-2017 / 23:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1211 "Modified: / 05-06-2017 / 23:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1155 ! ! |
1212 ! ! |
1156 |
1213 |
1157 !VDBDebuggerApplication methodsFor:'menu apects'! |
1214 !VDBDebuggerApplication methodsFor:'menu apects'! |
1158 |
1215 |
|
1216 canAttachToRR |
|
1217 ^ RR available |
|
1218 |
|
1219 "Modified: / 26-07-2018 / 22:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1220 ! |
|
1221 |
1159 canViewEnableFrameFilters |
1222 canViewEnableFrameFilters |
1160 ^ [ debugger isFrameFiltersEnabled not ] |
1223 ^ [ debugger isFrameFiltersEnabled not ] |
1161 |
1224 |
1162 "Modified: / 12-06-2017 / 09:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1225 "Modified: / 12-06-2017 / 09:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1163 ! |
1226 ! |