rwm 0.0.1.alpha.1

data/bin/rwm

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+
+require 'rwm/x11'
+include X11::Events
+
+dpy = X11::Display.new(ENV['DISPLAY'])
+root = dpy.default_screen.root_window
+
+p X11::Mask
+root.grab_key("F1", X11::Mask[:Mod1])
+root.grab_button(1, X11::Mask[:Mod1])
+root.grab_button(3, X11::Mask[:Mod1])
+
+start, attr = []
+
+dpy.each_event {|ev|
+  case ev
+  when KeyPress
+    ev.subwindow.raise unless ev.subwindow.nil?
+  when ButtonPress
+    unless ev.subwindow.nil?
+      ev.subwindow.grab_pointer(true, X11::Mask[:PointerMotion] | X11::Mask[:ButtonRelease])
+      attr = ev.subwindow.attributes
+      start = ev
+    end
+  when MotionNotify
+    nil while (dpy.check_typed_event(MotionNotify).tap {|x| ev = x if x })
+
+    xdiff = ev.x_root - start.x_root
+    ydiff = ev.y_root - start.y_root
+    ev.window.move_resize(attr.x + (start.button == 1 ? xdiff : 0),
+                                attr.y + (start.button == 1 ? ydiff : 0),
+                                [1, attr.width + (start.button == 3 ? xdiff : 0)].max,
+                                [1, attr.height + (start.button == 3 ? ydiff : 0)].max)
+  when ButtonRelease
+    dpy.ungrab_pointer
+  end
+}

data/lib/rwm.rb

@@ -0,0 +1,41 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'rwm/client'
+
+module Arbi
+  class << self
+    def connect(address = '127.0.0.1', port = 6969)
+      @@connection = Arbi::Client.new(address, port)
+    end
+
+    def connected?
+      @@connection ? true : false
+    end
+
+    def connection
+      @@connection.sock
+    end
+
+    def get(what)
+      self.connect unless self.connected?
+      @@connection.get(what)
+    end
+  end
+end

data/lib/rwm/extensions.rb

@@ -0,0 +1,66 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'ffi'
+
+module FFI
+  module Library
+    def has_function? (sym, libraries=[])
+      if libraries.empty?
+        libraries << FFI::Library::LIBC
+      end
+
+      libraries.any? {|lib|
+        DynamicLibrary.new(lib, 0).find_function(sym.to_s) rescue nil
+      }
+    end
+
+    def attach_function! (*args, &block)
+      begin
+        attach_function(*args, &block)
+      rescue Exception => e
+        false
+      end
+    end
+  end
+
+  class Type::Builtin
+    def name
+      @__name__ ||= Type::Builtin.constants.find {|name|
+        Type::Builtin.const_get(name) == self
+      }
+    end
+  end
+
+  class Pointer
+    def typecast (type)
+      if type.is_a?(Symbol)
+        type = FFI.find_type(type)
+      end
+
+      if type.is_a?(Class) && type.ancestors.member?(FFI::Struct)
+        type.new(self)
+      elsif type.is_a?(Type::Builtin)
+        send "read_#{type.name.downcase}"
+      else
+        ArgumentError.new "You have to pass a Struct, a Builtin type or a Symbol"
+      end
+    end
+  end
+end

data/lib/rwm/x11.rb

@@ -0,0 +1,61 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'rwm/x11/c'
+require 'rwm/x11/types'
+require 'rwm/x11/events'
+require 'rwm/x11/masks'
+
+class String
+  def to_keysym
+    X11::C.XStringToKeysym(self)
+  end
+
+  def to_keycode (dpy=nil)
+    to_keysym.to_keycode(dpy)
+  end
+end
+
+class Fixnum
+  def to_keycode! (dpy=nil)
+    (dpy || ObjectSpace.each_object(X11::Display).first || X11::Display.new).
+      keysym_to_keycode(self).tap {|kc|
+      kc.instance_eval {
+        keycode!
+      }
+    }
+  end
+
+  def to_keycode (dpy=nil)
+    keycoded? ? self : to_keycode!
+  end
+
+  def to_c
+    self
+  end
+
+  private
+  def keycoded?
+    @kc ||= false
+  end
+
+  def keycode!
+    @kc = true
+  end
+end

data/lib/rwm/x11/c.rb

