ffi-efl 0.0.10 → 0.0.11

data/lib/efl/ffi.rb

@@ -1,172 +0,0 @@
-#! /usr/bin/env ruby
-# -*- coding: UTF-8 -*-
-#
-require 'ffi'
-#
-module Efl
-    #
-    module Native
-        #
-        extend FFI::Library
-        #
-        def self.attach_fcts fcts
-            fcts.each do |func|
-                begin
-                    attach_function(*func)
-                rescue Object => e
-                    puts "Could not attach #{func} #{e.message}"
-                end
-            end
-        end
-        #
-        class << self
-            alias :ffi_lib_orig :ffi_lib
-            def ffi_lib *names
-                @all_ffi_libs||=[]
-                @all_ffi_libs += ffi_lib_orig(names)
-                @all_ffi_libs.uniq!
-            end
-            def find_variable name
-                @all_ffi_libs.each do |lib|
-                    address = lib.find_variable name
-                    return address if not address.nil?
-                end
-                return nil
-            end
-        end
-        #
-        typedef :pointer, :char_p
-        typedef :pointer, :short_p
-        typedef :pointer, :int_p
-        typedef :pointer, :long_p
-        typedef :pointer, :float_p
-        typedef :pointer, :double_p
-        typedef :pointer, :uchar_p
-        typedef :pointer, :ushort_p
-        typedef :pointer, :uint_p
-        typedef :pointer, :ulong_p
-        typedef :pointer, :ufloat_p
-        typedef :pointer, :udouble_p
-        typedef :pointer, :void_p
-        typedef :pointer, :string_array
-        typedef :pointer, :string_array_p
-        typedef :uint_p,  :uintptr_t
-        #
-        typedef :bool,    :eina_bool
-        typedef :pointer, :eina_bool_p
-        typedef :pointer, :eina_list_p
-        typedef :pointer, :eina_hash_p
-        typedef :pointer, :eina_iterator_p
-        typedef :pointer, :eina_accessor_p
-        typedef :pointer, :evas_p
-        typedef :pointer, :evas_object_p
-        typedef :pointer, :evas_object_pp
-        typedef :pointer, :evas_gl_api_p
-        typedef :pointer, :ecore_getopt_p
-        typedef :pointer, :ecore_getopt_desc_p
-        typedef :pointer, :ecore_getopt_value_p
-        #
-        callback :eina_compare_cb, [ :void_p, :void_p ], :int
-        callback :eina_each_cb, [ :void_p, :void_p, :void_p ], :eina_bool
-        callback :eina_free_cb, [ :void_p ], :void
-        #
-        class VersionStruct < FFI::Struct
-            layout  :major,     :int,
-                    :minor,     :int,
-                    :micro,     :int,
-                    :revision,  :int
-
-            def full
-                [:major,:minor,:micro,:revision].collect { |e| self[e].to_s }.join '.'
-            end
-        end
-    end
-    #
-    module ModuleHelper
-        def find_function m, prefix
-            m_s = m.to_s
-            if m_s =~/^(.*)=$/
-                m_s = $1+'_set'
-                args_s = '*args[0]'
-            elsif m_s =~/^(.*)\?$/
-                m_s = $1+'_get'
-                args_s = '*args'
-            else
-                args_s = '*args'
-            end
-            sym = (
-                if Efl::Native.respond_to? prefix+m_s
-                    prefix+m_s
-                elsif Efl::Native.respond_to? m_s
-                    m_s
-                elsif Efl::Native.respond_to? prefix+m_s+'_get'
-                    prefix+m_s+'_get'
-                elsif Efl::Native.respond_to? m_s+'_get'
-                    m_s+'_get'
-                else
-                    raise NameError.new "#{self.name}.#{m_s} (#{m})"
-                end
-            )
-            [sym, args_s]
-        end
-        module_function :find_function
-    end
-    #
-    module ClassHelper
-        def to_a; [self] end
-        def to_ary; [self] end
-        def to_s; Object.instance_method(:to_s).bind(self).call+' ['+self.to_ptr.to_s+']' end
-        def to_ptr; @ptr; end
-        def === o; @ptr === o.to_ptr; end
-        def null?; @ptr.null?; end
-        def address; @ptr.address; end
-        def self.included kls
-            # create class instance @search_prefixes
-            kls.class_eval "@search_prefixes ||=[]"
-            # access and prepend *args to @search_prefixes
-            kls.class_eval "def self.search_prefixes *args; @search_prefixes.unshift *args unless args.empty?; @search_prefixes; end"
-            # on inheritance, copy ancestor's @search_prefixes
-            kls.class_eval <<-EOF
-            def self.inherited sub
-                sub.class_eval '@search_prefixes = []'
-                sub.search_prefixes *self.search_prefixes
-            end
-            EOF
-        end
-        def method_missing m, *args, &block
-            m_s = m.to_s
-            if m_s =~/^(.*)=$/
-                m_s = $1+'_set'
-                args_s = '*args[0]'
-            elsif m_s =~/^(.*)\?$/
-                m_s = $1+'_get'
-                args_s = '*args'
-            else
-                args_s = '*args'
-            end
-            (['']+self.class.search_prefixes).each do |p|
-                sym = p+m_s
-                meth = (
-                    if Efl::Native.respond_to? sym
-                        sym
-                    elsif Efl::Native.respond_to? m_s
-                        m_s
-                    elsif Efl::Native.respond_to? sym+'_get'
-                        sym+'_get'
-                    elsif Efl::Native.respond_to? m_s+'_get'
-                        m_s+'_get'
-                    else
-                        nil
-                    end
-                )
-                if not meth.nil?
-                    self.class.class_eval "def #{m} *args, &block; r=Efl::Native.#{meth}(@ptr,#{args_s}); yield r if block_given?; r; end"
-                    return self.send m, *args, &block
-                end
-            end
-            Kernel.raise NameError.new "#{self.class.name} is unable to resolve #{m} within #{self.class.search_prefixes.inspect}"
-        end
-    end
-end
-#
-# EOF

