wmadd 0.1.0

data/README.md

@@ -0,0 +1,18 @@
+# Wmadd
+
+X Window で、
+
+- ウィンドウがリサイズされるときにウィンドウの位置と大きさを表示する
+- アクティブウィンドウの上にあるウィンドウを半透明化する
+
+## Installation
+
+    $ gem install wmadd
+
+## Usage
+
+    $ wmadd
+
+## LICENSE
+
+GPLv3

data/Rakefile

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new(:spec)
+
+task default: :spec

data/exe/wmadd

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require 'wmadd'
+
+Wmadd.start

data/lib/wmadd/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+class Wmadd
+  VERSION = "0.1.0"
+end

data/lib/wmadd/x.rb

@@ -0,0 +1,658 @@
+require 'fiddle/import'
+
+class Wmadd
+  module X11
+    extend Fiddle::Importer
+    dlload 'libX11.so.6'
+    typealias 'XID', 'unsigned long'
+    typealias 'Window', 'XID'
+    typealias 'Pixmap', 'XID'
+    typealias 'Colormap', 'XID'
+    typealias 'Drawable', 'XID'
+    typealias 'Font', 'XID'
+    typealias 'Status', 'int'
+    typealias 'Atom', 'unsigned long'
+    typealias 'Bool', 'int'
+    typealias 'GC', 'void*'
+    typealias 'Time', 'unsigned long'
+
+    def self.struct(members)
+      klass = super
+
+      h = members.map.to_h do |member|
+        if member =~ /\A(.*\*\s*)(\w+)\z/
+          name = $2
+          pointer = true
+        elsif member =~ /(\w+)\z/
+          name = $1
+          pointer = false
+        end
+        [name.intern, pointer]
+      end
+
+      klass.define_singleton_method :attributes do
+        h.keys
+      end
+
+      klass.define_method :to_h do
+        super().transform_values{|v| v.is_a?(Fiddle::Pointer) && v.null? ? nil : v}
+      end
+
+      klass.define_method :inspect do
+        h = to_h.transform_values{|v| v.is_a?(Fiddle::Pointer) ? "(pointer)" : v}
+        "#<#{klass.name}: #{h.inspect}>"
+      end
+
+      klass
+    end
+
+    Screen = struct [
+      'XExtData *ext_data',
+      'struct _XDisplay *display',
+      'Window root',
+      'int width',
+      'int height',
+      'int mwidth',
+      'int mheight',
+      'int ndepths',
+      'Depth *depths',
+      'int root_depth',
+      'Visual *root_visual',
+      'GC default_gc',
+      'Colormap cmap',
+      'unsigned long white_pixel',
+      'unsigned long black_pixel',
+      'int max_maps',
+      'int min_maps',
+      'int backing_store',
+      'Bool save_unders',
+      'long root_input_mask',
+    ]
+
+    Window = struct ['Window window']
+    Pointer = struct ['void *ptr']
+    XClassHint = struct ['char *name', 'char *class_name']
+    XSizeHints = struct [
+      'long flags', 'int x', 'int y', 'int width', 'int height',
+      'int min_width', 'int min_height', 'int max_width', 'int max_height',
+      'int width_inc', 'int height_inc',
+      'int min_aspect_x', 'int min_aspect_y', 'int max_aspect_x', 'int max_aspect_y',
+      'int base_width', 'int base_height',
+      'int win_gravity',
+    ]
+    XTextProperty = struct ['unsigned char *value', 'Atom encoding', 'int format', 'unsigned long nitems']
+    XCreateWindowEvent = struct [
+      'int type',
+      'unsigned long serial',
+      'Bool send_event',
+      'Display *display',
+      'Window parent',
+      'Window window',
+      'int x',
+      'int y',
+      'int width',
+      'int height',
+      'int border_width',
+      'Bool override_redirect',
+    ]
+    XConfigureEvent = struct [
+      'int type',
+      'unsigned long serial',
+      'Bool send_event',
+      'Display *display',
+      'Window event',
+      'Window window',
+      'int x',
+      'int y',
+      'int width',
+      'int height',
+      'int border_width',
+      'Window above',
+      'Bool override_redirect',
+    ]
+    XExposeEvent = struct [
+      'int type',
+      'unsigned long serial',
+      'Bool send_event',
+      'Display *display',
+      'Window window',
+      'int x',
+      'int y',
+      'int width',
+      'int height',
+      'int count',
+    ]
+    XPropertyEvent = struct [
+      'int type',
+      'unsigned long serial',
+      'Bool send_event',
+      'Display *display',
+      'Window window',
+      'Atom atom',
+      'Time time',
+      'int state',
+    ]
+    XWMHints = struct [
+      'long flags',
+      'Bool input',
+      'int initial_state',
+      'Pixmap icon_pixmap',
+      'Window icon_window',
+      'int icon_x',
+      'int icon_y',
+      'Pixmap icon_mask',
+      'XID window_group',
+    ]
+    XWindowAttributes = struct [
+      'int x',
+      'int y',
+      'int width',
+      'int height',
+      'int border_width',
+      'int depth',
+      'Visual *visual',
+      'Window root',
+      'int c_class',
+      'int bit_gravity',
+      'int win_gravity',
+      'int backing_store',
+      'unsigned long backing_planes',
+      'unsigned long backing_pixel',
+      'Bool save_under',
+      'Colormap colormap',
+      'Bool map_installed',
+      'int map_state',
+      'long all_event_masks',
+      'long your_event_mask',
+      'long do_not_propagate_mask',
+      'Bool override_redirect',
+      'Screen *screen',
+    ]
+
+    Int = struct ['int n']
+    UnsignedLong = struct ['unsigned long n']
+
+    extern 'Display* XOpenDisplay(char*)'
+    extern 'Window XDefaultRootWindow(Display*)'
+    extern 'int XGetInputFocus(Display*, Window*, int*)'
+    extern 'int XGetClassHint(Display*, Window, XClassHint*)'
+    extern 'Status XQueryTree(Display*, Window, Window*, Window*, Window**, unsigned int*)'
+    extern 'Status XGetWMName(Display*, Window, XTextProperty*)'
+    extern 'Status XGetWMNormalHints(Display*, Window, XSizeHints*, long*)'
+    extern 'XWMHints* XGetWMHints(Display*, Window)'
+    extern 'int Xutf8TextPropertyToTextList(Display*, XTextProperty*, char***, int*)'
+    extern 'int XFree(void*)'
+    extern 'void XFreeStringList(char**)'
+    extern 'int XSelectInput(Display*, Window, unsigned long)'
+    extern 'int XNextEvent(Display*, XEvent*)'
+    extern 'int XGetGeometry(Display*, Window, Window*, int*, int*, unsigned int*, unsigned int*, unsigned int*, unsigned int*)'
+    extern 'void* XSetErrorHandler(int (*)(Display*, XErrorEvent*))'
+    extern 'Window XCreateSimpleWindow(Display*, Window, int, int, unsigned int, unsigned int, unsigned int, unsigned long, unsigned long)'
+    extern 'int XMoveWindow(Display*, Window, int, int)'
+    extern 'int XMapWindow(Display*, Window)'
+    extern 'int XUnmapWindow(Display*, Window)'
+    extern 'int XUnmapSubwindows(Display*, Window)'
+    extern 'int XChangeProperty(Display*, Window, Atom, Atom, int, int, unsigned char*, int)'
+    extern 'Atom XInternAtom(Display*, char*, char)'
+    extern 'void XFlush(Display*)'
+    extern 'Status XGetWindowAttributes(Display*, Window, XWindowAttributes*)'
+    extern 'GC XCreateGC(Display*, Drawable, unsigned long, XGCValues*)'
+    extern 'int XSetForeground(Display*, GC, unsigned long)'
+    extern 'int XSetBackground(Display*, GC, unsigned long)'
+    extern 'int XSetFont(Display*, GC, Font)'
+    extern 'Font XLoadFont(Display*, char*)'
+    extern 'int XDrawString(Display*, Drawable, GC, int, int, char*, int)'
+    extern 'int XFillRectangle(Display*, Drawable, GC, int, int, unsigned int, unsigned int)'
+    extern 'int XClearWindow(Display*, Window)'
+    extern 'int XGetWindowProperty(Display*, Window, Atom, long, long, Bool, Atom, Atom*, int*, unsigned long*, unsigned long*, unsigned char**)'
+
+    ErrorHandler = bind("int error_handler(Display*, XErrorEvent*)") { |*| return 0 }
+    X11::XSetErrorHandler(X11::ErrorHandler)
+  end
+
+  module X
+    # event mask
+    NO_EVENT_MASK              = 0
+    KEY_PRESS_MASK             = 1 << 0
+    KEY_RELEASE_MASK           = 1 << 1
+    BUTTON_PRESS_MASK          = 1 << 2
+    BUTTON_RELEASE_MASK        = 1 << 3
+    ENTER_WINDOW_MASK          = 1 << 4
+    LEAVE_WINDOW_MASK          = 1 << 5
+    POINTER_MOTION_MASK        = 1 << 6
+    POINTER_MOTION_HINT_MASK   = 1 << 7
+    BUTTON1_MOTION_MASK        = 1 << 8
+    BUTTON2_MOTION_MASK        = 1 << 9
+    BUTTON3_MOTION_MASK        = 1 << 10
+    BUTTON4_MOTION_MASK        = 1 << 11
+    BUTTON5_MOTION_MASK        = 1 << 12
+    BUTTON_MOTION_MASK         = 1 << 13
+    KEYMAP_STATE_MASK          = 1 << 14
+    EXPOSURE_MASK              = 1 << 15
+    VISIBILITY_CHANGE_MASK     = 1 << 16
+    STRUCTURE_NOTIFY_MASK      = 1 << 17
+    RESIZE_REDIRECT_MASK       = 1 << 18
+    SUBSTRUCTURE_NOTIFY_MASK   = 1 << 19
+    SUBSTRUCTURE_REDIRECT_MASK = 1 << 20
+    FOCUS_CHANGE_MASK          = 1 << 21
+    PROPERTY_CHANGE_MASK       = 1 << 22
+    COLORMAP_CHANGE_MASK       = 1 << 23
+    OWNER_GRAB_BUTTON_MASK     = 1 << 24
+
+    # event type
+    KEY_PRESS         = 2
+    KEY_RELEASE       = 3
+    BUTTON_PRESS      = 4
+    BUTTON_RELEASE    = 5
+    MOTION_NOTIFY     = 6
+    ENTER_NOTIFY      = 7
+    LEAVE_NOTIFY      = 8
+    FOCUS_IN          = 9
+    FOCUS_OUT         = 10
+    KEYMAP_NOTIFY     = 11
+    EXPOSE            = 12
+    GRAPHICS_EXPOSE   = 13
+    NO_EXPOSE         = 14
+    VISIBILITY_NOTIFY = 15
+    CREATE_NOTIFY     = 16
+    DESTROY_NOTIFY    = 17
+    UNMAP_NOTIFY      = 18
+    MAP_NOTIFY        = 19
+    MAP_REQUEST       = 20
+    REPARENT_NOTIFY   = 21
+    CONFIGURE_NOTIFY  = 22
+    CONFIGURE_REQUEST = 23
+    GRAVITY_NOTIFY    = 24
+    RESIZE_REQUEST    = 25
+    CIRCULATE_NOTIFY  = 26
+    CIRCULATE_REQUEST = 27
+    PROPERTY_NOTIFY   = 28
+    SELECTION_CLEAR   = 29
+    SELECTION_REQUEST = 30
+    SELECTION_NOTIFY  = 31
+    COLORMAP_NOTIFY   = 32
+    CLIENT_MESSAGE    = 33
+    MAPPING_NOTIFY    = 34
+    GENERIC_EVENT     = 35
+
+
+    # property mode
+    PROP_MODE_REPLACE = 0
+    PROP_MODE_PREPEND = 1
+    PROP_MODE_APPEND  = 2
+
+    # map state
+    IS_UNMAPPED   = 0
+    IS_UNVIEWABLE = 1
+    IS_VIEWABLE   = 2
+
+    # atom
+    ANY_PROPERTY_TYPE      = 0
+    XA_PRIMARY             = 1
+    XA_SECONDARY           = 2
+    XA_ARC                 = 3
+    XA_ATOM                = 4
+    XA_BITMAP              = 5
+    XA_CARDINAL            = 6
+    XA_COLORMAP            = 7
+    XA_CURSOR              = 8
+    XA_CUT_BUFFER0         = 9
+    XA_CUT_BUFFER1         = 10
+    XA_CUT_BUFFER2         = 11
+    XA_CUT_BUFFER3         = 12
+    XA_CUT_BUFFER4         = 13
+    XA_CUT_BUFFER5         = 14
+    XA_CUT_BUFFER6         = 15
+    XA_CUT_BUFFER7         = 16
+    XA_DRAWABLE            = 17
+    XA_FONT                = 18
+    XA_INTEGER             = 19
+    XA_PIXMAP              = 20
+    XA_POINT               = 21
+    XA_RECTANGLE           = 22
+    XA_RESOURCE_MANAGER    = 23
+    XA_RGB_COLOR_MAP       = 24
+    XA_RGB_BEST_MAP        = 25
+    XA_RGB_BLUE_MAP        = 26
+    XA_RGB_DEFAULT_MAP     = 27
+    XA_RGB_GRAY_MAP        = 28
+    XA_RGB_GREEN_MAP       = 29
+    XA_RGB_RED_MAP         = 30
+    XA_STRING              = 31
+    XA_VISUALID            = 32
+    XA_WINDOW              = 33
+    XA_WM_COMMAND          = 34
+    XA_WM_HINTS            = 35
+    XA_WM_CLIENT_MACHINE   = 36
+    XA_WM_ICON_NAME        = 37
+    XA_WM_ICON_SIZE        = 38
+    XA_WM_NAME             = 39
+    XA_WM_NORMAL_HINTS     = 40
+    XA_WM_SIZE_HINTS       = 41
+    XA_WM_ZOOM_HINTS       = 42
+    XA_MIN_SPACE           = 43
+    XA_NORM_SPACE          = 44
+    XA_MAX_SPACE           = 45
+    XA_END_SPACE           = 46
+    XA_SUPERSCRIPT_X       = 47
+    XA_SUPERSCRIPT_Y       = 48
+    XA_SUBSCRIPT_X         = 49
+    XA_SUBSCRIPT_Y         = 50
+    XA_UNDERLINE_POSITION  = 51
+    XA_UNDERLINE_THICKNESS = 52
+    XA_STRIKEOUT_ASCENT    = 53
+    XA_STRIKEOUT_DESCENT   = 54
+    XA_ITALIC_ANGLE        = 55
+    XA_X_HEIGHT            = 56
+    XA_QUAD_WIDTH          = 57
+    XA_WEIGHT              = 58
+    XA_POINT_SIZE          = 59
+    XA_RESOLUTION          = 60
+    XA_COPYRIGHT           = 61
+    XA_NOTICE              = 62
+    XA_FONT_NAME           = 63
+    XA_FAMILY_NAME         = 64
+    XA_FULL_NAME           = 65
+    XA_CAP_HEIGHT          = 66
+    XA_WM_CLASS            = 67
+    XA_WM_TRANSIENT_FOR    = 68
+
+    class Display
+      attr_reader :display
+
+      # @param display [String]
+      def initialize(display=nil)
+        display ||= ENV['DISPLAY']
+        @display = X11::XOpenDisplay(display) or raise "Cannot open display: #{display}"
+      end
+
+      def default_screen
+        X11::DefaultScreen(@display)
+      end
+
+      def width(screen)
+        X11::DisplayWidth(@display, screen)
+      end
+
+      def height(screen)
+        X11::DisplayHeight(@display, screen)
+      end
+
+      def default_root_window
+        Window.new(self, X11::XDefaultRootWindow(@display))
+      end
+
+      def flush
+        X11::XFlush(@display)
+      end
+
+      def load_font(font)
+        X11::XLoadFont(@display, font)
+      end
+
+      def next_event
+        ev_buf = ' ' * 8 * 24
+        ev_ptr = Fiddle::Pointer[ev_buf]
+        while true
+          X11::XNextEvent(@display, ev_ptr)
+          ev_type = ev_buf.unpack1('i')
+          case ev_type
+          when CREATE_NOTIFY
+            return CreateWindowEvent.new(**X11::XCreateWindowEvent.new(ev_ptr).to_h)
+          when CONFIGURE_NOTIFY
+            return ConfigureEvent.new(**X11::XConfigureEvent.new(ev_ptr).to_h)
+          when EXPOSE
+            return ExposeEvent.new(**X11::XExposeEvent.new(ev_ptr).to_h)
+          when PROPERTY_NOTIFY
+            return PropertyEvent.new(**X11::XPropertyEvent.new(ev_ptr).to_h)
+          end
+        end
+      end
+
+      def wm_window_types
+        @wm_window_types ||= {
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_DESKTOP', 0) => :desktop,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_DOCK',    0) => :dock,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_TOOLBAR', 0) => :toolbar,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_MENU',    0) => :menu,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_UTILITY', 0) => :utility,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_SPLASH',  0) => :splash,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_DIALOG',  0) => :dialog,
+          X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE_NORMAL',  0) => :normal,
+        }
+      end
+
+      def intern_atom(sym, f=0)
+        X11::XInternAtom(@display, sym.to_s, f)
+      end
+    end
+
+    ClassHint = Data.define(*X11::XClassHint.attributes)
+    WMHints = Data.define(*X11::XWMHints.attributes)
+    SizeHints = Data.define(*X11::XSizeHints.attributes)
+    WindowAttributes = Data.define(*X11::XWindowAttributes.attributes)
+    CreateWindowEvent = Data.define(*X11::XCreateWindowEvent.attributes)
+    ConfigureEvent = Data.define(*X11::XConfigureEvent.attributes)
+    ExposeEvent = Data.define(*X11::XExposeEvent.attributes)
+    PropertyEvent = Data.define(*X11::XPropertyEvent.attributes)
+    Geometry = Data.define(:x, :y, :width, :height, :border_width, :depth)
+
+    class Window
+      def initialize(display_obj, id)
+        @display_obj = display_obj
+        @display = display_obj.display
+        @window = id
+      end
+
+      def inspect
+        "#<#{self.class.name}: 0x#{id.to_s(16)}: #{class_hint&.class_name}: #{wm_name}>"
+      end
+
+      def id
+        @window
+      end
+
+      def hash
+        id.hash
+      end
+
+      def eql?(other)
+        id == other.id
+      end
+
+      def class_hint
+        class_hint = X11::XClassHint.malloc(Fiddle::RUBY_FREE)
+        ret = X11::XGetClassHint(@display, @window, class_hint)
+        ret == 0 ? nil : ClassHint.new(name: class_hint.name.to_s, class_name: class_hint.class_name.to_s)
+      end
+
+      def geometry
+        root = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        x = X11::Int.malloc(Fiddle::RUBY_FREE)
+        y = X11::Int.malloc(Fiddle::RUBY_FREE)
+        width = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        height = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        border_width = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        depth = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+
+        X11::XGetGeometry(@display, @window, root, x, y, width, height, border_width, depth)
+        Geometry.new(x: x.n, y: y.n, width: width.n, height: height.n, border_width: border_width.n, depth: depth.n)
+      end
+
+      def wm_hints
+        hints = X11::XGetWMHints(@display, @window)
+        return nil if hints.null?
+        WMHints.new(**X11::XWMHints.new(hints).to_h)
+      ensure
+        X11::XFree(hints) unless hints.null?
+      end
+
+      def wm_normal_hints
+        hints = X11::XSizeHints.malloc(Fiddle::RUBY_FREE)
+        ret = X11::XGetWMNormalHints(@display, @window, hints, ' '*8)
+        ret == 0 ? nil : SizeHints.new(**hints.to_h)
+      end
+
+      def wm_name
+        prop = X11::XTextProperty.malloc(Fiddle::RUBY_FREE)
+        text_list = X11::Pointer.malloc(Fiddle::RUBY_FREE)
+        X11::XGetWMName(@display, @window, prop)
+        X11::Xutf8TextPropertyToTextList(@display, prop, text_list, ' '*8)
+        ptr = text_list.ptr
+        if ptr.null?
+          nil
+        else
+          ptr.ptr.to_s.force_encoding('utf-8')
+        end
+      end
+
+      def select_input(mask)
+        X11::XSelectInput(@display, @window, mask)
+      end
+
+      def parent
+        root = ' '*8
+        parent = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        nchildren = X11::Int.malloc(Fiddle::RUBY_FREE)
+        children_p = X11::Pointer.malloc(Fiddle::RUBY_FREE)
+        ret = X11::XQueryTree(@display, @window, root, parent, children_p, nchildren)
+        return if ret == 0
+
+        Window.new(@display_obj, parent.n)
+      end
+
+      def query_tree
+        root = ' '*8
+        parent = ' '*8
+        nchildren = X11::Int.malloc(Fiddle::RUBY_FREE)
+        children_p = X11::Pointer.malloc(Fiddle::RUBY_FREE)
+        ret = X11::XQueryTree(@display, @window, root, parent, children_p, nchildren)
+        return if ret == 0
+
+        nchildren.n.times.map do |i|
+          win = children_p.ptr[X11::Window.size * i, X11::Window.size].unpack1('L!')
+          Window.new(@display_obj, win)
+        end
+      end
+
+      def create_simple_window(x, y, width, height, border_width, border, background)
+        win = X11::XCreateSimpleWindow(@display, @window, x, y, width, height, border_width, border, background)
+        Window.new(@display_obj, win)
+      end
+
+      def move_window(x, y)
+        X11::XMoveWindow(@display, @window, x, y)
+      end
+
+      def map_window
+        X11::XMapWindow(@display, @window)
+      end
+
+      def unmap_window
+        X11::XUnmapWindow(@display, @window)
+      end
+
+      def unmap_subwindows
+        X11::XUnmapSubwindows(@display, @window)
+      end
+
+      def change_property_atom(property, mode, data)
+        prop_ = X11::XInternAtom(@display, property.to_s, 0)
+        data_ = [X11::XInternAtom(@display, data.to_s, 0)].pack('L!')
+        X11::XChangeProperty(@display, @window, prop_, X::XA_ATOM, 32, mode, data_, 1)
+      end
+
+      def change_property_cardinal(property, mode, data)
+        prop_ = X11::XInternAtom(@display, property.to_s, 0)
+        data_ = X11::UnsignedLong.malloc
+        data_.n = data
+        X11::XChangeProperty(@display, @window, prop_, X::XA_CARDINAL, 32, mode, data_, 1)
+      end
+
+      def window_attributes
+        attr = X11::XWindowAttributes.malloc(Fiddle::RUBY_FREE)
+        X11::XGetWindowAttributes(@display, @window, attr)
+        WindowAttributes.new(**attr.to_h)
+      end
+
+      def screen
+        X11::Screen.new(window_attributes.screen)
+      end
+
+      def create_gc
+        gc = X11::XCreateGC(@display, @window, 0, nil)
+        GC.new(@display, @window, gc)
+      end
+
+      def clear
+        X11::XClearWindow(@display, @window)
+      end
+
+      def window_type
+        net_wm_window_type = X11::XInternAtom(@display, '_NET_WM_WINDOW_TYPE', 0)
+
+        property = net_wm_window_type
+        actual_type = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        actual_format = X11::Int.malloc(Fiddle::RUBY_FREE)
+        nitems = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        bytes = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        prop = X11::Pointer.malloc(Fiddle::RUBY_FREE)
+
+        X11::XGetWindowProperty(@display, @window, property, 0, ~0, 0, ANY_PROPERTY_TYPE, actual_type, actual_format, nitems, bytes, prop)
+        return nil if actual_type.n != XA_ATOM
+        raise "invalid format: #{actual_format.n}" unless actual_format.n == 32
+        type = X11::UnsignedLong.new(prop.ptr)
+        @display_obj.wm_window_types[type.n]
+      ensure
+        X11::XFree(prop.ptr) unless prop.ptr.null?
+      end
+
+      def active_window
+        net_active_window = X11::XInternAtom(@display, '_NET_ACTIVE_WINDOW', 1)
+
+        actual_type = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        actual_format = X11::Int.malloc(Fiddle::RUBY_FREE)
+        nitems = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        bytes = X11::UnsignedLong.malloc(Fiddle::RUBY_FREE)
+        prop = X11::Pointer.malloc(Fiddle::RUBY_FREE)
+        X11::XGetWindowProperty(@display, @window, net_active_window, 0, ~0, 0, ANY_PROPERTY_TYPE, actual_type, actual_format, nitems, bytes, prop)
+        raise "invalid format: #{actual_format.n}" unless actual_format.n == 32
+        raise "invalid nitems: #{nitems.n}" unless nitems.n > 0
+
+        win = X11::UnsignedLong.new(prop.ptr).n
+        return nil if win == 0
+        Window.new(@display_obj, win)
+      ensure
+        X11::XFree(prop.ptr) unless prop.ptr.null?
+      end
+    end
+
+    class GC
+      def initialize(display, window, gc)
+        @display = display
+        @window = window
+        @gc = gc
+      end
+
+      def set_background(color)
+        X11::XSetBackground(@display, @gc, color)
+      end
+
+      def set_foreground(color)
+        X11::XSetForeground(@display, @gc, color)
+      end
+
+      def set_font(font)
+        X11::XSetFont(@display, @gc, font)
+      end
+
+      def draw_string(x, y, string)
+        X11::XDrawString(@display, @window, @gc, x, y, string, string.length)
+      end
+
+      def fill_rectangle(x, y, width, height)
+        X11::XFillRectangle(@display, @window, @gc, x, y, width, height)
+      end
+    end
+  end
+end