Revision 60
Adding a restart button, about to update the icons with hopefully a bit sharper versions of these icons
| AppSrc/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 |
|
| AppSrc/cDebugCJMenuItemClasses.pkg | ||
|---|---|---|
| 198 | 198 |
|
| 199 | 199 |
End_Class // cCJStopDebugMenuItem |
| 200 | 200 |
|
| 201 |
Define CS_CaptionRestartDebug For "Restart debug" |
|
| 202 |
Define CS_TooltipRestartDebug For "Restart debug" |
|
| 203 |
Define CS_DescRestartDebug For "Restart debug" |
|
| 204 |
|
|
| 205 |
{ OverrideProperty=psCaption InitialValue=CS_CaptionRestartDebug}
|
|
| 206 |
{ OverrideProperty=psToolTip InitialValue=CS_ToolTipRestartDebug}
|
|
| 207 |
{ OverrideProperty=psDescription InitialValue=CS_DescRestartDebug}
|
|
| 208 |
{ OverrideProperty=psImage InitialValue="run_exc.ico" }
|
|
| 201 | 209 |
|
| 210 |
Class cCJRestartDebugMenuItem is a cCJDebugMenuItem |
|
| 211 |
|
|
| 212 |
Procedure Construct_Object |
|
| 213 |
Forward Send Construct_Object |
|
| 214 |
Set psCaption To CS_CaptionRestartDebug |
|
| 215 |
Set psToolTip To CS_ToolTipRestartDebug |
|
| 216 |
Set psDescription To CS_DescRestartDebug |
|
| 217 |
Set psImage To "term_restart.ico" |
|
| 218 |
//Set psImageDisabled To "run_excd.ico" |
|
| 219 |
Set piShortcutKey To xtpKey_Ctrl VK_F5 |
|
| 220 |
End_Procedure |
|
| 221 |
|
|
| 222 |
Procedure OnExecute Variant vCommandBarControl |
|
| 223 |
Send doStopDebug |
|
| 224 |
Send doStartDebug |
|
| 225 |
End_Procedure |
|
| 226 |
|
|
| 227 |
Function IsEnabled Returns Boolean |
|
| 228 |
Boolean bStarted |
|
| 229 |
Get HasProgramStarted To bStarted |
|
| 230 |
Function_Return bStarted |
|
| 231 |
End_Function |
|
| 232 |
|
|
| 233 |
End_Class // cCJRestartDebugMenuItem |
|
| 234 |
|
|
| 235 |
|
|
| 202 | 236 |
Define CS_CaptionDebugPause For "Debug Pause" |
| 203 | 237 |
Define CS_TooltipDebugPause For "Debug Pause" |
| 204 | 238 |
Define CS_DescDebugPause For "Debug Pause" |
| Bitmaps/eclipse_debug_icons.txt | ||
|---|---|---|
| 3 | 3 |
(see eclipse icons source folder) |
| 4 | 4 |
and after that they have been changed into .ico files using the Axialis icon editor. |
| 5 | 5 |
|
| 6 |
Updated with: |
|
| 7 |
http://git.eclipse.org/c/platform/eclipse.platform.debug.git/ |
|
| 8 |
and S4_14_0_RC2 |
|
| 9 |
|
|
| 6 | 10 |
-- |
| 7 | 11 |
Wil |
Also available in: Unified diff