iup-ffi 0.13.0-x86_64-linux

data/lib/plain/iuplib.rb

@@ -0,0 +1,354 @@
+# Binding to the libiup shared library.
+# This module can be used to access features not available 
+# in Iup.
+#
+# As an example of using the library:
+#
+#   require 'iup-ffi-plain'
+#   
+#   IupLib.IupOpen(0, nil)
+#   IupLib.IupMessage("IupMessage Example", "Press the button")
+#   IupLib.IupClose
+#
+# For reference, the following functions are bound:
+#
+# * pango_font_family_get_type, [], :ulong
+# * pango_font_face_get_type,   [], :ulong
+# * pango_font_description_get_type, [], :ulong
+# * IupSetAttribute, [:pointer, :string, :string], :void
+# * IupSetAttributes, [:pointer, :string], :pointer
+# * IupGetAttribute, [:pointer, :string], :strptr
+# * IupSetAttributeHandle, [:pointer, :string, :pointer], :void
+# * IupSetGlobal, [:string, :string], :void
+# * IupGetGlobal, [:string], :strptr
+# * IupSetFunction, [:string, :iup_callback], :iup_callback
+# * IupGetInt, [:pointer, :string], :int
+# * IupOpen, [:int, :pointer], :int
+# * IupMainLoop, [], :void
+# * IupClose, [], :void
+# * IupDestroy, [:pointer], :void
+# * IupRedraw, [:pointer], :void
+# * IupMap, [:pointer], :void
+# * IupSetCallbackD_I, :IupSetCallback, [:pointer, :string, :iup_callback_d_i], :iup_callback_d_i
+# * IupSetCallbackFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_ff_i], :iup_callback_ff_i
+# * IupSetCallbackFIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_fiis_i], :iup_callback_fiis_i
+# * IupSetCallbackS_I, :IupSetCallback, [:pointer, :string, :iup_callback_s_i], :iup_callback_s_i
+# * IupSetCallbackSII_I, :IupSetCallback, [:pointer, :string, :iup_callback_sii_i], :iup_callback_sii_i
+# * IupSetCallbackI_I, :IupSetCallback, [:pointer, :string, :iup_callback_i_i], :iup_callback_i_i
+# * IupSetCallbackI_S, :IupSetCallback, [:pointer, :string, :iup_callback_i_s], :iup_callback_i_s
+# * IupSetCallbackIFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iff_i], :iup_callback_iff_i
+# * IupSetCallbackII_I, :IupSetCallback, [:pointer, :string, :iup_callback_ii_i], :iup_callback_ii_i
+# * IupSetCallbackIIFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiff_i], :iup_callback_iiff_i
+# * IupSetCallbackIIFFI_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiffi_i], :iup_callback_iiffi_i
+# * IupSetCallbackIIFFFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiffff_i], :iup_callback_iiffff_i
+# * IupSetCallbackIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_is_i], :iup_callback_is_i
+# * IupSetCallbackIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iis_i], :iup_callback_iis_i
+# * IupSetCallbackIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_iii_i], :iup_callback_iii_i
+# * IupSetCallbackIIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiii_i], :iup_callback_iiii_i
+# * IupSetCallbackIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iis_i], :iup_callback_iis_i
+# * IupSetCallbackIIIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiiis_i], :iup_callback_iiiis_i
+# * IupSetCallbackPlain, :IupSetCallback, [:pointer, :string, :iup_callback_plain], :iup_callback_plain
+# * IupSetCallbackPlain_V, :IupSetCallback, [:pointer, :string, :iup_callback_plain_v], :iup_callback_plain_v
+# * IupSetCallbackP_I, :IupSetCallback, [:pointer, :string, :iup_callback_p_i], :iup_callback_p_i
+# * IupSetCallbackPP_I, :IupSetCallback, [:pointer, :string, :iup_callback_pp_i], :iup_callback_pp_i
+# * IupSetCallbackSS_I, :IupSetCallback, [:pointer, :string, :iup_callback_ss_i], :iup_callback_ss_i
+# * IupSetCallbackSSI_I, :IupSetCallback, [:pointer, :string, :iup_callback_ssi_i], :iup_callback_ssi_i
+# * IupSetCallbackSSIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_ssiii_i], :iup_callback_ssiii_i
+# * IupFill, [], :pointer
+# * IupGridBox, [:pointer, :varargs], :pointer
+# * IupVbox, [:pointer, :varargs], :pointer
+# * IupHbox, [:pointer, :varargs], :pointer
+# * IupZbox, [:pointer, :varargs], :pointer
+# * IupRadio, [:pointer], :pointer
+# * IupNormalizer, [:pointer, :varargs], :pointer
+# * IupBackgroundBox, [:pointer], :pointer
+# * IupCbox, [:pointer, :varargs], :pointer
+# * IupDetachBox, [:pointer], :pointer
+# * IupExpander, [:pointer], :pointer
+# * IupSbox, [:pointer], :pointer
+# * IupScrollBox, [:pointer], :pointer
+# * IupSplit, [:pointer, :pointer], :pointer
+# * IupAppend, [:pointer, :pointer], :pointer
+# * IupDetach, [:pointer], :void
+# * IupInsert, [:pointer, :pointer, :pointer], :pointer
+# * IupReparent, [:pointer, :pointer, :pointer], :int
+# * IupGetParent, [:pointer], :pointer
+# * IupGetChild, [:pointer, :int], :pointer
+# * IupGetChildPos, [:pointer, :pointer], :int
+# * IupGetChildCount, [:pointer], :int
+# * IupGetNextChild, [:pointer, :pointer], :pointer
+# * IupGetBrother, [:pointer], :pointer
+# * IupGetDialog, [:pointer], :pointer
+# * IupGetDialogChild, [:pointer, :string], :pointer
+# * IupRefresh, [:pointer], :void
+# * IupRefreshChildren, [:pointer], :void
+# * IupUpdate, [:pointer], :void
+# * IupRedraw, [:pointer, :int], :void
+# * IupConvertXYToPos, [:pointer, :int, :int], :int
+# * IupDialog, [:pointer], :pointer
+# * IupPopup, [:pointer, :int, :int], :int
+# * IupShow, [:pointer], :void
+# * IupShowXY, [:pointer, :int, :int], :int
+# * IupHide, [:pointer], :void
+# * IupFileDlg, [], :pointer
+# * IupMessageDlg, [], :pointer
+# * IupColorDlg, [], :pointer
+# * IupFontDlg, [], :pointer
+# * IupProgressDlg, [], :pointer
+# * IupAlarm, [:string, :string, :string, :string, :string], :int
+# * IupGetFile, [:string], :int
+# * IupGetColor, [:int, :int, :pointer, :pointer, :pointer], :int
+# * IupGetText, [:pointer, :pointer], :int
+# * IupListDialog, [:int, :string, :int, :pointer, :int, :int, :int, :pointer], :int
+# * IupMessage, [:string, :string], :void
+# * IupButton, [:string, :string], :pointer
+# * IupCanvas, [:string], :pointer
+# * IupFrame, [:pointer], :pointer
+# * IupLabel, [:string], :pointer
+# * IupLink, [:string, :string], :pointer
+# * IupList, [:string], :pointer
+# * IupProgressBar, [], :pointer
+# * IupSpin, [], :pointer
+# * IupTabs, [:pointer, :varargs], :pointer
+# * IupText, [:string], :pointer
+# * IupToggle, [:string, :string], :pointer
+# * IupTree, [], :pointer
+# * IupVal, [:string], :pointer
+# * IupImage, [:int, :int, :pointer], :pointer
+# * IupImageRGB, [:int, :int, :pointer], :pointer
+# * IupImageRGBA, [:int, :int, :pointer], :pointer
+# * IupSaveImageAsText, [:pointer, :string, :string, :string], :int
+# * IupNextField, [:pointer], :pointer
+# * IupPreviousField, [:pointer], :pointer
+# * IupGetFocus, [], :pointer
+# * IupSetFocus, [:pointer], :pointer
+# * IupItem, [:string, :string], :pointer
+# * IupMenu, [:pointer, :varargs], :pointer
+# * IupSeparator, [], :pointer
+# * IupSubmenu, [:string, :pointer], :pointer
+# * IupSetHandle, [:string, :pointer], :void
+# * IupGetHandle, [:string], :pointer
+# * IupGetName, [:pointer], :strptr
+# * IupSetLanguage, [:string], :void
+# * IupGetLanguage, [], :strptr
+# * IupClipboard, [], :pointer
+# * IupTimer, [], :pointer
+# * IupHelp, [:string], :int
+# 
+module IupLib 
+  extend FFI::Library
+
+  ffi_lib *Iup::IUP_LIBS
+
+  if /linux|cygwin/ === RbConfig::CONFIG['host_os']
+    # This function returns the GType ID for a PangoFontFamily.
+    # Calling it forces Pango to register its types with GObject.
+    attach_function :pango_font_family_get_type, [], :ulong
+    attach_function :pango_font_face_get_type,   [], :ulong
+    attach_function :pango_font_description_get_type, [], :ulong
+
+    # Note: ping the Pango Type System to register types
+    # between the shared libraries and GObject
+    pango_font_family_get_type()
+    pango_font_face_get_type()
+    pango_font_description_get_type()
+  end
+
+  # Attributes
+  attach_function :IupSetAttribute, [:pointer, :string, :string], :void
+  attach_function :IupSetAttributes, [:pointer, :string], :pointer
+  attach_function :IupGetAttribute, [:pointer, :string], :strptr
+  attach_function :IupSetAttributeHandle, [:pointer, :string, :pointer], :void
+  attach_function :IupSetGlobal, [:string, :string], :void
+  attach_function :IupGetGlobal, [:string], :strptr
+
+  callback :iup_callback, [], :int
+  attach_function :IupSetFunction, [:string, :iup_callback], :iup_callback
+
+  attach_function :IupGetInt, [:pointer, :string], :int
+
+  # Events
+  attach_function :IupOpen, [:int, :pointer], :int
+  attach_function :IupMainLoop, [], :void
+  attach_function :IupClose, [], :void
+  attach_function :IupDestroy, [:pointer], :void
+  attach_function :IupRedraw, [:pointer], :void
+
+  attach_function :IupMap, [:pointer], :void
+
+  # -- Callbacks
+  callback :iup_callback_d_i, [:pointer, :double], :int
+  callback :iup_callback_ff_i, [:pointer, :float, :float], :int
+  callback :iup_callback_fiis_i, [:pointer, :float, :int, :int, :string], :int
+  callback :iup_callback_s_i, [:pointer, :string], :int
+  callback :iup_callback_sii_i, [:pointer, :string, :int, :int], :int
+  callback :iup_callback_i_i, [:pointer, :int], :int
+  callback :iup_callback_i_s, [:pointer, :int], :strptr
+  callback :iup_callback_iff_i, [:pointer, :int, :float, :float], :int
+  callback :iup_callback_ii_i, [:pointer, :int, :int], :int
+  callback :iup_callback_iiff_i, [:pointer, :int, :int, :float, :float], :int
+  callback :iup_callback_iiffi_i, [:pointer, :int, :int, :float, :float, :int], :int
+  callback :iup_callback_iiffff_i, [:pointer, :int, :int, :float, :float, :float, :float], :int
+  callback :iup_callback_is_i, [:pointer, :int, :string], :int
+  callback :iup_callback_iis_i, [:pointer, :int, :int, :string], :int
+  callback :iup_callback_iii_i, [:pointer, :int, :int, :int], :int
+  callback :iup_callback_iiii_i, [:pointer, :int, :int, :int, :int], :int
+  callback :iup_callback_iiis_i, [:pointer, :int, :int, :string], :int
+  callback :iup_callback_iis_i, [:pointer, :int, :int, :string], :int
+  callback :iup_callback_iiiis_i, [:pointer, :int, :int, :int, :int, :string], :int
+  callback :iup_callback_plain, [:pointer], :int
+  callback :iup_callback_plain_v, [:pointer], :void
+  callback :iup_callback_p_i, [:pointer, :pointer], :int
+  callback :iup_callback_pp_i, [:pointer, :pointer, :pointer], :int
+  callback :iup_callback_ss_i, [:pointer, :string, :string], :int
+  callback :iup_callback_ssi_i, [:pointer, :string, :string, :int], :int
+  callback :iup_callback_ssiii_i, [:pointer, :string, :string, :int, :int, :int], :int
+
+  attach_function :IupSetCallbackD_I, :IupSetCallback, [:pointer, :string, :iup_callback_d_i], :iup_callback_d_i
+  attach_function :IupSetCallbackFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_ff_i], :iup_callback_ff_i
+  attach_function :IupSetCallbackFIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_fiis_i], :iup_callback_fiis_i
+  attach_function :IupSetCallbackS_I, :IupSetCallback, [:pointer, :string, :iup_callback_s_i], :iup_callback_s_i
+  attach_function :IupSetCallbackSII_I, :IupSetCallback, [:pointer, :string, :iup_callback_sii_i], :iup_callback_sii_i
+  attach_function :IupSetCallbackI_I, :IupSetCallback, [:pointer, :string, :iup_callback_i_i], :iup_callback_i_i
+  attach_function :IupSetCallbackI_S, :IupSetCallback, [:pointer, :string, :iup_callback_i_s], :iup_callback_i_s
+  attach_function :IupSetCallbackIFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iff_i], :iup_callback_iff_i
+  attach_function :IupSetCallbackII_I, :IupSetCallback, [:pointer, :string, :iup_callback_ii_i], :iup_callback_ii_i
+  attach_function :IupSetCallbackIIFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiff_i], :iup_callback_iiff_i
+  attach_function :IupSetCallbackIIFFI_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiffi_i], :iup_callback_iiffi_i
+  attach_function :IupSetCallbackIIFFFF_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiffff_i], :iup_callback_iiffff_i
+  attach_function :IupSetCallbackIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_is_i], :iup_callback_is_i
+  attach_function :IupSetCallbackIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iis_i], :iup_callback_iis_i
+  attach_function :IupSetCallbackIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_iii_i], :iup_callback_iii_i
+  attach_function :IupSetCallbackIIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiii_i], :iup_callback_iiii_i
+  attach_function :IupSetCallbackIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iis_i], :iup_callback_iis_i
+  attach_function :IupSetCallbackIIIIS_I, :IupSetCallback, [:pointer, :string, :iup_callback_iiiis_i], :iup_callback_iiiis_i
+  attach_function :IupSetCallbackPlain, :IupSetCallback, [:pointer, :string, :iup_callback_plain], :iup_callback_plain
+  attach_function :IupSetCallbackPlain_V, :IupSetCallback, [:pointer, :string, :iup_callback_plain_v], :iup_callback_plain_v
+  attach_function :IupSetCallbackP_I, :IupSetCallback, [:pointer, :string, :iup_callback_p_i], :iup_callback_p_i
+  attach_function :IupSetCallbackPP_I, :IupSetCallback, [:pointer, :string, :iup_callback_pp_i], :iup_callback_pp_i
+  attach_function :IupSetCallbackSS_I, :IupSetCallback, [:pointer, :string, :iup_callback_ss_i], :iup_callback_ss_i
+  attach_function :IupSetCallbackSSI_I, :IupSetCallback, [:pointer, :string, :iup_callback_ssi_i], :iup_callback_ssi_i
+  attach_function :IupSetCallbackSSIII_I, :IupSetCallback, [:pointer, :string, :iup_callback_ssiii_i], :iup_callback_ssiii_i
+
+  # Layout 
+  # -- Composition
+  attach_function :IupFill, [], :pointer
+  attach_function :IupGridBox, [:pointer, :varargs], :pointer
+  attach_function :IupVbox, [:pointer, :varargs], :pointer
+  attach_function :IupHbox, [:pointer, :varargs], :pointer
+  attach_function :IupZbox, [:pointer, :varargs], :pointer
+  attach_function :IupRadio, [:pointer], :pointer
+  attach_function :IupNormalizer, [:pointer, :varargs], :pointer
+  attach_function :IupBackgroundBox, [:pointer], :pointer
+  attach_function :IupCbox, [:pointer, :varargs], :pointer
+  attach_function :IupDetachBox, [:pointer], :pointer
+  attach_function :IupExpander, [:pointer], :pointer
+  attach_function :IupSbox, [:pointer], :pointer
+  attach_function :IupScrollBox, [:pointer], :pointer
+  attach_function :IupSplit, [:pointer, :pointer], :pointer
+  # -- Hierarchy
+  attach_function :IupAppend, [:pointer, :pointer], :pointer
+  attach_function :IupDetach, [:pointer], :void
+  attach_function :IupInsert, [:pointer, :pointer, :pointer], :pointer
+  attach_function :IupReparent, [:pointer, :pointer, :pointer], :int
+  attach_function :IupGetParent, [:pointer], :pointer
+  attach_function :IupGetChild, [:pointer, :int], :pointer
+  attach_function :IupGetChildPos, [:pointer, :pointer], :int
+  attach_function :IupGetChildCount, [:pointer], :int
+  attach_function :IupGetNextChild, [:pointer, :pointer], :pointer
+  attach_function :IupGetBrother, [:pointer], :pointer
+  attach_function :IupGetDialog, [:pointer], :pointer
+  attach_function :IupGetDialogChild, [:pointer, :string], :pointer
+  # -- Utilities
+  attach_function :IupRefresh, [:pointer], :void
+  attach_function :IupRefreshChildren, [:pointer], :void
+  attach_function :IupUpdate, [:pointer], :void
+  attach_function :IupRedraw, [:pointer, :int], :void
+  attach_function :IupConvertXYToPos, [:pointer, :int, :int], :int
+
+  # Dialogs
+  # -- reference
+  attach_function :IupDialog, [:pointer], :pointer
+  attach_function :IupPopup, [:pointer, :int, :int], :int
+  attach_function :IupShow, [:pointer], :void
+  attach_function :IupShowXY, [:pointer, :int, :int], :int
+  attach_function :IupHide, [:pointer], :void
+
+  # -- predefined
+  attach_function :IupFileDlg, [], :pointer
+  attach_function :IupMessageDlg, [], :pointer
+  attach_function :IupColorDlg, [], :pointer
+  attach_function :IupFontDlg, [], :pointer
+  attach_function :IupProgressDlg, [], :pointer
+  attach_function :IupAlarm, [:string, :string, :string, :string, :string], :int
+  attach_function :IupGetFile, [:string], :int
+  attach_function :IupGetColor, [:int, :int, :pointer, :pointer, :pointer], :int
+  attach_function :IupGetText, [:pointer, :pointer], :int
+  attach_function :IupListDialog, [:int, :string, :int, :pointer, :int, :int, :int, :pointer], :int
+  attach_function :IupMessage, [:string, :string], :void
+
+  # Controls
+  # -- standard
+  attach_function :IupButton, [:string, :string], :pointer
+  attach_function :IupCanvas, [:string], :pointer
+  attach_function :IupFrame, [:pointer], :pointer
+  attach_function :IupLabel, [:string], :pointer
+  attach_function :IupLink, [:string, :string], :pointer
+  attach_function :IupList, [:string], :pointer
+  attach_function :IupProgressBar, [], :pointer
+  attach_function :IupSpin, [], :pointer
+  attach_function :IupTabs, [:pointer, :varargs], :pointer
+  attach_function :IupText, [:string], :pointer
+  attach_function :IupToggle, [:string, :string], :pointer
+  attach_function :IupTree, [], :pointer
+  attach_function :IupVal, [:string], :pointer
+
+  # Resources
+  # -- images
+  attach_function :IupImage, [:int, :int, :pointer], :pointer
+  attach_function :IupImageRGB, [:int, :int, :pointer], :pointer
+  attach_function :IupImageRGBA, [:int, :int, :pointer], :pointer
+  attach_function :IupSaveImageAsText, [:pointer, :string, :string, :string], :int
+  # -- keyboard
+  attach_function :IupNextField, [:pointer], :pointer
+  attach_function :IupPreviousField, [:pointer], :pointer
+  attach_function :IupGetFocus, [], :pointer
+  attach_function :IupSetFocus, [:pointer], :pointer
+  # -- menus
+  attach_function :IupItem, [:string, :string], :pointer
+  attach_function :IupMenu, [:pointer, :varargs], :pointer
+  attach_function :IupSeparator, [], :pointer
+  attach_function :IupSubmenu, [:string, :pointer], :pointer
+  # -- handle names
+  attach_function :IupSetHandle, [:string, :pointer], :void
+  attach_function :IupGetHandle, [:string], :pointer
+  attach_function :IupGetName, [:pointer], :strptr
+  # -- string names
+  attach_function :IupSetLanguage, [:string], :void
+  attach_function :IupGetLanguage, [], :strptr
+
+  attach_function :IupClipboard, [], :pointer
+  attach_function :IupTimer, [], :pointer
+  attach_function :IupHelp, [:string], :int
+
+  # helper functions, to create memory structures from arrays
+
+  # Creates a memory structure from an array.
+  # Input:: an array of chars
+  # Output:: pointer to memory holding array of chars
+  def self.pointer_from_chars array
+    ptr = FFI::MemoryPointer.new :char, array.size
+    ptr.write_array_of_char array
+    return ptr
+  end
+
+  # Creates a memory structure from an array.
+  # Input:: an array of ints
+  # Output:: pointer to memory holding array of ints
+  def self.pointer_from_ints array
+    ptr = FFI::MemoryPointer.new :int, array.size
+    ptr.write_array_of_int array
+    return ptr
+  end
+end
+

