ffi-efl 0.0.8 → 0.0.9

data/spec/elm_spec.rb

@@ -187,15 +187,12 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
                 @iwin.activate
                 @iwin.content_set o1
                 @iwin.content.should == o1.to_ptr
-                @iwin.content?.should == o1.to_ptr
                 @iwin.content_get.should === o1.to_ptr
                 @iwin.content= o2
                 @iwin.content.should === o2.to_ptr
-                @iwin.content?.should === o2.to_ptr
                 @iwin.content_get.should === o2.to_ptr
                 @iwin.content_unset
                 @iwin.content.should == FFI::Pointer::NULL
-                @iwin.content?.should == FFI::Pointer::NULL
                 @iwin.content_get.should == FFI::Pointer::NULL
                 o1.free
                 o2.free

data/test/test_elementary.rb

@@ -1,8 +1,20 @@
 #! /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 = [
@@ -150,7 +162,7 @@ class TestWin < Elm::ElmWin
     #
     def initialize name, title
         super FFI::MemoryPointer::NULL, name
-        title = title
+        self.title = title
         feed
         smart_callback_add 'delete,request', method(:on_delete)
     end
@@ -188,7 +200,6 @@ class TestWin < Elm::ElmWin
             li.size_hint_weight_expand
             li.size_hint_align_set_fill
             @bx0.pack_end li
-            li.show
         end
         @idx = Elm::ElmIndex.new self do |idx|
             idx.smart_callback_add 'delay,changed', method(:index_changed)
@@ -197,19 +208,32 @@ class TestWin < Elm::ElmWin
             idx.show
         end
         ch = nil
-        TESTS.each do |l,m|
-            it = @li.item_append l, nil, nil, method(:fake)
+        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, it
+                @idx.item_append ch.to_s, it
             end
         end
         @idx.item_go 0
         @li.go
+        @li.show
     end
     #
-    def fake data, evas_obj, event_info
-        puts 'FAKE'
+    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
@@ -220,13 +244,18 @@ class TestWin < Elm::ElmWin
         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_elementare', 'Elementary Tests'
+    win = TestWin.new 'test_elementary', 'Elementary Tests'
     win.evas_object_resize 320, 480
     win.show
 end
@@ -234,8 +263,6 @@ end
 Elm.init
 #
 Native.elm_app_info_set elm_main, 'elementary', 'images/logo.png'
-Native.elm_app_compile_bin_dir_set PACKAGE_BIN_DIR
-Native.elm_app_compile_data_dir_set PACKAGE_DATA_DIR
 #
 Elm.run
 Elm.shutdown

data/test/tests/test_actionslider.rb

@@ -0,0 +1,132 @@
+#! /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

data/test/tests/test_bg.rb

