QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-08 23:05:14 +00:00
Code Releases Wiki Activity

Minor fix to error-checking routine for the new config file.

Browse source
This commit is contained in:
SMcNeill 2015-07-15 11:41:44 -04:00
parent cfc5c90b73
commit f167d054b2
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/global/IDEsettings.bas
View file

@ -138,7 +138,7 @@ IF LoadedIDESettings = 0 THEN
result = ReadConfigSetting("IDE_Height", value$) result = ReadConfigSetting("IDE_Height", value$)
idewy = VAL(value$) idewy = VAL(value$)
IF idewx < 25 OR idewx > 1000 THEN idewx = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25" IF idewy < 25 OR idewy > 1000 THEN idewy = 25: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
result = ReadConfigSetting("IDE_AutoFormat", value$) result = ReadConfigSetting("IDE_AutoFormat", value$)
ideautolayout = VAL(value$) ideautolayout = VAL(value$)

3
source/qb64.bas
View file

@ -23964,7 +23964,7 @@ IF LOF(InFile) THEN
compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1))) compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1)))
IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO
LOOP LOOP
CLOSE InFile CLOSE #InFile
IF found THEN 'we found what we're looking for IF found THEN 'we found what we're looking for
IF l THEN IF l THEN
value$ = MID$(temp$, l + 1) value$ = MID$(temp$, l + 1)
@ -23984,6 +23984,7 @@ IF LOF(InFile) THEN
END IF END IF
END IF END IF
END IF END IF
CLOSE #Infile
ReadConfigSetting = 0 'failed to find the setting ReadConfigSetting = 0 'failed to find the setting
END FUNCTION END FUNCTION