@@ -0,0 +1,31 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'rwm/extensions'
+
+module X11
+  module C
+    extend FFI::Library
+
+    ffi_lib 'X11'
+  end
+end
+
+require 'rwm/x11/c/types'
+require 'rwm/x11/c/functions'

data/lib/rwm/x11/c/functions.rb

@@ -0,0 +1,45 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+
+module X11
+  module C
+    attach_function :XOpenDisplay, [:string], :pointer
+
+    attach_function :XGrabButton, [:pointer, :uint, :uint, :Window, :Bool, :uint, :int, :int, :Window, :Cursor], :int
+    attach_function :XGrabKey, [:pointer, :int, :uint, :Window, :Bool, :int, :int], :int
+    attach_function :XGrabKeyboard, [:pointer, :Window, :Bool, :int, :int, :Time], :int
+    attach_function :XGrabPointer, [:pointer, :Window, :Bool, :uint, :int, :int, :Window, :Cursor, :Time], :int
+
+    attach_function :XUngrabButton, [:pointer, :uint, :uint, :Window], :int
+    attach_function :XUngrabKey, [:pointer, :int, :uint, :Window], :int
+    attach_function :XUngrabKeyboard, [:pointer, :Time], :int
+    attach_function :XUngrabPointer, [:pointer, :Time], :int
+
+    attach_function :XGetWindowAttributes, [:pointer, :Window, :pointer], :int
+    attach_function :XMoveResizeWindow, [:pointer, :Window, :int, :int, :uint, :uint], :int
+    attach_function :XRaiseWindow, [:pointer, :Window], :int
+
+    attach_function :XNextEvent, [:pointer, :pointer], :int
+    attach_function :XCheckTypedEvent, [:pointer, :int, :pointer], :Bool
+
+    attach_function :XStringToKeysym, [:string], :KeySym
+    attach_function :XKeysymToKeycode, [:pointer, :KeySym], :KeyCode
+  end
+end

data/lib/rwm/x11/c/types.rb

