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

Restores IDE title with x32 or x64 when a new file is opened/created.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-10 02:03:46 -03:00
parent 0701364fb2
commit 09f51fbc1b
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -493,7 +493,7 @@ FUNCTION ide2 (ignore)
END IF
IdeBmkN = 0
ideerror = 1
ideprogname = f$: _TITLE ideprogname + " - QB64"
ideprogname = f$: _TITLE ideprogname + " - " + WindowTitle
IdeImportBookmarks idepath$ + idepathsep$ + ideprogname$
IdeAddRecent idepath$ + idepathsep$ + ideprogname$
END IF 'message 1
@ -3131,7 +3131,7 @@ FUNCTION ide2 (ignore)
END IF
ideunsaved = 1
ideprogname$ = ""
_TITLE "QB64"
_TITLE WindowTitle
ideundobase = -1 'release base restriction
END IF
@ -5404,7 +5404,7 @@ FUNCTION ide2 (ignore)
listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength)
QuickNavTotal = 0
ModifyCOMMAND$ = ""
_TITLE "QB64"
_TITLE WindowTitle
idechangemade = 1
idefocusline = 0
ideundobase = 0 'reset
@ -7785,7 +7785,7 @@ FUNCTION ideopen$
lineinput3buffer = ""
iden = n: IF n = 0 THEN idet$ = MKL$(0) + MKL$(0): iden = 1 ELSE idet$ = LEFT$(idet$, i2 - 1)
ideerror = 1
ideprogname = f$: _TITLE ideprogname + " - QB64"
ideprogname = f$: _TITLE ideprogname + " - " + WindowTitle
listOfCustomKeywords$ = LEFT$(listOfCustomKeywords$, customKeywordsLength)
idepath$ = path$
IdeAddRecent idepath$ + idepathsep$ + ideprogname$
@ -8232,7 +8232,7 @@ FUNCTION idesaveas$ (programname$)
ELSE
CLOSE #150
END IF
ideprogname$ = f$: _TITLE ideprogname + " - QB64"
ideprogname$ = f$: _TITLE ideprogname + " - " + WindowTitle
idesave path$ + idepathsep$ + f$
idepath$ = path$
IdeAddRecent idepath$ + idepathsep$ + ideprogname$

5
source/qb64.bas
View file

@ -80,10 +80,11 @@ DIM SHARED DEPENDENCY(1 TO DEPENDENCY_LAST)
DIM SHARED UseGL 'declared SUB _GL (no params)
DIM SHARED OS_BITS AS LONG
DIM SHARED OS_BITS AS LONG, WindowTitle AS STRING
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
IF OS_BITS = 32 THEN _TITLE "QB64 x32" ELSE _TITLE "QB64 x64"
IF OS_BITS = 32 THEN WindowTitle = "QB64 x32" ELSE WindowTitle = "QB64 x64"
_TITLE WindowTitle
DIM SHARED ConsoleMode, No_C_Compile_Mode, NoIDEMode
DIM SHARED VerboseMode AS _BYTE, CMDLineFile AS STRING