Cosmetics
[llpp.git] / wsi.mli
bloba7e5ae4db0f46d961c0a1bbd0542f262cb759dde
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 class type t = object
16 method display : unit
17 method expose : unit
18 method reshape : int -> int -> unit
19 method mouse : int -> bool -> int -> int -> int -> unit
20 method motion : int -> int -> unit
21 method pmotion : int -> int -> unit
22 method key : int -> int -> unit
23 method enter : int -> int -> unit
24 method leave : unit
25 method winstate : winstate list -> unit
26 method quit : unit
27 end;;
29 val setcursor : cursor -> unit;;
30 val settitle : string -> unit;;
31 val swapb : unit -> unit;;
32 val readresp : Unix.file_descr -> unit;;
33 val init : t -> int -> int -> bool -> Unix.file_descr * int * int;;
34 val fullscreen : unit -> unit;;
35 val reshape : int -> int -> unit;;
36 val activatewin : unit -> unit;;
37 val withalt : int -> bool;;
38 val withctrl : int -> bool;;
39 val withshift : int -> bool;;
40 val withmeta : int -> bool;;
41 val withnone : int -> bool;;
42 val toutf8 : int -> string;;
43 val metamask : int;;
44 val altmask : int;;
45 val shiftmask : int;;
46 val ctrlmask : int;;
47 val keyname : int -> string;;
48 val namekey : string -> int;;
49 val tempfailureretry : ('a -> 'b) -> 'a -> 'b;;