data/test/test_elementary.rb

@@ -1,271 +0,0 @@
-#! /usr/bin/env ruby
-# -*- coding: UTF-8 -*-
-#
-require 'efl/elementary'
-require 'efl/edje'
-require 'efl'
-#
-PREFIX=`pkg-config --variable=prefix ecore`.strip
-if PREFIX.empty?
-    puts "unable to determine Efl::PREFIX using pkg-config, images will not be available"
-end
-PACKAGE_DATA_DIR = File.join PREFIX, 'share', 'elementary'
-
-Dir.glob( File.join File.dirname(__FILE__), 'tests', '*.rb').each do |f|
-    load f
-end
-#
-include Efl;
-#
-TESTS = [
-    [ 'Bg Plain', :test_bg_plain ],
-    [ 'Bg Image', :test_bg_image ],
-    [ 'Bg Options', :test_bg_options ],
-    [ 'Icon Transparent', :test_icon ],
-    [ 'Icon Animation', :test_icon_animated ],
-    [ 'Box Vert', :test_box_vert ],
-    [ 'Box Vert 2', :test_box_vert2 ],
-    [ 'Box Horiz', :test_box_horiz ],
-    [ 'Box Transition', :test_box_transition ],
-    [ 'Buttons', :test_button ],
-    [ 'Transit', :test_transit ],
-    [ 'Transit 2', :test_transit2 ],
-    [ 'Transit 3', :test_transit3 ],
-    [ 'Transit 4', :test_transit4 ],
-    [ 'Transit 5', :test_transit5 ],
-    [ 'Transit 6', :test_transit6 ],
-    [ 'Transit 7', :test_transit7 ],
-    [ 'Transit 8', :test_transit8 ],
-    [ 'Transit 9', :test_transit9 ],
-    [ 'File Selector Button', :test_fileselector_button ],
-    [ 'File Selector Entry', :test_fileselector_entry ],
-    [ 'Toggles', :test_toggle ],
-    [ 'Table', :test_table ],
-    [ 'Table Homogeneous', :test_table2 ],
-    [ 'Table 3', :test_table3 ],
-    [ 'Table 4', :test_table4 ],
-    [ 'Table 5', :test_table5 ],
-    [ 'Table 6', :test_table6 ],
-    [ 'Clock', :test_clock ],
-    [ 'Clock 2', :test_clock2 ],
-    [ 'Layout', :test_layout ],
-    [ 'Hover', :test_hover ],
-    [ 'Hover 2', :test_hover2 ],
-    [ 'Entry', :test_entry ],
-    [ 'Entry Scrolled', :test_entry_scrolled ],
-    [ 'Entry 3', :test_entry3 ],
-    [ 'Entry 4', :test_entry4 ],
-    [ 'Entry 5', :test_entry5 ],
-    [ 'Entry Notepad', :test_entry_notepad ],
-    [ 'Anchorview', :test_anchorview ],
-    [ 'Anchorblock', :test_anchorblock ],
-    [ 'Toolbar', :test_toolbar ],
-    [ 'Toolbar 2', :test_toolbar2 ],
-    [ 'Toolbar 3', :test_toolbar3 ],
-    [ 'Toolbar 4', :test_toolbar4 ],
-    [ 'Toolbar 5', :test_toolbar5 ],
-    [ 'Toolbar 6', :test_toolbar6 ],
-    [ 'Hoversel', :test_hoversel ],
-    [ 'List', :test_list ],
-    [ 'List - Horizontal', :test_list_horizontal ],
-    [ 'List 2', :test_list2 ],
-    [ 'List 3', :test_list3 ],
-    [ 'List 4', :test_list4 ],
-    [ 'List 5', :test_list5 ],
-    [ 'Inwin', :test_inwin ],
-    [ 'Inwin 2', :test_inwin2 ],
-    [ 'Scaling', :test_scaling ],
-    [ 'Scaling 2', :test_scaling2 ],
-    [ 'Slider', :test_slider ],
-    [ 'Actionslider', :test_actionslider ],
-    [ 'Genlist', :test_genlist ],
-    [ 'Genlist 2', :test_genlist2 ],
-    [ 'Genlist 3', :test_genlist3 ],
-    [ 'Genlist 4', :test_genlist4 ],
-    [ 'Genlist 5', :test_genlist5 ],
-    [ 'Genlist 7', :test_genlist7 ],
-    [ 'Genlist Tree', :test_genlist6 ],
-    [ 'Genlist Group', :test_genlist8 ],
-    [ 'Genlist Group Tree', :test_genlist9 ],
-    [ 'Genlist Mode', :test_genlist10 ],
-    [ 'Genlist Reorder Mode', :test_genlist11 ],
-    [ 'Genlist Eio', :test_eio ],
-    [ 'GenGrid', :test_gengrid ],
-    [ 'GenGrid 2', :test_gengrid2 ],
-    [ 'Checks', :test_check ],
-    [ 'Radios', :test_radio ],
-    [ 'Pager', :test_pager ],
-    [ 'Pager Slide', :test_pager_slide ],
-    [ 'Window States', :test_win_state ],
-    [ 'Window States 2', :test_win_state2 ],
-    [ 'Progressbar', :test_progressbar ],
-    [ 'File Selector', :test_fileselector ],
-    [ 'Separator', :test_separator ],
-    [ 'Scroller', :test_scroller ],
-    [ 'Scroller 2', :test_scroller2 ],
-    [ 'Spinner', :test_spinner ],
-    [ 'Index', :test_index ],
-    [ 'Index 2', :test_index2 ],
-    [ 'Photocam', :test_photocam ],
-    [ 'Photo', :test_photo ],
-    [ 'Thumb', :test_thumb ],
-    [ 'Icon Desktops', :test_icon_desktops ],
-    [ 'Notify', :test_notify ],
-    [ 'Slideshow', :test_slideshow ],
-    [ 'Menu', :test_menu ],
-    [ 'Panel', :test_panel ],
-    [ 'Panes', :test_panes ],
-    [ 'Map', :test_map ],
-    [ 'Weather', :test_weather ],
-    [ 'Flip', :test_flip ],
-    [ 'Flip 2', :test_flip2 ],
-    [ 'Flip 3', :test_flip3 ],
-    [ 'Flip Interactive', :test_flip4 ],
-    [ 'Flip Page', :test_flip_page ],
-    [ 'Label', :test_label ],
-    [ 'Conformant', :test_conformant ],
-    [ 'Conformant 2', :test_conformant2 ],
-    [ 'Multi Touch', :test_multi ],
-    [ 'Floating Objects', :test_floating ],
-    [ 'Launcher', :test_launcher ],
-    [ 'Launcher 2', :test_launcher2 ],
-    [ 'Launcher 3', :test_launcher3 ],
-    [ 'Animation', :test_anim ],
-    [ 'Calendar', :test_calendar ],
-    [ 'Calendar 2', :test_calendar2 ],
-    [ 'Tooltip', :test_tooltip ],
-    [ 'Tooltip2', :test_tooltip2 ],
-    [ 'Cursor', :test_cursor ],
-    [ 'Cursor 2', :test_cursor2 ],
-    [ 'Cursor 3', :test_cursor3 ],
-    [ 'Focus', :test_focus ],
-    [ 'Focus 2', :test_focus2 ],
-    [ 'Focus 3', :test_focus3 ],
-    [ 'Flip Selector', :test_flipselector ],
-    [ 'Disk Selector', :test_diskselector ],
-    [ 'Color Selector', :test_colorselector ],
-    [ 'Ctxpopup', :test_ctxpopup ],
-    [ 'Bubble', :test_bubble ],
-    [ 'Segment Control', :test_segment_control ],
-    [ 'Store', :test_store ],
-    [ 'Window Inline', :test_win_inline ],
-    [ 'Grid', :test_grid ],
-    [ 'GLViewSimple', :test_glview_simple ],
-    [ 'GLView', :test_glview ],
-    [ '3D', :test_3d ],
-    [ 'Gesture Layer', :test_gesture_layer ],
-    [ 'Naviframe', :test_naviframe ],
-    [ 'Factory', :test_factory ],
-]
-#
-class TestWin < Elm::ElmWin
-    #
-    def initialize name, title
-        super FFI::MemoryPointer::NULL, name
-        self.title = title
-        feed
-        smart_callback_add 'delete,request', method(:on_delete)
-    end
-    #
-    def feed
-        @bg = Elm::ElmBg.new self do |bg|
-            bg.size_hint_weight_expand
-            resize_object_add bg
-            bg.show
-        end
-        @bx0 = Elm::ElmBox.new self do |bx|
-            bx.size_hint_weight_expand
-            resize_object_add bx
-            bx.show
-        end
-        @fr =  Elm::ElmFrame.new self do |fr|
-            fr.text = 'Information'
-            @bx0.pack_end fr
-            fr.show
-        end
-        Elm::ElmLabel.new self do |lb|
-            lb.text = 'Please select a test from the list below<br>by clicking the test button to show the<br>test window.'
-            @fr.content = lb
-            lb.show
-        end
-        Elm::ElmCheck.new self do |tg|
-            tg.style = 'toggle'
-            tg.text = 'UI-Mirroring:'
-            tg.state = Native.elm_mirrored_get
-            tg.smart_callback_add 'changed', method(:tg_changed)
-            @bx0.pack_end tg
-            tg.show
-        end
-        @li = Elm::ElmList.new self do |li|
-            li.always_select_mode = true
-            li.size_hint_weight_expand
-            li.size_hint_align_set_fill
-            @bx0.pack_end li
-        end
-        @idx = Elm::ElmIndex.new self do |idx|
-            idx.smart_callback_add 'delay,changed', method(:index_changed)
-            idx.size_hint_weight_expand
-            resize_object_add idx
-            idx.show
-        end
-        ch = nil
-        TESTS.sort.each do |l,m|
-            icon = nil
-            if Tests.respond_to? m
-                icon = Elm::ElmIcon.new self
-                icon.file = "#{PACKAGE_DATA_DIR}/images/icon_00.png", nil
-                icon.size_hint_min = 20,20
-            end
-            it = @li.item_append l, nil, icon, method(:try_test), FFI::MemoryPointer.from_string(m.to_s)
-            it.del_cb_set method(:free_list_item)
-            if l[0]!=ch
-                ch = l[0]
-                @idx.item_append ch.to_s, it
-            end
-        end
-        @idx.item_go 0
-        @li.go
-        @li.show
-    end
-    #
-    def try_test data, evas_obj, event_info
-        fct = data.read_string
-        begin
-            Tests.send fct
-        rescue NoMethodError
-            puts "#{fct} not implemeneted yet"
-        end
-    end
-    #
-    def tg_changed data, evas_obj, event_info
-        Native.elm_mirrored_set Native.elm_check_state_get evas_obj
-    end
-    #
-    def index_changed data, evas_obj, event_info
-        Native.elm_list_item_show event_info
-    end
-    #
-    def free_list_item data, evas_obj, event_info
-        # free FFI::MemoryPointer.from_string m.to_s
-        data.free
-    end
-    #
-    def on_delete data, evas_object, event_info
-        Elm.exit
-    end
-end
-#
-def elm_main
-    win = TestWin.new 'test_elementary', 'Elementary Tests'
-    win.evas_object_resize 320, 480
-    win.show
-end
-#
-Elm.init
-#
-Native.elm_app_info_set elm_main, 'elementary', 'images/logo.png'
-#
-Elm.run
-Elm.shutdown
-#
-# EOF

