Revision 72
updated icons to new
Added open program option to toolbar (makes a bit more sense)
Display breakpoints on loading source file
| cSplatCodeMax.pkg | ||
|---|---|---|
| 29 | 29 |
Define CS_TAB for (Character(9)) |
| 30 | 30 |
|
| 31 | 31 |
|
| 32 |
Define ICO_Brkp_obj for $CI01 // breakpoint object icon
|
|
| 32 |
Define ICO_Inst_ptr_top for $CI01 // instruction pointer top icon
|
|
| 33 | 33 |
Define ICO_Inst_ptr for $CI02 // instruction pointer icon |
| 34 |
Define ICO_Inst_ptr_top for $CI04 // instruction pointer top icon
|
|
| 34 |
Define ICO_Brkp_obj for $CI04 // breakpoint object icon
|
|
| 35 | 35 |
|
| 36 | 36 |
Class cCodeMaxImageList is a cImageList32 |
| 37 | 37 |
|
| ... | ... | |
| 47 | 47 |
Integer iVoid |
| 48 | 48 |
|
| 49 | 49 |
Get AddImage "brkp_obj.ico" To iVoid // bit 1 // seems the first image is ignored as a margin image |
| 50 |
Get AddImage "inst_ptr_top.ico" To iVoid // bit 2 |
|
| 51 |
Get AddImage "brkp_obj.ico" To iVoid // bit 3
|
|
| 50 |
Get AddImage "inst_ptr_top_green.ico" To iVoid // bit 2
|
|
| 51 |
Get AddImage "brkp_obj_red.ico" To iVoid // bit 3
|
|
| 52 | 52 |
Get AddImage "inst_ptr.ico" To iVoid // bit 4 |
| 53 | 53 |
End_Procedure |
| 54 | 54 |
End_Class |
| ... | ... | |
| 545 | 545 |
Forward Send OnComSelChange |
| 546 | 546 |
End_Procedure |
| 547 | 547 |
|
| 548 |
Procedure DisplayBreakPoints UInteger[] BreakPoints |
|
| 549 |
Integer iItem |
|
| 550 |
Integer iCount |
|
| 551 |
UInteger iLine |
|
| 552 |
|
|
| 553 |
Move (SizeOfArray(BreakPoints)) To iCount |
|
| 554 |
For iItem From 0 To (iCount-1) |
|
| 555 |
Move BreakPoints[iItem] To iLine |
|
| 556 |
Send ComSetMarginImages (iLine-1) ICO_Brkp_obj // 4 |
|
| 557 |
Loop |
|
| 558 |
End_Procedure |
|
| 548 | 559 |
|
| 549 | 560 |
|
| 550 | 561 |
Procedure doOpenSourceFile String sFileName |
| 551 |
String sLanguage |
|
| 562 |
Handle hoDebugger |
|
| 563 |
String sLanguage |
|
| 564 |
UInteger[] BreakPoints |
|
| 552 | 565 |
Variant vLanguage |
| 553 | 566 |
|
| 554 | 567 |
Send ComOpenFile sFileName |
| ... | ... | |
| 558 | 571 |
Set ComReadOnly To True // NO changes allowed |
| 559 | 572 |
Set ComColorSyntax To True |
| 560 | 573 |
|
| 574 |
Get phoDebugger To hoDebugger |
|
| 575 |
If (hoDebugger) Begin |
|
| 576 |
Get ListBreakPointsForFile Of hoDebugger sFileName To BreakPoints |
|
| 577 |
Send DisplayBreakPoints BreakPoints |
|
| 578 |
End |
|
| 579 |
|
|
| 561 | 580 |
// Update view hosting our control |
| 562 | 581 |
//Send doSetCaptionLabel sFileName |
| 563 | 582 |
End_Procedure // doOpenSourceFile |
| ... | ... | |
| 568 | 587 |
Boolean bVisible |
| 569 | 588 |
Boolean bScrollup |
| 570 | 589 |
|
| 571 |
Move false to bScrollup |
|
| 572 |
Send doOpenSourceFile sFileName |
|
| 590 |
Move false To bScrollup |
|
| 591 |
// not optimal, but wait on codemax retirement for optimizing this |
|
| 592 |
//If (psFileName(Self)<>sFileName) Begin |
|
| 593 |
Send doOpenSourceFile sFileName |
|
| 594 |
//End |
|
| 573 | 595 |
Set piCurrentLine to iLine |
| 574 | 596 |
Move iLine to iTopMostLine |
| 575 | 597 |
If (iLine>5) Begin |
Also available in: Unified diff