mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-26 17:10:38 +00:00
Minor adjustments to menu shortcuts; Also:
- Fix to ALT+Key entering text in textboxes (dialogs).
This commit is contained in:
parent
5f822f21ce
commit
37ab5feb0e
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue