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

Temporarily remove comments in front of SUB/FUNCTION before adding to window title or SUBs dialog.

Browse source
This commit is contained in:
FellippeHeitor 2015-12-31 02:44:50 -02:00
parent cf05f689a4
commit 1749254321
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
source/ide/ide_methods.bas
View file

@ -708,6 +708,15 @@ DO
END IF
NEXT
'attempt to cleanse sfname$, just in case there are any comments or other unwanted stuff
for CleanseSFNAME = 1 to len(sfname$)
select case mid$(sfname$, CleanseSFNAME, 1)
case " ", "'", ":"
sfname$ = left$(sfname$, CleanseSFNAME - 1)
exit for
end select
next
'update title of main window
COLOR 7, 1: LOCATE 2, 2: PRINT STRING$(idewx - 2, "Ä");
IF LEN(ideprogname) THEN a$ = ideprogname ELSE a$ = "Untitled" + tempfolderindexstr$
@ -6477,6 +6486,15 @@ FOR y = 1 TO iden
'instead of the currently in edition, for a quick link functionality:
IF a2$ = UCASE$(n$) THEN PreferCurrentCursorSUBFUNC = (LEN(ly$) / 4)
'attempt to cleanse n$, just in case there are any comments or other unwanted stuff
for CleanseN = 1 to len(n$)
select case mid$(n$, CleanseN, 1)
case " ", "'", ":"
n$ = left$(n$, CleanseN - 1)
exit for
end select
next
IF LEN(n$) <= 20 THEN
n$ = n$ + SPACE$(20 - LEN(n$))
ELSE