wsi.mli

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