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

2
web/utils.fs
View File

@ -16,7 +16,7 @@ web definitions
: web-type ( a n -- ) web-type-raw if pause then ;
' 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? ( -- f ) pause web-key?-raw ;
' web-key? is key?