wsi.mli

   1 type cursor =
   2     | CURSOR_INHERIT
   3     | CURSOR_INFO
   4     | CURSOR_CYCLE
   5     | CURSOR_CROSSHAIR
   6     | CURSOR_TEXT
   7 ;;
   8
   9 type winstate =
  10     | MaxVert
  11     | MaxHorz
  12     | Fullscreen
  13 ;;
  14
  15 class type t = object
  16   method display  : unit
  17   method expose   : unit
  18   method visible  : unit
  19   method reshape  : int -> int -> unit
  20   method mouse    : int -> bool -> int -> int -> int -> unit
  21   method motion   : int -> int -> unit
  22   method pmotion  : int -> int -> unit
  23   method key      : int -> int -> unit
  24   method enter    : int -> int -> unit
  25   method leave    : unit
  26   method winstate : winstate list -> unit
  27   method quit     : unit
  28 end;;
  29
  30 val setcursor : cursor -> unit;;
  31 val settitle : string -> unit;;
  32 val swapb : unit -> unit;;
  33 val readresp : Unix.file_descr -> unit;;
  34 val init : t -> int -> int -> bool -> Unix.file_descr * int * int;;
  35 val fullscreen : unit -> unit;;
  36 val reshape : int -> int -> unit;;
  37 val activatewin : unit -> unit;;
  38 val mapwin : unit -> unit;;
  39 val withalt : int -> bool;;
  40 val withctrl : int -> bool;;
  41 val withshift : int -> bool;;
  42 val withmeta : int -> bool;;
  43 val withnone : int -> bool;;
  44 val metamask : int;;
  45 val altmask : int;;
  46 val shiftmask : int;;
  47 val ctrlmask : int;;
  48 val keyname : int -> string;;
  49 val namekey : string -> int;;