diff --git a/basis/ui/x11/x11.factor b/basis/ui/x11/x11.factor index 34cff42777..d0d7eeb234 100755 --- a/basis/ui/x11/x11.factor +++ b/basis/ui/x11/x11.factor @@ -29,14 +29,14 @@ M: world configure-event ! In case dimensions didn't change relayout-1 ; -: modifiers +CONSTANT: modifiers { { S+ HEX: 1 } { C+ HEX: 4 } { A+ HEX: 8 } - } ; - -: key-codes + } + +CONSTANT: key-codes H{ { HEX: FF08 "BACKSPACE" } { HEX: FF09 "TAB" } @@ -62,7 +62,7 @@ M: world configure-event { HEX: FFC4 "F7" } { HEX: FFC5 "F8" } { HEX: FFC6 "F9" } - } ; + } : key-code ( keysym -- keycode action? ) dup key-codes at [ t ] [ 1string f ] ?if ;