steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.x11.keys: Enable numpad navigation keys for when numlock is off. 

I recently got a Model F keyboard and the arrow keys weren't mapped.

To see the keycodes on Linux:

```
IN: ui.backend.x11.keys
: code>sym ( code -- name/code/f action? )
    dup . flush
    dup codes at* [ nip dup t and ] when ;
```

Also try ``USE: gesture-logger``
master
Doug Coleman 2020-05-22 18:04:06 -05:00
parent 131c91b786
commit b1f29dc497
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/backend/x11/keys/keys.factor
View File

@ -21,16 +21,27 @@ CONSTANT: codes
{ $ XK_KP_Enter "ENTER" }
{ $ XK_Escape "ESC" }
{ $ XK_Delete "DELETE" }
{ $ XK_KP_Delete "DELETE" }
{ $ XK_Insert "INSERT" }
{ $ XK_KP_Insert "INSERT" }
{ $ XK_Home "HOME" }
{ $ XK_KP_Home "HOME" }
{ $ XK_Left "LEFT" }
{ $ XK_KP_Left "LEFT" }
{ $ XK_Up "UP" }
{ $ XK_KP_Up "UP" }
{ $ XK_Right "RIGHT" }
{ $ XK_KP_Right "RIGHT" }
{ $ XK_Down "DOWN" }
{ $ XK_KP_Down "DOWN" }
{ $ XK_Page_Up "PAGE_UP" }
{ $ XK_KP_Page_Up "PAGE_UP" }
{ $ XK_Page_Down "PAGE_DOWN" }
{ $ XK_KP_Page_Down "PAGE_DOWN" }
{ $ XK_End "END" }
{ $ XK_KP_End "END" }
{ $ XK_Begin "BEGIN" }
{ $ XK_KP_Begin "BEGIN" }
{ $ XK_F1 "F1" }
{ $ XK_F2 "F2" }
{ $ XK_F3 "F3" }