mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Minor customization specific for the SUBs list (external procedures).
- Change color of the external indicator (*) so that it looks less intrusive.
This commit is contained in:
parent
c9b829baa2
commit
ac333bb611
|
@ -5150,6 +5150,12 @@ IF o.typ = 2 THEN
|
|||
a3$ = " " + a3$ + SPACE$(o.w)
|
||||
a3$ = LEFT$(a3$, o.w)
|
||||
PRINT a3$;
|
||||
'customization specific for the SUBs list, when there are external procedures:
|
||||
if instr(a3$, chr$(196)+"*") > 0 THEN
|
||||
IF o.sel = n THEN COLOR 8, 0 ELSE COLOR 8, 7
|
||||
LOCATE o.par.y + o.y + y, o.par.x + o.x + 4
|
||||
PRINT "*";
|
||||
end if
|
||||
y = y + 1
|
||||
END IF
|
||||
END IF
|
||||
|
|
Loading…
Reference in a new issue