@@ -0,0 +1,151 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+module Tests
+    #
+    class TestBg < Efl::Elm::ElmWin
+        def initialize name, title, fct
+            super nil, name
+            self.title = title
+            self.autodel = true
+            self.send fct
+            @bg.size_hint_min = 160, 160
+            @bg.size_hint_max = 640, 640
+            self.resize 320, 230
+            self.show
+        end
+        def plain_bg
+            @bg = Elm::ElmBg.new self do |bg|
+                bg.size_hint_weight_expand
+                self.resize_object_add bg
+                bg.show
+            end
+        end
+        def image_bg
+            @bg = Elm::ElmBg.new self do |bg|
+                bg.file =  "#{PACKAGE_DATA_DIR}/images/plant_01.jpg", nil
+                bg.size_hint_weight_expand
+                self.resize_object_add bg
+                bg.show
+            end
+        end
+        def options_bg
+            plain_bg
+            @bx = Elm::ElmBox.new self do |bx|
+                bx.size_hint_weight_expand
+                self.resize_object_add bx
+                bx.show
+            end
+            @o_bg = Elm::ElmBg.new self do |bg|
+                bg.file =  "#{PACKAGE_DATA_DIR}/images/plant_01.jpg", nil
+                bg.size_hint_weight_expand
+                bg.size_hint_align_fill
+                @bx.pack_end bg
+                bg.show
+            end
+            @hbx = Elm::ElmBox.new self do |bx|
+                bx.horizontal = true
+                bx.size_hint_weight_expand_fill
+                bx.size_hint_align_fill
+            end
+            @rdg = Elm::ElmRadio.new self do |r|
+                r.state_value = :elm_bg_option_center
+                r.text = "Center"
+                r.size_hint_weight_expand_fill
+                r.smart_callback_add "changed", method(:cb_radio_changed)
+                @hbx.pack_end r
+                r.show
+            end
+            Elm::ElmRadio.new self do |r|
+                r.state_value = :elm_bg_option_scale
+                r.group_add @rdg
+                r.text = "Scale"
+                r.size_hint_weight_expand_fill
+                r.smart_callback_add "changed", method(:cb_radio_changed)
+                @hbx.pack_end r
+                r.show
+            end
+            Elm::ElmRadio.new self do |r|
+                r.state_value = :elm_bg_option_stretch
+                r.group_add @rdg
+                r.text = "Stretch"
+                r.size_hint_weight_expand_fill
+                r.smart_callback_add "changed", method(:cb_radio_changed)
+                @hbx.pack_end r
+                r.show
+            end
+            Elm::ElmRadio.new self do |r|
+                r.state_value = :elm_bg_option_tile
+                r.group_add @rdg
+                r.text = "Tile"
+                r.size_hint_weight_expand_fill
+                r.smart_callback_add "changed", method(:cb_radio_changed)
+                @hbx.pack_end r
+                r.show
+            end
+            @rdg.value_set :elm_bg_option_scale
+            Elm::ElmCheck.new self do |ck|
+                ck.text = "Show Overlay"
+                ck.size_hint_weight_expand_fill
+                ck.smart_callback_add "changed", method(:cb_overlay_changed)
+                @hbx.pack_end ck
+                ck.show
+            end
+            Elm::ElmSpinner.new self do |sp|
+                sp.style = "vertical"
+                sp.min_max = 1, 4
+                sp.label_format = "%.0f"
+                sp.editable = false
+                sp.special_value_add 1, "White"
+                sp.special_value_add 2, "Red"
+                sp.special_value_add 3, "Blue"
+                sp.special_value_add 4, "Green"
+                sp.size_hint_weight_expand
+                sp.size_hint_align_fill
+                sp.smart_callback_add "changed", method(:cb_color_changed)
+                @hbx.pack_end sp
+                sp.show
+            end
+            @bx.pack_end @hbx
+            @hbx.show
+        end
+        def cb_radio_changed data, evas_obj, event_info
+            @o_bg.option = Elm::ElmRadio.new(evas_obj).value
+        end
+        def cb_overlay_changed data, evas_obj, event_info
+            if Elm::ElmCheck.new(evas_obj).state
+                over = @o_bg.parent_widget.evas.edje_object_add
+                over.file = "#{PACKAGE_DATA_DIR}/objects/test.edj", "bg_overlay"
+                @o_bg.overlay = over
+            else
+                @o_bg.overlay = FFI::Pointer::NULL
+            end
+        end
+        def cb_color_changed data, evas_obj, event_info
+            case Elm::ElmSpinner.new(evas_obj).value
+            when 1.0
+                @o_bg.color = 255, 255, 255
+            when 2.0
+                @o_bg.color = 255, 0, 0
+            when 3.0
+                @o_bg.color = 0, 0, 255
+            when 4.0
+                @o_bg.color = 0, 255, 0
+            end
+        end
+    end
+    #
+    def self.test_bg_plain
+        TestBg.new 'bg-plain', 'Bg Plain', :plain_bg
+    end
+    #
+    def self.test_bg_image
+        TestBg.new 'bg-image', 'Bg Image', :image_bg
+    end
+    def self.test_bg_options
+        TestBg.new 'bg-options', 'Bg Options', :options_bg
+    end
+#
+end
+#
+# EOF

data/test/tests/test_box.rb

