Source file cursor_shape_v1_proto.ml

(* This file was generated automatically by wayland-scanner-ocaml *)

open struct
  module Proxy = Wayland.Proxy
  module Iface_reg = Wayland.Iface_reg
  module Metadata = Wayland.Metadata
end

module Wp_cursor_shape_manager_v1 = struct
  type t = [`Wp_cursor_shape_manager_v1]
  type _ Metadata.ty += T : [`Wp_cursor_shape_manager_v1] Metadata.ty
  type versions = [`V1 | `V2]
  let interface = "wp_cursor_shape_manager_v1"
  let version = 2l
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "get_pointer", ["cursor_shape_device", `New_ID (Some "wp_cursor_shape_device_v1");
                           "pointer", `Object (Some "wl_pointer")]
    | 2 -> "get_tablet_tool_v2", ["cursor_shape_device", `New_ID (Some "wp_cursor_shape_device_v1");
                                  "tablet_tool", `Object (Some "zwp_tablet_tool_v2")]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Wp_cursor_shape_manager_v1)

module Wp_cursor_shape_device_v1 = struct
  type t = [`Wp_cursor_shape_device_v1]
  type _ Metadata.ty += T : [`Wp_cursor_shape_device_v1] Metadata.ty
  type versions = [`V1 | `V2]
  let interface = "wp_cursor_shape_device_v1"
  let version = 2l
  
  (** Cursor shapes.
      
      This enum describes cursor shapes.
      
      The names are taken from the CSS W3C specification:
      https://w3c.github.io/csswg-drafts/css-ui/#cursor
      with a few additions.
      
      Note that there are some groups of cursor shapes that are related:
      The first group is drag-and-drop cursors which are used to indicate
      the selected action during dnd operations. The second group is resize
      cursors which are used to indicate resizing and moving possibilities
      on window borders. It is recommended that the shapes in these groups
      should use visually compatible images and metaphors. *)
  module Shape = struct
    type t =
      | Default : t
      | Context_menu : t
      | Help : t
      | Pointer : t
      | Progress : t
      | Wait : t
      | Cell : t
      | Crosshair : t
      | Text : t
      | Vertical_text : t
      | Alias : t
      | Copy : t
      | Move : t
      | No_drop : t
      | Not_allowed : t
      | Grab : t
      | Grabbing : t
      | E_resize : t
      | N_resize : t
      | Ne_resize : t
      | Nw_resize : t
      | S_resize : t
      | Se_resize : t
      | Sw_resize : t
      | W_resize : t
      | Ew_resize : t
      | Ns_resize : t
      | Nesw_resize : t
      | Nwse_resize : t
      | Col_resize : t
      | Row_resize : t
      | All_scroll : t
      | Zoom_in : t
      | Zoom_out : t
      | Dnd_ask : t
      | All_resize : t
    
    let to_int32 = function
      | Default -> 1l
      | Context_menu -> 2l
      | Help -> 3l
      | Pointer -> 4l
      | Progress -> 5l
      | Wait -> 6l
      | Cell -> 7l
      | Crosshair -> 8l
      | Text -> 9l
      | Vertical_text -> 10l
      | Alias -> 11l
      | Copy -> 12l
      | Move -> 13l
      | No_drop -> 14l
      | Not_allowed -> 15l
      | Grab -> 16l
      | Grabbing -> 17l
      | E_resize -> 18l
      | N_resize -> 19l
      | Ne_resize -> 20l
      | Nw_resize -> 21l
      | S_resize -> 22l
      | Se_resize -> 23l
      | Sw_resize -> 24l
      | W_resize -> 25l
      | Ew_resize -> 26l
      | Ns_resize -> 27l
      | Nesw_resize -> 28l
      | Nwse_resize -> 29l
      | Col_resize -> 30l
      | Row_resize -> 31l
      | All_scroll -> 32l
      | Zoom_in -> 33l
      | Zoom_out -> 34l
      | Dnd_ask -> 35l
      | All_resize -> 36l
    
    let of_int32 = function
      | 1l -> Default
      | 2l -> Context_menu
      | 3l -> Help
      | 4l -> Pointer
      | 5l -> Progress
      | 6l -> Wait
      | 7l -> Cell
      | 8l -> Crosshair
      | 9l -> Text
      | 10l -> Vertical_text
      | 11l -> Alias
      | 12l -> Copy
      | 13l -> Move
      | 14l -> No_drop
      | 15l -> Not_allowed
      | 16l -> Grab
      | 17l -> Grabbing
      | 18l -> E_resize
      | 19l -> N_resize
      | 20l -> Ne_resize
      | 21l -> Nw_resize
      | 22l -> S_resize
      | 23l -> Se_resize
      | 24l -> Sw_resize
      | 25l -> W_resize
      | 26l -> Ew_resize
      | 27l -> Ns_resize
      | 28l -> Nesw_resize
      | 29l -> Nwse_resize
      | 30l -> Col_resize
      | 31l -> Row_resize
      | 32l -> All_scroll
      | 33l -> Zoom_in
      | 34l -> Zoom_out
      | 35l -> Dnd_ask
      | 36l -> All_resize
      | x -> Fmt.failwith "Invalid shape enum value %ld" x
  end
  
  
  module Error = struct
    type t =
      | Invalid_shape : t
    
    let to_int32 = function
      | Invalid_shape -> 1l
    
    let of_int32 = function
      | 1l -> Invalid_shape
      | x -> Fmt.failwith "Invalid error enum value %ld" x
  end
  
  let requests = function
    | 0 -> "destroy", []
    | 1 -> "set_shape", ["serial", `Uint; "shape", `Uint]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Wp_cursor_shape_device_v1)