QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00
Code Issues Releases Wiki Activity

Minor customization specific for the SUBs list (external procedures).

Browse source 
- Change color of the external indicator (*) so that it looks less intrusive.
This commit is contained in:
FellippeHeitor 2016-01-17 12:03:25 -02:00
parent c9b829baa2
commit ac333bb611
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -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