Improvements

src/ruby/X-kutu.rb

@@ -14,6 +14,12 @@ module X
            :height, :uint16
   end
 
+  class PointerInfo < FFI::Struct
+    layout :x, :int16,
+           :y, :int16,
+           :window, :xcb_window_t
+  end
+
   class Event < FFI::Struct
     layout :type, :int32,
            :window, :xcb_window_t,
@@ -75,7 +81,7 @@ module X
   attach_function :send_to_top, [:xcb_window_t], :void
   attach_function :free_geometry, [:pointer], :void
   attach_function :get_geometry, [:xcb_window_t], Geometry.by_value
-  attach_function :get_pointer, [], Geometry.by_value
+  attach_function :get_pointer, [], PointerInfo.by_value
   attach_function :get_screen, [], Geometry.by_value
   attach_function :warp_pointer, [:xcb_window_t, :int, :int], :void
   attach_function :move_window, [:xcb_window_t, :int, :int], :void
@@ -91,4 +97,7 @@ module X
   attach_function :grab_pointer, [:xcb_window_t], :void
   attach_function :ungrab_pointer, [], :void
   attach_function :get_root, [], :xcb_window_t
+  attach_function :mod, [], :int
+  attach_function :clk, [], :int
+  attach_function :num, [], :int
 end