diff --git a/source/global/IDEsettings.bas b/source/global/IDEsettings.bas index 3dae95bd0..4b24fb36c 100644 --- a/source/global/IDEsettings.bas +++ b/source/global/IDEsettings.bas @@ -138,7 +138,7 @@ IF LoadedIDESettings = 0 THEN result = ReadConfigSetting("IDE_Height", 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$) ideautolayout = VAL(value$) diff --git a/source/qb64.bas b/source/qb64.bas index 9cae4d1fe..89fa00c81 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -14259,7 +14259,7 @@ FOR i = 1 TO blockn END IF 'convert rhs IF (newtyp AND ISSTRING) THEN - IF (rhstyp AND 4) = 0 THEN Give_Error "Cannot convert string to number": EXIT FUNCTION + IF (rhstyp AND 4) = 0 THEN Give_Error "Cannot convert string to number": EXIT FUNCTION ELSE 'newtyp is numeric IF rhstyp = 4 THEN Give_Error "Cannot convert number to string": EXIT FUNCTION @@ -23964,7 +23964,7 @@ IF LOF(InFile) THEN compare$ = LTRIM$(RTRIM$(LEFT$(temp$, l - 1))) IF UCASE$(compare$) = UCASE$(item$) THEN found = -1: EXIT DO LOOP - CLOSE InFile + CLOSE #InFile IF found THEN 'we found what we're looking for IF l THEN value$ = MID$(temp$, l + 1) @@ -23984,6 +23984,7 @@ IF LOF(InFile) THEN END IF END IF END IF +CLOSE #Infile ReadConfigSetting = 0 'failed to find the setting END FUNCTION