data/lib/plain/scintilla-lib.rb

@@ -0,0 +1,17 @@
+# Binding to the iup_scintilla shared library.
+# This module can be used to access features not available 
+# in Iup. 
+#
+# For reference, the following functions are bound:
+#
+# * IupScintilla, [], :pointer
+# * IupScintillaOpen, [], :void
+#
+module ScintillaLib
+  extend FFI::Library
+
+  ffi_lib *Iup::IUP_LIBS
+
+  attach_function :IupScintilla, [], :pointer
+  attach_function :IupScintillaOpen, [], :void
+end

data/lib/wrapped/attribute-builders.rb

@@ -0,0 +1,93 @@
+module Iup
+
+  # methods to help construct attribute methods
+  #
+  module AttributeBuilders # :nodoc: all
+
+    # Given the name of an attribute, this method creates 
+    # reader and writer methods.
+    def define_attribute name
+      define_reader name
+      define_writer name
+    end
+
+    # Creates a reader method for attribute of given name.
+    def define_reader name
+      attribute = name.to_s.upcase
+      define_method name do
+        IupLib.IupGetAttribute(@handle, attribute).first
+      end
+    end
+ 
+    # Creates a writer method for attribute of given name.
+    def define_writer name
+      attribute = name.to_s.upcase
+      define_method "#{name}=" do |val|
+        IupLib.IupSetAttribute(@handle, attribute, val.to_s)
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new 
+    # method requiring an id number as a parameter and an optional value. 
+    # Providing the value will set the named attribute for this object using the 
+    # id number, e.g. "ITEM1", or else the current value will be returned.
+    # This supports attributes such as "ITEM1" "ITEM2" by making the id number a parameter.
+    def define_id_attribute name
+      define_method "#{name}" do |id, val=nil|
+        if val.nil?
+          IupLib.IupGetAttribute(@handle, "#{name}#{id}".upcase).first
+        else
+          IupLib.IupSetAttribute(@handle, "#{name}#{id}".upcase, val.to_s)
+        end
+      end
+    end
+
+    # Creates a reader method for an indexed attribute.
+    # Note: index starts from 1, as in IUP.
+    # This supports attributes such as "ITEM1" "ITEM2" by making the id number a parameter.
+    def define_id_reader name
+      define_method "#{name}" do |id|
+        IupLib.IupGetAttribute(@handle, "#{name}#{id}".upcase).first
+      end
+    end
+
+    # Creates a writer method for an indexed attribute.
+    # Note: index starts from 1, as in IUP.
+    # This supports attributes such as "ITEM1" "ITEM2" by making the id number a parameter.
+    def define_id_writer name
+      define_method "#{name}" do |id, val|
+        IupLib.IupSetAttribute(@handle, "#{name}#{id}".upcase, val.to_s)
+      end
+    end
+
+    # Creates reader/writer method for a property attribute.
+    def define_property_attribute name
+      attribute = name.to_s.upcase
+      define_method "#{name}" do |property, val=nil|
+        if val.nil?
+          IupLib.IupSetAttribute(@handle, attribute, property.upcase).first
+        else
+          IupLib.IupSetAttribute(@handle, attribute, "#{property}=#{val}".upcase)
+        end
+      end
+    end
+
+    # Creates a reader method for a property attribute.
+    # This supports attributes such as "ITEM=val", providing a parameter for the property name.
+    def define_property_reader name
+      attribute = name.to_s.upcase
+      define_method "#{name}" do |property|
+        IupLib.IupGetAttribute(@handle, attribute, property.upcase).first
+      end
+    end
+
+    # Creates a writer method for a property attribute.
+    # This supports attributes such as "ITEM=val", providing a parameter for the property name.
+    def define_property_writer name
+      attribute = name.to_s.upcase
+      define_method "#{name}" do |property, val|
+        IupLib.IupSetAttribute(@handle, attribute, "#{property}=#{val}".upcase)
+      end
+    end
+  end
+end

