wsi.mli

   1 type cursor =
   2     | CURSOR_INHERIT
   3     | CURSOR_INFO
   4     | CURSOR_CYCLE
   5     | CURSOR_CROSSHAIR
   6     | CURSOR_TEXT
   7 ;;
   8
   9 class type t = object
  10   method display : unit
  11   method reshape : int -> int -> unit
  12   method mouse : int -> bool -> int -> int -> int -> unit
  13   method motion : int -> int -> unit
  14   method pmotion : int -> int -> unit
  15   method key : int -> int -> unit
  16   method enter : int -> int -> unit
  17   method leave : unit
  18 end;;
  19
  20 val setcursor : cursor -> unit;;
  21 val settitle : string -> unit;;
  22 val swapb : unit -> unit;;
  23 val readresp : Unix.file_descr -> unit;;
  24 val init : t -> int -> int -> Unix.file_descr;;
  25 val fullscreen : unit -> unit;;
  26 val reshape : int -> int -> unit;;
  27 val withalt : int -> bool;;
  28 val withctrl : int -> bool;;
  29 val withshift : int -> bool;;
  30 val withmeta : int -> bool;;
  31 val toutf8 : int -> string;;
  32 val metamask : int;;
  33 val altmask : int;;
  34 val shiftmask : int;;
  35 val ctrlmask : int;;
  36 val keyname : int -> string;;
  37 val namekey : string -> int;;
  38
  39 exception Quit;;