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   method quit : unit
  19 end;;
  20
  21 val setcursor : cursor -> unit;;
  22 val settitle : string -> unit;;
  23 val swapb : unit -> unit;;
  24 val readresp : Unix.file_descr -> unit;;
  25 val init : t -> int -> int -> Unix.file_descr;;
  26 val fullscreen : unit -> unit;;
  27 val reshape : int -> int -> unit;;
  28 val withalt : int -> bool;;
  29 val withctrl : int -> bool;;
  30 val withshift : int -> bool;;
  31 val withmeta : int -> bool;;
  32 val withnone : int -> bool;;
  33 val toutf8 : int -> string;;
  34 val metamask : int;;
  35 val altmask : int;;
  36 val shiftmask : int;;
  37 val ctrlmask : int;;
  38 val keyname : int -> string;;
  39 val namekey : string -> int;;