data/lib/wrapped/attribute-reference.rb

@@ -0,0 +1,27 @@
+module Iup
+
+  # Defines method for getting/setting attribute values.
+  module AttributeReference # :nodoc: all
+
+    # Method used to get or set the value of attributes.
+    # when retrieving:: simply return the attribute with given name.
+    # when setting:: an attribute reference can be defined by its 
+    #                string name or directly as an instance of target class
+    def attribute_reference(name, target, val=nil)
+      case val
+      when NilClass
+        IupLib.IupGetAttribute(@handle, name).first
+      when String
+        IupLib.IupSetAttribute @handle, name, val
+      when target
+        target_name = IupLib.IupGetName(name).first
+        if target_name.nil? or target_name.empty?
+          target_name = SecureRandom.uuid 
+          val.assign_handle(target_name)
+        end
+        IupLib.IupSetAttribute(@handle, name, target_name)
+      end
+    end
+  end
+end
+

data/lib/wrapped/background-box.rb

@@ -0,0 +1,37 @@
+module Iup
+
+  # Contains a child widget, but itself provides no visible decorations.
+  # Its intended use is within a ZBox or ExpanderBox.
+  #
+  class BackgroundBox < Iup::Canvas
+    include DynamicFillMethods
+
+    # Creates an instance of the background box.
+    # If a block is given, the new instance is yielded to it.
+    #
+    # * +widget+ - the child widget to contain
+    #
+    def initialize widget
+      @handle = IupLib.IupBackgroundBox(widget.handle)
+
+      # run any provided block on instance, to set up further attributes
+      yield self if block_given?
+    end
+
+    ##
+    # :attr_reader: clientoffset
+    # returns current offset of box in its client as "widthxheight".
+    define_reader :clientoffset
+
+    ##
+    # :attr_reader: clientsize
+    # returns current size of box as "widthxheight".
+    define_reader :clientsize
+
+    ##
+    # :attr: expand
+    # Allows box to fill available space in indicated direction.
+    # Values 'no' / 'horizontal' / 'vertical' / 'yes'.
+    define_attribute :expand
+  end
+end

