mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 05:34:47 +00:00
Merge pull request #473 from QB64-Phoenix-Edition/export-fix
Fix "Export As" menu state
This commit is contained in:
commit
63f6a5cd48
2 changed files with 10 additions and 11 deletions
|
@ -278,7 +278,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
m = 1: i = 0
|
m = 1: i = 0
|
||||||
IdeMakeFileMenu
|
IdeMakeFileMenu 0
|
||||||
|
|
||||||
m = m + 1: i = 0
|
m = m + 1: i = 0
|
||||||
ideeditmenuID = m
|
ideeditmenuID = m
|
||||||
|
@ -6361,7 +6361,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF r$ = "Y" THEN
|
IF r$ = "Y" THEN
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
||||||
IdeMakeFileMenu
|
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -6386,8 +6386,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF r$ = "Y" THEN
|
IF r$ = "Y" THEN
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
OPEN ".\internal\temp\recent.bin" FOR OUTPUT AS #fh: CLOSE #fh
|
||||||
IdeMakeFileMenu
|
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
|
||||||
IF ideautolayout <> 0 THEN menu$(1, FileMenuExportAs) = "#Export As... " + CHR$(16)
|
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
@ -6583,7 +6582,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
ERASE RecentFilesList
|
ERASE RecentFilesList
|
||||||
IdeMakeFileMenu
|
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
redrawItAll:
|
redrawItAll:
|
||||||
|
@ -18304,7 +18303,7 @@ END FUNCTION
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
SUB IdeMakeFileMenu
|
SUB IdeMakeFileMenu (eaa%) 'ExportAs activation (boolean)
|
||||||
m = 1: i = 0
|
m = 1: i = 0
|
||||||
menu$(m, i) = "File": i = i + 1
|
menu$(m, i) = "File": i = i + 1
|
||||||
menu$(m, i) = "#New Ctrl+N": i = i + 1
|
menu$(m, i) = "#New Ctrl+N": i = i + 1
|
||||||
|
@ -18316,8 +18315,8 @@ SUB IdeMakeFileMenu
|
||||||
menu$(m, i) = "Save #As...": i = i + 1
|
menu$(m, i) = "Save #As...": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Saves current program with specified name"
|
menuDesc$(m, i - 1) = "Saves current program with specified name"
|
||||||
menu$(m, i) = "-": i = i + 1
|
menu$(m, i) = "-": i = i + 1
|
||||||
FileMenuExportAs = i
|
FileMenuExportAs = i: IF eaa% THEN eaa$ = "": ELSE eaa$ = "~"
|
||||||
menu$(m, i) = "~#Export As... " + CHR$(16): i = i + 1
|
menu$(m, i) = eaa$ + "#Export As... " + CHR$(16): i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Export current program into various formats"
|
menuDesc$(m, i - 1) = "Export current program into various formats"
|
||||||
fh = FREEFILE
|
fh = FREEFILE
|
||||||
OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
|
OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
|
||||||
|
@ -18350,7 +18349,7 @@ SUB IdeMakeFileMenu
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CLOSE #fh
|
CLOSE #fh
|
||||||
IF menu$(m, i - 1) <> "#Recent..." AND menu$(m, i - 1) <> "~#Export As... " + CHR$(16) THEN
|
IF menu$(m, i - 1) <> "#Recent..." AND menu$(m, i - 1) <> eaa$ + "#Export As... " + CHR$(16) THEN
|
||||||
menu$(m, i) = "#Clear Recent...": i = i + 1
|
menu$(m, i) = "#Clear Recent...": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Clears list of recently loaded files"
|
menuDesc$(m, i - 1) = "Clears list of recently loaded files"
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -18803,7 +18802,7 @@ SUB IdeAddRecent (f2$)
|
||||||
END IF
|
END IF
|
||||||
PUT #fh, 1, a$
|
PUT #fh, 1, a$
|
||||||
CLOSE #fh
|
CLOSE #fh
|
||||||
IdeMakeFileMenu
|
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
FUNCTION removeDoubleSlashes$(f$)
|
FUNCTION removeDoubleSlashes$(f$)
|
||||||
|
|
|
@ -8,7 +8,7 @@ Print h&
|
||||||
|
|
||||||
' This gives back a 404, but the connection is still successful in that
|
' This gives back a 404, but the connection is still successful in that
|
||||||
' situation.
|
' situation.
|
||||||
h& = _OpenClient("https://www.example.com/unknownUrl")
|
h& = _OpenClient("https://qb64phoenix.com/fake")
|
||||||
Print h&
|
Print h&
|
||||||
Print _StatusCode(h&)
|
Print _StatusCode(h&)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue