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

curses: start mouse input implementation

db4
Philipp Brüschweiler 2009-10-26 07:31:43 +01:00
parent 6c31c49cad
commit 54d846e38a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/curses/curses.factor
View File

@ -412,3 +412,9 @@ PRIVATE>
: cbox ( -- ) : cbox ( -- )
current-window get wccbox ; current-window get wccbox ;
: mousemask ( mask -- newmask oldmask )
0 <ulong> [ ffi:mousemask ] keep *ulong ;
: getmouse ( -- MEVENT/f )
ffi:MEVENT <struct> dup ffi:getmouse
ffi:ERR = [ drop f ] when ;