data/lib/wrapped/button.rb

@@ -0,0 +1,152 @@
+module Iup
+
+  # A button can display some text, an image, or both. When clicked, a
+  # specified _action_ function is called. The action should return
+  # +Iup::DEFAULT+, or, if the button should exit the application,
+  # +Iup::CLOSE+.
+  #
+  # (1) A button with some text and an action
+  #
+  #   Iup::Button.new('click me', ->{
+  #     puts 'clicked'
+  #     Iup::DEFAULT
+  #   })
+  # 
+  # (2) A button with an image stored in +img+ and 
+  # action specified by a separate method; some padding around 
+  # the image within the button.
+  #
+  #   def click_fn
+  #     puts 'clicked'
+  #     Iup::DEFAULT
+  #   end
+  #   
+  #   Iup:Button.new('', ->{ click_fn }) do |b|
+  #     b.image = img
+  #     b.padding = '50x20'
+  #   end
+  # 
+  # (3) A button with text and image, image placed above
+  # text.  The text contains an & before the "x", so the action
+  # can be triggered using ALT+x, and closes the application.
+  #
+  #   Iup::Button.new('e&xit', ->{ puts 'exit'; Iup::CLOSE }) do |b|
+  #     b.image = img
+  #     b.imageposition = 'top'
+  #   end
+  #
+  class Button < Iup::Widget
+    include ImageAttributes
+
+    # Creates an instance of a button.
+    # If a block is given, the new instance is yielded to it.
+    # * +title+ - the text to display on the button.
+    # * +callback+ - procedure to call when button is left-clicked, passed to #action.
+    def initialize(title='', callback = nil)
+      @handle = IupLib.IupButton(title, nil)
+
+      self.action = callback unless callback.nil?
+
+      # run any provided block on instance, to set up further attributes
+      yield self if block_given?
+    end
+
+    # -- attributes
+
+    ##
+    # :attr: alignment
+    # Sets the horizontal and vertical alignment.
+    # The value is a string "horizontal:vertical", with 
+    # horizontal options ALEFT, ACENTER, ARIGHT and 
+    # vertical options ATOP, ACENTER, ABOTTOM. 
+    # Partial values also accepted, e.g. "ARIGHT", ":ATOP".
+    define_attribute :alignment
+
+    ##
+    # :attr: canfocus
+    # Enables the control to gain focus. Values 'yes' / 'no'.
+    define_attribute :canfocus
+
+    ##
+    # :attr: expand
+    # Allows button to fill available space in indicated direction.
+    # Values 'no' / 'horizontal' / 'vertical' / 'yes'.
+    define_attribute :expand
+
+    ##
+    # :attr: alignment
+    # Sets the horizontal and vertical alignment.
+    # The value is a string "horizontal:vertical", with options ALEFT, ACENTER,
+    # ARIGHT or none.
+    define_attribute :flat
+    
+    ##
+    # :attr: impressborder
+    # If set, shows button borders even if impress defined.
+    # Values 'yes' / 'no'.
+    define_attribute :impressborder
+
+    ##
+    # :attr: imageposition
+    # Position of image relative to text.
+    # Values 'left' / 'right' / 'top' / 'bottom'/
+    define_attribute :imageposition
+
+    ##
+    # :attr: padding
+    # Margin in x and y directions, value as "mxn".
+    define_attribute :padding
+
+    ##
+    # :attr_reader: position 
+    # Returns position in pixels within client window as "x,y".
+    define_reader :position
+
+    ##
+    # :attr: rastersize
+    # Size of the button, in pixels, value as "widthxheight".
+    define_attribute :rastersize
+
+    ##
+    # :attr_reader: screenposition 
+    # Returns position in pixels on screen as "x,y".
+    define_reader :screenposition
+
+    ##
+    # :attr: spacing
+    # Space between image and text, value as a number.
+    define_attribute :spacing
+
+    ##
+    # :attr: tip
+    # Tooltip string.
+    define_attribute :tip
+
+    ##
+    # :attr: title
+    # Displayed on the button as a text label.
+    define_attribute :title
+
+    # :section: Callbacks
+
+    ##
+    # :attr_writer: action
+    #
+    # Sets action called when the button 1 (usually left) is selected.
+    # Callback must respond to +call+ and take no arguments.
+
+    # --
+    def action= callback 
+      unless callback.arity.zero?
+        raise ArgumentError, 'action must take 0 arguments'
+      end
+      cb = Proc.new do |ih|
+        callback.call
+      end
+      define_callback(cb, 'ACTION', :plain)
+    end
+
+    include ButtonCallback
+  end
+end
+