init commit

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