iup-ffi 0.12.0

data/lib/plain/iuplib.rb

@@ -0,0 +1,209 @@
+module IupLib # :nodoc:
+  extend FFI::Library
+
+  this_dir = File.dirname(__FILE__)
+  case RbConfig::CONFIG['host_os']
+  when /mswin|mingw/
+    ffi_lib 'lib/library/iup.dll'
+  when /linux|cygwin/
+    ffi_lib 'libiup'
+  else
+    raise Exception, 'iup libraries not found for this platform'
+  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
+
+  # Input:: an array of chars
+  # Output:: pointer to memory holding array of chars
+  def IupLib.pointer_from_chars array
+    ptr = FFI::MemoryPointer.new :char, array.size
+    ptr.write_array_of_char array
+    return ptr
+  end
+
+  # Input:: an array of ints
+  # Output:: pointer to memory holding array of ints
+  def IupLib.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,15 @@
+module ScintillaLib # :nodoc:
+  extend FFI::Library
+
+  case RbConfig::CONFIG['host_os']
+ # when /mswin|mingw/
+ #   ffi_lib 'lib/library/iupimglib.lib'
+  when /linux|cygwin/
+    ffi_lib 'libiup_scintilla'
+  else
+    raise Exception, 'iup scintilla library not found for this platform'
+  end
+
+  attach_function :IupScintilla, [], :pointer
+  attach_function :IupScintillaOpen, [], :void
+end

data/lib/wrapped/attribute-builders.rb

@@ -0,0 +1,105 @@
+module Iup
+
+  # methods to help construct attribute methods
+  #
+  module AttributeBuilders
+
+    # Given the name of an attribute, this method creates a new 
+    # method which accepts an optional value. Providing the value 
+    # will set the named attribute for this object, or else its
+    # current value will be returned.
+    def define_attribute name
+      attribute = name.to_s.upcase
+      define_method name do |val=nil|
+        if val.nil?
+          IupLib.IupGetAttribute(@handle, attribute).first
+        else
+          IupLib.IupSetAttribute @handle, attribute, val.to_s
+        end
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new 
+    # method which returns its current value.
+    def define_readonly name
+      attribute = name.to_s.upcase
+      define_method name do
+        IupLib.IupGetAttribute(@handle, attribute).first
+      end
+    end
+ 
+    # Given the name of an attribute, this method creates a new 
+    # method which accepts a value and sets the named attribute
+    # for this object.
+    def define_writeonly name
+      attribute = name.to_s.upcase
+      define_method name do |val|
+        IupLib.IupSetAttribute @handle, attribute, val
+      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|
+        attribute = "#{name}#{id}".upcase
+        if val.nil?
+          IupLib.IupGetAttribute(@handle, attribute).first
+        else
+          IupLib.IupSetAttribute @handle, attribute, val.to_s
+        end
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new 
+    # method requiring an id number as a parameter. 
+    # The current value of the attribute name + id will be returned.
+    # This supports attributes such as "ITEM1" "ITEM2" by making the id number a parameter.
+    def define_id_readonly name
+      define_method name do |id|
+        IupLib.IupGetAttribute(@handle, "#{name}#{id}".upcase).first
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new 
+    # method requiring an id number as a parameter and a value. 
+    # Providing the value will set the named attribute for this object using the 
+    # id number, e.g. "ITEM1".
+    # This supports attributes such as "ITEM1" "ITEM2" by making the id number a parameter.
+    def define_id_writeonly name
+      define_method name do |id, val|
+        IupLib.IupSetAttribute @handle, "#{name}#{id}".upcase, val.to_s
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new method taking a 
+    # property name and an optional value.
+    # If given the value, the new method will set the attribute's property to the value.
+    # Otherwise, the current value of the attribute's property will be returned.
+    # This supports attributes such as "ITEM=val", providing a parameter for the property name.
+    def define_property_attribute name
+      attribute = name.to_s.upcase
+      define_method name do |property, val=nil|
+        if val.nil?
+          IupLib.IupGetAttribute(@handle, attribute, property.upcase).first
+        else
+          IupLib.IupSetAttribute @handle, attribute, "#{property}=#{val}".upcase
+        end
+      end
+    end
+
+    # Given the name of an attribute, this method creates a new method taking a 
+    # property name and a value.
+    # The new method will set the attribute's property to the value.
+    # This supports attributes such as "ITEM=val", providing a parameter for the property name.
+    def define_property_writeonly 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
+
+    # 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
+        image_name = IupLib.IupGetName(name).first
+        if image_name.nil? or image_name.empty?
+          image_name = SecureRandom.uuid 
+          val.assign_handle image_name
+        end
+        IupLib.IupSetAttribute @handle, name, image_name
+      end
+    end
+  end
+end
+

