Actually go to the named dest
[llpp.git] / wsi.mli
blobde6454eaf99dd54a9ce3255051ed540db0cf423a
1 type cursor =
2 | CURSOR_INHERIT
3 | CURSOR_INFO
4 | CURSOR_CYCLE
5 | CURSOR_CROSSHAIR
6 | CURSOR_TEXT
7 ;;
9 class type t = object
10 method display : unit
11 method expose : unit
12 method reshape : int -> int -> unit
13 method mouse : int -> bool -> int -> int -> int -> unit
14 method motion : int -> int -> unit
15 method pmotion : int -> int -> unit
16 method key : int -> int -> unit
17 method enter : int -> int -> unit
18 method leave : unit
19 method quit : unit
20 end;;
22 val setcursor : cursor -> unit;;
23 val settitle : string -> unit;;
24 val swapb : unit -> unit;;
25 val readresp : Unix.file_descr -> unit;;
26 val init : t -> int -> int -> bool -> Unix.file_descr * int * int;;
27 val fullscreen : unit -> unit;;
28 val reshape : int -> int -> unit;;
29 val withalt : int -> bool;;
30 val withctrl : int -> bool;;
31 val withshift : int -> bool;;
32 val withmeta : int -> bool;;
33 val withnone : int -> bool;;
34 val toutf8 : int -> string;;
35 val metamask : int;;
36 val altmask : int;;
37 val shiftmask : int;;
38 val ctrlmask : int;;
39 val keyname : int -> string;;
40 val namekey : string -> int;;
41 val tempfailureretry : ('a -> 'b) -> 'a -> 'b;;