gtk 0.1.0

data/lib/gtk/bin.rb

@@ -0,0 +1,5 @@
+module Gtk
+  class Bin < Container
+  end
+end
+

data/lib/gtk/buttons_type.rb

@@ -0,0 +1,14 @@
+module Gtk
+  module ButtonsType
+    NONE      = 0
+    OK        = 1
+    CLOSE     = 2
+    CANCEL    = 3
+    YES_NO    = 4
+    OK_CANCEL = 5
+
+    def self.[] symbol
+      const_get(symbol.to_s.upcase.to_sym)
+    end
+  end
+end

data/lib/gtk/cell_renderer.rb

@@ -0,0 +1,164 @@
+module Gtk
+  module Lib
+#    attach_function :gtk_cell_renderer_new, [], :pointer
+    attach_method :gtk_cell_renderer_get_state, [:pointer, :pointer, :int], :int
+    attach_method :gtk_cell_renderer_get_padding, [:pointer, :pointer, :pointer], :void
+    attach_method :gtk_cell_renderer_set_padding, [:pointer, :int, :int], :void
+    attach_method :gtk_cell_renderer_get_alignment, [:pointer, :pointer, :pointer], :void
+    attach_function :gtk_cell_renderer_get_type, [], :ulong
+  end
+
+  class CellRenderer < Widget
+    class GObjectClass < FFI::Struct
+      layout  :g_type_class, :long,
+              :construct_properties, :pointer,
+              :constructor, :pointer,
+              :set_property, :pointer,
+              :get_property, :pointer
+    end
+
+    class GtkCellRendererClass < FFI::Struct
+
+      # layout  :get_request_mode, :get_request_mode_function,
+      #         :get_preferred_width, :get_preferred_width_function,
+      #         :get_preferred_height_for_width, :get_preferred_height_for_width_function,
+      #         :get_preferred_height, :get_preferred_height_function,
+      #         :get_preferred_width_for_height, :get_preferred_width_for_height_function,
+      #         :get_aligned_area, :get_aligned_area_function,
+      #         :get_size, :get_size_function,
+      #         :render, :render_function
+
+      SIZE_OF_GInitiallyUnownedClass = 136
+
+      layout  :parent_class, [:uint8, SIZE_OF_GInitiallyUnownedClass],
+              :get_request_mode, :pointer,
+              :get_preferred_width, :pointer,
+              :get_preferred_height_for_width, :pointer,
+              :get_preferred_height, :pointer,
+              :get_preferred_width_for_height, :pointer,
+              :get_aligned_area, :pointer,
+              :get_size, :pointer,
+              :render, :pointer
+
+    # gboolean           (* activate)                        (GtkCellRenderer      *cell,
+    #                                                         GdkEvent             *event,
+    #                                                         GtkWidget            *widget,
+    #                                                         const gchar          *path,
+    #                                                         const GdkRectangle   *background_area,
+    #                                                         const GdkRectangle   *cell_area,
+    #                                                         GtkCellRendererState  flags);
+    # GtkCellEditable *  (* start_editing)                   (GtkCellRenderer      *cell,
+    #                                                         GdkEvent             *event,
+    #                                                         GtkWidget            *widget,
+    #                                                         const gchar          *path,
+    #                                                         const GdkRectangle   *background_area,
+    #                                                         const GdkRectangle   *cell_area,
+    #                                                         GtkCellRendererState  flags);
+
+    # /* Signals */
+    # void (* editing_canceled) (GtkCellRenderer *cell);
+    # void (* editing_started)  (GtkCellRenderer *cell,
+    #          GtkCellEditable *editable,
+    #          const gchar     *path);
+    end
+
+    GetProperty = FFI::Function.new(:void,[:pointer, :uint, :pointer, :pointer]) do |_object,property_id,_value,_pspec|
+      raise "get_property"
+    end
+    SetProperty = FFI::Function.new(:void,[:pointer, :uint, :pointer, :pointer]) do |_object,property_id,_value,_pspec|
+      raise "set_property"
+    end
+
+    def self.inherited sub
+      sub.const_set(:ClassInit,FFI::Function.new(:void,[:pointer]) do |_klass|
+        cell_class = GtkCellRendererClass.new(_klass)
+        object_class = GObjectClass.new(_klass)
+        cell_class[:render] = Render
+        cell_class[:get_size] = GetSize
+        object_class[:set_property] = SetProperty
+        object_class[:get_property] = GetProperty
+        sub.init(cell_class,object_class)
+      end)
+    end
+
+    InstanceInit = FFI::Function.new(:void,[:pointer]) do |_klass|
+      Gtk::CellRenderer.new(FFI::Pointer.new(_klass)).set_padding 2,2
+    end
+
+    def self.type_info
+      @type_info ||= begin
+        type_info = Gtk::Lib::GTypeInfo.new
+        type_info[:class_size] = 264
+        type_info[:class_init] = self.const_get(:ClassInit)
+        type_info[:instance_init] = InstanceInit
+        type_info[:instance_size] = 40
+        type_info
+      end
+    end
+
+    class CairoRectangleInt < FFI::Struct
+      layout :x, :int, :y, :int, :width, :int, :height, :int;
+    end
+
+    Render = FFI::Function.new(:void,[:pointer, :pointer, :pointer, :pointer, :pointer, :int]) do |_cell,_cr,_widget,_background_area,_cell_area,flags|
+      Cairo::Context.new(FFI::Pointer.new(_cr)) do |cr|
+        instances[_cell.address].render(
+          cr,
+          Gtk::Widget.new(FFI::Pointer.new(_widget)),
+          CairoRectangleInt.new(FFI::Pointer.new(_background_area)),
+          CairoRectangleInt.new(FFI::Pointer.new(_cell_area)),
+          flags
+        )
+      end
+    end
+
+    GetSize = FFI::Function.new(:void,[:pointer, :pointer, :pointer, :pointer, :pointer, :pointer, :pointer]) do |_cell,_widget,_cell_area,_x_offset,_y_offset,_width,_height|
+      x_offset,y_offset,width,height = instances[_cell.address].get_size(
+        Gtk::Widget.new(FFI::Pointer.new(_widget)),
+        _cell_area.null? ? nil : CairoRectangleInt.new(FFI::Pointer.new(_cell_area))
+      )
+      _x_offset.write_int(x_offset) if x_offset
+      _y_offset.write_int(x_offset) if y_offset
+      _width.write_int(width) unless _width.null?
+      _height.write_int(height) unless _height.null?
+    end
+
+    def self.instances
+      @@instances ||= {}
+    end
+    def instances
+      self.class.instances
+    end
+
+    def initialize pointer
+      raise "hell" unless pointer.is_a?(FFI::Pointer)
+      @native = pointer
+      instances[native.address] = self
+    end
+    def self.type
+      @type ||= Lib.gtk_cell_renderer_text_get_type()
+    end
+    def get_padding
+      xpad = FFI::MemoryPointer.new(:int,1)
+      ypad = FFI::MemoryPointer.new(:int,1)
+      Lib.gtk_cell_renderer_get_padding(native,xpad,ypad)
+      [xpad.read_int,ypad.read_int]
+    end
+    def set_padding xpad,ypad
+      Lib.gtk_cell_renderer_set_padding(native,xpad,ypad)
+    end
+    def get_alignment
+      xpad = FFI::MemoryPointer.new(:int,1)
+      ypad = FFI::MemoryPointer.new(:int,1)
+      Lib.gtk_cell_renderer_get_alignment(native,xpad,ypad)
+      [xpad.read_int,ypad.read_int]
+    end
+    # def initialize
+    #   @native = Lib.gtk_cell_renderer_new()
+    # end
+    def self.type
+      Lib.gtk_cell_renderer_get_type()
+    end
+  end
+end
+

