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

Minor adjustments to menu shortcuts; Also:

Browse source 
- Fix to ALT+Key entering text in textboxes (dialogs).
This commit is contained in:
FellippeHeitor 2017-09-25 02:50:13 -03:00
parent 5f822f21ce
commit 37ab5feb0e
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/ide/ide_methods.bas
View file

@ -2812,6 +2812,7 @@ FUNCTION ide2 (ignore)
END IF
IF KCONTROL AND UCASE$(K$) = "O" THEN 'File -> #Open
IdeOpenFile$ = ""
GOTO ctrlOpen
END IF
@ -4848,8 +4849,8 @@ FUNCTION ide2 (ignore)
END IF
IF menu$(m, s) = "#New Ctrl+N" THEN
ctrlNew:
PCOPY 2, 0
ctrlNew:
IF ideunsaved = 1 THEN
r$ = idesavenow
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
@ -4942,10 +4943,10 @@ FUNCTION ide2 (ignore)
END IF
IF menu$(m, s) = "#Open... Ctrl+O" THEN
ctrlOpen:
IdeOpenFile$ = ""
directopen:
PCOPY 2, 0
ctrlOpen:
IF ideunsaved THEN
r$ = idesavenow
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
@ -8788,7 +8789,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
o.issel = 0
END IF
END IF
IF k <> 8 AND k <> 9 AND k <> 0 AND k <> 10 AND k <> 13 AND k <> 26 AND k <> 255 THEN
IF k <> 8 AND k <> 9 AND k <> 0 AND k <> 10 AND k <> 13 AND k <> 26 AND k <> 255 AND KALT = 0 THEN
IF o.issel THEN
sx1 = o.sx1: sx2 = o.v1
IF sx1 > sx2 THEN SWAP sx1, sx2