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