mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 18:55:12 +00:00
Rename 'New Dialogs' to 'GUI Dialogs', Persist setting
The 'New Dialogs' menu option was renamed to 'GUI Dialogs' to better explain what it does. Additionally the setting of which dialogs to use is saved to the config.ini file so that it presists across multiple runs of QB64-PE.
This commit is contained in:
parent
2147911ec3
commit
65cfbda3b7
|
@ -27,6 +27,7 @@ DIM SHARED StripDebugSymbols AS _UNSIGNED LONG
|
|||
DIM SHARED OptimizeCppProgram AS _UNSIGNED LONG
|
||||
DIM SHARED UseMiniaudioBackend AS _UNSIGNED LONG
|
||||
DIM SHARED GenerateLicenseFile AS _UNSIGNED LONG
|
||||
DIM SHARED UseGuiDialogs AS _UNSIGNED LONG
|
||||
|
||||
ConfigFile$ = "internal/config.ini"
|
||||
iniFolderIndex$ = STR$(tempfolderindex)
|
||||
|
@ -231,6 +232,7 @@ IF ReadConfigSetting(generalSettingsSection$, "WikiBaseAddress", value$) THEN
|
|||
ELSE WriteConfigSetting generalSettingsSection$, "WikiBaseAddress", wikiBaseAddress$
|
||||
END IF
|
||||
|
||||
UseGuiDialogs = ReadWriteBooleanSettingValue%(generalSettingsSection$, "UseGuiDialogs", -1)
|
||||
|
||||
'Mouse settings ---------------------------------------------------------------
|
||||
result = ReadConfigSetting(mouseSettingsSection$, "SwapMouseButton", value$)
|
||||
|
@ -540,5 +542,6 @@ ExtraLinkerFlags = ReadWriteStringSettingValue$(compilerSettingsSection$, "Extra
|
|||
UseMiniaudioBackend = ReadWriteBooleanSettingValue%(compilerSettingsSection$, "UseMiniaudioBackend", -1)
|
||||
GenerateLicenseFile = ReadWriteBooleanSettingValue%(compilerSettingsSection$, "GenerateLicenseFile", 0)
|
||||
|
||||
|
||||
'End of initial settings ------------------------------------------------------
|
||||
|
||||
|
|
|
@ -223,6 +223,7 @@ DIM SHARED ViewMenuShowSeparatorID AS INTEGER, ViewMenuShowBGID AS INTEGER
|
|||
DIM SHARED ViewMenuCompilerWarnings AS INTEGER
|
||||
DIM SHARED RunMenuID AS INTEGER, RunMenuSaveExeWithSource AS INTEGER, brackethighlight AS INTEGER
|
||||
DIM SHARED GenerateLicenseEnableMenu AS INTEGER
|
||||
DIM SHARED OptionsMenuGuiDialogs AS INTEGER
|
||||
DIM SHARED DebugMenuID AS INTEGER, DebugMenuCallStack AS INTEGER, DebugMenuWatchListToConsole AS INTEGER
|
||||
DIM SHARED DebugMenuAutoAddCommand AS INTEGER
|
||||
DIM SHARED multihighlight AS INTEGER, keywordHighlight AS INTEGER
|
||||
|
|
|
@ -447,10 +447,10 @@ FUNCTION ide2 (ignore)
|
|||
menuDesc$(m, i - 1) = "Toggles display of warning messages (unused variables, etc)"
|
||||
IF IgnoreWarnings THEN menu$(OptionsMenuID, OptionsMenuIgnoreWarnings) = CHR$(7) + "Ignore #Warnings"
|
||||
|
||||
OptionsMenuNewDialogs = i
|
||||
menu$(m, i) = "New Dialogs": i = i + 1
|
||||
menuDesc$(m, i - 1) = "Uses New File Dialog Windows"
|
||||
IF NewDialogs THEN
|
||||
OptionsMenuGuiDialogs = i
|
||||
menu$(m, i) = "GUI Dialogs": i = i + 1
|
||||
menuDesc$(m, i - 1) = "Uses GUI-based File Dialog Windows"
|
||||
IF UseGuiDialogs THEN
|
||||
menu$(OptionsMenuID, i - 1) = CHR$(7) + menu$(OptionsMenuID, i - 1)
|
||||
END IF
|
||||
|
||||
|
@ -5052,16 +5052,17 @@ FUNCTION ide2 (ignore)
|
|||
GOTO ideloop
|
||||
END IF
|
||||
|
||||
IF RIGHT$(menu$(m, s), 11) = "New Dialogs" THEN
|
||||
IF RIGHT$(menu$(m, s), 11) = "GUI Dialogs" THEN
|
||||
PCOPY 2, 0
|
||||
UseGuiDialogs = NOT UseGuiDialogs
|
||||
WriteConfigSetting generalSettingsSection$, "UseGuiDialogs", BoolToTFString$(UseGuiDialogs)
|
||||
|
||||
IF NewDialogs = 0 THEN
|
||||
NewDialogs = -1
|
||||
menu$(OptionsMenuID, OptionsMenuNewDialogs) = CHR$(7) + "New Dialogs"
|
||||
IF UseGuiDialogs THEN
|
||||
menu$(OptionsMenuID, OptionsMenuGuiDialogs) = CHR$(7) + "GUI Dialogs"
|
||||
ELSE
|
||||
NewDialogs = 0
|
||||
menu$(OptionsMenuID, OptionsMenuNewDialogs) = "New Dialogs"
|
||||
menu$(OptionsMenuID, OptionsMenuGuiDialogs) = "GUI Dialogs"
|
||||
END IF
|
||||
|
||||
idechangemade = 1
|
||||
startPausedPending = 0
|
||||
PCOPY 3, 0: SCREEN , , 3, 0
|
||||
|
@ -6284,7 +6285,7 @@ FUNCTION ide2 (ignore)
|
|||
PCOPY 3, 0: SCREEN , , 3, 0
|
||||
END IF '"Y"
|
||||
END IF 'unsaved
|
||||
IF NewDialogs Then
|
||||
IF UseGuiDialogs Then
|
||||
r$ = OpenFile$ (IdeOpenFile$) 'for new dialog file open routine.
|
||||
ELSE
|
||||
r$ = idefiledialog$("", 1) 'for old dialog file open routine.
|
||||
|
|
|
@ -74,7 +74,6 @@ IF INSTR(_OS$, "32BIT") THEN UserDefine(1, 5) = "-1": UserDefine(1, 6) = "0" ELS
|
|||
UserDefine(1, 7) = Version$
|
||||
|
||||
DIM SHARED QB64_uptime!
|
||||
DIM SHARED AS INTEGER NewDialogs, OptionsMenuNewDialogs: NewDialogs = -1
|
||||
|
||||
QB64_uptime! = TIMER
|
||||
|
||||
|
|
Loading…
Reference in a new issue