package wayland

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file xdg_output_unstable_v1_server.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
(* This file was generated automatically by wayland-scanner-ocaml *)

[@@@ocaml.warning "-27"]
open struct
  module Imports = struct
    include Xdg_output_unstable_v1_proto
    include Wayland.Wayland_proto
  end
  
  module Proxy = Wayland.Proxy
  module Msg = Wayland.Msg
  module Fixed = Wayland.Fixed
  module Iface_reg = Wayland.Iface_reg
  module S = Wayland.S
end


(** Manage xdg_output objects.
    
    A global factory interface for xdg_output objects. *)
module Zxdg_output_manager_v1 = struct
  type 'v t = ([`Zxdg_output_manager_v1], 'v, [`Server]) Proxy.t
  
  (** {2 Version 1, 2, 3} *)
  
  (**/**)
  class virtual ['v] _handlers_unsafe = object (_self : (_, 'v, _) #Proxy.Handler.t)
    method user_data = S.No_data
    method metadata = (module Xdg_output_unstable_v1_proto.Zxdg_output_manager_v1)
    method max_version = 3l
    
    method private virtual on_destroy : [> ] t -> unit
    
    method private virtual on_get_xdg_output : [> ] t -> ([`Zxdg_output_v1], 'v, [`Server]) Proxy.t ->
                                               output:([`Wl_output], [> Imports.Wl_output.versions], [`Server]) Proxy.t ->
                                               unit
    
    
    method dispatch (_proxy : 'v t) _msg =
      let _proxy = Proxy.cast_version _proxy in
      match Msg.op _msg with
      | 0 ->
        Proxy.shutdown_recv _proxy;
        _self#on_destroy _proxy 
      | 1 ->
        let id : ([`Zxdg_output_v1], _, _) Proxy.t =
          Msg.get_int _msg |> Proxy.Handler.accept_new _proxy (module Imports.Zxdg_output_v1) in
        let output : ([`Wl_output], _, _) Proxy.t =
          let Proxy.Proxy p = Msg.get_int _msg |> Proxy.lookup_other _proxy in
          match Proxy.ty p with
          | Imports.Wl_output.T -> p
          | _ -> Proxy.wrong_type ~parent:_proxy ~expected:"wl_output" p
          in
        _self#on_get_xdg_output _proxy id ~output
      | _ -> assert false
  end
  (**/**)
  
  (** {2 Handlers}
      Note: Servers will always want to use [v1].
   *)
  
  
  (** Handler for a proxy with version >= 1. *)
  class virtual ['v] v1 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V1 | `V2 | `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V1 | `V2 | `V3] t -> unit
    
    (** Destroy the xdg_output_manager object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output_manager object anymore.
        
        Any objects already created through this instance are not affected. *)
    
    method private virtual on_get_xdg_output : [> `V1 | `V2 | `V3] t -> ([`Zxdg_output_v1], 'v, [`Server]) Proxy.t ->
                                               output:([`Wl_output], [> Imports.Wl_output.versions], [`Server]) Proxy.t ->
                                               unit
    
    (** Create an xdg output from a wl_output.
        
        This creates a new xdg_output object for the given wl_output. *)
    
    method min_version = 1l
    method bind_version : [`V1] = `V1
  end
  
  (** Handler for a proxy with version >= 2. *)
  class virtual ['v] v2 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V2 | `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V2 | `V3] t -> unit
    
    (** Destroy the xdg_output_manager object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output_manager object anymore.
        
        Any objects already created through this instance are not affected. *)
    
    method private virtual on_get_xdg_output : [> `V2 | `V3] t -> ([`Zxdg_output_v1], 'v, [`Server]) Proxy.t ->
                                               output:([`Wl_output], [> Imports.Wl_output.versions], [`Server]) Proxy.t ->
                                               unit
    
    (** Create an xdg output from a wl_output.
        
        This creates a new xdg_output object for the given wl_output. *)
    
    method min_version = 2l
    method bind_version : [`V2] = `V2
  end
  
  (** Handler for a proxy with version >= 3. *)
  class virtual ['v] v3 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V3] t -> unit
    
    (** Destroy the xdg_output_manager object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output_manager object anymore.
        
        Any objects already created through this instance are not affected. *)
    
    method private virtual on_get_xdg_output : [> `V3] t -> ([`Zxdg_output_v1], 'v, [`Server]) Proxy.t ->
                                               output:([`Wl_output], [> Imports.Wl_output.versions], [`Server]) Proxy.t ->
                                               unit
    
    (** Create an xdg output from a wl_output.
        
        This creates a new xdg_output object for the given wl_output. *)
    
    method min_version = 3l
    method bind_version : [`V3] = `V3
  end
end

(** Compositor logical output region.
    
    An xdg_output describes part of the compositor geometry.
    
    This typically corresponds to a monitor that displays part of the
    compositor space.
    
    For objects version 3 onwards, after all xdg_output properties have been
    sent (when the object is created and when properties are updated), a
    wl_output.done event is sent. This allows changes to the output
    properties to be seen as atomic, even if they happen via multiple events. *)
module Zxdg_output_v1 = struct
  type 'v t = ([`Zxdg_output_v1], 'v, [`Server]) Proxy.t
  
  (** {2 Version 1} *)
  
  (** All information about the output have been sent.
      
      This event is sent after all other properties of an xdg_output
      have been sent.
      
      This allows changes to the xdg_output properties to be seen as
      atomic, even if they happen via multiple events.
      
      For objects version 3 onwards, this event is deprecated. Compositors
      are not required to send it anymore and must send wl_output.done
      instead. *)
  let done_ (_t:([< `V1 | `V2 | `V3] as 'v) t)  =
    let _msg = Proxy.alloc _t ~op:2 ~ints:0 ~strings:[] ~arrays:[] in
    Proxy.send _t _msg
  
  (** Size of the output in the global compositor space.
      
      The logical_size event describes the size of the output in the
      global compositor space.
      
      Most regular Wayland clients should not pay attention to the
      logical size and would rather rely on xdg_shell interfaces.
      
      Some clients such as Xwayland, however, need this to configure
      their surfaces in the global compositor space as the compositor
      may apply a different scale from what is advertised by the output
      scaling property (to achieve fractional scaling, for example).
      
      For example, for a wl_output mode 3840×2160 and a scale factor 2:
      
      - A compositor not scaling the monitor viewport in its compositing space
      will advertise a logical size of 3840×2160,
      
      - A compositor scaling the monitor viewport with scale factor 2 will
      advertise a logical size of 1920×1080,
      
      - A compositor scaling the monitor viewport using a fractional scale of
      1.5 will advertise a logical size of 2560×1440.
      
      For example, for a wl_output mode 1920×1080 and a 90 degree rotation,
      the compositor will advertise a logical size of 1080x1920.
      
      The logical_size event is sent after creating an xdg_output
      (see xdg_output_manager.get_xdg_output) and whenever the logical
      size of the output changes, either as a result of a change in the
      applied scale or because of a change in the corresponding output
      mode(see wl_output.mode) or transform (see wl_output.transform). *)
  let logical_size (_t:([< `V1 | `V2 | `V3] as 'v) t) ~width ~height =
    let _msg = Proxy.alloc _t ~op:1 ~ints:2 ~strings:[] ~arrays:[] in
    Msg.add_int _msg width;
    Msg.add_int _msg height;
    Proxy.send _t _msg
  
  (** Position of the output within the global compositor space.
      
      The position event describes the location of the wl_output within
      the global compositor space.
      
      The logical_position event is sent after creating an xdg_output
      (see xdg_output_manager.get_xdg_output) and whenever the location
      of the output changes within the global compositor space. *)
  let logical_position (_t:([< `V1 | `V2 | `V3] as 'v) t) ~x ~y =
    let _msg = Proxy.alloc _t ~op:0 ~ints:2 ~strings:[] ~arrays:[] in
    Msg.add_int _msg x;
    Msg.add_int _msg y;
    Proxy.send _t _msg
  
  
  (** {2 Version 2, 3} *)
  
  (** Human-readable description of this output.
      
      Many compositors can produce human-readable descriptions of their
      outputs.  The client may wish to know this description as well, to
      communicate the user for various purposes.
      
      The description is a UTF-8 string with no convention defined for its
      contents. Examples might include 'Foocorp 11" Display' or 'Virtual X11
      output via :1'.
      
      The description event is sent after creating an xdg_output (see
      xdg_output_manager.get_xdg_output) and whenever the description
      changes. The description is optional, and may not be sent at all.
      
      For objects of version 2 and lower, this event is only sent once per
      xdg_output, and the description does not change over the lifetime of
      the wl_output global.
      
      This event is deprecated, instead clients should use
      wl_output.description. Compositors must still support this event.
      " *)
  let description (_t:([< `V2 | `V3] as 'v) t) ~description =
    let _msg = Proxy.alloc _t ~op:4 ~ints:1 ~strings:[(Some description)] ~arrays:[] in
    Msg.add_string _msg description;
    Proxy.send _t _msg
  
  (** Name of this output.
      
      Many compositors will assign names to their outputs, show them to the
      user, allow them to be configured by name, etc. The client may wish to
      know this name as well to offer the user similar behaviors.
      
      The naming convention is compositor defined, but limited to
      alphanumeric characters and dashes (-). Each name is unique among all
      wl_output globals, but if a wl_output global is destroyed the same name
      may be reused later. The names will also remain consistent across
      sessions with the same hardware and software configuration.
      
      Examples of names include 'HDMI-A-1', 'WL-1', 'X11-1', etc. However, do
      not assume that the name is a reflection of an underlying DRM
      connector, X11 connection, etc.
      
      The name event is sent after creating an xdg_output (see
      xdg_output_manager.get_xdg_output). This event is only sent once per
      xdg_output, and the name does not change over the lifetime of the
      wl_output global.
      
      This event is deprecated, instead clients should use wl_output.name.
      Compositors must still support this event. *)
  let name (_t:([< `V2 | `V3] as 'v) t) ~name =
    let _msg = Proxy.alloc _t ~op:3 ~ints:1 ~strings:[(Some name)] ~arrays:[] in
    Msg.add_string _msg name;
    Proxy.send _t _msg
  
  (**/**)
  class virtual ['v] _handlers_unsafe = object (_self : (_, 'v, _) #Proxy.Handler.t)
    method user_data = S.No_data
    method metadata = (module Xdg_output_unstable_v1_proto.Zxdg_output_v1)
    method max_version = 3l
    
    method private virtual on_destroy : [> ] t -> unit
    
    
    method dispatch (_proxy : 'v t) _msg =
      let _proxy = Proxy.cast_version _proxy in
      match Msg.op _msg with
      | 0 ->
        Proxy.shutdown_recv _proxy;
        _self#on_destroy _proxy 
      | _ -> assert false
  end
  (**/**)
  
  (** {2 Handlers}
      Note: Servers will always want to use [v1].
   *)
  
  
  (** Handler for a proxy with version >= 1. *)
  class virtual ['v] v1 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V1 | `V2 | `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V1 | `V2 | `V3] t -> unit
    
    (** Destroy the xdg_output object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output object anymore. *)
    
    method min_version = 1l
  end
  
  (** Handler for a proxy with version >= 2. *)
  class virtual ['v] v2 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V2 | `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V2 | `V3] t -> unit
    
    (** Destroy the xdg_output object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output object anymore. *)
    
    method min_version = 2l
  end
  
  (** Handler for a proxy with version >= 3. *)
  class virtual ['v] v3 = object (_ : (_, 'v, _) #Proxy.Service_handler.t)
    (**/**)
    inherit [[< `V3] as 'v] _handlers_unsafe
    (**/**)
    method private virtual on_destroy : [> `V3] t -> unit
    
    (** Destroy the xdg_output object.
        
        Using this request a client can tell the server that it is not
        going to use the xdg_output object anymore. *)
    
    method min_version = 3l
  end
end
OCaml

Innovation. Community. Security.