QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-14 19:49:33 +00:00
Code Issues Releases Wiki Activity

Remove remaining dead update code

Browse source
This commit is contained in:
Samuel Gomes 2024-01-09 04:05:12 +05:30
parent a76449ad62
commit 347b7e07fe
3 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
InForm/UiEditor.bas
View file

@ -2596,12 +2596,6 @@ SUB SaveSettings
IF __UI_ShowInvisibleControls THEN value$ = "True" ELSE value$ = "False" IF __UI_ShowInvisibleControls THEN value$ = "True" ELSE value$ = "False"
WriteSetting "InForm/InForm.ini", "InForm Settings", "Show invisible controls", value$ WriteSetting "InForm/InForm.ini", "InForm Settings", "Show invisible controls", value$
value$ = "False" ' *** Removing the checking for update function
WriteSetting "InForm/InForm.ini", "InForm Settings", "Check for updates", value$
value$ = "False" ' *** Removing the checking for update function
WriteSetting "InForm/InForm.ini", "InForm Settings", "Receive development updates", value$
IF ShowFontList THEN value$ = "True" ELSE value$ = "False" IF ShowFontList THEN value$ = "True" ELSE value$ = "False"
WriteSetting "InForm/InForm.ini", "InForm Settings", "Show font list", value$ WriteSetting "InForm/InForm.ini", "InForm Settings", "Show font list", value$

2
InForm/extensions/StringFile.bas
View file

@ -104,7 +104,7 @@ $IF STRINGFILE_BAS = UNDEFINED THEN
END FUNCTION END FUNCTION
' Saves a string buffer to a file ' Saves a StringFile object to a file
' This does not disturb the read / write cursor ' This does not disturb the read / write cursor
FUNCTION StringFile_Save%% (stringFile AS StringFileType, fileName AS STRING, overwrite AS _BYTE) FUNCTION StringFile_Save%% (stringFile AS StringFileType, fileName AS STRING, overwrite AS _BYTE)
IF _FILEEXISTS(fileName) AND NOT overwrite THEN EXIT FUNCTION IF _FILEEXISTS(fileName) AND NOT overwrite THEN EXIT FUNCTION

12
examples/Calculator/Calculator.bas
View file

@ -1022,11 +1022,23 @@ END SUB
SUB __UI_TextChanged (id AS LONG) SUB __UI_TextChanged (id AS LONG)
SELECT CASE id SELECT CASE id
CASE lblAnswer
CASE lblMemory
CASE lblHistory
END SELECT END SELECT
END SUB END SUB
SUB __UI_ValueChanged (id AS LONG) SUB __UI_ValueChanged (id AS LONG)
SELECT CASE id SELECT CASE id
CASE lblAnswer
CASE lblMemory
CASE lblHistory
END SELECT END SELECT
END SUB END SUB