Revision 72
updated icons to new
Added open program option to toolbar (makes a bit more sense)
Display breakpoints on loading source file
VdfSplat.src | ||
---|---|---|
201 | 201 |
Function_Return bExists |
202 | 202 |
End_Function |
203 | 203 |
|
204 |
Procedure doOpenProgram |
|
205 |
Boolean bOpen |
|
206 |
Handle hoDialog |
|
207 |
String sApplication |
|
208 |
|
|
209 |
Move (oOpenProgramDialog(Self)) To hoDialog |
|
210 |
|
|
211 |
Get Show_Dialog of hoDialog to bOpen |
|
212 |
If bOpen Begin |
|
213 |
Get File_Name of hoDialog To sApplication |
|
214 |
Send DoSetCaptionLabel Of (oVdfDbg(oClientArea(Self))) sApplication |
|
215 |
Set psApplication of ghoApplication To sApplication |
|
216 |
End |
|
217 |
Else Send Info_Box "You did not choose a file, nothing to debug." |
|
218 |
End_Procedure |
|
219 |
|
|
204 | 220 |
Procedure doDebugRun |
205 |
String sApplication |
|
206 |
Boolean bOpen |
|
207 | 221 |
Boolean bExists |
208 | 222 |
Boolean bRestartMode |
209 | 223 |
Handle hoDebug |
210 | 224 |
Handle hoParent |
211 |
Handle hoDialog
|
|
225 |
String sApplication
|
|
212 | 226 |
|
213 | 227 |
Get psApplication of ghoApplication To sApplication |
214 | 228 |
If (sApplication = "") Begin |
215 |
Move (oOpenProgramDialog(Self)) To hoDialog |
|
216 |
|
|
217 |
Get Show_Dialog of hoDialog to bOpen |
|
218 |
If bOpen Begin |
|
219 |
Get File_Name of hoDialog To sApplication |
|
220 |
// Don't tell me when I selected a file, just do it. |
|
221 |
//Send Info_Box ("Selected file " + sApplication) |
|
222 |
End |
|
223 |
Else Send Info_Box "You did not choose a file, nothing to debug." |
|
224 |
|
|
229 |
Send doOpenProgram |
|
230 |
Get psApplication of ghoApplication To sApplication |
|
225 | 231 |
End |
226 | 232 |
If (sApplication="") Begin |
227 |
// Oh still no app? Use our hardcoded path
|
|
233 |
// Oh still no app? Nothing to debug then
|
|
228 | 234 |
Procedure_Return |
229 | 235 |
End |
230 | 236 |
Get ParseApplicationDebugFile sApplication To bExists |
... | ... | |
233 | 239 |
If (hoDebug) Begin |
234 | 240 |
Get pbDebugRestart of hoDebug to bRestartMode |
235 | 241 |
If (bRestartMode) Begin |
242 |
If (IsComObjectCreated(hoDebug)) Begin |
|
243 |
Send ReleaseComObject of hoDebug |
|
244 |
End |
|
236 | 245 |
Send Destroy of hoDebug |
237 | 246 |
Move 0 To hoDebug |
238 | 247 |
End |
... | ... | |
251 | 260 |
Set psApplication of ghoApplication To sApplication |
252 | 261 |
Set ApplicationFileName of hoDebug To sApplication |
253 | 262 |
// ?? |
254 |
Send DoSetCaptionLabel Of (oVdfDbg(oClientArea(Self))) sApplication |
|
255 | 263 |
Send DoStartDebug |
256 | 264 |
End |
257 | 265 |
End_Procedure // doDebugRun |
... | ... | |
493 | 501 |
Set psCaption to "&File" |
494 | 502 |
Set psDescription to "Find, Save, Delete, Clear information or quit this application." |
495 | 503 |
Set psCategory to "Menus" |
496 |
|
|
497 |
Object oClearMenuItem is a cCJClearMenuItem
|
|
504 |
|
|
505 |
Object oOpenProgramButton Is a cCJOpenProgramMenuItem
|
|
498 | 506 |
Set pbAddToDesignerMenu to True |
499 | 507 |
End_Object |
500 | 508 |
|
501 |
Object oClearAllMenu is a cCJClearAllMenuItem |
|
502 |
Set pbAddToDesignerMenu to True |
|
503 |
End_Object |
|
504 |
|
|
505 |
Object oPromptMenuItem is a cCJPromptMenuItem |
|
506 |
Set pbAddToDesignerMenu to True |
|
507 |
Set pbControlBeginGroup to True |
|
508 |
End_Object |
|
509 |
|
|
510 | 509 |
Object oCJDebugPauseMenuItem is a cCJDebugPauseMenuItem |
511 | 510 |
Set pbAddToDesignerMenu to True |
512 | 511 |
Set pbControlBeginGroup to True |
513 | 512 |
End_Object |
514 | 513 |
|
515 |
Object oFindNextMenu is a cCJFindNextMenuItem |
|
516 |
Set pbAddToDesignerMenu to True |
|
517 |
End_Object |
|
518 | 514 |
|
519 |
Object oFindPreviousMenu is a cCJFindPreviousMenuItem |
|
520 |
Set pbAddToDesignerMenu to True |
|
521 |
End_Object |
|
522 |
|
|
523 |
Object oFindFirstMenu is a cCJFindFirstMenuItem |
|
524 |
Set pbAddToDesignerMenu to True |
|
525 |
End_Object |
|
526 |
|
|
527 |
Object oFindLastMenu is a cCJFindLastMenuItem |
|
528 |
Set pbAddToDesignerMenu to True |
|
529 |
End_Object |
|
530 |
|
|
531 |
Object oSaveMenuItem is a cCJSaveMenuItem |
|
532 |
Set pbAddToDesignerMenu to True |
|
533 |
Set pbControlBeginGroup to True |
|
534 |
End_Object |
|
535 |
|
|
536 |
Object oDeleteMenuItem is a cCJDeleteMenuItem |
|
537 |
Set pbAddToDesignerMenu to True |
|
538 |
End_Object |
|
539 |
|
|
540 | 515 |
Object oExitMenu is a cCJExitMenuItem |
541 | 516 |
Set pbControlBeginGroup to True |
542 | 517 |
End_Object |
... | ... | |
671 | 646 |
End_Object |
672 | 647 |
|
673 | 648 |
Object oDebugToolBar is a cCJToolbar |
674 |
Set psTitle to "Debugging Toolbar" |
|
649 |
Set psTitle To "Debugging Toolbar" |
|
650 |
|
|
651 |
Object oOpenProgramButton Is a cCJOpenProgramMenuItem |
|
652 |
End_Object |
|
675 | 653 |
|
676 |
|
|
677 | 654 |
Object oStartDebugButton is a cCJStartDebugMenuItem |
678 | 655 |
End_Object |
679 | 656 |
|
Also available in: Unified diff