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

1.) Some case corrections

Browse source
This commit is contained in:
Roland Heyder 2024-02-07 20:45:55 +01:00
parent e3450c505f
commit cf71beb796
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -5959,16 +5959,16 @@ FUNCTION ide2 (ignore)
END IF
IF menu$(m, s) = "#Start F5" THEN
_KeyClear
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
_KEYCLEAR
DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
PCOPY 3, 0: SCREEN , , 3, 0
startPaused = 0
GOTO idemrun
END IF
IF menu$(m, s) = "Run #Only (No EXE)" THEN
_KeyClear
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
_KEYCLEAR
DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
PCOPY 3, 0: SCREEN , , 3, 0
NoExeSaved = -1
startPaused = 0
@ -6403,7 +6403,7 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0: SCREEN , , 3, 0
END IF '"Y"
END IF 'unsaved
IF UseGuiDialogs Then
IF UseGuiDialogs THEN
r$ = OpenFile$ (IdeOpenFile$) 'for new dialog file open routine.
ELSE
r$ = idefiledialog$("", 1) 'for old dialog file open routine.

12
source/qb64pe.bas
View file

@ -2623,7 +2623,7 @@ DO
IF inclevel = 0 THEN
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
ELSE
p$ = getfilepath$(incname(inclevel))
p$ = getfilepath$(incname$(inclevel))
END IF
f$ = p$ + a$
END IF
@ -3413,8 +3413,8 @@ DO
IF NOT _FILEEXISTS(MidiSoundFont$) THEN
' Just try to concatenate the path with the source or include path and check if we are able to find the file
IF inclevel > 0 AND _FILEEXISTS(getfilepath(incname(inclevel)) + MidiSoundFont$) THEN
MidiSoundFont$ = getfilepath(incname(inclevel)) + MidiSoundFont$
IF inclevel > 0 AND _FILEEXISTS(getfilepath(incname$(inclevel)) + MidiSoundFont$) THEN
MidiSoundFont$ = getfilepath(incname$(inclevel)) + MidiSoundFont$
ELSEIF _FILEEXISTS(FixDirectoryName(path.source$) + MidiSoundFont$) THEN
MidiSoundFont$ = FixDirectoryName(path.source$) + MidiSoundFont$
ELSEIF _FILEEXISTS(FixDirectoryName(idepath$) + MidiSoundFont$) THEN
@ -4403,7 +4403,7 @@ DO
' a740g: Fallback to source path
IF inclevel > 0 THEN
libpath$ = getfilepath(incname(inclevel)) + og_libpath$
libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
ELSEIF NoIDEMode THEN
libpath$ = FixDirectoryName(path.source$) + og_libpath$
ELSE
@ -4477,7 +4477,7 @@ DO
' a740g: Fallback to source path
IF inclevel > 0 THEN
libpath$ = getfilepath(incname(inclevel)) + og_libpath$
libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
ELSEIF NoIDEMode THEN
libpath$ = FixDirectoryName(path.source$) + og_libpath$
ELSE
@ -11381,7 +11381,7 @@ DO
IF inclevel = 0 THEN
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
ELSE
p$ = getfilepath$(incname(inclevel))
p$ = getfilepath$(incname$(inclevel))
END IF
f$ = p$ + a$
END IF