QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-30 05:10:37 +00:00
Code Issues Releases Wiki Activity

Save SUBs dialogue settings every time.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-08 00:36:16 -03:00
parent f1a0146579
commit f5074c221d
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
source/ide/ide_methods.bas
View file

@ -9641,19 +9641,17 @@ FUNCTION idesubs$
EXIT FUNCTION EXIT FUNCTION
SaveSortSettings: SaveSortSettings:
IF TotalSUBs > 1 AND idesortsubs <> SortedSubsFlag THEN idesortsubs = SortedSubsFlag
idesortsubs = SortedSubsFlag IF idesortsubs THEN
IF idesortsubs THEN WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "TRUE"
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "TRUE" ELSE
ELSE WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE" END IF
END IF
IF IDESubsLength THEN IF IDESubsLength THEN
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "TRUE" WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "TRUE"
ELSE ELSE
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "FALSE" WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "FALSE"
END IF
END IF END IF
RETURN RETURN