Source file server_decoration_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 Org_kde_kwin_server_decoration_manager = struct
  type t = [`Org_kde_kwin_server_decoration_manager]
  type _ Metadata.ty += T : [`Org_kde_kwin_server_decoration_manager] Metadata.ty
  type versions = [`V1]
  let interface = "org_kde_kwin_server_decoration_manager"
  let version = 1l
  
  (** Possible values to use in request_mode and the event mode..
      
       *)
  module Mode = struct
    type t =
      | None : t
      | Client : t
      | Server : t
    
    let to_int32 = function
      | None -> 0l
      | Client -> 1l
      | Server -> 2l
    
    let of_int32 = function
      | 0l -> None
      | 1l -> Client
      | 2l -> Server
      | x -> Fmt.failwith "Invalid mode enum value %ld" x
  end
  
  let requests = function
    | 0 -> "create", ["id", `New_ID (Some "org_kde_kwin_server_decoration"); "surface", `Object (Some "wl_surface")]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "default_mode", ["mode", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Org_kde_kwin_server_decoration_manager)

module Org_kde_kwin_server_decoration = struct
  type t = [`Org_kde_kwin_server_decoration]
  type _ Metadata.ty += T : [`Org_kde_kwin_server_decoration] Metadata.ty
  type versions = [`V1]
  let interface = "org_kde_kwin_server_decoration"
  let version = 1l
  
  (** Possible values to use in request_mode and the event mode..
      
       *)
  module Mode = struct
    type t =
      | None : t
      | Client : t
      | Server : t
    
    let to_int32 = function
      | None -> 0l
      | Client -> 1l
      | Server -> 2l
    
    let of_int32 = function
      | 0l -> None
      | 1l -> Client
      | 2l -> Server
      | x -> Fmt.failwith "Invalid mode enum value %ld" x
  end
  
  let requests = function
    | 0 -> "release", []
    | 1 -> "request_mode", ["mode", `Uint]
    | i -> Proxy.unknown_request i, []
  
  let events = function
    | 0 -> "mode", ["mode", `Uint]
    | i -> Proxy.unknown_event i, []
  
end
let () = Iface_reg.register (module Org_kde_kwin_server_decoration)