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

Merge git://github.com/william42/factor

release
Joe Groff 2010-04-12 17:06:21 -07:00
parent 88ae5425c1 39f066726c
commit c7f52ab3b1
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/game/input/x11/x11.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2010 Erik Charlebois, William Schlieper. ! Copyright (C) 2010 Erik Charlebois, William Schlieper.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel game.input namespaces USING: accessors alien.c-types arrays kernel game.input namespaces math
classes bit-arrays system sequences vectors x11 x11.xlib ; classes bit-arrays system sequences vectors x11 x11.xlib ;
IN: game.input.x11 IN: game.input.x11
@ -85,8 +85,23 @@ M: x11-game-input-backend read-keyboard
dpy get 256 <bit-array> [ XQueryKeymap drop ] keep dpy get 256 <bit-array> [ XQueryKeymap drop ] keep
x-bits>hid-bits keyboard-state boa ; x-bits>hid-bits keyboard-state boa ;
: query-pointer ( -- x y buttons )
dpy get dup XDefaultRootWindow
0 <int> 0 <int> 0 <int> 0 <int> 0 <int> 0 <int> 0 <int>
[ XQueryPointer drop ] 3keep
[ *int ] tri@ ;
SYMBOL: mouse-reset?
M: x11-game-input-backend read-mouse M: x11-game-input-backend read-mouse
0 0 0 0 2 <vector> mouse-state boa ; mouse-reset? get [ reset-mouse ] unless
query-pointer
mouse-state new
swap 256 /i >>buttons
swap 400 - >>dy
swap 400 - >>dx
0 >>scroll-dy 0 >>scroll-dx ;
M: x11-game-input-backend reset-mouse M: x11-game-input-backend reset-mouse
; dpy get dup XDefaultRootWindow dup
0 0 0 0 400 400 XWarpPointer drop t mouse-reset? set-global ;