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

Updating X11 UI backend for stricter stack effect checking

db4
slava 2009-02-24 01:06:50 -06:00
parent b8ed7d20de
commit e8361b9980
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/x11/x11.factor
View File

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