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