mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 05:34:47 +00:00
1.) Some case corrections
This commit is contained in:
parent
e3450c505f
commit
cf71beb796
2 changed files with 11 additions and 11 deletions
|
@ -5959,16 +5959,16 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "#Start F5" THEN
|
IF menu$(m, s) = "#Start F5" THEN
|
||||||
_KeyClear
|
_KEYCLEAR
|
||||||
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
|
DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
startPaused = 0
|
startPaused = 0
|
||||||
GOTO idemrun
|
GOTO idemrun
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "Run #Only (No EXE)" THEN
|
IF menu$(m, s) = "Run #Only (No EXE)" THEN
|
||||||
_KeyClear
|
_KEYCLEAR
|
||||||
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
|
DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
NoExeSaved = -1
|
NoExeSaved = -1
|
||||||
startPaused = 0
|
startPaused = 0
|
||||||
|
@ -6403,7 +6403,7 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
END IF '"Y"
|
END IF '"Y"
|
||||||
END IF 'unsaved
|
END IF 'unsaved
|
||||||
IF UseGuiDialogs Then
|
IF UseGuiDialogs THEN
|
||||||
r$ = OpenFile$ (IdeOpenFile$) 'for new dialog file open routine.
|
r$ = OpenFile$ (IdeOpenFile$) 'for new dialog file open routine.
|
||||||
ELSE
|
ELSE
|
||||||
r$ = idefiledialog$("", 1) 'for old dialog file open routine.
|
r$ = idefiledialog$("", 1) 'for old dialog file open routine.
|
||||||
|
|
|
@ -2623,7 +2623,7 @@ DO
|
||||||
IF inclevel = 0 THEN
|
IF inclevel = 0 THEN
|
||||||
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
|
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
|
||||||
ELSE
|
ELSE
|
||||||
p$ = getfilepath$(incname(inclevel))
|
p$ = getfilepath$(incname$(inclevel))
|
||||||
END IF
|
END IF
|
||||||
f$ = p$ + a$
|
f$ = p$ + a$
|
||||||
END IF
|
END IF
|
||||||
|
@ -3413,8 +3413,8 @@ DO
|
||||||
|
|
||||||
IF NOT _FILEEXISTS(MidiSoundFont$) THEN
|
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
|
' 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
|
IF inclevel > 0 AND _FILEEXISTS(getfilepath(incname$(inclevel)) + MidiSoundFont$) THEN
|
||||||
MidiSoundFont$ = getfilepath(incname(inclevel)) + MidiSoundFont$
|
MidiSoundFont$ = getfilepath(incname$(inclevel)) + MidiSoundFont$
|
||||||
ELSEIF _FILEEXISTS(FixDirectoryName(path.source$) + MidiSoundFont$) THEN
|
ELSEIF _FILEEXISTS(FixDirectoryName(path.source$) + MidiSoundFont$) THEN
|
||||||
MidiSoundFont$ = FixDirectoryName(path.source$) + MidiSoundFont$
|
MidiSoundFont$ = FixDirectoryName(path.source$) + MidiSoundFont$
|
||||||
ELSEIF _FILEEXISTS(FixDirectoryName(idepath$) + MidiSoundFont$) THEN
|
ELSEIF _FILEEXISTS(FixDirectoryName(idepath$) + MidiSoundFont$) THEN
|
||||||
|
@ -4403,7 +4403,7 @@ DO
|
||||||
|
|
||||||
' a740g: Fallback to source path
|
' a740g: Fallback to source path
|
||||||
IF inclevel > 0 THEN
|
IF inclevel > 0 THEN
|
||||||
libpath$ = getfilepath(incname(inclevel)) + og_libpath$
|
libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
|
||||||
ELSEIF NoIDEMode THEN
|
ELSEIF NoIDEMode THEN
|
||||||
libpath$ = FixDirectoryName(path.source$) + og_libpath$
|
libpath$ = FixDirectoryName(path.source$) + og_libpath$
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -4477,7 +4477,7 @@ DO
|
||||||
|
|
||||||
' a740g: Fallback to source path
|
' a740g: Fallback to source path
|
||||||
IF inclevel > 0 THEN
|
IF inclevel > 0 THEN
|
||||||
libpath$ = getfilepath(incname(inclevel)) + og_libpath$
|
libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
|
||||||
ELSEIF NoIDEMode THEN
|
ELSEIF NoIDEMode THEN
|
||||||
libpath$ = FixDirectoryName(path.source$) + og_libpath$
|
libpath$ = FixDirectoryName(path.source$) + og_libpath$
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -11381,7 +11381,7 @@ DO
|
||||||
IF inclevel = 0 THEN
|
IF inclevel = 0 THEN
|
||||||
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
|
IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
|
||||||
ELSE
|
ELSE
|
||||||
p$ = getfilepath$(incname(inclevel))
|
p$ = getfilepath$(incname$(inclevel))
|
||||||
END IF
|
END IF
|
||||||
f$ = p$ + a$
|
f$ = p$ + a$
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue