wsi/x11/wsi.mli

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