data/lib/wrapped/background-box.rb

@@ -0,0 +1,33 @@
+module Iup
+
+  # Used to contain a child widget, but itself provides no visible decorations.
+  #
+  # == Attributes
+  #
+  # border:: Shows a border around the box, values 'yes' / 'no'.
+  # canfocus:: Value is read-only and always 'no'.
+  # clientoffset:: read-only, returns current offset of box in its client
+  #                as "widthxheight".
+  # clientsize:: read-only, returns current size of box as "widthxheight".
+  # expand:: Allows box to fill available space in indicated direction.
+  #          Values 'no' / 'horizontal' / 'vertical' / 'yes'.
+  #
+  class BackgroundBox < Widget
+
+    # Creates an instance of the box.
+    # widget:: the child widget to contain
+    # block:: optional block to set up the box's attributes.
+    def initialize widget, &block
+      @handle = IupLib.IupBackgroundBox widget.handle
+
+      # run any provided block on instance, to set up further attributes
+      self.instance_eval &block if block_given?
+    end
+
+    define_attribute :border
+    define_readonly :canfocus
+    define_attribute :clientoffset
+    define_attribute :clientsize
+    define_attribute :expand
+  end
+end

data/lib/wrapped/button.rb

@@ -0,0 +1,108 @@
+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+.
+  #
+  #   # Example 1: A button with some text and an action
+  #   Button.new 'click me', ->{
+  #     puts 'clicked'
+  #     DEFAULT
+  #   }
+  # ---
+  #   # Example 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'
+  #     DEFAULT
+  #   end
+  #   
+  #   Button.new '', ->{ click_fn } do
+  #     image img
+  #     padding '50x20'
+  #   end
+  # ---
+  #   # Example 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.
+  #   Button.new 'e&xit', ->{ puts 'exit'; CLOSE } do
+  #     image img
+  #     imageposition 'top'
+  #   end
+  #
+  # == Attributes
+  #
+  # alignment:: Sets the horizontal and vertical alignment.
+  #             The value is a string "horizontal:vertical", with 
+  #             options ALEFT, ACENTER, ARIGHT or none.
+  # canfocus:: Enables the control to gain focus. Values 'yes' / 'no'.
+  # expand:: Allows button to fill available space in indicated direction.
+  #          Values 'no' / 'horizontal' / 'vertical' / 'yes'.
+  # flat:: If set, hides the button's border until mouse enters the button area.
+  #        Values 'yes' / 'no'.
+  # impressborder:: If set, shows button borders even if impress defined.
+  #                 Values 'yes' / 'no'.
+  # imageposition:: Position of image relative to text.
+  #                 Values 'left' / 'right' / 'top' / 'bottom'/
+  # padding:: Margin in x and y directions, value as "mxn".
+  # position:: <b>read-only</b> returns position in pixels within client window
+  #            as "x,y".
+  # rastersize:: Size of the button, in pixels, value as "widthxheight".
+  # screenposition:: <b>read-only</b> returns position in pixels on screen
+  #                  as "x,y".
+  # spacing:: Space between image and text, value as a number.
+  # tip:: Tooltip string.
+  # title:: Label text displayed on the button.
+  #
+  class Button < Widget
+    include ImageAttributes
+
+    # Creates an instance of a button.
+    # title:: the text to display on the button.
+    # callback:: procedure to call when button is left-clicked.
+    # block:: optional block to set up the button's attributes.
+    def initialize title='', callback = nil, &block
+      @handle = IupLib.IupButton title, nil
+
+      action callback unless callback.nil?
+
+      # run any provided block on instance, to set up further attributes
+      self.instance_eval &block if block_given?
+    end
+
+    # -- attributes
+
+    define_attribute :alignment
+    define_attribute :canfocus
+    define_attribute :expand
+    define_attribute :flat
+    define_attribute :focus
+    define_attribute :impressborder
+    define_attribute :imageposition
+    define_attribute :padding
+    define_readonly :position
+    define_attribute :rastersize
+    define_readonly :screenposition
+    define_attribute :spacing
+    define_attribute :tip
+    define_attribute :title
+
+    # -- callbacks
+
+    # Action generated when the button 1 (usually left) is selected.
+    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
+

