equal
deleted
inserted
replaced
1148 ) |
1148 ) |
1149 (MenuItem |
1149 (MenuItem |
1150 label: '-' |
1150 label: '-' |
1151 ) |
1151 ) |
1152 (MenuItem |
1152 (MenuItem |
|
1153 label: 'After 5 Seconds' |
|
1154 submenu: |
|
1155 (Menu |
|
1156 ( |
|
1157 (MenuItem |
|
1158 label: 'Continue' |
|
1159 itemValue: doContinueAfterDelay |
|
1160 ) |
|
1161 (MenuItem |
|
1162 label: 'Next (Line-Step)' |
|
1163 itemValue: doNextAfterDelay |
|
1164 ) |
|
1165 (MenuItem |
|
1166 label: 'Step' |
|
1167 itemValue: doStepAfterDelay |
|
1168 ) |
|
1169 ) |
|
1170 nil |
|
1171 nil |
|
1172 ) |
|
1173 ) |
|
1174 (MenuItem |
|
1175 label: '-' |
|
1176 ) |
|
1177 (MenuItem |
1153 label: 'Skip to Cursor Line' |
1178 label: 'Skip to Cursor Line' |
1154 itemValue: skip |
1179 itemValue: skip |
1155 ) |
1180 ) |
1156 (MenuItem |
1181 (MenuItem |
1157 label: 'Step Out (Skip until Return)' |
1182 label: 'Step Out (Skip until Return)' |
4428 |
4453 |
4429 "Modified: / 5.10.1998 / 13:03:47 / cg" |
4454 "Modified: / 5.10.1998 / 13:03:47 / cg" |
4430 "Modified: / 26.7.1999 / 15:38:45 / stefan" |
4455 "Modified: / 26.7.1999 / 15:38:45 / stefan" |
4431 ! |
4456 ! |
4432 |
4457 |
|
4458 doContinueAfterDelay |
|
4459 Delay waitForSeconds:5. |
|
4460 self doContinue. |
|
4461 ! |
|
4462 |
4433 doDefine |
4463 doDefine |
4434 |selectionIndex selector argNames receiversClass proto haltStmtDef haltStmtFix code cat |
4464 |selectionIndex selector argNames receiversClass proto haltStmtDef haltStmtFix code cat |
4435 bagOfClassNames bagOfUsedClassNames implClass idx callee restart varName argName| |
4465 bagOfClassNames bagOfUsedClassNames implClass idx callee restart varName argName| |
4436 |
4466 |
4437 selectionIndex := contextView selection. |
4467 selectionIndex := contextView selection. |
4578 |
4608 |
4579 stepHow := #nextIn. |
4609 stepHow := #nextIn. |
4580 self doStep:nil |
4610 self doStep:nil |
4581 |
4611 |
4582 "Modified: 7.3.1997 / 18:38:41 / cg" |
4612 "Modified: 7.3.1997 / 18:38:41 / cg" |
|
4613 ! |
|
4614 |
|
4615 doNextAfterDelay |
|
4616 Delay waitForSeconds:5. |
|
4617 self doNext. |
4583 ! |
4618 ! |
4584 |
4619 |
4585 doNextOut |
4620 doNextOut |
4586 "skip for next source-code line; leaving blocks" |
4621 "skip for next source-code line; leaving blocks" |
4587 |
4622 |
4816 'DebugView [warning]: step failed' errorPrintCR. |
4851 'DebugView [warning]: step failed' errorPrintCR. |
4817 stepButton turnOff. nextButton turnOff. sendButton turnOff. |
4852 stepButton turnOff. nextButton turnOff. sendButton turnOff. |
4818 ] |
4853 ] |
4819 |
4854 |
4820 "Modified: / 29.7.1998 / 21:50:16 / cg" |
4855 "Modified: / 29.7.1998 / 21:50:16 / cg" |
|
4856 ! |
|
4857 |
|
4858 doStepAfterDelay |
|
4859 Delay waitForSeconds:5. |
|
4860 self doStep. |
4821 ! |
4861 ! |
4822 |
4862 |
4823 doStop |
4863 doStop |
4824 "stop the process (if its running, otherwise this is a no-op)" |
4864 "stop the process (if its running, otherwise this is a no-op)" |
4825 |
4865 |
8566 ! ! |
8606 ! ! |
8567 |
8607 |
8568 !DebugView class methodsFor:'documentation'! |
8608 !DebugView class methodsFor:'documentation'! |
8569 |
8609 |
8570 version |
8610 version |
8571 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.610 2013-08-22 19:16:25 cg Exp $' |
8611 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $' |
8572 ! |
8612 ! |
8573 |
8613 |
8574 version_CVS |
8614 version_CVS |
8575 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.610 2013-08-22 19:16:25 cg Exp $' |
8615 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $' |
8576 ! |
8616 ! |
8577 |
8617 |
8578 version_SVN |
8618 version_SVN |
8579 ^ '$Id: DebugView.st,v 1.610 2013-08-22 19:16:25 cg Exp $' |
8619 ^ '$Id: DebugView.st,v 1.611 2013-08-22 20:50:21 cg Exp $' |
8580 ! ! |
8620 ! ! |
8581 |
8621 |
8582 |
8622 |
8583 DebugView initialize! |
8623 DebugView initialize! |