basis/x11/xinput2/xinput2.factor

   1 ! Copyright (C) 2010 Niklas Waern.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types combinators kernel namespaces x11
   4 x11.constants x11.xinput2.ffi ;
   5 IN: x11.xinput2
   6
   7 : (xi2-available?) ( display -- ? )
   8     2 0 [ <int> ] bi@
   9     XIQueryVersion
  10     {
  11         { BadRequest [ f ] }
  12         { Success    [ t ] }
  13         [ "Internal Xlib error." throw ]
  14     } case ;
  15
  16 : xi2-available? ( -- ? ) dpy get (xi2-available?) ; inline
  17