diff --git a/extra/curses/curses.factor b/extra/curses/curses.factor
index 5c4a58e936..987cfea2bd 100644
--- 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 ;