QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 18:10:24 +00:00
Code Releases Wiki Activity

Reworks main window title to look "Program.bas:CurrentSubFunc"

Browse source 
A quick current SUB/FUNCTION check was added to complement the program title with a colon and said SUB/FUNCTION name, exactly like it was done in QB4.5, for quick reference. Doesn't add much of a burden to the overall performance since FUNCTION ide2 already updates the main window title every main LOOP anyway.
This commit is contained in:
FellippeHeitor 2015-12-29 00:22:37 -02:00
parent 4037c9db3a
commit 5846305079
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/ide/ide_methods.bas
View file

@ -9526,7 +9526,6 @@ SUB ideASCIIbox
'IF INSTR(_OS$, "WIN") THEN ret% = SHELL("internal\ASCII-Picker.exe") ELSE ret% = SHELL("internal/ASCII-Picker") 'IF INSTR(_OS$, "WIN") THEN ret% = SHELL("internal\ASCII-Picker.exe") ELSE ret% = SHELL("internal/ASCII-Picker")
w = _WIDTH: h = _HEIGHT w = _WIDTH: h = _HEIGHT
font = _FONT
temp = _NEWIMAGE(640, 480, 32) temp = _NEWIMAGE(640, 480, 32)
temp1 = _NEWIMAGE(640, 480, 32) temp1 = _NEWIMAGE(640, 480, 32)
ws = _NEWIMAGE(640, 480, 32) ws = _NEWIMAGE(640, 480, 32)
@ -9601,7 +9600,7 @@ DO
CASE 13: EXIT DO CASE 13: EXIT DO
CASE 27 CASE 27
_AUTODISPLAY _AUTODISPLAY
SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 SCREEN 0: WIDTH w, h: _DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN donothing = atall
EXIT SUB EXIT SUB
CASE 32: toggle = NOT toggle CASE 32: toggle = NOT toggle
@ -9619,13 +9618,13 @@ DO
Ex = _EXIT Ex = _EXIT
IF Ex THEN IF Ex THEN
_AUTODISPLAY _AUTODISPLAY
SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 SCREEN 0: WIDTH w, h: _DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN donothing = atall
EXIT FUNCTION EXIT FUNCTION
END IF END IF
IF MouseExit THEN IF MouseExit THEN
_AUTODISPLAY _AUTODISPLAY
SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 SCREEN 0: WIDTH w, h: _DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN donothing = atall
EXIT FUNCTION EXIT FUNCTION
END IF END IF
@ -9648,9 +9647,7 @@ END IF
_AUTODISPLAY _AUTODISPLAY
SCREEN 0: WIDTH w, h SCREEN 0: WIDTH w, h: _DEST 0: _DELAY .2
_FONT font
_DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN donothing = atall
END FUNCTION END FUNCTION