data/lib/gtk/cell_renderer_text.rb

@@ -0,0 +1,12 @@
+module Gtk
+  module Lib
+    attach_function :gtk_cell_renderer_text_new, [], :pointer
+  end
+
+  class CellRendererText < Widget
+    def initialize
+      @native = Lib.gtk_cell_renderer_text_new()
+    end
+  end
+end
+

data/lib/gtk/container.rb

@@ -0,0 +1,9 @@
+module Gtk
+  module Lib
+    attach_method :gtk_container_add, [:pointer, :pointer], :void
+  end
+
+  class Container < Widget
+  end
+end
+

data/lib/gtk/dialog_flags.rb

@@ -0,0 +1,11 @@
+module Gtk
+  module DialogFlags
+    MODAL               = 1 << 0
+    DESTROY_WITH_PARENT = 1 << 1
+    NO_SEPARATOR        = 1 << 2
+
+    def self.[] symbol
+      const_get(symbol.to_s.upcase.to_sym)
+    end
+  end
+end

data/lib/gtk/g_type.rb

@@ -0,0 +1,6 @@
+module Gtk
+  class GType < Enums
+    FLOAT   = 56
+    STRING  = 64
+  end
+end

data/lib/gtk/list_store.rb

@@ -0,0 +1,26 @@
+module Gtk
+  module Lib
+    attach_function :gtk_list_store_new, [:int, :varargs], :pointer
+    attach_method :gtk_list_store_append, [:pointer, :pointer], :void
+    attach_method :gtk_list_store_set, [:pointer, :pointer, :varargs], :void
+  end
+
+  class ListStore < GObject
+    def initialize(n_columns, *types)
+      @native = Lib.gtk_list_store_new(n_columns,
+        *(types.map{ |type| [:int,GType[type]] }.flatten)
+      )
+    end
+    def append iter
+      iter.owner = self
+      Lib.gtk_list_store_append(native,iter.to_ptr)
+    end
+    # def set *args
+    #   puts "SET #{args.inspect}"
+    # end
+    def to_tree_model
+      Gtk::TreeModel.new(native)
+    end
+  end
+end
+

