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