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