diff options
Diffstat (limited to 'elpa/xelb-0.20/xcb-xproto.el')
| -rw-r--r-- | elpa/xelb-0.20/xcb-xproto.el | 3012 |
1 files changed, 3012 insertions, 0 deletions
diff --git a/elpa/xelb-0.20/xcb-xproto.el b/elpa/xelb-0.20/xcb-xproto.el new file mode 100644 index 0000000..19b1f09 --- /dev/null +++ b/elpa/xelb-0.20/xcb-xproto.el @@ -0,0 +1,3012 @@ +;;; xcb-xproto.el --- X11 core protocol -*- 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 'xproto.xml', +;; which you can retrieve from <git://anongit.freedesktop.org/xcb/proto>. + +;;; Code: + +(require 'xcb-types) + +(defclass xcb:CHAR2B + (xcb:-struct) + ((byte1 :initarg :byte1 :type xcb:CARD8) + (byte2 :initarg :byte2 :type xcb:CARD8))) + +(xcb:deftypealias 'xcb:WINDOW 'xcb:-u4) + +(xcb:deftypealias 'xcb:PIXMAP 'xcb:-u4) + +(xcb:deftypealias 'xcb:CURSOR 'xcb:-u4) + +(xcb:deftypealias 'xcb:FONT 'xcb:-u4) + +(xcb:deftypealias 'xcb:GCONTEXT 'xcb:-u4) + +(xcb:deftypealias 'xcb:COLORMAP 'xcb:-u4) + +(xcb:deftypealias 'xcb:ATOM 'xcb:-u4) + +(xcb:deftypealias 'xcb:DRAWABLE 'xcb:-u4) + +(xcb:deftypealias 'xcb:FONTABLE 'xcb:-u4) + +(xcb:deftypealias 'xcb:BOOL32 'xcb:CARD32) + +(xcb:deftypealias 'xcb:VISUALID 'xcb:CARD32) + +(xcb:deftypealias 'xcb:TIMESTAMP 'xcb:CARD32) + +(xcb:deftypealias 'xcb:KEYSYM 'xcb:CARD32) + +(xcb:deftypealias 'xcb:KEYCODE 'xcb:CARD8) + +(xcb:deftypealias 'xcb:KEYCODE32 'xcb:CARD32) + +(xcb:deftypealias 'xcb:BUTTON 'xcb:CARD8) + +(defclass xcb:POINT + (xcb:-struct) + ((x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16))) + +(defclass xcb:RECTANGLE + (xcb:-struct) + ((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:ARC + (xcb:-struct) + ((x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (angle1 :initarg :angle1 :type xcb:INT16) + (angle2 :initarg :angle2 :type xcb:INT16))) + +(defclass xcb:FORMAT + (xcb:-struct) + ((depth :initarg :depth :type xcb:CARD8) + (bits-per-pixel :initarg :bits-per-pixel :type xcb:CARD8) + (scanline-pad :initarg :scanline-pad :type xcb:CARD8) + (pad~0 :initform 5 :type xcb:-pad))) + +(defconst xcb:VisualClass:StaticGray 0) +(defconst xcb:VisualClass:GrayScale 1) +(defconst xcb:VisualClass:StaticColor 2) +(defconst xcb:VisualClass:PseudoColor 3) +(defconst xcb:VisualClass:TrueColor 4) +(defconst xcb:VisualClass:DirectColor 5) + +(defclass xcb:VISUALTYPE + (xcb:-struct) + ((visual-id :initarg :visual-id :type xcb:VISUALID) + (class :initarg :class :type xcb:CARD8) + (bits-per-rgb-value :initarg :bits-per-rgb-value :type xcb:CARD8) + (colormap-entries :initarg :colormap-entries :type xcb:CARD16) + (red-mask :initarg :red-mask :type xcb:CARD32) + (green-mask :initarg :green-mask :type xcb:CARD32) + (blue-mask :initarg :blue-mask :type xcb:CARD32) + (pad~0 :initform 4 :type xcb:-pad))) + +(defclass xcb:DEPTH + (xcb:-struct) + ((depth :initarg :depth :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (visuals-len :initarg :visuals-len :type xcb:CARD16) + (pad~1 :initform 4 :type xcb:-pad) + (visuals~ :initform + '(name visuals type xcb:VISUALTYPE size + (xcb:-fieldref 'visuals-len)) + :type xcb:-list) + (visuals :initarg :visuals :type xcb:-ignore))) + +(defconst xcb:EventMask:NoEvent 0) +(defconst xcb:EventMask:KeyPress 1) +(defconst xcb:EventMask:KeyRelease 2) +(defconst xcb:EventMask:ButtonPress 4) +(defconst xcb:EventMask:ButtonRelease 8) +(defconst xcb:EventMask:EnterWindow 16) +(defconst xcb:EventMask:LeaveWindow 32) +(defconst xcb:EventMask:PointerMotion 64) +(defconst xcb:EventMask:PointerMotionHint 128) +(defconst xcb:EventMask:Button1Motion 256) +(defconst xcb:EventMask:Button2Motion 512) +(defconst xcb:EventMask:Button3Motion 1024) +(defconst xcb:EventMask:Button4Motion 2048) +(defconst xcb:EventMask:Button5Motion 4096) +(defconst xcb:EventMask:ButtonMotion 8192) +(defconst xcb:EventMask:KeymapState 16384) +(defconst xcb:EventMask:Exposure 32768) +(defconst xcb:EventMask:VisibilityChange 65536) +(defconst xcb:EventMask:StructureNotify 131072) +(defconst xcb:EventMask:ResizeRedirect 262144) +(defconst xcb:EventMask:SubstructureNotify 524288) +(defconst xcb:EventMask:SubstructureRedirect 1048576) +(defconst xcb:EventMask:FocusChange 2097152) +(defconst xcb:EventMask:PropertyChange 4194304) +(defconst xcb:EventMask:ColorMapChange 8388608) +(defconst xcb:EventMask:OwnerGrabButton 16777216) + +(defconst xcb:BackingStore:NotUseful 0) +(defconst xcb:BackingStore:WhenMapped 1) +(defconst xcb:BackingStore:Always 2) + +(defclass xcb:SCREEN + (xcb:-struct) + ((root :initarg :root :type xcb:WINDOW) + (default-colormap :initarg :default-colormap :type xcb:COLORMAP) + (white-pixel :initarg :white-pixel :type xcb:CARD32) + (black-pixel :initarg :black-pixel :type xcb:CARD32) + (current-input-masks :initarg :current-input-masks :type xcb:CARD32) + (width-in-pixels :initarg :width-in-pixels :type xcb:CARD16) + (height-in-pixels :initarg :height-in-pixels :type xcb:CARD16) + (width-in-millimeters :initarg :width-in-millimeters :type xcb:CARD16) + (height-in-millimeters :initarg :height-in-millimeters :type xcb:CARD16) + (min-installed-maps :initarg :min-installed-maps :type xcb:CARD16) + (max-installed-maps :initarg :max-installed-maps :type xcb:CARD16) + (root-visual :initarg :root-visual :type xcb:VISUALID) + (backing-stores :initarg :backing-stores :type xcb:BYTE) + (save-unders :initarg :save-unders :type xcb:BOOL) + (root-depth :initarg :root-depth :type xcb:CARD8) + (allowed-depths-len :initarg :allowed-depths-len :type xcb:CARD8) + (allowed-depths~ :initform + '(name allowed-depths type xcb:DEPTH size + (xcb:-fieldref 'allowed-depths-len)) + :type xcb:-list) + (allowed-depths :initarg :allowed-depths :type xcb:-ignore))) + +(defclass xcb:SetupRequest + (xcb:-struct) + ((byte-order :initarg :byte-order :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (protocol-major-version :initarg :protocol-major-version :type xcb:CARD16) + (protocol-minor-version :initarg :protocol-minor-version :type xcb:CARD16) + (authorization-protocol-name-len :initarg :authorization-protocol-name-len :type xcb:CARD16) + (authorization-protocol-data-len :initarg :authorization-protocol-data-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (authorization-protocol-name~ :initform + '(name authorization-protocol-name type xcb:char size + (xcb:-fieldref 'authorization-protocol-name-len)) + :type xcb:-list) + (authorization-protocol-name :initarg :authorization-protocol-name :type xcb:-ignore) + (pad~2 :initform 4 :type xcb:-pad-align) + (authorization-protocol-data~ :initform + '(name authorization-protocol-data type xcb:char size + (xcb:-fieldref 'authorization-protocol-data-len)) + :type xcb:-list) + (authorization-protocol-data :initarg :authorization-protocol-data :type xcb:-ignore) + (pad~3 :initform 4 :type xcb:-pad-align))) + +(defclass xcb:SetupFailed + (xcb:-struct) + ((status :initarg :status :type xcb:CARD8) + (reason-len :initarg :reason-len :type xcb:CARD8) + (protocol-major-version :initarg :protocol-major-version :type xcb:CARD16) + (protocol-minor-version :initarg :protocol-minor-version :type xcb:CARD16) + (length :initarg :length :type xcb:CARD16) + (reason~ :initform + '(name reason type xcb:char size + (xcb:-fieldref 'reason-len)) + :type xcb:-list) + (reason :initarg :reason :type xcb:-ignore))) + +(defclass xcb:SetupAuthenticate + (xcb:-struct) + ((status :initarg :status :type xcb:CARD8) + (pad~0 :initform 5 :type xcb:-pad) + (length :initarg :length :type xcb:CARD16) + (reason~ :initform + '(name reason type xcb:char size + (* + (xcb:-fieldref 'length) + 4)) + :type xcb:-list) + (reason :initarg :reason :type xcb:-ignore))) + +(defconst xcb:ImageOrder:LSBFirst 0) +(defconst xcb:ImageOrder:MSBFirst 1) + +(defclass xcb:Setup + (xcb:-struct) + ((status :initarg :status :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (protocol-major-version :initarg :protocol-major-version :type xcb:CARD16) + (protocol-minor-version :initarg :protocol-minor-version :type xcb:CARD16) + (length :initarg :length :type xcb:CARD16) + (release-number :initarg :release-number :type xcb:CARD32) + (resource-id-base :initarg :resource-id-base :type xcb:CARD32) + (resource-id-mask :initarg :resource-id-mask :type xcb:CARD32) + (motion-buffer-size :initarg :motion-buffer-size :type xcb:CARD32) + (vendor-len :initarg :vendor-len :type xcb:CARD16) + (maximum-request-length :initarg :maximum-request-length :type xcb:CARD16) + (roots-len :initarg :roots-len :type xcb:CARD8) + (pixmap-formats-len :initarg :pixmap-formats-len :type xcb:CARD8) + (image-byte-order :initarg :image-byte-order :type xcb:CARD8) + (bitmap-format-bit-order :initarg :bitmap-format-bit-order :type xcb:CARD8) + (bitmap-format-scanline-unit :initarg :bitmap-format-scanline-unit :type xcb:CARD8) + (bitmap-format-scanline-pad :initarg :bitmap-format-scanline-pad :type xcb:CARD8) + (min-keycode :initarg :min-keycode :type xcb:KEYCODE) + (max-keycode :initarg :max-keycode :type xcb:KEYCODE) + (pad~1 :initform 4 :type xcb:-pad) + (vendor~ :initform + '(name vendor type xcb:char size + (xcb:-fieldref 'vendor-len)) + :type xcb:-list) + (vendor :initarg :vendor :type xcb:-ignore) + (pad~2 :initform 4 :type xcb:-pad-align) + (pixmap-formats~ :initform + '(name pixmap-formats type xcb:FORMAT size + (xcb:-fieldref 'pixmap-formats-len)) + :type xcb:-list) + (pixmap-formats :initarg :pixmap-formats :type xcb:-ignore) + (roots~ :initform + '(name roots type xcb:SCREEN size + (xcb:-fieldref 'roots-len)) + :type xcb:-list) + (roots :initarg :roots :type xcb:-ignore))) + +(defconst xcb:ModMask:Shift 1) +(defconst xcb:ModMask:Lock 2) +(defconst xcb:ModMask:Control 4) +(defconst xcb:ModMask:1 8) +(defconst xcb:ModMask:2 16) +(defconst xcb:ModMask:3 32) +(defconst xcb:ModMask:4 64) +(defconst xcb:ModMask:5 128) +(defconst xcb:ModMask:Any 32768) + +(defconst xcb:KeyButMask:Shift 1) +(defconst xcb:KeyButMask:Lock 2) +(defconst xcb:KeyButMask:Control 4) +(defconst xcb:KeyButMask:Mod1 8) +(defconst xcb:KeyButMask:Mod2 16) +(defconst xcb:KeyButMask:Mod3 32) +(defconst xcb:KeyButMask:Mod4 64) +(defconst xcb:KeyButMask:Mod5 128) +(defconst xcb:KeyButMask:Button1 256) +(defconst xcb:KeyButMask:Button2 512) +(defconst xcb:KeyButMask:Button3 1024) +(defconst xcb:KeyButMask:Button4 2048) +(defconst xcb:KeyButMask:Button5 4096) + +(defconst xcb:Window:None 0) + +(defclass xcb:KeyPress + (xcb:-event) + ((~code :initform 2) + (detail :initarg :detail :type xcb:KEYCODE) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (event :initarg :event :type xcb:WINDOW) + (child :initarg :child :type xcb:WINDOW) + (root-x :initarg :root-x :type xcb:INT16) + (root-y :initarg :root-y :type xcb:INT16) + (event-x :initarg :event-x :type xcb:INT16) + (event-y :initarg :event-y :type xcb:INT16) + (state :initarg :state :type xcb:CARD16) + (same-screen :initarg :same-screen :type xcb:BOOL) + (pad~0 :initform 1 :type xcb:-pad))) + +(defclass xcb:KeyRelease + (xcb:KeyPress) + ((~code :initform 3))) + +(defconst xcb:ButtonMask:1 256) +(defconst xcb:ButtonMask:2 512) +(defconst xcb:ButtonMask:3 1024) +(defconst xcb:ButtonMask:4 2048) +(defconst xcb:ButtonMask:5 4096) +(defconst xcb:ButtonMask:Any 32768) + +(defclass xcb:ButtonPress + (xcb:-event) + ((~code :initform 4) + (detail :initarg :detail :type xcb:BUTTON) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (event :initarg :event :type xcb:WINDOW) + (child :initarg :child :type xcb:WINDOW) + (root-x :initarg :root-x :type xcb:INT16) + (root-y :initarg :root-y :type xcb:INT16) + (event-x :initarg :event-x :type xcb:INT16) + (event-y :initarg :event-y :type xcb:INT16) + (state :initarg :state :type xcb:CARD16) + (same-screen :initarg :same-screen :type xcb:BOOL) + (pad~0 :initform 1 :type xcb:-pad))) + +(defclass xcb:ButtonRelease + (xcb:ButtonPress) + ((~code :initform 5))) + +(defconst xcb:Motion:Normal 0) +(defconst xcb:Motion:Hint 1) + +(defclass xcb:MotionNotify + (xcb:-event) + ((~code :initform 6) + (detail :initarg :detail :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (event :initarg :event :type xcb:WINDOW) + (child :initarg :child :type xcb:WINDOW) + (root-x :initarg :root-x :type xcb:INT16) + (root-y :initarg :root-y :type xcb:INT16) + (event-x :initarg :event-x :type xcb:INT16) + (event-y :initarg :event-y :type xcb:INT16) + (state :initarg :state :type xcb:CARD16) + (same-screen :initarg :same-screen :type xcb:BOOL) + (pad~0 :initform 1 :type xcb:-pad))) + +(defconst xcb:NotifyDetail:Ancestor 0) +(defconst xcb:NotifyDetail:Virtual 1) +(defconst xcb:NotifyDetail:Inferior 2) +(defconst xcb:NotifyDetail:Nonlinear 3) +(defconst xcb:NotifyDetail:NonlinearVirtual 4) +(defconst xcb:NotifyDetail:Pointer 5) +(defconst xcb:NotifyDetail:PointerRoot 6) +(defconst xcb:NotifyDetail:None 7) + +(defconst xcb:NotifyMode:Normal 0) +(defconst xcb:NotifyMode:Grab 1) +(defconst xcb:NotifyMode:Ungrab 2) +(defconst xcb:NotifyMode:WhileGrabbed 3) + +(defclass xcb:EnterNotify + (xcb:-event) + ((~code :initform 7) + (detail :initarg :detail :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (root :initarg :root :type xcb:WINDOW) + (event :initarg :event :type xcb:WINDOW) + (child :initarg :child :type xcb:WINDOW) + (root-x :initarg :root-x :type xcb:INT16) + (root-y :initarg :root-y :type xcb:INT16) + (event-x :initarg :event-x :type xcb:INT16) + (event-y :initarg :event-y :type xcb:INT16) + (state :initarg :state :type xcb:CARD16) + (mode :initarg :mode :type xcb:BYTE) + (same-screen-focus :initarg :same-screen-focus :type xcb:BYTE))) + +(defclass xcb:LeaveNotify + (xcb:EnterNotify) + ((~code :initform 8))) + +(defclass xcb:FocusIn + (xcb:-event) + ((~code :initform 9) + (detail :initarg :detail :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (mode :initarg :mode :type xcb:BYTE) + (pad~0 :initform 3 :type xcb:-pad))) + +(defclass xcb:FocusOut + (xcb:FocusIn) + ((~code :initform 10))) + +(defclass xcb:KeymapNotify + (xcb:-event) + ((~code :initform 11) + (keys~ :initform + '(name keys type xcb:CARD8 size 31) + :type xcb:-list) + (keys :initarg :keys :type xcb:-ignore))) + +(defclass xcb:Expose + (xcb:-event) + ((~code :initform 12) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (x :initarg :x :type xcb:CARD16) + (y :initarg :y :type xcb:CARD16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (count :initarg :count :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad))) + +(defclass xcb:GraphicsExposure + (xcb:-event) + ((~code :initform 13) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (x :initarg :x :type xcb:CARD16) + (y :initarg :y :type xcb:CARD16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (minor-opcode :initarg :minor-opcode :type xcb:CARD16) + (count :initarg :count :type xcb:CARD16) + (major-opcode :initarg :major-opcode :type xcb:CARD8) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:NoExposure + (xcb:-event) + ((~code :initform 14) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (minor-opcode :initarg :minor-opcode :type xcb:CARD16) + (major-opcode :initarg :major-opcode :type xcb:CARD8) + (pad~1 :initform 1 :type xcb:-pad))) + +(defconst xcb:Visibility:Unobscured 0) +(defconst xcb:Visibility:PartiallyObscured 1) +(defconst xcb:Visibility:FullyObscured 2) + +(defclass xcb:VisibilityNotify + (xcb:-event) + ((~code :initform 15) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (state :initarg :state :type xcb:BYTE) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:CreateNotify + (xcb:-event) + ((~code :initform 16) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (parent :initarg :parent :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (border-width :initarg :border-width :type xcb:CARD16) + (override-redirect :initarg :override-redirect :type xcb:BOOL) + (pad~1 :initform 1 :type xcb:-pad))) + +(defclass xcb:DestroyNotify + (xcb:-event) + ((~code :initform 17) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:UnmapNotify + (xcb:-event) + ((~code :initform 18) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (from-configure :initarg :from-configure :type xcb:BOOL) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:MapNotify + (xcb:-event) + ((~code :initform 19) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (override-redirect :initarg :override-redirect :type xcb:BOOL) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:MapRequest + (xcb:-event) + ((~code :initform 20) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (parent :initarg :parent :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:ReparentNotify + (xcb:-event) + ((~code :initform 21) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (parent :initarg :parent :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (override-redirect :initarg :override-redirect :type xcb:BOOL) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:ConfigureNotify + (xcb:-event) + ((~code :initform 22) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (above-sibling :initarg :above-sibling :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (border-width :initarg :border-width :type xcb:CARD16) + (override-redirect :initarg :override-redirect :type xcb:BOOL) + (pad~1 :initform 1 :type xcb:-pad))) + +(defclass xcb:ConfigureRequest + (xcb:-event) + ((~code :initform 23) + (stack-mode :initarg :stack-mode :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (parent :initarg :parent :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (sibling :initarg :sibling :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (border-width :initarg :border-width :type xcb:CARD16) + (value-mask :initarg :value-mask :type xcb:CARD16))) + +(defclass xcb:GravityNotify + (xcb:-event) + ((~code :initform 24) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16))) + +(defclass xcb:ResizeRequest + (xcb:-event) + ((~code :initform 25) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) + +(defconst xcb:Place:OnTop 0) +(defconst xcb:Place:OnBottom 1) + +(defclass xcb:CirculateNotify + (xcb:-event) + ((~code :initform 26) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (event :initarg :event :type xcb:WINDOW) + (window :initarg :window :type xcb:WINDOW) + (pad~1 :initform 4 :type xcb:-pad) + (place :initarg :place :type xcb:BYTE) + (pad~2 :initform 3 :type xcb:-pad))) + +(defclass xcb:CirculateRequest + (xcb:CirculateNotify) + ((~code :initform 27))) + +(defconst xcb:Property:NewValue 0) +(defconst xcb:Property:Delete 1) + +(defclass xcb:PropertyNotify + (xcb:-event) + ((~code :initform 28) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (atom :initarg :atom :type xcb:ATOM) + (time :initarg :time :type xcb:TIMESTAMP) + (state :initarg :state :type xcb:BYTE) + (pad~1 :initform 3 :type xcb:-pad))) + +(defclass xcb:SelectionClear + (xcb:-event) + ((~code :initform 29) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (owner :initarg :owner :type xcb:WINDOW) + (selection :initarg :selection :type xcb:ATOM))) + +(defconst xcb:Time:CurrentTime 0) + +(defconst xcb:Atom:None 0) +(defconst xcb:Atom:Any 0) +(defconst xcb:Atom:PRIMARY 1) +(defconst xcb:Atom:SECONDARY 2) +(defconst xcb:Atom:ARC 3) +(defconst xcb:Atom:ATOM 4) +(defconst xcb:Atom:BITMAP 5) +(defconst xcb:Atom:CARDINAL 6) +(defconst xcb:Atom:COLORMAP 7) +(defconst xcb:Atom:CURSOR 8) +(defconst xcb:Atom:CUT_BUFFER0 9) +(defconst xcb:Atom:CUT_BUFFER1 10) +(defconst xcb:Atom:CUT_BUFFER2 11) +(defconst xcb:Atom:CUT_BUFFER3 12) +(defconst xcb:Atom:CUT_BUFFER4 13) +(defconst xcb:Atom:CUT_BUFFER5 14) +(defconst xcb:Atom:CUT_BUFFER6 15) +(defconst xcb:Atom:CUT_BUFFER7 16) +(defconst xcb:Atom:DRAWABLE 17) +(defconst xcb:Atom:FONT 18) +(defconst xcb:Atom:INTEGER 19) +(defconst xcb:Atom:PIXMAP 20) +(defconst xcb:Atom:POINT 21) +(defconst xcb:Atom:RECTANGLE 22) +(defconst xcb:Atom:RESOURCE_MANAGER 23) +(defconst xcb:Atom:RGB_COLOR_MAP 24) +(defconst xcb:Atom:RGB_BEST_MAP 25) +(defconst xcb:Atom:RGB_BLUE_MAP 26) +(defconst xcb:Atom:RGB_DEFAULT_MAP 27) +(defconst xcb:Atom:RGB_GRAY_MAP 28) +(defconst xcb:Atom:RGB_GREEN_MAP 29) +(defconst xcb:Atom:RGB_RED_MAP 30) +(defconst xcb:Atom:STRING 31) +(defconst xcb:Atom:VISUALID 32) +(defconst xcb:Atom:WINDOW 33) +(defconst xcb:Atom:WM_COMMAND 34) +(defconst xcb:Atom:WM_HINTS 35) +(defconst xcb:Atom:WM_CLIENT_MACHINE 36) +(defconst xcb:Atom:WM_ICON_NAME 37) +(defconst xcb:Atom:WM_ICON_SIZE 38) +(defconst xcb:Atom:WM_NAME 39) +(defconst xcb:Atom:WM_NORMAL_HINTS 40) +(defconst xcb:Atom:WM_SIZE_HINTS 41) +(defconst xcb:Atom:WM_ZOOM_HINTS 42) +(defconst xcb:Atom:MIN_SPACE 43) +(defconst xcb:Atom:NORM_SPACE 44) +(defconst xcb:Atom:MAX_SPACE 45) +(defconst xcb:Atom:END_SPACE 46) +(defconst xcb:Atom:SUPERSCRIPT_X 47) +(defconst xcb:Atom:SUPERSCRIPT_Y 48) +(defconst xcb:Atom:SUBSCRIPT_X 49) +(defconst xcb:Atom:SUBSCRIPT_Y 50) +(defconst xcb:Atom:UNDERLINE_POSITION 51) +(defconst xcb:Atom:UNDERLINE_THICKNESS 52) +(defconst xcb:Atom:STRIKEOUT_ASCENT 53) +(defconst xcb:Atom:STRIKEOUT_DESCENT 54) +(defconst xcb:Atom:ITALIC_ANGLE 55) +(defconst xcb:Atom:X_HEIGHT 56) +(defconst xcb:Atom:QUAD_WIDTH 57) +(defconst xcb:Atom:WEIGHT 58) +(defconst xcb:Atom:POINT_SIZE 59) +(defconst xcb:Atom:RESOLUTION 60) +(defconst xcb:Atom:COPYRIGHT 61) +(defconst xcb:Atom:NOTICE 62) +(defconst xcb:Atom:FONT_NAME 63) +(defconst xcb:Atom:FAMILY_NAME 64) +(defconst xcb:Atom:FULL_NAME 65) +(defconst xcb:Atom:CAP_HEIGHT 66) +(defconst xcb:Atom:WM_CLASS 67) +(defconst xcb:Atom:WM_TRANSIENT_FOR 68) + +(defclass xcb:SelectionRequest + (xcb:-event) + ((~code :initform 30) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (owner :initarg :owner :type xcb:WINDOW) + (requestor :initarg :requestor :type xcb:WINDOW) + (selection :initarg :selection :type xcb:ATOM) + (target :initarg :target :type xcb:ATOM) + (property :initarg :property :type xcb:ATOM))) + +(defclass xcb:SelectionNotify + (xcb:-event) + ((~code :initform 31) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (time :initarg :time :type xcb:TIMESTAMP) + (requestor :initarg :requestor :type xcb:WINDOW) + (selection :initarg :selection :type xcb:ATOM) + (target :initarg :target :type xcb:ATOM) + (property :initarg :property :type xcb:ATOM))) + +(defconst xcb:ColormapState:Uninstalled 0) +(defconst xcb:ColormapState:Installed 1) + +(defconst xcb:Colormap:None 0) + +(defclass xcb:ColormapNotify + (xcb:-event) + ((~code :initform 32) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (colormap :initarg :colormap :type xcb:COLORMAP) + (new :initarg :new :type xcb:BOOL) + (state :initarg :state :type xcb:BYTE) + (pad~1 :initform 2 :type xcb:-pad))) + +(defclass xcb:ClientMessageData + (xcb:-union) + ((~size :initform 20) + (data8~ :initform + '(name data8 type xcb:CARD8 size 20) + :type xcb:-list) + (data8 :initarg :data8 :type xcb:-ignore) + (data16~ :initform + '(name data16 type xcb:CARD16 size 10) + :type xcb:-list) + (data16 :initarg :data16 :type xcb:-ignore) + (data32~ :initform + '(name data32 type xcb:CARD32 size 5) + :type xcb:-list) + (data32 :initarg :data32 :type xcb:-ignore))) + +(defclass xcb:ClientMessage + (xcb:-event) + ((~code :initform 33) + (format :initarg :format :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (window :initarg :window :type xcb:WINDOW) + (type :initarg :type :type xcb:ATOM) + (data :initarg :data :type xcb:ClientMessageData))) + +(defconst xcb:Mapping:Modifier 0) +(defconst xcb:Mapping:Keyboard 1) +(defconst xcb:Mapping:Pointer 2) + +(defclass xcb:MappingNotify + (xcb:-event) + ((~code :initform 34) + (pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (request :initarg :request :type xcb:BYTE) + (first-keycode :initarg :first-keycode :type xcb:KEYCODE) + (count :initarg :count :type xcb:CARD8) + (pad~1 :initform 1 :type xcb:-pad))) + +(defclass xcb:GeGeneric + (xcb:-generic-event) + ((pad~0 :initform 22 :type xcb:-pad))) + +(defclass xcb:Request + (xcb:-error) + ((~code :initform 1) + (bad-value :initarg :bad-value :type xcb:CARD32) + (minor-opcode :initarg :minor-opcode :type xcb:CARD16) + (major-opcode :initarg :major-opcode :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad))) + +(defclass xcb:Value + (xcb:-error) + ((~code :initform 2) + (bad-value :initarg :bad-value :type xcb:CARD32) + (minor-opcode :initarg :minor-opcode :type xcb:CARD16) + (major-opcode :initarg :major-opcode :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad))) + +(defclass xcb:Window + (xcb:-error xcb:Value) + ((~code :initform 3))) + +(defclass xcb:Pixmap + (xcb:-error xcb:Value) + ((~code :initform 4))) + +(defclass xcb:Atom + (xcb:-error xcb:Value) + ((~code :initform 5))) + +(defclass xcb:Cursor + (xcb:-error xcb:Value) + ((~code :initform 6))) + +(defclass xcb:Font + (xcb:-error xcb:Value) + ((~code :initform 7))) + +(defclass xcb:Match + (xcb:-error xcb:Request) + ((~code :initform 8))) + +(defclass xcb:Drawable + (xcb:-error xcb:Value) + ((~code :initform 9))) + +(defclass xcb:Access + (xcb:-error xcb:Request) + ((~code :initform 10))) + +(defclass xcb:Alloc + (xcb:-error xcb:Request) + ((~code :initform 11))) + +(defclass xcb:Colormap + (xcb:-error xcb:Value) + ((~code :initform 12))) + +(defclass xcb:GContext + (xcb:-error xcb:Value) + ((~code :initform 13))) + +(defclass xcb:IDChoice + (xcb:-error xcb:Value) + ((~code :initform 14))) + +(defclass xcb:Name + (xcb:-error xcb:Request) + ((~code :initform 15))) + +(defclass xcb:Length + (xcb:-error xcb:Request) + ((~code :initform 16))) + +(defclass xcb:Implementation + (xcb:-error xcb:Request) + ((~code :initform 17))) + +(defconst xcb:WindowClass:CopyFromParent 0) +(defconst xcb:WindowClass:InputOutput 1) +(defconst xcb:WindowClass:InputOnly 2) + +(defconst xcb:CW:BackPixmap 1) +(defconst xcb:CW:BackPixel 2) +(defconst xcb:CW:BorderPixmap 4) +(defconst xcb:CW:BorderPixel 8) +(defconst xcb:CW:BitGravity 16) +(defconst xcb:CW:WinGravity 32) +(defconst xcb:CW:BackingStore 64) +(defconst xcb:CW:BackingPlanes 128) +(defconst xcb:CW:BackingPixel 256) +(defconst xcb:CW:OverrideRedirect 512) +(defconst xcb:CW:SaveUnder 1024) +(defconst xcb:CW:EventMask 2048) +(defconst xcb:CW:DontPropagate 4096) +(defconst xcb:CW:Colormap 8192) +(defconst xcb:CW:Cursor 16384) + +(defconst xcb:BackPixmap:None 0) +(defconst xcb:BackPixmap:ParentRelative 1) + +(defconst xcb:Gravity:BitForget 0) +(defconst xcb:Gravity:WinUnmap 0) +(defconst xcb:Gravity:NorthWest 1) +(defconst xcb:Gravity:North 2) +(defconst xcb:Gravity:NorthEast 3) +(defconst xcb:Gravity:West 4) +(defconst xcb:Gravity:Center 5) +(defconst xcb:Gravity:East 6) +(defconst xcb:Gravity:SouthWest 7) +(defconst xcb:Gravity:South 8) +(defconst xcb:Gravity:SouthEast 9) +(defconst xcb:Gravity:Static 10) + +(defclass xcb:CreateWindow + (xcb:-request) + ((~opcode :initform 1 :type xcb:-u1) + (depth :initarg :depth :type xcb:CARD8) + (wid :initarg :wid :type xcb:WINDOW) + (parent :initarg :parent :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (border-width :initarg :border-width :type xcb:CARD16) + (class :initarg :class :type xcb:CARD16) + (visual :initarg :visual :type xcb:VISUALID) + (value-mask :initarg :value-mask :type xcb:CARD32) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 background-pixmap) + (2 background-pixel) + (4 border-pixmap) + (8 border-pixel) + (16 bit-gravity) + (32 win-gravity) + (64 backing-store) + (128 backing-planes) + (256 backing-pixel) + (512 override-redirect) + (1024 save-under) + (2048 event-mask) + (4096 do-not-propogate-mask) + (8192 colormap) + (16384 cursor))) + :type xcb:-switch) + (background-pixmap :initarg :background-pixmap :type xcb:PIXMAP) + (background-pixel :initarg :background-pixel :type xcb:CARD32) + (border-pixmap :initarg :border-pixmap :type xcb:PIXMAP) + (border-pixel :initarg :border-pixel :type xcb:CARD32) + (bit-gravity :initarg :bit-gravity :type xcb:CARD32) + (win-gravity :initarg :win-gravity :type xcb:CARD32) + (backing-store :initarg :backing-store :type xcb:CARD32) + (backing-planes :initarg :backing-planes :type xcb:CARD32) + (backing-pixel :initarg :backing-pixel :type xcb:CARD32) + (override-redirect :initarg :override-redirect :type xcb:BOOL32) + (save-under :initarg :save-under :type xcb:BOOL32) + (event-mask :initarg :event-mask :type xcb:CARD32) + (do-not-propogate-mask :initarg :do-not-propogate-mask :type xcb:CARD32) + (colormap :initarg :colormap :type xcb:COLORMAP) + (cursor :initarg :cursor :type xcb:CURSOR))) + +(defclass xcb:ChangeWindowAttributes + (xcb:-request) + ((~opcode :initform 2 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (value-mask :initarg :value-mask :type xcb:CARD32) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 background-pixmap) + (2 background-pixel) + (4 border-pixmap) + (8 border-pixel) + (16 bit-gravity) + (32 win-gravity) + (64 backing-store) + (128 backing-planes) + (256 backing-pixel) + (512 override-redirect) + (1024 save-under) + (2048 event-mask) + (4096 do-not-propogate-mask) + (8192 colormap) + (16384 cursor))) + :type xcb:-switch) + (background-pixmap :initarg :background-pixmap :type xcb:PIXMAP) + (background-pixel :initarg :background-pixel :type xcb:CARD32) + (border-pixmap :initarg :border-pixmap :type xcb:PIXMAP) + (border-pixel :initarg :border-pixel :type xcb:CARD32) + (bit-gravity :initarg :bit-gravity :type xcb:CARD32) + (win-gravity :initarg :win-gravity :type xcb:CARD32) + (backing-store :initarg :backing-store :type xcb:CARD32) + (backing-planes :initarg :backing-planes :type xcb:CARD32) + (backing-pixel :initarg :backing-pixel :type xcb:CARD32) + (override-redirect :initarg :override-redirect :type xcb:BOOL32) + (save-under :initarg :save-under :type xcb:BOOL32) + (event-mask :initarg :event-mask :type xcb:CARD32) + (do-not-propogate-mask :initarg :do-not-propogate-mask :type xcb:CARD32) + (colormap :initarg :colormap :type xcb:COLORMAP) + (cursor :initarg :cursor :type xcb:CURSOR))) + +(defconst xcb:MapState:Unmapped 0) +(defconst xcb:MapState:Unviewable 1) +(defconst xcb:MapState:Viewable 2) + +(defclass xcb:GetWindowAttributes + (xcb:-request) + ((~opcode :initform 3 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:GetWindowAttributes~reply + (xcb:-reply) + ((backing-store :initarg :backing-store :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (visual :initarg :visual :type xcb:VISUALID) + (class :initarg :class :type xcb:CARD16) + (bit-gravity :initarg :bit-gravity :type xcb:CARD8) + (win-gravity :initarg :win-gravity :type xcb:CARD8) + (backing-planes :initarg :backing-planes :type xcb:CARD32) + (backing-pixel :initarg :backing-pixel :type xcb:CARD32) + (save-under :initarg :save-under :type xcb:BOOL) + (map-is-installed :initarg :map-is-installed :type xcb:BOOL) + (map-state :initarg :map-state :type xcb:CARD8) + (override-redirect :initarg :override-redirect :type xcb:BOOL) + (colormap :initarg :colormap :type xcb:COLORMAP) + (all-event-masks :initarg :all-event-masks :type xcb:CARD32) + (your-event-mask :initarg :your-event-mask :type xcb:CARD32) + (do-not-propagate-mask :initarg :do-not-propagate-mask :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:DestroyWindow + (xcb:-request) + ((~opcode :initform 4 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:DestroySubwindows + (xcb:-request) + ((~opcode :initform 5 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defconst xcb:SetMode:Insert 0) +(defconst xcb:SetMode:Delete 1) + +(defclass xcb:ChangeSaveSet + (xcb:-request) + ((~opcode :initform 6 :type xcb:-u1) + (mode :initarg :mode :type xcb:BYTE) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:ReparentWindow + (xcb:-request) + ((~opcode :initform 7 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (parent :initarg :parent :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16))) + +(defclass xcb:MapWindow + (xcb:-request) + ((~opcode :initform 8 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:MapSubwindows + (xcb:-request) + ((~opcode :initform 9 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:UnmapWindow + (xcb:-request) + ((~opcode :initform 10 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:UnmapSubwindows + (xcb:-request) + ((~opcode :initform 11 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) + +(defconst xcb:ConfigWindow:X 1) +(defconst xcb:ConfigWindow:Y 2) +(defconst xcb:ConfigWindow:Width 4) +(defconst xcb:ConfigWindow:Height 8) +(defconst xcb:ConfigWindow:BorderWidth 16) +(defconst xcb:ConfigWindow:Sibling 32) +(defconst xcb:ConfigWindow:StackMode 64) + +(defconst xcb:StackMode:Above 0) +(defconst xcb:StackMode:Below 1) +(defconst xcb:StackMode:TopIf 2) +(defconst xcb:StackMode:BottomIf 3) +(defconst xcb:StackMode:Opposite 4) + +(defclass xcb:ConfigureWindow + (xcb:-request) + ((~opcode :initform 12 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (value-mask :initarg :value-mask :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 x) + (2 y) + (4 width) + (8 height) + (16 border-width) + (32 sibling) + (64 stack-mode))) + :type xcb:-switch) + (x :initarg :x :type xcb:INT32) + (y :initarg :y :type xcb:INT32) + (width :initarg :width :type xcb:CARD32) + (height :initarg :height :type xcb:CARD32) + (border-width :initarg :border-width :type xcb:CARD32) + (sibling :initarg :sibling :type xcb:WINDOW) + (stack-mode :initarg :stack-mode :type xcb:CARD32))) + +(defconst xcb:Circulate:RaiseLowest 0) +(defconst xcb:Circulate:LowerHighest 1) + +(defclass xcb:CirculateWindow + (xcb:-request) + ((~opcode :initform 13 :type xcb:-u1) + (direction :initarg :direction :type xcb:CARD8) + (window :initarg :window :type xcb:WINDOW))) + +(defclass xcb:GetGeometry + (xcb:-request) + ((~opcode :initform 14 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE))) +(defclass xcb:GetGeometry~reply + (xcb:-reply) + ((depth :initarg :depth :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (root :initarg :root :type xcb:WINDOW) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (border-width :initarg :border-width :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:QueryTree + (xcb:-request) + ((~opcode :initform 15 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:QueryTree~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (root :initarg :root :type xcb:WINDOW) + (parent :initarg :parent :type xcb:WINDOW) + (children-len :initarg :children-len :type xcb:CARD16) + (pad~1 :initform 14 :type xcb:-pad) + (children~ :initform + '(name children type xcb:WINDOW size + (xcb:-fieldref 'children-len)) + :type xcb:-list) + (children :initarg :children :type xcb:-ignore))) + +(defclass xcb:InternAtom + (xcb:-request) + ((~opcode :initform 16 :type xcb:-u1) + (only-if-exists :initarg :only-if-exists :type xcb:BOOL) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) +(defclass xcb:InternAtom~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (atom :initarg :atom :type xcb:ATOM))) + +(defclass xcb:GetAtomName + (xcb:-request) + ((~opcode :initform 17 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (atom :initarg :atom :type xcb:ATOM))) +(defclass xcb:GetAtomName~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defconst xcb:PropMode:Replace 0) +(defconst xcb:PropMode:Prepend 1) +(defconst xcb:PropMode:Append 2) + +(defclass xcb:ChangeProperty + (xcb:-request) + ((~opcode :initform 18 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8) + (window :initarg :window :type xcb:WINDOW) + (property :initarg :property :type xcb:ATOM) + (type :initarg :type :type xcb:ATOM) + (format :initarg :format :type xcb:CARD8) + (pad~0 :initform 3 :type xcb:-pad) + (data-len :initarg :data-len :type xcb:CARD32) + (data~ :initform + '(name data type xcb:void size + (/ + (* + (xcb:-fieldref 'data-len) + (xcb:-fieldref 'format)) + 8)) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:DeleteProperty + (xcb:-request) + ((~opcode :initform 19 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (property :initarg :property :type xcb:ATOM))) + +(defconst xcb:GetPropertyType:Any 0) + +(defclass xcb:GetProperty + (xcb:-request) + ((~opcode :initform 20 :type xcb:-u1) + (delete :initarg :delete :type xcb:BOOL) + (window :initarg :window :type xcb:WINDOW) + (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))) +(defclass xcb:GetProperty~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) + (value-len :initarg :value-len :type xcb:CARD32) + (pad~0 :initform 12 :type xcb:-pad) + (value~ :initform + '(name value type xcb:void size + (* + (xcb:-fieldref 'value-len) + (/ + (xcb:-fieldref 'format) + 8))) + :type xcb:-list) + (value :initarg :value :type xcb:-ignore))) + +(defclass xcb:ListProperties + (xcb:-request) + ((~opcode :initform 21 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:ListProperties~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (atoms-len :initarg :atoms-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (atoms~ :initform + '(name atoms type xcb:ATOM size + (xcb:-fieldref 'atoms-len)) + :type xcb:-list) + (atoms :initarg :atoms :type xcb:-ignore))) + +(defclass xcb:SetSelectionOwner + (xcb:-request) + ((~opcode :initform 22 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (owner :initarg :owner :type xcb:WINDOW) + (selection :initarg :selection :type xcb:ATOM) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defclass xcb:GetSelectionOwner + (xcb:-request) + ((~opcode :initform 23 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (selection :initarg :selection :type xcb:ATOM))) +(defclass xcb:GetSelectionOwner~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (owner :initarg :owner :type xcb:WINDOW))) + +(defclass xcb:ConvertSelection + (xcb:-request) + ((~opcode :initform 24 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (requestor :initarg :requestor :type xcb:WINDOW) + (selection :initarg :selection :type xcb:ATOM) + (target :initarg :target :type xcb:ATOM) + (property :initarg :property :type xcb:ATOM) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defconst xcb:SendEventDest:PointerWindow 0) +(defconst xcb:SendEventDest:ItemFocus 1) + +(defclass xcb:SendEvent + (xcb:-request) + ((~opcode :initform 25 :type xcb:-u1) + (propagate :initarg :propagate :type xcb:BOOL) + (destination :initarg :destination :type xcb:WINDOW) + (event-mask :initarg :event-mask :type xcb:CARD32) + (event~ :initform + '(name event type xcb:char size 32) + :type xcb:-list) + (event :initarg :event :type xcb:-ignore))) + +(defconst xcb:GrabMode:Sync 0) +(defconst xcb:GrabMode:Async 1) + +(defconst xcb:GrabStatus:Success 0) +(defconst xcb:GrabStatus:AlreadyGrabbed 1) +(defconst xcb:GrabStatus:InvalidTime 2) +(defconst xcb:GrabStatus:NotViewable 3) +(defconst xcb:GrabStatus:Frozen 4) + +(defconst xcb:Cursor:None 0) + +(defclass xcb:GrabPointer + (xcb:-request) + ((~opcode :initform 26 :type xcb:-u1) + (owner-events :initarg :owner-events :type xcb:BOOL) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (event-mask :initarg :event-mask :type xcb:CARD16) + (pointer-mode :initarg :pointer-mode :type xcb:BYTE) + (keyboard-mode :initarg :keyboard-mode :type xcb:BYTE) + (confine-to :initarg :confine-to :type xcb:WINDOW) + (cursor :initarg :cursor :type xcb:CURSOR) + (time :initarg :time :type xcb:TIMESTAMP))) +(defclass xcb:GrabPointer~reply + (xcb:-reply) + ((status :initarg :status :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32))) + +(defclass xcb:UngrabPointer + (xcb:-request) + ((~opcode :initform 27 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defconst xcb:ButtonIndex:Any 0) +(defconst xcb:ButtonIndex:1 1) +(defconst xcb:ButtonIndex:2 2) +(defconst xcb:ButtonIndex:3 3) +(defconst xcb:ButtonIndex:4 4) +(defconst xcb:ButtonIndex:5 5) + +(defclass xcb:GrabButton + (xcb:-request) + ((~opcode :initform 28 :type xcb:-u1) + (owner-events :initarg :owner-events :type xcb:BOOL) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (event-mask :initarg :event-mask :type xcb:CARD16) + (pointer-mode :initarg :pointer-mode :type xcb:CARD8) + (keyboard-mode :initarg :keyboard-mode :type xcb:CARD8) + (confine-to :initarg :confine-to :type xcb:WINDOW) + (cursor :initarg :cursor :type xcb:CURSOR) + (button :initarg :button :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (modifiers :initarg :modifiers :type xcb:CARD16))) + +(defclass xcb:UngrabButton + (xcb:-request) + ((~opcode :initform 29 :type xcb:-u1) + (button :initarg :button :type xcb:CARD8) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (modifiers :initarg :modifiers :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:ChangeActivePointerGrab + (xcb:-request) + ((~opcode :initform 30 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cursor :initarg :cursor :type xcb:CURSOR) + (time :initarg :time :type xcb:TIMESTAMP) + (event-mask :initarg :event-mask :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad))) + +(defclass xcb:GrabKeyboard + (xcb:-request) + ((~opcode :initform 31 :type xcb:-u1) + (owner-events :initarg :owner-events :type xcb:BOOL) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (time :initarg :time :type xcb:TIMESTAMP) + (pointer-mode :initarg :pointer-mode :type xcb:BYTE) + (keyboard-mode :initarg :keyboard-mode :type xcb:BYTE) + (pad~0 :initform 2 :type xcb:-pad))) +(defclass xcb:GrabKeyboard~reply + (xcb:-reply) + ((status :initarg :status :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32))) + +(defclass xcb:UngrabKeyboard + (xcb:-request) + ((~opcode :initform 32 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defconst xcb:Grab:Any 0) + +(defclass xcb:GrabKey + (xcb:-request) + ((~opcode :initform 33 :type xcb:-u1) + (owner-events :initarg :owner-events :type xcb:BOOL) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (modifiers :initarg :modifiers :type xcb:CARD16) + (key :initarg :key :type xcb:KEYCODE) + (pointer-mode :initarg :pointer-mode :type xcb:CARD8) + (keyboard-mode :initarg :keyboard-mode :type xcb:CARD8) + (pad~0 :initform 3 :type xcb:-pad))) + +(defclass xcb:UngrabKey + (xcb:-request) + ((~opcode :initform 34 :type xcb:-u1) + (key :initarg :key :type xcb:KEYCODE) + (grab-window :initarg :grab-window :type xcb:WINDOW) + (modifiers :initarg :modifiers :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defconst xcb:Allow:AsyncPointer 0) +(defconst xcb:Allow:SyncPointer 1) +(defconst xcb:Allow:ReplayPointer 2) +(defconst xcb:Allow:AsyncKeyboard 3) +(defconst xcb:Allow:SyncKeyboard 4) +(defconst xcb:Allow:ReplayKeyboard 5) +(defconst xcb:Allow:AsyncBoth 6) +(defconst xcb:Allow:SyncBoth 7) + +(defclass xcb:AllowEvents + (xcb:-request) + ((~opcode :initform 35 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defclass xcb:GrabServer + (xcb:-request) + ((~opcode :initform 36 :type xcb:-u1))) + +(defclass xcb:UngrabServer + (xcb:-request) + ((~opcode :initform 37 :type xcb:-u1))) + +(defclass xcb:QueryPointer + (xcb:-request) + ((~opcode :initform 38 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:QueryPointer~reply + (xcb:-reply) + ((same-screen :initarg :same-screen :type xcb:BOOL) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (root :initarg :root :type xcb:WINDOW) + (child :initarg :child :type xcb:WINDOW) + (root-x :initarg :root-x :type xcb:INT16) + (root-y :initarg :root-y :type xcb:INT16) + (win-x :initarg :win-x :type xcb:INT16) + (win-y :initarg :win-y :type xcb:INT16) + (mask :initarg :mask :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:TIMECOORD + (xcb:-struct) + ((time :initarg :time :type xcb:TIMESTAMP) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16))) + +(defclass xcb:GetMotionEvents + (xcb:-request) + ((~opcode :initform 39 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (start :initarg :start :type xcb:TIMESTAMP) + (stop :initarg :stop :type xcb:TIMESTAMP))) +(defclass xcb:GetMotionEvents~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (events-len :initarg :events-len :type xcb:CARD32) + (pad~1 :initform 20 :type xcb:-pad) + (events~ :initform + '(name events type xcb:TIMECOORD size + (xcb:-fieldref 'events-len)) + :type xcb:-list) + (events :initarg :events :type xcb:-ignore))) + +(defclass xcb:TranslateCoordinates + (xcb:-request) + ((~opcode :initform 40 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (src-window :initarg :src-window :type xcb:WINDOW) + (dst-window :initarg :dst-window :type xcb:WINDOW) + (src-x :initarg :src-x :type xcb:INT16) + (src-y :initarg :src-y :type xcb:INT16))) +(defclass xcb:TranslateCoordinates~reply + (xcb:-reply) + ((same-screen :initarg :same-screen :type xcb:BOOL) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (child :initarg :child :type xcb:WINDOW) + (dst-x :initarg :dst-x :type xcb:INT16) + (dst-y :initarg :dst-y :type xcb:INT16))) + +(defclass xcb:WarpPointer + (xcb:-request) + ((~opcode :initform 41 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (src-window :initarg :src-window :type xcb:WINDOW) + (dst-window :initarg :dst-window :type xcb:WINDOW) + (src-x :initarg :src-x :type xcb:INT16) + (src-y :initarg :src-y :type xcb:INT16) + (src-width :initarg :src-width :type xcb:CARD16) + (src-height :initarg :src-height :type xcb:CARD16) + (dst-x :initarg :dst-x :type xcb:INT16) + (dst-y :initarg :dst-y :type xcb:INT16))) + +(defconst xcb:InputFocus:None 0) +(defconst xcb:InputFocus:PointerRoot 1) +(defconst xcb:InputFocus:Parent 2) +(defconst xcb:InputFocus:FollowKeyboard 3) + +(defclass xcb:SetInputFocus + (xcb:-request) + ((~opcode :initform 42 :type xcb:-u1) + (revert-to :initarg :revert-to :type xcb:CARD8) + (focus :initarg :focus :type xcb:WINDOW) + (time :initarg :time :type xcb:TIMESTAMP))) + +(defclass xcb:GetInputFocus + (xcb:-request) + ((~opcode :initform 43 :type xcb:-u1))) +(defclass xcb:GetInputFocus~reply + (xcb:-reply) + ((revert-to :initarg :revert-to :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (focus :initarg :focus :type xcb:WINDOW))) + +(defclass xcb:QueryKeymap + (xcb:-request) + ((~opcode :initform 44 :type xcb:-u1))) +(defclass xcb:QueryKeymap~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (keys~ :initform + '(name keys type xcb:CARD8 size 32) + :type xcb:-list) + (keys :initarg :keys :type xcb:-ignore))) + +(defclass xcb:OpenFont + (xcb:-request) + ((~opcode :initform 45 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (fid :initarg :fid :type xcb:FONT) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defclass xcb:CloseFont + (xcb:-request) + ((~opcode :initform 46 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (font :initarg :font :type xcb:FONT))) + +(defconst xcb:FontDraw:LeftToRight 0) +(defconst xcb:FontDraw:RightToLeft 1) + +(defclass xcb:FONTPROP + (xcb:-struct) + ((name :initarg :name :type xcb:ATOM) + (value :initarg :value :type xcb:CARD32))) + +(defclass xcb:CHARINFO + (xcb:-struct) + ((left-side-bearing :initarg :left-side-bearing :type xcb:INT16) + (right-side-bearing :initarg :right-side-bearing :type xcb:INT16) + (character-width :initarg :character-width :type xcb:INT16) + (ascent :initarg :ascent :type xcb:INT16) + (descent :initarg :descent :type xcb:INT16) + (attributes :initarg :attributes :type xcb:CARD16))) + +(defclass xcb:QueryFont + (xcb:-request) + ((~opcode :initform 47 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (font :initarg :font :type xcb:FONTABLE))) +(defclass xcb:QueryFont~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (min-bounds :initarg :min-bounds :type xcb:CHARINFO) + (pad~1 :initform 4 :type xcb:-pad) + (max-bounds :initarg :max-bounds :type xcb:CHARINFO) + (pad~2 :initform 4 :type xcb:-pad) + (min-char-or-byte2 :initarg :min-char-or-byte2 :type xcb:CARD16) + (max-char-or-byte2 :initarg :max-char-or-byte2 :type xcb:CARD16) + (default-char :initarg :default-char :type xcb:CARD16) + (properties-len :initarg :properties-len :type xcb:CARD16) + (draw-direction :initarg :draw-direction :type xcb:BYTE) + (min-byte1 :initarg :min-byte1 :type xcb:CARD8) + (max-byte1 :initarg :max-byte1 :type xcb:CARD8) + (all-chars-exist :initarg :all-chars-exist :type xcb:BOOL) + (font-ascent :initarg :font-ascent :type xcb:INT16) + (font-descent :initarg :font-descent :type xcb:INT16) + (char-infos-len :initarg :char-infos-len :type xcb:CARD32) + (properties~ :initform + '(name properties type xcb:FONTPROP size + (xcb:-fieldref 'properties-len)) + :type xcb:-list) + (properties :initarg :properties :type xcb:-ignore) + (char-infos~ :initform + '(name char-infos type xcb:CHARINFO size + (xcb:-fieldref 'char-infos-len)) + :type xcb:-list) + (char-infos :initarg :char-infos :type xcb:-ignore))) + +(defclass xcb:QueryTextExtents + (xcb:-request) + ((~opcode :initform 48 :type xcb:-u1) + (odd-length :type xcb:BOOL) + (font :initarg :font :type xcb:FONTABLE) + (string~ :initform + '(name string type xcb:CHAR2B size nil) + :type xcb:-list) + (string :initarg :string :type xcb:-ignore))) +(cl-defmethod xcb:marshal + ((obj xcb:QueryTextExtents)) + nil + (setf + (slot-value obj 'odd-length) + (logand + (length + (xcb:-fieldref 'string)) + 1)) + (cl-call-next-method obj)) +(defclass xcb:QueryTextExtents~reply + (xcb:-reply) + ((draw-direction :initarg :draw-direction :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (font-ascent :initarg :font-ascent :type xcb:INT16) + (font-descent :initarg :font-descent :type xcb:INT16) + (overall-ascent :initarg :overall-ascent :type xcb:INT16) + (overall-descent :initarg :overall-descent :type xcb:INT16) + (overall-width :initarg :overall-width :type xcb:INT32) + (overall-left :initarg :overall-left :type xcb:INT32) + (overall-right :initarg :overall-right :type xcb:INT32))) + +(defclass xcb:STR + (xcb:-struct) + ((name-len :initarg :name-len :type xcb:CARD8) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defclass xcb:ListFonts + (xcb:-request) + ((~opcode :initform 49 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (max-names :initarg :max-names :type xcb:CARD16) + (pattern-len :initarg :pattern-len :type xcb:CARD16) + (pattern~ :initform + '(name pattern type xcb:char size + (xcb:-fieldref 'pattern-len)) + :type xcb:-list) + (pattern :initarg :pattern :type xcb:-ignore))) +(defclass xcb:ListFonts~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (names-len :initarg :names-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (names~ :initform + '(name names type xcb:STR size + (xcb:-fieldref 'names-len)) + :type xcb:-list) + (names :initarg :names :type xcb:-ignore))) + +(defclass xcb:ListFontsWithInfo + (xcb:-request) + ((~opcode :initform 50 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (max-names :initarg :max-names :type xcb:CARD16) + (pattern-len :initarg :pattern-len :type xcb:CARD16) + (pattern~ :initform + '(name pattern type xcb:char size + (xcb:-fieldref 'pattern-len)) + :type xcb:-list) + (pattern :initarg :pattern :type xcb:-ignore))) +(defclass xcb:ListFontsWithInfo~reply + (xcb:-reply) + ((name-len :initarg :name-len :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (min-bounds :initarg :min-bounds :type xcb:CHARINFO) + (pad~0 :initform 4 :type xcb:-pad) + (max-bounds :initarg :max-bounds :type xcb:CHARINFO) + (pad~1 :initform 4 :type xcb:-pad) + (min-char-or-byte2 :initarg :min-char-or-byte2 :type xcb:CARD16) + (max-char-or-byte2 :initarg :max-char-or-byte2 :type xcb:CARD16) + (default-char :initarg :default-char :type xcb:CARD16) + (properties-len :initarg :properties-len :type xcb:CARD16) + (draw-direction :initarg :draw-direction :type xcb:BYTE) + (min-byte1 :initarg :min-byte1 :type xcb:CARD8) + (max-byte1 :initarg :max-byte1 :type xcb:CARD8) + (all-chars-exist :initarg :all-chars-exist :type xcb:BOOL) + (font-ascent :initarg :font-ascent :type xcb:INT16) + (font-descent :initarg :font-descent :type xcb:INT16) + (replies-hint :initarg :replies-hint :type xcb:CARD32) + (properties~ :initform + '(name properties type xcb:FONTPROP size + (xcb:-fieldref 'properties-len)) + :type xcb:-list) + (properties :initarg :properties :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:SetFontPath + (xcb:-request) + ((~opcode :initform 51 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (font-qty :initarg :font-qty :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (font~ :initform + '(name font type xcb:STR size + (xcb:-fieldref 'font-qty)) + :type xcb:-list) + (font :initarg :font :type xcb:-ignore))) + +(defclass xcb:GetFontPath + (xcb:-request) + ((~opcode :initform 52 :type xcb:-u1))) +(defclass xcb:GetFontPath~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (path-len :initarg :path-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (path~ :initform + '(name path type xcb:STR size + (xcb:-fieldref 'path-len)) + :type xcb:-list) + (path :initarg :path :type xcb:-ignore))) + +(defclass xcb:CreatePixmap + (xcb:-request) + ((~opcode :initform 53 :type xcb:-u1) + (depth :initarg :depth :type xcb:CARD8) + (pid :initarg :pid :type xcb:PIXMAP) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) + +(defclass xcb:FreePixmap + (xcb:-request) + ((~opcode :initform 54 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (pixmap :initarg :pixmap :type xcb:PIXMAP))) + +(defconst xcb:GC:Function 1) +(defconst xcb:GC:PlaneMask 2) +(defconst xcb:GC:Foreground 4) +(defconst xcb:GC:Background 8) +(defconst xcb:GC:LineWidth 16) +(defconst xcb:GC:LineStyle 32) +(defconst xcb:GC:CapStyle 64) +(defconst xcb:GC:JoinStyle 128) +(defconst xcb:GC:FillStyle 256) +(defconst xcb:GC:FillRule 512) +(defconst xcb:GC:Tile 1024) +(defconst xcb:GC:Stipple 2048) +(defconst xcb:GC:TileStippleOriginX 4096) +(defconst xcb:GC:TileStippleOriginY 8192) +(defconst xcb:GC:Font 16384) +(defconst xcb:GC:SubwindowMode 32768) +(defconst xcb:GC:GraphicsExposures 65536) +(defconst xcb:GC:ClipOriginX 131072) +(defconst xcb:GC:ClipOriginY 262144) +(defconst xcb:GC:ClipMask 524288) +(defconst xcb:GC:DashOffset 1048576) +(defconst xcb:GC:DashList 2097152) +(defconst xcb:GC:ArcMode 4194304) + +(defconst xcb:GX:clear 0) +(defconst xcb:GX:and 1) +(defconst xcb:GX:andReverse 2) +(defconst xcb:GX:copy 3) +(defconst xcb:GX:andInverted 4) +(defconst xcb:GX:noop 5) +(defconst xcb:GX:xor 6) +(defconst xcb:GX:or 7) +(defconst xcb:GX:nor 8) +(defconst xcb:GX:equiv 9) +(defconst xcb:GX:invert 10) +(defconst xcb:GX:orReverse 11) +(defconst xcb:GX:copyInverted 12) +(defconst xcb:GX:orInverted 13) +(defconst xcb:GX:nand 14) +(defconst xcb:GX:set 15) + +(defconst xcb:LineStyle:Solid 0) +(defconst xcb:LineStyle:OnOffDash 1) +(defconst xcb:LineStyle:DoubleDash 2) + +(defconst xcb:CapStyle:NotLast 0) +(defconst xcb:CapStyle:Butt 1) +(defconst xcb:CapStyle:Round 2) +(defconst xcb:CapStyle:Projecting 3) + +(defconst xcb:JoinStyle:Miter 0) +(defconst xcb:JoinStyle:Round 1) +(defconst xcb:JoinStyle:Bevel 2) + +(defconst xcb:FillStyle:Solid 0) +(defconst xcb:FillStyle:Tiled 1) +(defconst xcb:FillStyle:Stippled 2) +(defconst xcb:FillStyle:OpaqueStippled 3) + +(defconst xcb:FillRule:EvenOdd 0) +(defconst xcb:FillRule:Winding 1) + +(defconst xcb:SubwindowMode:ClipByChildren 0) +(defconst xcb:SubwindowMode:IncludeInferiors 1) + +(defconst xcb:ArcMode:Chord 0) +(defconst xcb:ArcMode:PieSlice 1) + +(defclass xcb:CreateGC + (xcb:-request) + ((~opcode :initform 55 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cid :initarg :cid :type xcb:GCONTEXT) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (value-mask :initarg :value-mask :type xcb:CARD32) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 function) + (2 plane-mask) + (4 foreground) + (8 background) + (16 line-width) + (32 line-style) + (64 cap-style) + (128 join-style) + (256 fill-style) + (512 fill-rule) + (1024 tile) + (2048 stipple) + (4096 tile-stipple-x-origin) + (8192 tile-stipple-y-origin) + (16384 font) + (32768 subwindow-mode) + (65536 graphics-exposures) + (131072 clip-x-origin) + (262144 clip-y-origin) + (524288 clip-mask) + (1048576 dash-offset) + (2097152 dashes) + (4194304 arc-mode))) + :type xcb:-switch) + (function :initarg :function :type xcb:CARD32) + (plane-mask :initarg :plane-mask :type xcb:CARD32) + (foreground :initarg :foreground :type xcb:CARD32) + (background :initarg :background :type xcb:CARD32) + (line-width :initarg :line-width :type xcb:CARD32) + (line-style :initarg :line-style :type xcb:CARD32) + (cap-style :initarg :cap-style :type xcb:CARD32) + (join-style :initarg :join-style :type xcb:CARD32) + (fill-style :initarg :fill-style :type xcb:CARD32) + (fill-rule :initarg :fill-rule :type xcb:CARD32) + (tile :initarg :tile :type xcb:PIXMAP) + (stipple :initarg :stipple :type xcb:PIXMAP) + (tile-stipple-x-origin :initarg :tile-stipple-x-origin :type xcb:INT32) + (tile-stipple-y-origin :initarg :tile-stipple-y-origin :type xcb:INT32) + (font :initarg :font :type xcb:FONT) + (subwindow-mode :initarg :subwindow-mode :type xcb:CARD32) + (graphics-exposures :initarg :graphics-exposures :type xcb:BOOL32) + (clip-x-origin :initarg :clip-x-origin :type xcb:INT32) + (clip-y-origin :initarg :clip-y-origin :type xcb:INT32) + (clip-mask :initarg :clip-mask :type xcb:PIXMAP) + (dash-offset :initarg :dash-offset :type xcb:CARD32) + (dashes :initarg :dashes :type xcb:CARD32) + (arc-mode :initarg :arc-mode :type xcb:CARD32))) + +(defclass xcb:ChangeGC + (xcb:-request) + ((~opcode :initform 56 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (gc :initarg :gc :type xcb:GCONTEXT) + (value-mask :initarg :value-mask :type xcb:CARD32) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 function) + (2 plane-mask) + (4 foreground) + (8 background) + (16 line-width) + (32 line-style) + (64 cap-style) + (128 join-style) + (256 fill-style) + (512 fill-rule) + (1024 tile) + (2048 stipple) + (4096 tile-stipple-x-origin) + (8192 tile-stipple-y-origin) + (16384 font) + (32768 subwindow-mode) + (65536 graphics-exposures) + (131072 clip-x-origin) + (262144 clip-y-origin) + (524288 clip-mask) + (1048576 dash-offset) + (2097152 dashes) + (4194304 arc-mode))) + :type xcb:-switch) + (function :initarg :function :type xcb:CARD32) + (plane-mask :initarg :plane-mask :type xcb:CARD32) + (foreground :initarg :foreground :type xcb:CARD32) + (background :initarg :background :type xcb:CARD32) + (line-width :initarg :line-width :type xcb:CARD32) + (line-style :initarg :line-style :type xcb:CARD32) + (cap-style :initarg :cap-style :type xcb:CARD32) + (join-style :initarg :join-style :type xcb:CARD32) + (fill-style :initarg :fill-style :type xcb:CARD32) + (fill-rule :initarg :fill-rule :type xcb:CARD32) + (tile :initarg :tile :type xcb:PIXMAP) + (stipple :initarg :stipple :type xcb:PIXMAP) + (tile-stipple-x-origin :initarg :tile-stipple-x-origin :type xcb:INT32) + (tile-stipple-y-origin :initarg :tile-stipple-y-origin :type xcb:INT32) + (font :initarg :font :type xcb:FONT) + (subwindow-mode :initarg :subwindow-mode :type xcb:CARD32) + (graphics-exposures :initarg :graphics-exposures :type xcb:BOOL32) + (clip-x-origin :initarg :clip-x-origin :type xcb:INT32) + (clip-y-origin :initarg :clip-y-origin :type xcb:INT32) + (clip-mask :initarg :clip-mask :type xcb:PIXMAP) + (dash-offset :initarg :dash-offset :type xcb:CARD32) + (dashes :initarg :dashes :type xcb:CARD32) + (arc-mode :initarg :arc-mode :type xcb:CARD32))) + +(defclass xcb:CopyGC + (xcb:-request) + ((~opcode :initform 57 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (src-gc :initarg :src-gc :type xcb:GCONTEXT) + (dst-gc :initarg :dst-gc :type xcb:GCONTEXT) + (value-mask :initarg :value-mask :type xcb:CARD32))) + +(defclass xcb:SetDashes + (xcb:-request) + ((~opcode :initform 58 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (gc :initarg :gc :type xcb:GCONTEXT) + (dash-offset :initarg :dash-offset :type xcb:CARD16) + (dashes-len :initarg :dashes-len :type xcb:CARD16) + (dashes~ :initform + '(name dashes type xcb:CARD8 size + (xcb:-fieldref 'dashes-len)) + :type xcb:-list) + (dashes :initarg :dashes :type xcb:-ignore))) + +(defconst xcb:ClipOrdering:Unsorted 0) +(defconst xcb:ClipOrdering:YSorted 1) +(defconst xcb:ClipOrdering:YXSorted 2) +(defconst xcb:ClipOrdering:YXBanded 3) + +(defclass xcb:SetClipRectangles + (xcb:-request) + ((~opcode :initform 59 :type xcb:-u1) + (ordering :initarg :ordering :type xcb:BYTE) + (gc :initarg :gc :type xcb:GCONTEXT) + (clip-x-origin :initarg :clip-x-origin :type xcb:INT16) + (clip-y-origin :initarg :clip-y-origin :type xcb:INT16) + (rectangles~ :initform + '(name rectangles type xcb:RECTANGLE size nil) + :type xcb:-list) + (rectangles :initarg :rectangles :type xcb:-ignore))) + +(defclass xcb:FreeGC + (xcb:-request) + ((~opcode :initform 60 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (gc :initarg :gc :type xcb:GCONTEXT))) + +(defclass xcb:ClearArea + (xcb:-request) + ((~opcode :initform 61 :type xcb:-u1) + (exposures :initarg :exposures :type xcb:BOOL) + (window :initarg :window :type xcb:WINDOW) + (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:CopyArea + (xcb:-request) + ((~opcode :initform 62 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (src-drawable :initarg :src-drawable :type xcb:DRAWABLE) + (dst-drawable :initarg :dst-drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (src-x :initarg :src-x :type xcb:INT16) + (src-y :initarg :src-y :type xcb:INT16) + (dst-x :initarg :dst-x :type xcb:INT16) + (dst-y :initarg :dst-y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) + +(defclass xcb:CopyPlane + (xcb:-request) + ((~opcode :initform 63 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (src-drawable :initarg :src-drawable :type xcb:DRAWABLE) + (dst-drawable :initarg :dst-drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (src-x :initarg :src-x :type xcb:INT16) + (src-y :initarg :src-y :type xcb:INT16) + (dst-x :initarg :dst-x :type xcb:INT16) + (dst-y :initarg :dst-y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (bit-plane :initarg :bit-plane :type xcb:CARD32))) + +(defconst xcb:CoordMode:Origin 0) +(defconst xcb:CoordMode:Previous 1) + +(defclass xcb:PolyPoint + (xcb:-request) + ((~opcode :initform 64 :type xcb:-u1) + (coordinate-mode :initarg :coordinate-mode :type xcb:BYTE) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (points~ :initform + '(name points type xcb:POINT size nil) + :type xcb:-list) + (points :initarg :points :type xcb:-ignore))) + +(defclass xcb:PolyLine + (xcb:-request) + ((~opcode :initform 65 :type xcb:-u1) + (coordinate-mode :initarg :coordinate-mode :type xcb:BYTE) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (points~ :initform + '(name points type xcb:POINT size nil) + :type xcb:-list) + (points :initarg :points :type xcb:-ignore))) + +(defclass xcb:SEGMENT + (xcb:-struct) + ((x1 :initarg :x1 :type xcb:INT16) + (y1 :initarg :y1 :type xcb:INT16) + (x2 :initarg :x2 :type xcb:INT16) + (y2 :initarg :y2 :type xcb:INT16))) + +(defclass xcb:PolySegment + (xcb:-request) + ((~opcode :initform 66 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (segments~ :initform + '(name segments type xcb:SEGMENT size nil) + :type xcb:-list) + (segments :initarg :segments :type xcb:-ignore))) + +(defclass xcb:PolyRectangle + (xcb:-request) + ((~opcode :initform 67 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (rectangles~ :initform + '(name rectangles type xcb:RECTANGLE size nil) + :type xcb:-list) + (rectangles :initarg :rectangles :type xcb:-ignore))) + +(defclass xcb:PolyArc + (xcb:-request) + ((~opcode :initform 68 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (arcs~ :initform + '(name arcs type xcb:ARC size nil) + :type xcb:-list) + (arcs :initarg :arcs :type xcb:-ignore))) + +(defconst xcb:PolyShape:Complex 0) +(defconst xcb:PolyShape:Nonconvex 1) +(defconst xcb:PolyShape:Convex 2) + +(defclass xcb:FillPoly + (xcb:-request) + ((~opcode :initform 69 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (shape :initarg :shape :type xcb:CARD8) + (coordinate-mode :initarg :coordinate-mode :type xcb:CARD8) + (pad~1 :initform 2 :type xcb:-pad) + (points~ :initform + '(name points type xcb:POINT size nil) + :type xcb:-list) + (points :initarg :points :type xcb:-ignore))) + +(defclass xcb:PolyFillRectangle + (xcb:-request) + ((~opcode :initform 70 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (rectangles~ :initform + '(name rectangles type xcb:RECTANGLE size nil) + :type xcb:-list) + (rectangles :initarg :rectangles :type xcb:-ignore))) + +(defclass xcb:PolyFillArc + (xcb:-request) + ((~opcode :initform 71 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (arcs~ :initform + '(name arcs type xcb:ARC size nil) + :type xcb:-list) + (arcs :initarg :arcs :type xcb:-ignore))) + +(defconst xcb:ImageFormat:XYBitmap 0) +(defconst xcb:ImageFormat:XYPixmap 1) +(defconst xcb:ImageFormat:ZPixmap 2) + +(defclass xcb:PutImage + (xcb:-request) + ((~opcode :initform 72 :type xcb:-u1) + (format :initarg :format :type xcb:CARD8) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (dst-x :initarg :dst-x :type xcb:INT16) + (dst-y :initarg :dst-y :type xcb:INT16) + (left-pad :initarg :left-pad :type xcb:CARD8) + (depth :initarg :depth :type xcb:CARD8) + (pad~0 :initform 2 :type xcb:-pad) + (data~ :initform + '(name data type xcb:BYTE size nil) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:GetImage + (xcb:-request) + ((~opcode :initform 73 :type xcb:-u1) + (format :initarg :format :type xcb:CARD8) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16) + (plane-mask :initarg :plane-mask :type xcb:CARD32))) +(defclass xcb:GetImage~reply + (xcb:-reply) + ((depth :initarg :depth :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (visual :initarg :visual :type xcb:VISUALID) + (pad~0 :initform 20 :type xcb:-pad) + (data~ :initform + '(name data type xcb:BYTE size + (* + (xcb:-fieldref 'length) + 4)) + :type xcb:-list) + (data :initarg :data :type xcb:-ignore))) + +(defclass xcb:PolyText8 + (xcb:-request) + ((~opcode :initform 74 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (items~ :initform + '(name items type xcb:BYTE size nil) + :type xcb:-list) + (items :initarg :items :type xcb:-ignore))) + +(defclass xcb:PolyText16 + (xcb:-request) + ((~opcode :initform 75 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (items~ :initform + '(name items type xcb:BYTE size nil) + :type xcb:-list) + (items :initarg :items :type xcb:-ignore))) + +(defclass xcb:ImageText8 + (xcb:-request) + ((~opcode :initform 76 :type xcb:-u1) + (string-len :initarg :string-len :type xcb:BYTE) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (string~ :initform + '(name string type xcb:char size + (xcb:-fieldref 'string-len)) + :type xcb:-list) + (string :initarg :string :type xcb:-ignore))) + +(defclass xcb:ImageText16 + (xcb:-request) + ((~opcode :initform 77 :type xcb:-u1) + (string-len :initarg :string-len :type xcb:BYTE) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (gc :initarg :gc :type xcb:GCONTEXT) + (x :initarg :x :type xcb:INT16) + (y :initarg :y :type xcb:INT16) + (string~ :initform + '(name string type xcb:CHAR2B size + (xcb:-fieldref 'string-len)) + :type xcb:-list) + (string :initarg :string :type xcb:-ignore))) + +(defconst xcb:ColormapAlloc:None 0) +(defconst xcb:ColormapAlloc:All 1) + +(defclass xcb:CreateColormap + (xcb:-request) + ((~opcode :initform 78 :type xcb:-u1) + (alloc :initarg :alloc :type xcb:BYTE) + (mid :initarg :mid :type xcb:COLORMAP) + (window :initarg :window :type xcb:WINDOW) + (visual :initarg :visual :type xcb:VISUALID))) + +(defclass xcb:FreeColormap + (xcb:-request) + ((~opcode :initform 79 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP))) + +(defclass xcb:CopyColormapAndFree + (xcb:-request) + ((~opcode :initform 80 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (mid :initarg :mid :type xcb:COLORMAP) + (src-cmap :initarg :src-cmap :type xcb:COLORMAP))) + +(defclass xcb:InstallColormap + (xcb:-request) + ((~opcode :initform 81 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP))) + +(defclass xcb:UninstallColormap + (xcb:-request) + ((~opcode :initform 82 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP))) + +(defclass xcb:ListInstalledColormaps + (xcb:-request) + ((~opcode :initform 83 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW))) +(defclass xcb:ListInstalledColormaps~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (cmaps-len :initarg :cmaps-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (cmaps~ :initform + '(name cmaps type xcb:COLORMAP size + (xcb:-fieldref 'cmaps-len)) + :type xcb:-list) + (cmaps :initarg :cmaps :type xcb:-ignore))) + +(defclass xcb:AllocColor + (xcb:-request) + ((~opcode :initform 84 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (red :initarg :red :type xcb:CARD16) + (green :initarg :green :type xcb:CARD16) + (blue :initarg :blue :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad))) +(defclass xcb:AllocColor~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (red :initarg :red :type xcb:CARD16) + (green :initarg :green :type xcb:CARD16) + (blue :initarg :blue :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (pixel :initarg :pixel :type xcb:CARD32))) + +(defclass xcb:AllocNamedColor + (xcb:-request) + ((~opcode :initform 85 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) +(defclass xcb:AllocNamedColor~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pixel :initarg :pixel :type xcb:CARD32) + (exact-red :initarg :exact-red :type xcb:CARD16) + (exact-green :initarg :exact-green :type xcb:CARD16) + (exact-blue :initarg :exact-blue :type xcb:CARD16) + (visual-red :initarg :visual-red :type xcb:CARD16) + (visual-green :initarg :visual-green :type xcb:CARD16) + (visual-blue :initarg :visual-blue :type xcb:CARD16))) + +(defclass xcb:AllocColorCells + (xcb:-request) + ((~opcode :initform 86 :type xcb:-u1) + (contiguous :initarg :contiguous :type xcb:BOOL) + (cmap :initarg :cmap :type xcb:COLORMAP) + (colors :initarg :colors :type xcb:CARD16) + (planes :initarg :planes :type xcb:CARD16))) +(defclass xcb:AllocColorCells~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pixels-len :initarg :pixels-len :type xcb:CARD16) + (masks-len :initarg :masks-len :type xcb:CARD16) + (pad~1 :initform 20 :type xcb:-pad) + (pixels~ :initform + '(name pixels type xcb:CARD32 size + (xcb:-fieldref 'pixels-len)) + :type xcb:-list) + (pixels :initarg :pixels :type xcb:-ignore) + (masks~ :initform + '(name masks type xcb:CARD32 size + (xcb:-fieldref 'masks-len)) + :type xcb:-list) + (masks :initarg :masks :type xcb:-ignore))) + +(defclass xcb:AllocColorPlanes + (xcb:-request) + ((~opcode :initform 87 :type xcb:-u1) + (contiguous :initarg :contiguous :type xcb:BOOL) + (cmap :initarg :cmap :type xcb:COLORMAP) + (colors :initarg :colors :type xcb:CARD16) + (reds :initarg :reds :type xcb:CARD16) + (greens :initarg :greens :type xcb:CARD16) + (blues :initarg :blues :type xcb:CARD16))) +(defclass xcb:AllocColorPlanes~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pixels-len :initarg :pixels-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (red-mask :initarg :red-mask :type xcb:CARD32) + (green-mask :initarg :green-mask :type xcb:CARD32) + (blue-mask :initarg :blue-mask :type xcb:CARD32) + (pad~2 :initform 8 :type xcb:-pad) + (pixels~ :initform + '(name pixels type xcb:CARD32 size + (xcb:-fieldref 'pixels-len)) + :type xcb:-list) + (pixels :initarg :pixels :type xcb:-ignore))) + +(defclass xcb:FreeColors + (xcb:-request) + ((~opcode :initform 88 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (plane-mask :initarg :plane-mask :type xcb:CARD32) + (pixels~ :initform + '(name pixels type xcb:CARD32 size nil) + :type xcb:-list) + (pixels :initarg :pixels :type xcb:-ignore))) + +(defconst xcb:ColorFlag:Red 1) +(defconst xcb:ColorFlag:Green 2) +(defconst xcb:ColorFlag:Blue 4) + +(defclass xcb:COLORITEM + (xcb:-struct) + ((pixel :initarg :pixel :type xcb:CARD32) + (red :initarg :red :type xcb:CARD16) + (green :initarg :green :type xcb:CARD16) + (blue :initarg :blue :type xcb:CARD16) + (flags :initarg :flags :type xcb:BYTE) + (pad~0 :initform 1 :type xcb:-pad))) + +(defclass xcb:StoreColors + (xcb:-request) + ((~opcode :initform 89 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (items~ :initform + '(name items type xcb:COLORITEM size nil) + :type xcb:-list) + (items :initarg :items :type xcb:-ignore))) + +(defclass xcb:StoreNamedColor + (xcb:-request) + ((~opcode :initform 90 :type xcb:-u1) + (flags :initarg :flags :type xcb:CARD8) + (cmap :initarg :cmap :type xcb:COLORMAP) + (pixel :initarg :pixel :type xcb:CARD32) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) + +(defclass xcb:RGB + (xcb:-struct) + ((red :initarg :red :type xcb:CARD16) + (green :initarg :green :type xcb:CARD16) + (blue :initarg :blue :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad))) + +(defclass xcb:QueryColors + (xcb:-request) + ((~opcode :initform 91 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (pixels~ :initform + '(name pixels type xcb:CARD32 size nil) + :type xcb:-list) + (pixels :initarg :pixels :type xcb:-ignore))) +(defclass xcb:QueryColors~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (colors-len :initarg :colors-len :type xcb:CARD16) + (pad~1 :initform 22 :type xcb:-pad) + (colors~ :initform + '(name colors type xcb:RGB size + (xcb:-fieldref 'colors-len)) + :type xcb:-list) + (colors :initarg :colors :type xcb:-ignore))) + +(defclass xcb:LookupColor + (xcb:-request) + ((~opcode :initform 92 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cmap :initarg :cmap :type xcb:COLORMAP) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) +(defclass xcb:LookupColor~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (exact-red :initarg :exact-red :type xcb:CARD16) + (exact-green :initarg :exact-green :type xcb:CARD16) + (exact-blue :initarg :exact-blue :type xcb:CARD16) + (visual-red :initarg :visual-red :type xcb:CARD16) + (visual-green :initarg :visual-green :type xcb:CARD16) + (visual-blue :initarg :visual-blue :type xcb:CARD16))) + +(defconst xcb:Pixmap:None 0) + +(defclass xcb:CreateCursor + (xcb:-request) + ((~opcode :initform 93 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cid :initarg :cid :type xcb:CURSOR) + (source :initarg :source :type xcb:PIXMAP) + (mask :initarg :mask :type xcb:PIXMAP) + (fore-red :initarg :fore-red :type xcb:CARD16) + (fore-green :initarg :fore-green :type xcb:CARD16) + (fore-blue :initarg :fore-blue :type xcb:CARD16) + (back-red :initarg :back-red :type xcb:CARD16) + (back-green :initarg :back-green :type xcb:CARD16) + (back-blue :initarg :back-blue :type xcb:CARD16) + (x :initarg :x :type xcb:CARD16) + (y :initarg :y :type xcb:CARD16))) + +(defconst xcb:Font:None 0) + +(defclass xcb:CreateGlyphCursor + (xcb:-request) + ((~opcode :initform 94 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cid :initarg :cid :type xcb:CURSOR) + (source-font :initarg :source-font :type xcb:FONT) + (mask-font :initarg :mask-font :type xcb:FONT) + (source-char :initarg :source-char :type xcb:CARD16) + (mask-char :initarg :mask-char :type xcb:CARD16) + (fore-red :initarg :fore-red :type xcb:CARD16) + (fore-green :initarg :fore-green :type xcb:CARD16) + (fore-blue :initarg :fore-blue :type xcb:CARD16) + (back-red :initarg :back-red :type xcb:CARD16) + (back-green :initarg :back-green :type xcb:CARD16) + (back-blue :initarg :back-blue :type xcb:CARD16))) + +(defclass xcb:FreeCursor + (xcb:-request) + ((~opcode :initform 95 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cursor :initarg :cursor :type xcb:CURSOR))) + +(defclass xcb:RecolorCursor + (xcb:-request) + ((~opcode :initform 96 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (cursor :initarg :cursor :type xcb:CURSOR) + (fore-red :initarg :fore-red :type xcb:CARD16) + (fore-green :initarg :fore-green :type xcb:CARD16) + (fore-blue :initarg :fore-blue :type xcb:CARD16) + (back-red :initarg :back-red :type xcb:CARD16) + (back-green :initarg :back-green :type xcb:CARD16) + (back-blue :initarg :back-blue :type xcb:CARD16))) + +(defconst xcb:QueryShapeOf:LargestCursor 0) +(defconst xcb:QueryShapeOf:FastestTile 1) +(defconst xcb:QueryShapeOf:FastestStipple 2) + +(defclass xcb:QueryBestSize + (xcb:-request) + ((~opcode :initform 97 :type xcb:-u1) + (class :initarg :class :type xcb:CARD8) + (drawable :initarg :drawable :type xcb:DRAWABLE) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) +(defclass xcb:QueryBestSize~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (width :initarg :width :type xcb:CARD16) + (height :initarg :height :type xcb:CARD16))) + +(defclass xcb:QueryExtension + (xcb:-request) + ((~opcode :initform 98 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (name-len :initarg :name-len :type xcb:CARD16) + (pad~1 :initform 2 :type xcb:-pad) + (name~ :initform + '(name name type xcb:char size + (xcb:-fieldref 'name-len)) + :type xcb:-list) + (name :initarg :name :type xcb:-ignore))) +(defclass xcb:QueryExtension~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (present :initarg :present :type xcb:BOOL) + (major-opcode :initarg :major-opcode :type xcb:CARD8) + (first-event :initarg :first-event :type xcb:CARD8) + (first-error :initarg :first-error :type xcb:CARD8))) + +(defclass xcb:ListExtensions + (xcb:-request) + ((~opcode :initform 99 :type xcb:-u1))) +(defclass xcb:ListExtensions~reply + (xcb:-reply) + ((names-len :initarg :names-len :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pad~0 :initform 24 :type xcb:-pad) + (names~ :initform + '(name names type xcb:STR size + (xcb:-fieldref 'names-len)) + :type xcb:-list) + (names :initarg :names :type xcb:-ignore))) + +(defclass xcb:ChangeKeyboardMapping + (xcb:-request) + ((~opcode :initform 100 :type xcb:-u1) + (keycode-count :initarg :keycode-count :type xcb:CARD8) + (first-keycode :initarg :first-keycode :type xcb:KEYCODE) + (keysyms-per-keycode :initarg :keysyms-per-keycode :type xcb:CARD8) + (pad~0 :initform 2 :type xcb:-pad) + (keysyms~ :initform + '(name keysyms type xcb:KEYSYM size + (* + (xcb:-fieldref 'keycode-count) + (xcb:-fieldref 'keysyms-per-keycode))) + :type xcb:-list) + (keysyms :initarg :keysyms :type xcb:-ignore))) + +(defclass xcb:GetKeyboardMapping + (xcb:-request) + ((~opcode :initform 101 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (first-keycode :initarg :first-keycode :type xcb:KEYCODE) + (count :initarg :count :type xcb:CARD8))) +(defclass xcb:GetKeyboardMapping~reply + (xcb:-reply) + ((keysyms-per-keycode :initarg :keysyms-per-keycode :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pad~0 :initform 24 :type xcb:-pad) + (keysyms~ :initform + '(name keysyms type xcb:KEYSYM size + (xcb:-fieldref 'length)) + :type xcb:-list) + (keysyms :initarg :keysyms :type xcb:-ignore))) + +(defconst xcb:KB:KeyClickPercent 1) +(defconst xcb:KB:BellPercent 2) +(defconst xcb:KB:BellPitch 4) +(defconst xcb:KB:BellDuration 8) +(defconst xcb:KB:Led 16) +(defconst xcb:KB:LedMode 32) +(defconst xcb:KB:Key 64) +(defconst xcb:KB:AutoRepeatMode 128) + +(defconst xcb:LedMode:Off 0) +(defconst xcb:LedMode:On 1) + +(defconst xcb:AutoRepeatMode:Off 0) +(defconst xcb:AutoRepeatMode:On 1) +(defconst xcb:AutoRepeatMode:Default 2) + +(defclass xcb:ChangeKeyboardControl + (xcb:-request) + ((~opcode :initform 102 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (value-mask :initarg :value-mask :type xcb:CARD32) + (value-list :initform + '(expression + (xcb:-fieldref 'value-mask) + cases + ((1 key-click-percent) + (2 bell-percent) + (4 bell-pitch) + (8 bell-duration) + (16 led) + (32 led-mode) + (64 key) + (128 auto-repeat-mode))) + :type xcb:-switch) + (key-click-percent :initarg :key-click-percent :type xcb:INT32) + (bell-percent :initarg :bell-percent :type xcb:INT32) + (bell-pitch :initarg :bell-pitch :type xcb:INT32) + (bell-duration :initarg :bell-duration :type xcb:INT32) + (led :initarg :led :type xcb:CARD32) + (led-mode :initarg :led-mode :type xcb:CARD32) + (key :initarg :key :type xcb:KEYCODE32) + (auto-repeat-mode :initarg :auto-repeat-mode :type xcb:CARD32))) + +(defclass xcb:GetKeyboardControl + (xcb:-request) + ((~opcode :initform 103 :type xcb:-u1))) +(defclass xcb:GetKeyboardControl~reply + (xcb:-reply) + ((global-auto-repeat :initarg :global-auto-repeat :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (led-mask :initarg :led-mask :type xcb:CARD32) + (key-click-percent :initarg :key-click-percent :type xcb:CARD8) + (bell-percent :initarg :bell-percent :type xcb:CARD8) + (bell-pitch :initarg :bell-pitch :type xcb:CARD16) + (bell-duration :initarg :bell-duration :type xcb:CARD16) + (pad~0 :initform 2 :type xcb:-pad) + (auto-repeats~ :initform + '(name auto-repeats type xcb:CARD8 size 32) + :type xcb:-list) + (auto-repeats :initarg :auto-repeats :type xcb:-ignore))) + +(defclass xcb:Bell + (xcb:-request) + ((~opcode :initform 104 :type xcb:-u1) + (percent :initarg :percent :type xcb:INT8))) + +(defclass xcb:ChangePointerControl + (xcb:-request) + ((~opcode :initform 105 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (acceleration-numerator :initarg :acceleration-numerator :type xcb:INT16) + (acceleration-denominator :initarg :acceleration-denominator :type xcb:INT16) + (threshold :initarg :threshold :type xcb:INT16) + (do-acceleration :initarg :do-acceleration :type xcb:BOOL) + (do-threshold :initarg :do-threshold :type xcb:BOOL))) + +(defclass xcb:GetPointerControl + (xcb:-request) + ((~opcode :initform 106 :type xcb:-u1))) +(defclass xcb:GetPointerControl~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (acceleration-numerator :initarg :acceleration-numerator :type xcb:CARD16) + (acceleration-denominator :initarg :acceleration-denominator :type xcb:CARD16) + (threshold :initarg :threshold :type xcb:CARD16) + (pad~1 :initform 18 :type xcb:-pad))) + +(defconst xcb:Blanking:NotPreferred 0) +(defconst xcb:Blanking:Preferred 1) +(defconst xcb:Blanking:Default 2) + +(defconst xcb:Exposures:NotAllowed 0) +(defconst xcb:Exposures:Allowed 1) +(defconst xcb:Exposures:Default 2) + +(defclass xcb:SetScreenSaver + (xcb:-request) + ((~opcode :initform 107 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (timeout :initarg :timeout :type xcb:INT16) + (interval :initarg :interval :type xcb:INT16) + (prefer-blanking :initarg :prefer-blanking :type xcb:CARD8) + (allow-exposures :initarg :allow-exposures :type xcb:CARD8))) + +(defclass xcb:GetScreenSaver + (xcb:-request) + ((~opcode :initform 108 :type xcb:-u1))) +(defclass xcb:GetScreenSaver~reply + (xcb:-reply) + ((pad~0 :initform 1 :type xcb:-pad) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (timeout :initarg :timeout :type xcb:CARD16) + (interval :initarg :interval :type xcb:CARD16) + (prefer-blanking :initarg :prefer-blanking :type xcb:BYTE) + (allow-exposures :initarg :allow-exposures :type xcb:BYTE) + (pad~1 :initform 18 :type xcb:-pad))) + +(defconst xcb:HostMode:Insert 0) +(defconst xcb:HostMode:Delete 1) + +(defconst xcb:Family:Internet 0) +(defconst xcb:Family:DECnet 1) +(defconst xcb:Family:Chaos 2) +(defconst xcb:Family:ServerInterpreted 5) +(defconst xcb:Family:Internet6 6) + +(defclass xcb:ChangeHosts + (xcb:-request) + ((~opcode :initform 109 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8) + (family :initarg :family :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (address-len :initarg :address-len :type xcb:CARD16) + (address~ :initform + '(name address type xcb:BYTE size + (xcb:-fieldref 'address-len)) + :type xcb:-list) + (address :initarg :address :type xcb:-ignore))) + +(defclass xcb:HOST + (xcb:-struct) + ((family :initarg :family :type xcb:CARD8) + (pad~0 :initform 1 :type xcb:-pad) + (address-len :initarg :address-len :type xcb:CARD16) + (address~ :initform + '(name address type xcb:BYTE size + (xcb:-fieldref 'address-len)) + :type xcb:-list) + (address :initarg :address :type xcb:-ignore) + (pad~1 :initform 4 :type xcb:-pad-align))) + +(defclass xcb:ListHosts + (xcb:-request) + ((~opcode :initform 110 :type xcb:-u1))) +(defclass xcb:ListHosts~reply + (xcb:-reply) + ((mode :initarg :mode :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (hosts-len :initarg :hosts-len :type xcb:CARD16) + (pad~0 :initform 22 :type xcb:-pad) + (hosts~ :initform + '(name hosts type xcb:HOST size + (xcb:-fieldref 'hosts-len)) + :type xcb:-list) + (hosts :initarg :hosts :type xcb:-ignore))) + +(defconst xcb:AccessControl:Disable 0) +(defconst xcb:AccessControl:Enable 1) + +(defclass xcb:SetAccessControl + (xcb:-request) + ((~opcode :initform 111 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8))) + +(defconst xcb:CloseDown:DestroyAll 0) +(defconst xcb:CloseDown:RetainPermanent 1) +(defconst xcb:CloseDown:RetainTemporary 2) + +(defclass xcb:SetCloseDownMode + (xcb:-request) + ((~opcode :initform 112 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8))) + +(defconst xcb:Kill:AllTemporary 0) + +(defclass xcb:KillClient + (xcb:-request) + ((~opcode :initform 113 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (resource :initarg :resource :type xcb:CARD32))) + +(defclass xcb:RotateProperties + (xcb:-request) + ((~opcode :initform 114 :type xcb:-u1) + (pad~0 :initform 1 :type xcb:-pad) + (window :initarg :window :type xcb:WINDOW) + (atoms-len :initarg :atoms-len :type xcb:CARD16) + (delta :initarg :delta :type xcb:INT16) + (atoms~ :initform + '(name atoms type xcb:ATOM size + (xcb:-fieldref 'atoms-len)) + :type xcb:-list) + (atoms :initarg :atoms :type xcb:-ignore))) + +(defconst xcb:ScreenSaver:Reset 0) +(defconst xcb:ScreenSaver:Active 1) + +(defclass xcb:ForceScreenSaver + (xcb:-request) + ((~opcode :initform 115 :type xcb:-u1) + (mode :initarg :mode :type xcb:CARD8))) + +(defconst xcb:MappingStatus:Success 0) +(defconst xcb:MappingStatus:Busy 1) +(defconst xcb:MappingStatus:Failure 2) + +(defclass xcb:SetPointerMapping + (xcb:-request) + ((~opcode :initform 116 :type xcb:-u1) + (map-len :initarg :map-len :type xcb:CARD8) + (map~ :initform + '(name map type xcb:CARD8 size + (xcb:-fieldref 'map-len)) + :type xcb:-list) + (map :initarg :map :type xcb:-ignore))) +(defclass xcb:SetPointerMapping~reply + (xcb:-reply) + ((status :initarg :status :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32))) + +(defclass xcb:GetPointerMapping + (xcb:-request) + ((~opcode :initform 117 :type xcb:-u1))) +(defclass xcb:GetPointerMapping~reply + (xcb:-reply) + ((map-len :initarg :map-len :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pad~0 :initform 24 :type xcb:-pad) + (map~ :initform + '(name map type xcb:CARD8 size + (xcb:-fieldref 'map-len)) + :type xcb:-list) + (map :initarg :map :type xcb:-ignore))) + +(defconst xcb:MapIndex:Shift 0) +(defconst xcb:MapIndex:Lock 1) +(defconst xcb:MapIndex:Control 2) +(defconst xcb:MapIndex:1 3) +(defconst xcb:MapIndex:2 4) +(defconst xcb:MapIndex:3 5) +(defconst xcb:MapIndex:4 6) +(defconst xcb:MapIndex:5 7) + +(defclass xcb:SetModifierMapping + (xcb:-request) + ((~opcode :initform 118 :type xcb:-u1) + (keycodes-per-modifier :initarg :keycodes-per-modifier :type xcb:CARD8) + (keycodes~ :initform + '(name keycodes type xcb:KEYCODE size + (* + (xcb:-fieldref 'keycodes-per-modifier) + 8)) + :type xcb:-list) + (keycodes :initarg :keycodes :type xcb:-ignore))) +(defclass xcb:SetModifierMapping~reply + (xcb:-reply) + ((status :initarg :status :type xcb:BYTE) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32))) + +(defclass xcb:GetModifierMapping + (xcb:-request) + ((~opcode :initform 119 :type xcb:-u1))) +(defclass xcb:GetModifierMapping~reply + (xcb:-reply) + ((keycodes-per-modifier :initarg :keycodes-per-modifier :type xcb:CARD8) + (~sequence :type xcb:CARD16) + (length :type xcb:CARD32) + (pad~0 :initform 24 :type xcb:-pad) + (keycodes~ :initform + '(name keycodes type xcb:KEYCODE size + (* + (xcb:-fieldref 'keycodes-per-modifier) + 8)) + :type xcb:-list) + (keycodes :initarg :keycodes :type xcb:-ignore))) + +(defclass xcb:NoOperation + (xcb:-request) + ((~opcode :initform 127 :type xcb:-u1))) + +(defconst xcb:error-number-class-alist + '((1 . xcb:Request) + (2 . xcb:Value) + (3 . xcb:Window) + (4 . xcb:Pixmap) + (5 . xcb:Atom) + (6 . xcb:Cursor) + (7 . xcb:Font) + (8 . xcb:Match) + (9 . xcb:Drawable) + (10 . xcb:Access) + (11 . xcb:Alloc) + (12 . xcb:Colormap) + (13 . xcb:GContext) + (14 . xcb:IDChoice) + (15 . xcb:Name) + (16 . xcb:Length) + (17 . xcb:Implementation)) + "(error-number . error-class) alist.") + +(defconst xcb:event-number-class-alist + '((2 . xcb:KeyPress) + (3 . xcb:KeyRelease) + (4 . xcb:ButtonPress) + (5 . xcb:ButtonRelease) + (6 . xcb:MotionNotify) + (7 . xcb:EnterNotify) + (8 . xcb:LeaveNotify) + (9 . xcb:FocusIn) + (10 . xcb:FocusOut) + (11 . xcb:KeymapNotify) + (12 . xcb:Expose) + (13 . xcb:GraphicsExposure) + (14 . xcb:NoExposure) + (15 . xcb:VisibilityNotify) + (16 . xcb:CreateNotify) + (17 . xcb:DestroyNotify) + (18 . xcb:UnmapNotify) + (19 . xcb:MapNotify) + (20 . xcb:MapRequest) + (21 . xcb:ReparentNotify) + (22 . xcb:ConfigureNotify) + (23 . xcb:ConfigureRequest) + (24 . xcb:GravityNotify) + (25 . xcb:ResizeRequest) + (26 . xcb:CirculateNotify) + (27 . xcb:CirculateRequest) + (28 . xcb:PropertyNotify) + (29 . xcb:SelectionClear) + (30 . xcb:SelectionRequest) + (31 . xcb:SelectionNotify) + (32 . xcb:ColormapNotify) + (33 . xcb:ClientMessage) + (34 . xcb:MappingNotify) + (35 . xcb:GeGeneric)) + "(event-number . event-class) alist.") + + + +(provide 'xcb-xproto) + +;;; xcb-xproto.el ends here |