Revision 65
Toolbar button logic enable/disable
| AppSrc/VdfSplat.src | ||
|---|---|---|
| 61 | 61 |
Use cDebuggerEngine.pkg |
| 62 | 62 |
|
| 63 | 63 |
|
| 64 |
Object oOpenProgramDialog is an OpenDialog |
|
| 64 |
Object oOpenProgramDialog Is an OpenDialog |
|
| 65 |
Set Dialog_Caption to "Select a DataFlex executable file to debug" |
|
| 65 | 66 |
Set Filter_String to 'Visual DataFlex Executables|*.exe' |
| 66 | 67 |
Set Initial_Folder to 'C:\Program Files\Visual DataFlex' |
| 67 | 68 |
// Set MultiSelect_State To False |
| ... | ... | |
| 233 | 234 |
Get pbDebugRestart of hoDebug to bRestartMode |
| 234 | 235 |
If (bRestartMode) Begin |
| 235 | 236 |
Send Destroy of hoDebug |
| 236 |
Move 0 To hoDebug
|
|
| 237 |
Move 0 To hoDebug |
|
| 237 | 238 |
End |
| 238 | 239 |
End |
| 239 | 240 |
If (bExists and hoDebug=0) Begin |
| ... | ... | |
| 295 | 296 |
// so killing it here would be out of sync with what you want. |
| 296 | 297 |
//Send Destroy of hoDebug |
| 297 | 298 |
Send DoInitializeParameters |
| 298 |
End
|
|
| 299 |
End |
|
| 299 | 300 |
End |
| 300 | 301 |
End_Procedure // doStopDebug |
| 301 | 302 |
|
| ... | ... | |
| 697 | 698 |
Object oDebugStepOutButton is a cCJStepOutMenuItem |
| 698 | 699 |
End_Object |
| 699 | 700 |
|
| 700 |
// |
|
| 701 | 701 |
|
| 702 |
Object oPromptToolItem is a cCJPromptMenuItem |
|
| 703 |
Set pbControlBeginGroup to True |
|
| 704 |
End_Object |
|
| 705 |
|
|
| 706 | 702 |
End_Object |
| 707 | 703 |
|
| 708 | 704 |
Object oFileToolbar is a cCJToolbar |
| AppSrc/cDebugCJMenuItemClasses.pkg | ||
|---|---|---|
| 431 | 431 |
Send doSetBreakPoint |
| 432 | 432 |
End_Procedure |
| 433 | 433 |
|
| 434 |
//Function IsEnabled Returns Boolean |
|
| 435 |
// Boolean bPaused |
|
| 436 |
// |
|
| 437 |
// Get HasProgramPaused To bPaused |
|
| 438 |
// Function_Return bPaused |
|
| 439 |
//End_Function |
|
| 434 |
Function IsEnabled Returns Boolean |
|
| 435 |
Handle hoDebugger |
|
| 436 |
Get phoDebugger to hoDebugger |
|
| 437 |
Function_Return (hoDebugger<>0) |
|
| 438 |
End_Function |
|
| 440 | 439 |
|
| 441 | 440 |
End_Class // cCJAddBreakpointMenuItem |
| 442 | 441 |
|
| ... | ... | |
| 535 | 534 |
End_Procedure |
| 536 | 535 |
|
| 537 | 536 |
Function IsEnabled Returns Boolean |
| 538 |
Boolean bPaused |
|
| 539 |
// always allow to open source files. |
|
| 540 |
//Get HasProgramPaused To bPaused |
|
| 541 |
Function_Return True //bPaused |
|
| 537 |
Handle hoDebugger |
|
| 538 |
Get phoDebugger to hoDebugger |
|
| 539 |
Function_Return (hoDebugger<>0) |
|
| 542 | 540 |
End_Function |
| 543 | 541 |
|
| 544 | 542 |
End_Class // cCJOpenFileMenuItem |
Also available in: Unified diff