curses: start mouse input implementation

diff --git a/extra/curses/curses.factor b/extra/curses/curses.factor
index 5c4a58e9369cb2e5683e3cecf9be95682022a70c..987cfea2bdfbe322e70c6f9c41be621eee3cb2c2 100644 (file)
--- 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 ;