Revision 60
Adding a restart button, about to update the icons with hopefully a bit sharper versions of these icons
| VdfSplat.src | ||
|---|---|---|
| 225 | 225 |
Set ApplicationFileName of hoDebug To sApplication |
| 226 | 226 |
// ?? |
| 227 | 227 |
Send DoSetCaptionLabel Of (oVdfDbg(oClientArea(Self))) sApplication |
| 228 |
Send DoStartDebug |
|
| 229 |
End |
|
| 230 |
End_Procedure // doDebugRun |
|
| 231 |
|
|
| 232 |
Procedure DoStartDebug |
|
| 233 |
String sApplication |
|
| 234 |
Integer iRuntime |
|
| 235 |
Handle hoDebug |
|
| 236 |
|
|
| 237 |
Get phoDebugger to hoDebug |
|
| 238 |
If (hoDebug<>0) Begin |
|
| 239 |
Get psApplication Of ghoApplication To sApplication |
|
| 240 |
Get piDebugfileVersion To iRuntime |
|
| 228 | 241 |
//Send ComPause of hoDebug |
| 229 | 242 |
//Procedure ComStartProgram String llcmdLine Variant llwebApp Variant llurl |
| 230 | 243 |
If (iRuntime<181) Begin |
| ... | ... | |
| 235 | 248 |
End |
| 236 | 249 |
Send ComUpdateViews Of hoDebug |
| 237 | 250 |
End |
| 238 |
End_Procedure // doDebugRun
|
|
| 251 |
End_Procedure |
|
| 239 | 252 |
|
| 240 | 253 |
Procedure doStopDebug |
| 241 | 254 |
Handle hoDebug |
| ... | ... | |
| 618 | 631 |
Object oStopDebugButton is a cCJStopDebugMenuItem |
| 619 | 632 |
End_Object |
| 620 | 633 |
|
| 634 |
Object oRestartDebugButton is a cCJRestartDebugMenuItem |
|
| 635 |
End_Object |
|
| 636 |
|
|
| 621 | 637 |
Object oDebugPauseButton is a cCJDebugPauseMenuItem |
| 622 | 638 |
End_Object |
| 623 | 639 |
|
| ... | ... | |
| 657 | 673 |
End_Object |
| 658 | 674 |
End_Object |
| 659 | 675 |
|
| 660 |
Object oFileToolBar is a cCJToolbar |
|
| 661 |
Set psTitle to "Data Entry Toolbar" |
|
| 662 |
|
|
| 663 |
Object oClearToolItem is a cCJClearMenuItem |
|
| 664 |
Set peControlStyle to xtpButtonIconAndCaption |
|
| 665 |
End_Object |
|
| 666 |
|
|
| 667 |
Object oClearAllToolItem2 is a cCJClearAllMenuItem |
|
| 668 |
Set peControlStyle to xtpButtonIconAndCaption |
|
| 669 |
End_Object |
|
| 670 |
|
|
| 671 |
Object oSaveToolItem is a cCJSaveMenuItem |
|
| 672 |
Set peControlStyle to xtpButtonIconAndCaption |
|
| 673 |
Set pbControlBeginGroup to True |
|
| 674 |
End_Object |
|
| 675 |
|
|
| 676 |
Object oDeleteToolItem is a cCJDeleteMenuItem |
|
| 677 |
Set peControlStyle to xtpButtonIconAndCaption |
|
| 678 |
End_Object |
|
| 679 |
|
|
| 680 |
End_Object |
|
| 681 |
|
|
| 682 | 676 |
Object oEditToolBar is a cCJToolbar |
| 683 | 677 |
Set psTitle to "Edit Toolbar" |
| 684 | 678 |
|
Also available in: Unified diff