@@ -0,0 +1,147 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+module Tests
+    #
+    class TestBox < Efl::Elm::ElmWin
+        def initialize name, title, fct
+            super nil, name
+            self.title = title
+            self.autodel = true
+            @bg = Elm::ElmBg.new self do |bg|
+                bg.size_hint_weight_expand
+                self.resize_object_add bg
+                bg.show
+            end
+            self.send fct
+            self.show
+        end
+        #
+        def box_vert
+            @bx = Elm::ElmBox.new self do |bx|
+                bx.size_hint_weight_expand
+                self.resize_object_add bx
+                bx.show
+            end
+            icons = []
+            (0..2).each do
+                icons << Elm::ElmIcon.new(self) do |ico|
+                    ico.file = "#{PACKAGE_DATA_DIR}/images/logo_small.png", nil
+                    ico.scale = false, false
+                    @bx.pack_end ico
+                    ico.show
+                end
+            end
+            icons[0].size_hint_align = 0.5, 0.5
+            icons[1].size_hint_align = 0.0, 0.5
+            icons[2].size_hint_align = Efl::Evas::EVAS_HINT_EXPAND, 0.5
+        end
+        #
+        def box_vert2
+            @bx = Elm::ElmBox.new self do |bx|
+                bx.padding = 10, 10
+                self.resize_object_add bx
+                bx.size_hint_weight_expand
+                bx.show
+            end
+            (1..5).each do |n|
+                bt = Efl::Elm::ElmButton.new self
+                bt.text = "Button #{n}"
+                bt.size_hint_align_fill
+                bt.size_hint_weight = 0.0, 0.0
+                bt.smart_callback_add "clicked", method(:del_cb)
+                @bx.pack_end bt
+                bt.show
+            end
+        end
+        #
+        def del_cb data, evas_obj, event_info
+            o = Efl::Elm::ElmObject.new(evas_obj)
+            @bx.unpack o
+            o.move 0, 0
+            o.color = 128, 64, 0, 128
+        end
+        #
+        def box_horiz
+            @bx = Elm::ElmBox.new self do |bx|
+                bx.horizontal = true
+                self.resize_object_add bx
+                bx.size_hint_weight_expand
+                bx.show
+            end
+            icons = []
+            (0..2).each do
+                icons << Elm::ElmIcon.new(self) do |ico|
+                    ico.file = "#{PACKAGE_DATA_DIR}/images/logo_small.png", nil
+                    ico.scale = false, false
+                    @bx.pack_end ico
+                    ico.show
+                end
+            end
+            icons[0].size_hint_align = 0.5, 0.5
+            icons[1].size_hint_align = 0.5, 0.0
+            icons[2].size_hint_align = 0.0, Efl::Evas::EVAS_HINT_EXPAND
+        end
+        #
+        def box_transition
+            @bx = Elm::ElmBox.new self do |bx|
+                self.resize_object_add bx
+                bx.size_hint_weight_expand
+                bx.show
+            end
+            (1..3).each do |n|
+                bt = Efl::Elm::ElmButton.new self
+                bt.text = "Button #{n}"
+                bt.size_hint_weight_expand
+#                bt.size_hint_align_fill
+                bt.smart_callback_add "clicked", method(:del_cb)
+                @bx.pack_end bt
+                bt.resize 100, 100
+                bt.show
+            end
+            @idx = 0
+            @transitions = [
+                Efl::Native.find_variable('evas_object_box_layout_vertical'),
+                Efl::Native.find_variable('evas_object_box_layout_horizontal'),
+                Efl::Native.find_variable('evas_object_box_layout_stack'),
+                Efl::Native.find_variable('evas_object_box_layout_homogeneous_vertical'),
+                Efl::Native.find_variable('evas_object_box_layout_homogeneous_horizontal'),
+                Efl::Native.find_variable('evas_object_box_layout_flow_vertical'),
+                Efl::Native.find_variable('evas_object_box_layout_flow_horizontal'),
+                Efl::Native.find_variable('evas_object_box_layout_stack'),
+            ]
+            self.resize 300, 300
+            @bx.resize 300, 300
+            @bx.layout =  @transitions[@idx], nil, nil
+            self.show
+            transition_change
+        end
+        #
+        def transition_change data=nil
+            last_layout = @transitions[@idx]
+            @idx = (@idx+1) % @transitions.length
+            next_layout = @transitions[@idx]
+            transition = Efl::Native.elm_box_transition_new 1.0, last_layout, nil, nil, next_layout, nil, nil, method(:transition_change), nil
+            transition_fct = Efl::Native.find_variable('elm_box_layout_transition')
+            transition_free = Efl::Native.find_variable('elm_box_transition_free')
+            @bx.layout = transition_fct, transition, transition_free
+        end
+        #
+    end
+    #
+    def self.test_box_vert
+        TestBox.new 'box-vert', 'Box Vert', :box_vert
+    end
+    def self.test_box_vert2
+        TestBox.new 'box-vert', 'Box Vert', :box_vert2
+    end
+    def self.test_box_horiz
+        TestBox.new 'box-horiz', 'Box Horiz', :box_horiz
+    end
+    def self.test_box_transition
+        TestBox.new 'box-transition', 'Box Transition', :box_transition
+    end
+    #
+end
+#
+# EOF