data/lib/gtk/message_dialog.rb

@@ -0,0 +1,25 @@
+module Gtk
+  module Lib
+    attach_function :gtk_message_dialog_new, [:pointer, :long, :long, :long, :string, :varargs], :pointer
+    attach_method :gtk_dialog_run, [:pointer], :long
+  end
+
+  class MessageDialog < Widget
+    def initialize(options)
+      @native = Lib.gtk_message_dialog_new(
+        options[:parent],
+        DialogFlags[options[:flags]],
+        MessageType[options[:type]],
+        ButtonsType[options[:buttons_type]],
+        "%s",
+        :string,
+        options[:message]
+      )
+    end
+
+    def run
+      Lib.gtk_dialog_run(native)
+    end
+  end
+end
+

data/lib/gtk/message_type.rb

@@ -0,0 +1,13 @@
+module Gtk
+  module MessageType
+    INFO     = 0
+    WARNING  = 1
+    QUESTION = 2
+    ERROR    = 3
+    OTHER    = 4
+
+    def self.[] symbol
+      const_get(symbol.to_s.upcase.to_sym)
+    end
+  end
+end

data/lib/gtk/selection_mode.rb

@@ -0,0 +1,8 @@
+module Gtk
+  class SelectionMode < Enums
+    NONE      = 0
+    SINGLE    = 1
+    BROWSE    = 2
+    MULTIPLE  = 3
+  end
+end

data/lib/gtk/style_context.rb

@@ -0,0 +1,16 @@
+module Gtk
+  module Lib
+    attach_method :gtk_style_context_restore, [:pointer], :void
+    attach_method :gtk_style_context_set_state, [:pointer, :int], :void
+    attach_method :gtk_style_context_add_class, [:pointer, :string], :void
+    attach_method :gtk_style_context_save, [:pointer], :void
+  end
+
+  class StyleContext < GObject
+    def initialize(pointer)
+      raise "hell" unless pointer.is_a?(FFI::Pointer)
+      @native = pointer
+    end
+  end
+end
+

data/lib/gtk/tree_iter.rb

