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

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

@ -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 ;