curses: start mouse input implementation

2009-10-26 07:31:43 +01:00 · 2009-10-26 07:31:43 +01:00 · 54d846e38a
parent 6c31c49cad
commit 54d846e38a
1 changed files with 6 additions and 0 deletions
--- a/extra/curses/curses.factor
+++ b/extra/curses/curses.factor
@ -412,3 +412,9 @@ PRIVATE>
 : cbox ( -- )
    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 ;