alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add control codes to web keyboard.

Browse Source
This commit is contained in:
Brad Nelson
2024-08-10 10:38:22 -07:00
parent 8ab745ab9c
commit 622a048d92
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
web/platform.fs
View File

@ -539,7 +539,15 @@ if (!globalObj.write) {
} }
window.onkeypress = KeyPress; window.onkeypress = KeyPress;
function KeyDown(e) { function KeyDown(e) {
if (e.keyCode == 8) { if (e.ctrlKey) {
if (e.keyCode == 50) {
context.inbuffer.push(0);
} else if (e.keyCode >= 65 && e.keyCode <= 90) {
context.inbuffer.push(e.keyCode - 64);
}
e.preventDefault();
return false;
} else if (e.keyCode == 8 || e.keyCode == 9 || e.keyCode == 27) {
context.cursor_time = new Date().getTime(); context.cursor_time = new Date().getTime();
context.inbuffer.push(e.keyCode); context.inbuffer.push(e.keyCode);
e.preventDefault(); e.preventDefault();
@ -586,7 +594,7 @@ JSWORD: web-key-raw { -- n }
if (context.inbuffer.length) { if (context.inbuffer.length) {
return context.inbuffer.shift(); return context.inbuffer.shift();
} else { } else {
return 0; return -1;
} }
~ ~

2
web/utils.fs
View File

@ -16,7 +16,7 @@ web definitions
: web-type ( a n -- ) web-type-raw if pause then ; : web-type ( a n -- ) web-type-raw if pause then ;
' web-type is type ' web-type is type
: web-key ( -- n ) begin pause web-key-raw dup if exit then drop again ; : web-key ( -- n ) begin pause web-key-raw dup 0< 0= if exit then drop again ;
' web-key is key ' web-key is key
: web-key? ( -- f ) pause web-key?-raw ; : web-key? ( -- f ) pause web-key?-raw ;
' web-key? is key? ' web-key? is key?