data/lib/wrapped/callback-setter.rb

@@ -0,0 +1,78 @@
+module Iup
+
+  module CallbackSetter
+    def define_callback callback, name, type=:plain
+      # use a hash to store callbacks
+      @callbacks = {} unless @callbacks
+      @callbacks[name] = callback
+
+      case type
+      when :d_i
+        IupLib.IupSetCallbackD_I @handle, name, callback
+      when :ff_i
+        IupLib.IupSetCallbackFF_I @handle, name, callback
+      when :fiis_i
+        IupLib.IupSetCallbackFIIS_I @handle, name, callback
+      when :s_i
+        IupLib.IupSetCallbackS_I @handle, name, callback
+      when :sii_i
+        IupLib.IupSetCallbackSII_I @handle, name, callback
+      when :i_i
+        IupLib.IupSetCallbackI_I @handle, name, callback
+      when :i_s
+        IupLib.IupSetCallbackI_S @handle, name, callback
+      when :ii_i
+        IupLib.IupSetCallbackII_I @handle, name, callback
+      when :iff_i
+        IupLib.IupSetCallbackIFF_I @handle, name, callback
+      when :iiff_i
+        IupLib.IupSetCallbackIIFF_I @handle, name, callback
+      when :iiffi_i
+        IupLib.IupSetCallbackIIFFI_I @handle, name, callback
+      when :iiffff_i
+        IupLib.IupSetCallbackIIFFFF_I @handle, name, callback
+      when :is_i
+        IupLib.IupSetCallbackIS_I @handle, name, callback
+      when :iis_i
+        IupLib.IupSetCallbackIIS_I @handle, name, callback
+      when :iii_i
+        IupLib.IupSetCallbackIII_I @handle, name, callback
+      when :iiii_i
+        IupLib.IupSetCallbackIIII_I @handle, name, callback
+      when :iiis_i
+        IupLib.IupSetCallbackIIIS_I @handle, name, callback
+      when :iiiis_i
+        IupLib.IupSetCallbackIIIIS_I @handle, name, callback
+      when :plain
+        IupLib.IupSetCallbackPlain @handle, name, callback
+      when :plain_v
+        IupLib.IupSetCallbackPlain_v @handle, name, callback
+      when :p_i
+        IupLib.IupSetCallbackP_I @handle, name, callback
+      when :pp_i
+        IupLib.IupSetCallbackPP_I @handle, name, callback
+      when :ss_i
+        IupLib.IupSetCallbackSS_I @handle, name, callback
+      when :ssi_i
+        IupLib.IupSetCallbackSSI_I @handle, name, callback
+      when :ssiii_i
+        IupLib.IupSetCallbackSSIII_I @handle, name, callback
+      else
+        raise ArgumentError, "unknown callback type #{type}, name #{name}"
+      end
+    end
+
+    private
+
+    def num_args arity
+      result = ""
+
+      arity.times do |i|
+        result << "a#{i},"
+      end
+      result.sub!(/,$/, "")
+      return result
+    end
+  end
+end
+