data/test/tests/test_actionslider.rb

@@ -1,132 +0,0 @@
-#! /usr/bin/env ruby
-# -*- coding: UTF-8 -*-
-#
-module Tests
-    #
-    class TestActionSlider < Efl::Elm::ElmWin
-        def initialize name, title, fct
-            super nil, name
-            self.title = title
-            self.autodel = true
-            self.send fct
-            self.resize 320, 400
-            self.show
-        end
-        def simple
-            @bg = Elm::ElmBg.new self do |bg|
-                bg.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                self.resize_object_add bg
-                bg.show
-            end
-            @bx = Elm::ElmBox.new self do |bx|
-                bx.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                self.resize_object_add bx
-                bx.show
-            end
-            as_pos = Native.enum_type :elm_actionslider_pos
-            # standards calls
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.text_part = "left", "Snooze"
-                as.text_part = "center", nil
-                as.text_part = "right", "Stop"
-                as.indicator_pos = :elm_actionslider_right
-                as.magnet_pos = :elm_actionslider_right
-                as.enabled_pos = as_pos[:elm_actionslider_left]|as_pos[:elm_actionslider_right]
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.smart_callback_add "pos_changed", method(:cb_position_change_magnetic)
-                as.show
-            end
-            @bx.pack_end as
-            # use xxx_set helpers
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.texts_set "Snooze", nil, "Stop"
-                as.indicator_set 'c'
-                as.magnet_set 'c'
-                as.enabled_set 'lr'
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.show
-            end
-            @bx.pack_end as
-            # use xxx = helpers
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.style = "bar"
-                as.texts = nil, "Accept", "Reject"
-                as.indicator = 'l'
-                as.magnet = 'cr'
-                as.enabled = 'cr'
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.show
-            end
-            @bx.pack_end as
-            # use setup
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.style = "bar"
-                as.text = "Go"
-                as.setup [nil, "Accept", "Reject"], 'l', 'l', 'a'
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.smart_callback_add "pos_changed", method(:cb_position_change_magnetic)
-                as.show
-            end
-            @bx.pack_end as
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.text = "Go"
-                as.setup ["Left", "Center", "right"], 'l', 'a'
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.show
-            end
-            @bx.pack_end as
-            as = Elm::ElmActionSlider.new self do |as|
-                as.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0
-                as.size_hint_align_set Evas::EVAS_HINT_FILL, 0
-                as.text = "Go"
-                as.setup ["Enable", "Magnet", "Disable"], 'c', 'c'
-                as.smart_callback_add "selected", method(:cb_pos_selected)
-                as.smart_callback_add "pos_changed", method(:cb_magnet_enable_disable)
-                as.show
-            end
-            @bx.pack_end as
-        end
-        def cb_pos_selected data, evas_obj, event_info
-            as = Elm::ElmActionSlider.new evas_obj
-            puts "Selection #{event_info.null? ? 'NULL' : event_info.read_string}"
-            puts "   label: #{Elm::ElmActionSlider.new(evas_obj).selected_label}"
-        end
-        def cb_position_change_magnetic data, evas_obj, event_info
-            as = Elm::ElmActionSlider.new evas_obj
-            return if event_info.null?
-            case event_info.read_string
-            when "left"
-                as.magnet_pos = :elm_actionslider_left
-            when "right"
-                as.magnet_pos = :elm_actionslider_right
-            end
-        end
-        def cb_magnet_enable_disable data, evas_obj, event_info
-            as = Elm::ElmActionSlider.new evas_obj
-            return if event_info.null?
-            case event_info.read_string
-            when "left"
-                as.magnet_pos = :elm_actionslider_center
-            when "right"
-                as.magnet_pos = :elm_actionslider_none
-            end
-        end
-    end
-    #
-    def self.test_actionslider
-        TestActionSlider.new 'actionslider', 'Actionslider', :simple
-    end
-    #
-end
-#
-# EOF