@@ -0,0 +1,32 @@
+module Gtk
+  class TreeIter < FFI::Struct
+    attr_accessor :owner
+
+    layout  :stamp, :long,
+            :user_data, :pointer,
+            :user_data2, :pointer,
+            :user_data3, :pointer
+
+    def [] i
+      val = FFI::MemoryPointer.new(:float,1) # TODO: lookup column type
+      owner.get(self,:int,i,:pointer,val,:int,-1)
+      val.read_float
+    end
+
+    def []= i,value
+      owner.set(self,:int,i,
+        case value
+        when String
+          :string
+        when Fixnum
+          :int
+        when Float
+          :float
+        else
+          raise value.class.name
+        end,
+        value,:int,-1)
+    end
+  end
+end
+

data/lib/gtk/tree_model.rb

@@ -0,0 +1,20 @@
+module Gtk
+  module Lib
+    attach_method :gtk_tree_model_get_iter_first, [:pointer, :pointer], :bool
+    attach_method :gtk_tree_model_get, [:pointer, :pointer, :varargs], :void
+  end
+
+  class TreeModel < GObject # GInterface really
+    def initialize(pointer)
+      raise "hell" unless pointer.is_a?(FFI::Pointer)
+      @native = pointer
+    end
+    def iter_first
+      iter = TreeIter.new
+      iter.owner = self
+      Lib.gtk_tree_model_get_iter_first(native,iter.to_ptr)
+      iter
+    end
+  end
+end
+

data/lib/gtk/tree_path.rb

@@ -0,0 +1,17 @@
+module Gtk
+  module Lib
+    attach_method :gtk_tree_path_get_indices, [:pointer], :pointer
+    attach_method :gtk_tree_path_get_depth, [:pointer], :long
+  end
+
+  class TreePath < GObject
+    def initialize(pointer)
+      @native = pointer
+    end
+    def get_indices
+      ret = Lib.gtk_tree_path_get_indices(native)
+      ret.get_array_of_int(0,depth)
+    end
+  end
+end
+

data/lib/gtk/tree_selection.rb

@@ -0,0 +1,12 @@
+module Gtk
+  module Lib
+    attach_method :gtk_tree_selection_set_mode, [:pointer, SelectionMode], :void
+  end
+
+  class TreeSelection < GObject
+    def initialize(pointer)
+      @native = pointer
+    end
+  end
+end
+

data/lib/gtk/tree_store.rb

@@ -0,0 +1,45 @@
+module Gtk
+  module Lib
+    attach_function :gtk_tree_store_new, [:long, :varargs], :pointer
+    attach_method :gtk_tree_store_append, [:pointer, Gtk::TreeIter.by_ref, Gtk::TreeIter.by_ref], :void
+    attach_method :gtk_tree_store_set_column_types, [:pointer, :long, :pointer], :void
+    attach_method :gtk_tree_store_set, [:pointer, Gtk::TreeIter.by_ref, :varargs], :void
+  end
+
+  class TreeStore < GObject
+
+    TYPE_MAP = {
+      Integer => 24, # GObject::TYPE_INT,
+      String  => 64  # GObject::TYPE_STRING
+    }
+
+    def self.type_mapped_types(*types)
+      types = types.first if types.size == 1 && types.first.is_a?(Array)
+      types.map{ |type| TYPE_MAP[type] }
+    end
+
+    def initialize(*types)
+      @native = Gtk::Lib.gtk_tree_store_new(
+        types.size,
+        *self.class.type_mapped_types(*types).map{ |type|
+          [:int,type]
+        }.flatten
+      )
+    end
+
+    def set_column_types *types
+      types = self.class.type_mapped_types(*types)
+      array = FFI::MemoryPointer.new(:long,types.size)
+      array.write_array_of_long(types)
+      Lib.gtk_tree_store_set_column_types(@native,types.size,array)
+    end
+
+    def append parent=nil
+      iter = Gtk::TreeIter.new
+      Gtk::Lib.gtk_tree_store_append(native,iter,parent)
+      iter.owner = self
+      iter
+    end
+  end
+end
+