@@ -0,0 +1,647 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of rwm.
+#
+# rwm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# rwm 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with rwm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module X11
+  module C
+    module Bool
+      extend FFI::DataConverter
+      native_type FFI::Type::INT
+
+      def self.to_native (value, ctx)
+        value ? 1 : 0
+      end
+
+      def self.from_native (value, ctx)
+        !value.zero?
+      end
+    end
+    FFI.typedef(Bool, :Bool)
+
+    FFI.typedef(:uint32, :CARD32)
+    XID = FFI.typedef(:ulong, :XID)
+
+    VisualID = FFI.typedef(:CARD32, :VisualID)
+    Window = FFI.typedef(:XID, :Window)
+    Colormap = FFI.typedef(:XID, :Colormap)
+    GContext = FFI.typedef(:XID, :GContext)
+    Cursor = FFI.typedef(:XID, :Cursor)
+    KeySym = FFI.typedef(:XID, :KeySym)
+    Drawable = FFI.typedef(:XID, :Drawable)
+    KeyCode = FFI.typedef(:uchar, :KeyCode)
+    Time = FFI.typedef(:ulong, :Time)
+    Atom = FFI.typedef(:ulong, :Atom)
+
+    class Display < FFI::Struct
+      layout \
+        :ext_data, :pointer,
+        :private1, :pointer,
+        :fd, :int,
+        :private2, :int,
+        :proto_major_version, :int,
+        :proto_minor_version, :int,
+        :vendor, :string,
+        :private3, XID,
+        :private4, XID,
+        :private5, XID,
+        :private6, :int,
+        :resource_alloc, :pointer,
+        :byte_order, :int,
+        :bitmap_unit, :int,
+        :bitmap_pad, :int,
+        :bitmap_bit_order, :int,
+        :nformats, :int,
+        :pixmap_format, :pointer,
+        :private8, :int,
+        :release, :int,
+        :private9, :pointer,
+        :private10, :pointer,
+        :qlen, :int,
+        :last_request_read, :ulong,
+        :request, :ulong,
+        :private11, :pointer,
+        :private12, :pointer,
+        :private13, :pointer,
+        :private14, :pointer,
+        :max_request_size, :uint,
+        :db, :pointer,
+        :private15, :pointer,
+        :display_name, :string,
+        :default_screen, :int,
+        :nscreens, :int,
+        :screens, :pointer,
+        :motion_buffer, :ulong,
+        :private16, :ulong,
+        :min_keycode, :int,
+        :max_keycode, :int,
+        :private17, :pointer,
+        :private18, :pointer,
+        :private19, :int,
+        :xdefaults, :string
+    end
+
+    class GC < FFI::Struct
+      layout \
+        :ext_data, :pointer,
+        :gid, GContext
+    end
+
+    class Screen < FFI::Struct
+      layout \
+        :ext_data, :pointer,
+        :display, :pointer,
+        :root, :Window,
+        :width, :int,
+        :height, :int,
+        :mwidth, :int,
+        :mheight, :int,
+        :ndepths, :int,
+        :depths, :pointer,
+        :root_depth, :int,
+        :root_visual, :pointer,
+        :default_gc, GC,
+        :cmap, Colormap,
+        :white_pixel, :ulong,
+        :black_pixel, :ulong,
+        :max_maps, :int,
+        :min_maps, :int,
+        :save_unders, :Bool,
+        :root_input_mask, :long
+    end
+
+    class XWindowAttributes < FFI::Struct
+      layout \
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :border_width, :int,
+        :depth, :int,
+        :visual, :pointer,
+        :root, :Window,
+        :class, :int,
+        :bit_gravity, :int,
+        :win_gravity, :int,
+        :backing_store, :int,
+        :backing_planes, :ulong,
+        :backing_pixel, :ulong,
+        :save_under, :Bool,
+        :colormap, Colormap,
+        :map_installed, :Bool,
+        :map_state, :int,
+        :all_event_masks, :long,
+        :your_event_masks, :long,
+        :do_not_propagate_mask, :long,
+        :override_redirect, :Bool,
+        :screen, :pointer
+    end
+
+    class Visual < FFI::Struct
+      layout \
+        :ext_data, :pointer,
+        :visualid, :VisualID,
+        :class, :int,
+        :read_mask, :ulong,
+        :green_mask, :ulong,
+        :blue_mask, :ulong,
+        :buts_per_rgb, :int,
+        :map_entries, :int
+    end
+
+    class XAnyEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window
+    end
+
+    class XKeyEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :root, :Window,
+        :subwindow, :Window,
+        :time, :Time,
+        :x, :int,
+        :y, :int,
+        :x_root, :int,
+        :y_root, :int,
+        :state, :uint,
+        :keycode, :uint,
+        :same_screen, :Bool
+    end
+
+    class XButtonEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :root, :Window,
+        :subwindow, :Window,
+        :time, :Time,
+        :x, :int,
+        :y, :int,
+        :x_root, :int,
+        :y_root, :int,
+        :state, :uint,
+        :button, :uint,
+        :same_screen, :Bool
+    end
+
+    class XMotionEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :root, :Window,
+        :subwindow, :Window,
+        :time, :Time,
+        :x, :int,
+        :y, :int,
+        :x_root, :int,
+        :y_root, :int,
+        :state, :uint,
+        :is_hint, :char,
+        :same_screen, :Bool
+    end
+
+    class XCrossingEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :root, :Window,
+        :subwindow, :Window,
+        :time, :Time,
+        :x, :int,
+        :y, :int,
+        :x_root, :int,
+        :y_root, :int,
+        :mode, :int,
+        :detail, :int,
+        :same_screen, :Bool,
+        :focus, :Bool,
+        :state, :uint
+    end
+
+    class XFocusChangeEvent < FFI::Union
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :mode, :int,
+        :detail, :int
+    end
+
+    class XExposeEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :count, :int
+    end
+
+    class XGraphicsExposeEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :drawable, :Drawable,
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :count, :int,
+        :major_code, :int,
+        :minor_code, :int
+    end
+
+    class XNoExposeEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :drawable, :Drawable,
+        :major_code, :int,
+        :minor_code, :int
+    end
+
+    class XVisibilityEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :state, :int
+    end
+
+    class XCreateWindowEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :parent, :Window,
+        :window, :Window,
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :border_width, :int,
+        :override_redirect, :Bool
+    end
+
+    class XDestroyWindowEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window
+    end
+
+    class XUnmapEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :from_configure, :Bool
+    end
+
+    class XMapEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :override_redirect, :Bool
+    end
+
+    class XMapRequestEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :parent, :Window,
+        :x, :int,
+        :y, :int,
+        :override_redirect, :Bool
+    end
+
+    class XReparentEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :parent, :Window,
+        :x, :int,
+        :y, :int,
+        :override_redirect, :Bool
+    end
+
+    class XConfigureEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :border_width, :int,
+        :above, :Window,
+        :override_redirect, :Bool
+    end
+
+    class XGravityEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :x, :int,
+        :y, :int
+    end
+
+    class XResizeRequestEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :width, :int,
+        :height, :int
+    end
+
+    class XConfigureRequestEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :x, :int,
+        :y, :int,
+        :width, :int,
+        :height, :int,
+        :border_width, :int,
+        :above, :Window,
+        :detail, :int,
+        :value_mask, :ulong
+    end
+
+    class XCirculateEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :place, :int
+    end
+
+    class XCirculateRequestEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :event, :Window,
+        :window, :Window,
+        :place, :int
+    end
+
+    class XPropertyEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :atom, :Atom,
+        :time, :Time,
+        :state, :int
+    end
+
+    class XSelectionClearEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :selection, :Atom,
+        :time, :Time
+    end
+
+    class XSelectionRequestEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :owner, :Window,
+        :requestor, :Window,
+        :selection, :Atom,
+        :target, :Atom,
+        :property, :Atom,
+        :time, :Time
+    end
+
+    class XSelectionEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :requestor, :Window,
+        :selection, :Atom,
+        :target, :Atom,
+        :property, :Atom,
+        :time, :Time
+    end
+
+    class XColormapEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :colormap, :Colormap,
+        :new, :Bool,
+        :state, :int
+    end
+
+    class XClientMessageEvent < FFI::Struct
+      class Data < FFI::Struct
+        layout \
+          :b, [:char, 20],
+          :s, [:short, 10],
+          :l, [:long, 5]
+      end
+
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :message_type, :Atom,
+        :format, :int,
+        :data, Data
+    end
+
+    class XMappingEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :request, :int,
+        :first_keycode, :int,
+        :count, :int
+    end
+
+    class XErrorEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :display, :pointer,
+        :resourceid, :XID,
+        :serial, :ulong,
+        :error_code, :uchar,
+        :request_code, :uchar,
+        :minor_code, :uchar
+    end
+
+    class XKeymapEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :window, :Window,
+        :key_vector, [:char, 32]
+    end
+
+    class XGenericEvent < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :extension, :int,
+        :evtype, :int
+    end
+
+    class XGenericEventCookie < FFI::Struct
+      layout \
+        :type, :int,
+        :serial, :ulong,
+        :send_event, :Bool,
+        :display, :pointer,
+        :extension, :int,
+        :evtype, :int,
+        :cookie, :uint,
+        :data, :pointer
+    end
+
+    class XEvent < FFI::Union
+      layout \
+        :type, :int,
+        :xany, XAnyEvent,
+        :xkey, XKeyEvent,
+        :xbutton, XButtonEvent,
+        :xmotion, XMotionEvent,
+        :xcrossing, XCrossingEvent,
+        :xfocus, XFocusChangeEvent,
+        :xexpose, XExposeEvent,
+        :xgraphicsexpose, XGraphicsExposeEvent,
+        :xnoexpose, XNoExposeEvent,
+        :xvisibility, XVisibilityEvent,
+        :xcreatewindow, XCreateWindowEvent,
+        :xdestroywindow, XDestroyWindowEvent,
+        :xunmap, XUnmapEvent,
+        :xmap, XMapEvent,
+        :xmaprequest, XMapRequestEvent,
+        :xreparent, XReparentEvent,
+        :xconfigure, XConfigureEvent,
+        :xgravity, XGravityEvent,
+        :xresizerequest, XResizeRequestEvent,
+        :xconfigurerequest, XConfigureRequestEvent,
+        :xcirculate, XCirculateEvent,
+        :xcirculaterequest, XCirculateRequestEvent,
+        :xproperty, XPropertyEvent,
+        :xselectionclear, XSelectionClearEvent,
+        :xselectionrequest, XSelectionRequestEvent,
+        :xselection, XSelectionEvent,
+        :xcolormap, XColormapEvent,
+        :xclient, XClientMessageEvent,
+        :xmapping, XMappingEvent,
+        :xerror, XErrorEvent,
+        :xkeymap, XKeymapEvent,
+        :xgeneric, XGenericEvent,
+        :xcookie, XGenericEventCookie,
+        :pad, [:long, 24]
+    end
+  end
+end