QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-20 03:14:45 +00:00
Code Issues Releases Wiki Activity

Open GUI file dialog when Ctrl+S is pressed

Browse source
This commit is contained in:
Samuel Gomes 2024-04-06 05:50:30 +05:30
parent 74116f7a31
commit 0322491a2b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -3463,8 +3463,9 @@ FUNCTION ide2 (ignore)
IF KCONTROL AND UCASE$(K$) = "S" THEN 'File -> #Save IF KCONTROL AND UCASE$(K$) = "S" THEN 'File -> #Save
IF ideprogname = "" THEN IF ideprogname = "" THEN
ProposedTitle$ = FindProposedTitle$ ProposedTitle$ = FindProposedTitle$
IF ProposedTitle$ = "" THEN IF ProposedTitle$ = "" THEN ProposedTitle$ = "untitled" + tempfolderindexstr$
a$ = idefiledialog$("untitled" + tempfolderindexstr$ + ".bas", 2) IF UseGuiDialogs THEN
a$ = Savefile$(ProposedTitle$ + ".bas")
ELSE ELSE
a$ = idefiledialog$(ProposedTitle$ + ".bas", 2) a$ = idefiledialog$(ProposedTitle$ + ".bas", 2)
END IF END IF