diff options
Diffstat (limited to 'elpa/xelb-0.20/xcb-randr.el')
| -rw-r--r-- | elpa/xelb-0.20/xcb-randr.el | 1121 |
1 files changed, 1121 insertions, 0 deletions
diff --git a/elpa/xelb-0.20/xcb-randr.el b/elpa/xelb-0.20/xcb-randr.el new file mode 100644 index 0000000..cb0dc9b --- /dev/null +++ b/elpa/xelb-0.20/xcb-randr.el @@ -0,0 +1,1121 @@ +;;; xcb-randr.el --- X11 RandR extension -*- lexical-binding: t -*- + +;; Copyright (C) 2015-2024 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file was generated by 'xelb-gen' from 'randr.xml', +;; which you can retrieve from <git://anongit.freedesktop.org/xcb/proto>. + +;;; Code: + +(require 'xcb-types) + +(defconst xcb:randr:-extension-xname "RANDR") +(defconst xcb:randr:-extension-name "RandR") +(defconst xcb:randr:-major-version 1) +(defconst xcb:randr:-minor-version 6) + +(require 'xcb-xproto) + +(require 'xcb-render) + +(xcb:deftypealias 'xcb:randr:MODE 'xcb:-u4) + +(xcb:deftypealias 'xcb:randr:CRTC 'xcb:-u4) + +(xcb:deftypealias 'xcb:randr:OUTPUT 'xcb:-u4) + +(xcb:deftypealias 'xcb:randr:PROVIDER 'xcb:-u4) + +(xcb:deftypealias 'xcb:randr:LEASE 'xcb:-u4) + +(defclass xcb:randr:BadOutput + (xcb:-error) + ((~code :initform 0))) + +(defclass xcb:randr:BadCrtc + (xcb:-error) + ((~code :initform 1))) + +(defclass xcb:randr:BadMode + (xcb:-error) + ((~code :initform 2))) + +(defclass xcb:randr:BadProvider + (xcb:-error) + ((~code :initform 3))) + +(defconst xcb:randr:Rotation:Rotate_0 1) +(defconst xcb:randr:Rotation:Rotate_90 2) +(defconst xcb:randr:Rotation:Rotate_180 4) +(defconst xcb:randr:Rotation:Rotate_270 8) +(defconst xcb:randr:Rotation:Reflect_X 16) +(defconst xcb:randr:Rotation:Reflect_Y 32) + +(defclass xcb:randr:ScreenSize + (xcb:-struct) + ((width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (mwidth :initarg :mwidth :type xcb:CARD16) + (mheight :initarg :mheight :type xcb:CARD16))) + +(defclass xcb:randr:RefreshRates + (xcb:-struct) + ((nRates :initarg :nRates :type xcb:CARD16) + (rates~ :initform + '(name rates type xcb:CARD16 size + (xcb:-fieldref 'nRates)) + :type xcb:-list) + (rates :initarg :rates :type xcb:-ignore))) + +(defclass xcb:randr:QueryVersion + (xcb:-request) + ((~opcode :initform 0 :type xcb:-u1) + (major-version :initarg :major-version :type xcb:CARD32) + (minor-version :initarg :minor-version :type xcb:CARD32))) +(defclass xcb:randr:QueryVersion~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (major-version :initarg :major-version :type xcb:CARD32) + (minor-version :initarg :minor-version :type xcb:CARD32) + (pad~1 :initform 16 :type xcb:-pad))) + +(defconst xcb:randr:SetConfig:Success 0) +(defconst xcb:randr:SetConfig:InvalidConfigTime 1) +(defconst xcb:randr:SetConfig:InvalidTime 2) +(defconst xcb:randr:SetConfig:Failed 3) + +(defclass xcb:randr:SetScreenConfig + (xcb:-request) + ((~opcode :initform 2 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (sizeID :initarg :sizeID :type xcb:CARD16) + (rotation :initarg :rotation :type xcb:CARD16) + (rate :initarg :rate :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) +(defclass xcb:randr:SetScreenConfig~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (new-timestamp :initarg :new-timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (subpixel-order :initarg :subpixel-order :type xcb:CARD16) + (pad~0 :initform 10 :type xcb:-pad))) + +(defconst xcb:randr:NotifyMask:ScreenChange 1) +(defconst xcb:randr:NotifyMask:CrtcChange 2) +(defconst xcb:randr:NotifyMask:OutputChange 4) +(defconst xcb:randr:NotifyMask:OutputProperty 8) +(defconst xcb:randr:NotifyMask:ProviderChange 16) +(defconst xcb:randr:NotifyMask:ProviderProperty 32) +(defconst xcb:randr:NotifyMask:ResourceChange 64) +(defconst xcb:randr:NotifyMask:Lease 128) + +(defclass xcb:randr:SelectInput + (xcb:-request) + ((~opcode :initform 4 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (enable :initarg :enable :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:randr:GetScreenInfo + (xcb:-request) + ((~opcode :initform 5 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetScreenInfo~reply + (xcb:-reply) + ((rotations :initarg :rotations :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (root :initarg :root :type xcb:WINDOW) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (nSizes :initarg :nSizes :type xcb:CARD16) + (sizeID :initarg :sizeID :type xcb:CARD16) + (rotation :initarg :rotation :type xcb:CARD16) + (rate :initarg :rate :type xcb:CARD16) + (nInfo :initarg :nInfo :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (sizes~ :initform + '(name sizes type xcb:randr:ScreenSize size + (xcb:-fieldref 'nSizes)) + :type xcb:-list) + (sizes :initarg :sizes :type xcb:-ignore) + (rates~ :initform + '(name rates type xcb:randr:RefreshRates size + (- + (xcb:-fieldref 'nInfo) + (xcb:-fieldref 'nSizes))) + :type xcb:-list) + (rates :initarg :rates :type xcb:-ignore))) + +(defclass xcb:randr:GetScreenSizeRange + (xcb:-request) + ((~opcode :initform 6 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetScreenSizeRange~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (min-width :initarg :min-width :type xcb:CARD16) + (min-height :initarg :min-height :type xcb:CARD16) + (max-width :initarg :max-width :type xcb:CARD16) + (max-height :initarg :max-height :type xcb:CARD16) + (pad~1 :initform 16 :type xcb:-pad))) + +(defclass xcb:randr:SetScreenSize + (xcb:-request) + ((~opcode :initform 7 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (mm-width :initarg :mm-width :type xcb:CARD32) + (mm-height :initarg :mm-height :type xcb:CARD32))) + +(defconst xcb:randr:ModeFlag:HsyncPositive 1) +(defconst xcb:randr:ModeFlag:HsyncNegative 2) +(defconst xcb:randr:ModeFlag:VsyncPositive 4) +(defconst xcb:randr:ModeFlag:VsyncNegative 8) +(defconst xcb:randr:ModeFlag:Interlace 16) +(defconst xcb:randr:ModeFlag:DoubleScan 32) +(defconst xcb:randr:ModeFlag:Csync 64) +(defconst xcb:randr:ModeFlag:CsyncPositive 128) +(defconst xcb:randr:ModeFlag:CsyncNegative 256) +(defconst xcb:randr:ModeFlag:HskewPresent 512) +(defconst xcb:randr:ModeFlag:Bcast 1024) +(defconst xcb:randr:ModeFlag:PixelMultiplex 2048) +(defconst xcb:randr:ModeFlag:DoubleClock 4096) +(defconst xcb:randr:ModeFlag:HalveClock 8192) + +(defclass xcb:randr:ModeInfo + (xcb:-struct) + ((id :initarg :id :type xcb:CARD32) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (dot-clock :initarg :dot-clock :type xcb:CARD32) + (hsync-start :initarg :hsync-start :type xcb:CARD16) + (hsync-end :initarg :hsync-end :type xcb:CARD16) + (htotal :initarg :htotal :type xcb:CARD16) + (hskew :initarg :hskew :type xcb:CARD16) + (vsync-start :initarg :vsync-start :type xcb:CARD16) + (vsync-end :initarg :vsync-end :type xcb:CARD16) + (vtotal :initarg :vtotal :type xcb:CARD16) + (name-len :initarg :name-len :type xcb:CARD16) + (mode-flags :initarg :mode-flags :type xcb:CARD32))) + +(defclass xcb:randr:GetScreenResources + (xcb:-request) + ((~opcode :initform 8 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetScreenResources~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (num-crtcs :initarg :num-crtcs :type xcb:CARD16) + (num-outputs :initarg :num-outputs :type xcb:CARD16) + (num-modes :initarg :num-modes :type xcb:CARD16) + (names-len :initarg :names-len :type xcb:CARD16) + (pad~1 :initform 8 :type xcb:-pad) + (crtcs~ :initform + '(name crtcs type xcb:randr:CRTC size + (xcb:-fieldref 'num-crtcs)) + :type xcb:-list) + (crtcs :initarg :crtcs :type xcb:-ignore) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-outputs)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore) + (modes~ :initform + '(name modes type xcb:randr:ModeInfo size + (xcb:-fieldref 'num-modes)) + :type xcb:-list) + (modes :initarg :modes :type xcb:-ignore) + (names~ :initform + '(name names type xcb:BYTE size + (xcb:-fieldref 'names-len)) + :type xcb:-list) + (names :initarg :names :type xcb:-ignore))) + +(defconst xcb:randr:Connection:Connected 0) +(defconst xcb:randr:Connection:Disconnected 1) +(defconst xcb:randr:Connection:Unknown 2) + +(defclass xcb:randr:GetOutputInfo + (xcb:-request) + ((~opcode :initform 9 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP))) +(defclass xcb:randr:GetOutputInfo~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (mm-width :initarg :mm-width :type xcb:CARD32) + (mm-height :initarg :mm-height :type xcb:CARD32) + (connection :initarg :connection :type xcb:CARD8) + (subpixel-order :initarg :subpixel-order :type xcb:CARD8) + (num-crtcs :initarg :num-crtcs :type xcb:CARD16) + (num-modes :initarg :num-modes :type xcb:CARD16) + (num-preferred :initarg :num-preferred :type xcb:CARD16) + (num-clones :initarg :num-clones :type xcb:CARD16) + (name-len :initarg :name-len :type xcb:CARD16) + (crtcs~ :initform + '(name crtcs type xcb:randr:CRTC size + (xcb:-fieldref 'num-crtcs)) + :type xcb:-list) + (crtcs :initarg :crtcs :type xcb:-ignore) + (modes~ :initform + '(name modes type xcb:randr:MODE size + (xcb:-fieldref 'num-modes)) + :type xcb:-list) + (modes :initarg :modes :type xcb:-ignore) + (clones~ :initform + '(name clones type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-clones)) + :type xcb:-list) + (clones :initarg :clones :type xcb:-ignore) + (name~ :initform + '(name name type xcb:BYTE size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defclass xcb:randr:ListOutputProperties + (xcb:-request) + ((~opcode :initform 10 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT))) +(defclass xcb:randr:ListOutputProperties~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (num-atoms :initarg :num-atoms :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (atoms~ :initform + '(name atoms type xcb:ATOM size + (xcb:-fieldref 'num-atoms)) + :type xcb:-list) + (atoms :initarg :atoms :type xcb:-ignore))) + +(defclass xcb:randr:QueryOutputProperty + (xcb:-request) + ((~opcode :initform 11 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (property :initarg :property :type xcb:ATOM))) +(defclass xcb:randr:QueryOutputProperty~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pending :initarg :pending :type xcb:BOOL) + (range :initarg :range :type xcb:BOOL) + (immutable :initarg :immutable :type xcb:BOOL) + (pad~1 :initform 21 :type xcb:-pad) + (validValues~ :initform + '(name validValues type xcb:INT32 size + (xcb:-fieldref 'length)) + :type xcb:-list) + (validValues :initarg :validValues :type xcb:-ignore))) + +(defclass xcb:randr:ConfigureOutputProperty + (xcb:-request) + ((~opcode :initform 12 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (property :initarg :property :type xcb:ATOM) + (pending :initarg :pending :type xcb:BOOL) + (range :initarg :range :type xcb:BOOL) + (pad~0 :initform 2 :type xcb:-pad) + (values~ :initform + '(name values type xcb:INT32 size nil) + :type xcb:-list) + (values :initarg :values :type xcb:-ignore))) + +(defclass xcb:randr:ChangeOutputProperty + (xcb:-request) + ((~opcode :initform 13 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (property :initarg :property :type xcb:ATOM) + (type :initarg :type :type xcb:ATOM) + (format :initarg :format :type xcb:CARD8) + (mode :initarg :mode :type xcb:CARD8) + (pad~0 :initform 2 :type xcb:-pad) + (num-units :initarg :num-units :type xcb:CARD32) + (data~ :initform + '(name data type xcb:void size + (/ + (* + (xcb:-fieldref 'num-units) + (xcb:-fieldref 'format)) + 8)) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:randr:DeleteOutputProperty + (xcb:-request) + ((~opcode :initform 14 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (property :initarg :property :type xcb:ATOM))) + +(defclass xcb:randr:GetOutputProperty + (xcb:-request) + ((~opcode :initform 15 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (property :initarg :property :type xcb:ATOM) + (type :initarg :type :type xcb:ATOM) + (long-offset :initarg :long-offset :type xcb:CARD32) + (long-length :initarg :long-length :type xcb:CARD32) + (delete :initarg :delete :type xcb:BOOL) + (pending :initarg :pending :type xcb:BOOL) + (pad~0 :initform 2 :type xcb:-pad))) +(defclass xcb:randr:GetOutputProperty~reply + (xcb:-reply) + ((format :initarg :format :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (type :initarg :type :type xcb:ATOM) + (bytes-after :initarg :bytes-after :type xcb:CARD32) + (num-items :initarg :num-items :type xcb:CARD32) + (pad~0 :initform 12 :type xcb:-pad) + (data~ :initform + '(name data type xcb:BYTE size + (* + (xcb:-fieldref 'num-items) + (/ + (xcb:-fieldref 'format) + 8))) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:randr:CreateMode + (xcb:-request) + ((~opcode :initform 16 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (mode-info :initarg :mode-info :type xcb:randr:ModeInfo) + (name~ :initform + '(name name type xcb:char size nil) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) +(defclass xcb:randr:CreateMode~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (mode :initarg :mode :type xcb:randr:MODE) + (pad~1 :initform 20 :type xcb:-pad))) + +(defclass xcb:randr:DestroyMode + (xcb:-request) + ((~opcode :initform 17 :type xcb:-u1) + (mode :initarg :mode :type xcb:randr:MODE))) + +(defclass xcb:randr:AddOutputMode + (xcb:-request) + ((~opcode :initform 18 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (mode :initarg :mode :type xcb:randr:MODE))) + +(defclass xcb:randr:DeleteOutputMode + (xcb:-request) + ((~opcode :initform 19 :type xcb:-u1) + (output :initarg :output :type xcb:randr:OUTPUT) + (mode :initarg :mode :type xcb:randr:MODE))) + +(defclass xcb:randr:GetCrtcInfo + (xcb:-request) + ((~opcode :initform 20 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP))) +(defclass xcb:randr:GetCrtcInfo~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (mode :initarg :mode :type xcb:randr:MODE) + (rotation :initarg :rotation :type xcb:CARD16) + (rotations :initarg :rotations :type xcb:CARD16) + (num-outputs :initarg :num-outputs :type xcb:CARD16) + (num-possible-outputs :initarg :num-possible-outputs :type xcb:CARD16) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-outputs)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore) + (possible~ :initform + '(name possible type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-possible-outputs)) + :type xcb:-list) + (possible :initarg :possible :type xcb:-ignore))) + +(defclass xcb:randr:SetCrtcConfig + (xcb:-request) + ((~opcode :initform 21 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (mode :initarg :mode :type xcb:randr:MODE) + (rotation :initarg :rotation :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size nil) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore))) +(defclass xcb:randr:SetCrtcConfig~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (pad~0 :initform 20 :type xcb:-pad))) + +(defclass xcb:randr:GetCrtcGammaSize + (xcb:-request) + ((~opcode :initform 22 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC))) +(defclass xcb:randr:GetCrtcGammaSize~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (size :initarg :size :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad))) + +(defclass xcb:randr:GetCrtcGamma + (xcb:-request) + ((~opcode :initform 23 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC))) +(defclass xcb:randr:GetCrtcGamma~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (size :initarg :size :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (red~ :initform + '(name red type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (red :initarg :red :type xcb:-ignore) + (green~ :initform + '(name green type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (green :initarg :green :type xcb:-ignore) + (blue~ :initform + '(name blue type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (blue :initarg :blue :type xcb:-ignore))) + +(defclass xcb:randr:SetCrtcGamma + (xcb:-request) + ((~opcode :initform 24 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (size :initarg :size :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (red~ :initform + '(name red type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (red :initarg :red :type xcb:-ignore) + (green~ :initform + '(name green type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (green :initarg :green :type xcb:-ignore) + (blue~ :initform + '(name blue type xcb:CARD16 size + (xcb:-fieldref 'size)) + :type xcb:-list) + (blue :initarg :blue :type xcb:-ignore))) + +(defclass xcb:randr:GetScreenResourcesCurrent + (xcb:-request) + ((~opcode :initform 25 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetScreenResourcesCurrent~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (num-crtcs :initarg :num-crtcs :type xcb:CARD16) + (num-outputs :initarg :num-outputs :type xcb:CARD16) + (num-modes :initarg :num-modes :type xcb:CARD16) + (names-len :initarg :names-len :type xcb:CARD16) + (pad~1 :initform 8 :type xcb:-pad) + (crtcs~ :initform + '(name crtcs type xcb:randr:CRTC size + (xcb:-fieldref 'num-crtcs)) + :type xcb:-list) + (crtcs :initarg :crtcs :type xcb:-ignore) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-outputs)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore) + (modes~ :initform + '(name modes type xcb:randr:ModeInfo size + (xcb:-fieldref 'num-modes)) + :type xcb:-list) + (modes :initarg :modes :type xcb:-ignore) + (names~ :initform + '(name names type xcb:BYTE size + (xcb:-fieldref 'names-len)) + :type xcb:-list) + (names :initarg :names :type xcb:-ignore))) + +(defconst xcb:randr:Transform:Unit 1) +(defconst xcb:randr:Transform:ScaleUp 2) +(defconst xcb:randr:Transform:ScaleDown 4) +(defconst xcb:randr:Transform:Projective 8) + +(defclass xcb:randr:SetCrtcTransform + (xcb:-request) + ((~opcode :initform 26 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (transform :initarg :transform :type xcb:render:TRANSFORM) + (filter-len :initarg :filter-len :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (filter-name~ :initform + '(name filter-name type xcb:char size + (xcb:-fieldref 'filter-len)) + :type xcb:-list) + (filter-name :initarg :filter-name :type xcb:-ignore) + (pad~1 :initform 4 :type xcb:-pad-align) + (filter-params~ :initform + '(name filter-params type xcb:render:FIXED size nil) + :type xcb:-list) + (filter-params :initarg :filter-params :type xcb:-ignore))) + +(defclass xcb:randr:GetCrtcTransform + (xcb:-request) + ((~opcode :initform 27 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC))) +(defclass xcb:randr:GetCrtcTransform~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pending-transform :initarg :pending-transform :type xcb:render:TRANSFORM) + (has-transforms :initarg :has-transforms :type xcb:BOOL) + (pad~1 :initform 3 :type xcb:-pad) + (current-transform :initarg :current-transform :type xcb:render:TRANSFORM) + (pad~2 :initform 4 :type xcb:-pad) + (pending-len :initarg :pending-len :type xcb:CARD16) + (pending-nparams :initarg :pending-nparams :type xcb:CARD16) + (current-len :initarg :current-len :type xcb:CARD16) + (current-nparams :initarg :current-nparams :type xcb:CARD16) + (pending-filter-name~ :initform + '(name pending-filter-name type xcb:char size + (xcb:-fieldref 'pending-len)) + :type xcb:-list) + (pending-filter-name :initarg :pending-filter-name :type xcb:-ignore) + (pad~3 :initform 4 :type xcb:-pad-align) + (pending-params~ :initform + '(name pending-params type xcb:render:FIXED size + (xcb:-fieldref 'pending-nparams)) + :type xcb:-list) + (pending-params :initarg :pending-params :type xcb:-ignore) + (current-filter-name~ :initform + '(name current-filter-name type xcb:char size + (xcb:-fieldref 'current-len)) + :type xcb:-list) + (current-filter-name :initarg :current-filter-name :type xcb:-ignore) + (pad~4 :initform 4 :type xcb:-pad-align) + (current-params~ :initform + '(name current-params type xcb:render:FIXED size + (xcb:-fieldref 'current-nparams)) + :type xcb:-list) + (current-params :initarg :current-params :type xcb:-ignore))) + +(defclass xcb:randr:GetPanning + (xcb:-request) + ((~opcode :initform 28 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC))) +(defclass xcb:randr:GetPanning~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (left :initarg :left :type xcb:CARD16) + (top :initarg :top :type xcb:CARD16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (track-left :initarg :track-left :type xcb:CARD16) + (track-top :initarg :track-top :type xcb:CARD16) + (track-width :initarg :track-width :type xcb:CARD16) + (track-height :initarg :track-height :type xcb:CARD16) + (border-left :initarg :border-left :type xcb:INT16) + (border-top :initarg :border-top :type xcb:INT16) + (border-right :initarg :border-right :type xcb:INT16) + (border-bottom :initarg :border-bottom :type xcb:INT16))) + +(defclass xcb:randr:SetPanning + (xcb:-request) + ((~opcode :initform 29 :type xcb:-u1) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (left :initarg :left :type xcb:CARD16) + (top :initarg :top :type xcb:CARD16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (track-left :initarg :track-left :type xcb:CARD16) + (track-top :initarg :track-top :type xcb:CARD16) + (track-width :initarg :track-width :type xcb:CARD16) + (track-height :initarg :track-height :type xcb:CARD16) + (border-left :initarg :border-left :type xcb:INT16) + (border-top :initarg :border-top :type xcb:INT16) + (border-right :initarg :border-right :type xcb:INT16) + (border-bottom :initarg :border-bottom :type xcb:INT16))) +(defclass xcb:randr:SetPanning~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP))) + +(defclass xcb:randr:SetOutputPrimary + (xcb:-request) + ((~opcode :initform 30 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (output :initarg :output :type xcb:randr:OUTPUT))) + +(defclass xcb:randr:GetOutputPrimary + (xcb:-request) + ((~opcode :initform 31 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetOutputPrimary~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (output :initarg :output :type xcb:randr:OUTPUT))) + +(defclass xcb:randr:GetProviders + (xcb:-request) + ((~opcode :initform 32 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:randr:GetProviders~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (num-providers :initarg :num-providers :type xcb:CARD16) + (pad~1 :initform 18 :type xcb:-pad) + (providers~ :initform + '(name providers type xcb:randr:PROVIDER size + (xcb:-fieldref 'num-providers)) + :type xcb:-list) + (providers :initarg :providers :type xcb:-ignore))) + +(defconst xcb:randr:ProviderCapability:SourceOutput 1) +(defconst xcb:randr:ProviderCapability:SinkOutput 2) +(defconst xcb:randr:ProviderCapability:SourceOffload 4) +(defconst xcb:randr:ProviderCapability:SinkOffload 8) + +(defclass xcb:randr:GetProviderInfo + (xcb:-request) + ((~opcode :initform 33 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP))) +(defclass xcb:randr:GetProviderInfo~reply + (xcb:-reply) + ((status :initarg :status :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (capabilities :initarg :capabilities :type xcb:CARD32) + (num-crtcs :initarg :num-crtcs :type xcb:CARD16) + (num-outputs :initarg :num-outputs :type xcb:CARD16) + (num-associated-providers :initarg :num-associated-providers :type xcb:CARD16) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~0 :initform 8 :type xcb:-pad) + (crtcs~ :initform + '(name crtcs type xcb:randr:CRTC size + (xcb:-fieldref 'num-crtcs)) + :type xcb:-list) + (crtcs :initarg :crtcs :type xcb:-ignore) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-outputs)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore) + (associated-providers~ :initform + '(name associated-providers type xcb:randr:PROVIDER size + (xcb:-fieldref 'num-associated-providers)) + :type xcb:-list) + (associated-providers :initarg :associated-providers :type xcb:-ignore) + (associated-capability~ :initform + '(name associated-capability type xcb:CARD32 size + (xcb:-fieldref 'num-associated-providers)) + :type xcb:-list) + (associated-capability :initarg :associated-capability :type xcb:-ignore) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defclass xcb:randr:SetProviderOffloadSink + (xcb:-request) + ((~opcode :initform 34 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (sink-provider :initarg :sink-provider :type xcb:randr:PROVIDER) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP))) + +(defclass xcb:randr:SetProviderOutputSource + (xcb:-request) + ((~opcode :initform 35 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (source-provider :initarg :source-provider :type xcb:randr:PROVIDER) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP))) + +(defclass xcb:randr:ListProviderProperties + (xcb:-request) + ((~opcode :initform 36 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER))) +(defclass xcb:randr:ListProviderProperties~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (num-atoms :initarg :num-atoms :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (atoms~ :initform + '(name atoms type xcb:ATOM size + (xcb:-fieldref 'num-atoms)) + :type xcb:-list) + (atoms :initarg :atoms :type xcb:-ignore))) + +(defclass xcb:randr:QueryProviderProperty + (xcb:-request) + ((~opcode :initform 37 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (property :initarg :property :type xcb:ATOM))) +(defclass xcb:randr:QueryProviderProperty~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pending :initarg :pending :type xcb:BOOL) + (range :initarg :range :type xcb:BOOL) + (immutable :initarg :immutable :type xcb:BOOL) + (pad~1 :initform 21 :type xcb:-pad) + (valid-values~ :initform + '(name valid-values type xcb:INT32 size + (xcb:-fieldref 'length)) + :type xcb:-list) + (valid-values :initarg :valid-values :type xcb:-ignore))) + +(defclass xcb:randr:ConfigureProviderProperty + (xcb:-request) + ((~opcode :initform 38 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (property :initarg :property :type xcb:ATOM) + (pending :initarg :pending :type xcb:BOOL) + (range :initarg :range :type xcb:BOOL) + (pad~0 :initform 2 :type xcb:-pad) + (values~ :initform + '(name values type xcb:INT32 size nil) + :type xcb:-list) + (values :initarg :values :type xcb:-ignore))) + +(defclass xcb:randr:ChangeProviderProperty + (xcb:-request) + ((~opcode :initform 39 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (property :initarg :property :type xcb:ATOM) + (type :initarg :type :type xcb:ATOM) + (format :initarg :format :type xcb:CARD8) + (mode :initarg :mode :type xcb:CARD8) + (pad~0 :initform 2 :type xcb:-pad) + (num-items :initarg :num-items :type xcb:CARD32) + (data~ :initform + '(name data type xcb:void size + (* + (xcb:-fieldref 'num-items) + (/ + (xcb:-fieldref 'format) + 8))) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:randr:DeleteProviderProperty + (xcb:-request) + ((~opcode :initform 40 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (property :initarg :property :type xcb:ATOM))) + +(defclass xcb:randr:GetProviderProperty + (xcb:-request) + ((~opcode :initform 41 :type xcb:-u1) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (property :initarg :property :type xcb:ATOM) + (type :initarg :type :type xcb:ATOM) + (long-offset :initarg :long-offset :type xcb:CARD32) + (long-length :initarg :long-length :type xcb:CARD32) + (delete :initarg :delete :type xcb:BOOL) + (pending :initarg :pending :type xcb:BOOL) + (pad~0 :initform 2 :type xcb:-pad))) +(defclass xcb:randr:GetProviderProperty~reply + (xcb:-reply) + ((format :initarg :format :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (type :initarg :type :type xcb:ATOM) + (bytes-after :initarg :bytes-after :type xcb:CARD32) + (num-items :initarg :num-items :type xcb:CARD32) + (pad~0 :initform 12 :type xcb:-pad) + (data~ :initform + '(name data type xcb:void size + (* + (xcb:-fieldref 'num-items) + (/ + (xcb:-fieldref 'format) + 8))) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:randr:ScreenChangeNotify + (xcb:-event) + ((~code :initform 0) + (rotation :initarg :rotation :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (request-window :initarg :request-window :type xcb:WINDOW) + (sizeID :initarg :sizeID :type xcb:CARD16) + (subpixel-order :initarg :subpixel-order :type xcb:CARD16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (mwidth :initarg :mwidth :type xcb:CARD16) + (mheight :initarg :mheight :type xcb:CARD16))) + +(defconst xcb:randr:Notify:CrtcChange 0) +(defconst xcb:randr:Notify:OutputChange 1) +(defconst xcb:randr:Notify:OutputProperty 2) +(defconst xcb:randr:Notify:ProviderChange 3) +(defconst xcb:randr:Notify:ProviderProperty 4) +(defconst xcb:randr:Notify:ResourceChange 5) +(defconst xcb:randr:Notify:Lease 6) + +(defclass xcb:randr:CrtcChange + (xcb:-struct) + ((timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (window :initarg :window :type xcb:WINDOW) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (mode :initarg :mode :type xcb:randr:MODE) + (rotation :initarg :rotation :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) + +(defclass xcb:randr:OutputChange + (xcb:-struct) + ((timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (config-timestamp :initarg :config-timestamp :type xcb:TIMESTAMP) + (window :initarg :window :type xcb:WINDOW) + (output :initarg :output :type xcb:randr:OUTPUT) + (crtc :initarg :crtc :type xcb:randr:CRTC) + (mode :initarg :mode :type xcb:randr:MODE) + (rotation :initarg :rotation :type xcb:CARD16) + (connection :initarg :connection :type xcb:CARD8) + (subpixel-order :initarg :subpixel-order :type xcb:CARD8))) + +(defclass xcb:randr:OutputProperty + (xcb:-struct) + ((window :initarg :window :type xcb:WINDOW) + (output :initarg :output :type xcb:randr:OUTPUT) + (atom :initarg :atom :type xcb:ATOM) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (status :initarg :status :type xcb:CARD8) + (pad~0 :initform 11 :type xcb:-pad))) + +(defclass xcb:randr:ProviderChange + (xcb:-struct) + ((timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (window :initarg :window :type xcb:WINDOW) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (pad~0 :initform 16 :type xcb:-pad))) + +(defclass xcb:randr:ProviderProperty + (xcb:-struct) + ((window :initarg :window :type xcb:WINDOW) + (provider :initarg :provider :type xcb:randr:PROVIDER) + (atom :initarg :atom :type xcb:ATOM) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (state :initarg :state :type xcb:CARD8) + (pad~0 :initform 11 :type xcb:-pad))) + +(defclass xcb:randr:ResourceChange + (xcb:-struct) + ((timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (window :initarg :window :type xcb:WINDOW) + (pad~0 :initform 20 :type xcb:-pad))) + +(defclass xcb:randr:MonitorInfo + (xcb:-struct) + ((name :initarg :name :type xcb:ATOM) + (primary :initarg :primary :type xcb:BOOL) + (automatic :initarg :automatic :type xcb:BOOL) + (nOutput :initarg :nOutput :type xcb:CARD16) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (width-in-millimeters :initarg :width-in-millimeters :type xcb:CARD32) + (height-in-millimeters :initarg :height-in-millimeters :type xcb:CARD32) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'nOutput)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore))) + +(defclass xcb:randr:GetMonitors + (xcb:-request) + ((~opcode :initform 42 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (get-active :initarg :get-active :type xcb:BOOL))) +(defclass xcb:randr:GetMonitors~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (nMonitors :initarg :nMonitors :type xcb:CARD32) + (nOutputs :initarg :nOutputs :type xcb:CARD32) + (pad~1 :initform 12 :type xcb:-pad) + (monitors~ :initform + '(name monitors type xcb:randr:MonitorInfo size + (xcb:-fieldref 'nMonitors)) + :type xcb:-list) + (monitors :initarg :monitors :type xcb:-ignore))) + +(defclass xcb:randr:SetMonitor + (xcb:-request) + ((~opcode :initform 43 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (monitorinfo :initarg :monitorinfo :type xcb:randr:MonitorInfo))) + +(defclass xcb:randr:DeleteMonitor + (xcb:-request) + ((~opcode :initform 44 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (name :initarg :name :type xcb:ATOM))) + +(defclass xcb:randr:CreateLease + (xcb:-request) + ((~opcode :initform 45 :type xcb:-u1) + (window :initarg :window :type xcb:WINDOW) + (lid :initarg :lid :type xcb:randr:LEASE) + (num-crtcs :initarg :num-crtcs :type xcb:CARD16) + (num-outputs :initarg :num-outputs :type xcb:CARD16) + (crtcs~ :initform + '(name crtcs type xcb:randr:CRTC size + (xcb:-fieldref 'num-crtcs)) + :type xcb:-list) + (crtcs :initarg :crtcs :type xcb:-ignore) + (outputs~ :initform + '(name outputs type xcb:randr:OUTPUT size + (xcb:-fieldref 'num-outputs)) + :type xcb:-list) + (outputs :initarg :outputs :type xcb:-ignore))) +(defclass xcb:randr:CreateLease~reply + (xcb:-reply) + ((nfd :initarg :nfd :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (master-fd :type xcb:fd) + (pad~0 :initform 24 :type xcb:-pad))) + +(defclass xcb:randr:FreeLease + (xcb:-request) + ((~opcode :initform 46 :type xcb:-u1) + (lid :initarg :lid :type xcb:randr:LEASE) + (terminate :initarg :terminate :type xcb:BYTE))) + +(defclass xcb:randr:LeaseNotify + (xcb:-struct) + ((timestamp :initarg :timestamp :type xcb:TIMESTAMP) + (window :initarg :window :type xcb:WINDOW) + (lease :initarg :lease :type xcb:randr:LEASE) + (created :initarg :created :type xcb:CARD8) + (pad~0 :initform 15 :type xcb:-pad))) + +(defclass xcb:randr:NotifyData + (xcb:-union) + ((~size :initform 28) + (cc :initarg :cc :type xcb:randr:CrtcChange) + (oc :initarg :oc :type xcb:randr:OutputChange) + (op :initarg :op :type xcb:randr:OutputProperty) + (pc :initarg :pc :type xcb:randr:ProviderChange) + (pp :initarg :pp :type xcb:randr:ProviderProperty) + (rc :initarg :rc :type xcb:randr:ResourceChange) + (lc :initarg :lc :type xcb:randr:LeaseNotify))) + +(defclass xcb:randr:Notify + (xcb:-event) + ((~code :initform 1) + (subCode :initarg :subCode :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (u :initarg :u :type xcb:randr:NotifyData))) + +(defconst xcb:randr:error-number-class-alist + '((0 . xcb:randr:BadOutput) + (1 . xcb:randr:BadCrtc) + (2 . xcb:randr:BadMode) + (3 . xcb:randr:BadProvider)) + "(error-number . error-class) alist.") + +(defconst xcb:randr:event-number-class-alist + '((0 . xcb:randr:ScreenChangeNotify) + (1 . xcb:randr:Notify)) + "(event-number . event-class) alist.") + + + +(provide 'xcb-randr) + +;;; xcb-randr.el ends here |