ffi-efl 0.0.9 → 0.0.10

data/lib/efl/native/evas.rb

@@ -36,6 +36,8 @@ module Efl
         enum :evas_button_flags, [ :evas_button_none, 0, :evas_button_double_click, :evas_button_triple_click ]
         # typedef enum _Evas_Event_Flags {...} Evas_Event_Flags;
         enum :evas_event_flags, [ :evas_event_flag_none, 0, :evas_event_flag_on_hold, :evas_event_flag_on_scroll ]
+        # typedef enum _Evas_Touch_Point_State {...} Evas_Touch_Point_State;
+        enum :evas_touch_point_state, [ :evas_touch_point_down, :evas_touch_point_up, :evas_touch_point_move, :evas_touch_point_still, :evas_touch_point_cancel ]
         # typedef enum _Evas_Font_Hinting_Flags {...} Evas_Font_Hinting_Flags;
         enum :evas_font_hinting_flags, [ :evas_font_hinting_none, :evas_font_hinting_auto, :evas_font_hinting_bytecode ]
         # typedef enum _Evas_Colorspace {...} Evas_Colorspace;
@@ -136,6 +138,9 @@ module Efl
         # typedef struct _Evas_Native_Surface Evas_Native_Surface;
         typedef :pointer, :evas_native_surface
         typedef :pointer, :evas_native_surface_p
+        # typedef struct _Evas_Video_Surface Evas_Video_Surface;
+        typedef :pointer, :evas_video_surface
+        typedef :pointer, :evas_video_surface_p
         # typedef unsigned long long Evas_Modifier_Mask;
         typedef :ulong_long, :evas_modifier_mask
         # typedef int Evas_Coord;
@@ -213,6 +218,10 @@ module Efl
         typedef :pointer, :evas_cserve_config_p
         #
         # CALLBACKS
+        # typedef void (*Evas_Video_Cb) (void *data, Evas_Object *obj, const Evas_Video_Surface *surface);
+        callback :evas_video_cb, [ :void_p, :evas_object_p, :evas_video_surface_p ], :void
+        # typedef void (*Evas_Video_Coord_Cb) (void *data, Evas_Object *obj, const Evas_Video_Surface *surface, Evas_Coord a, Evas_Coord b);
+        callback :evas_video_coord_cb, [ :void_p, :evas_object_p, :evas_video_surface_p, :int, :int ], :void
         # typedef void (*Evas_Smart_Cb) (void *data, Evas_Object *obj, void *event_info);
         callback :evas_smart_cb, [ :void_p, :evas_object_p, :void_p ], :void
         # typedef void (*Evas_Event_Cb) (void *data, Evas *e, void *event_info);
@@ -408,6 +417,8 @@ module Efl
         [ :evas_image_cache_set, [ :evas_p, :int ], :void ],
         # EAPI int evas_image_cache_get (const Evas *e);
         [ :evas_image_cache_get, [ :evas_p ], :int ],
+        # EAPI Eina_Bool evas_image_max_size_get (const Evas *e, int *maxw, int *maxh);
+        [ :evas_image_max_size_get, [ :evas_p, :int_p, :int_p ], :eina_bool ],
         # EAPI void evas_font_hinting_set (Evas *e, Evas_Font_Hinting_Flags hinting);
         [ :evas_font_hinting_set, [ :evas_p, :evas_font_hinting_flags ], :void ],
         # EAPI Evas_Font_Hinting_Flags evas_font_hinting_get (const Evas *e);
@@ -510,6 +521,10 @@ module Efl
         [ :evas_object_propagate_events_set, [ :evas_object_p, :eina_bool ], :void ],
         # EAPI Eina_Bool evas_object_propagate_events_get (const Evas_Object *obj);
         [ :evas_object_propagate_events_get, [ :evas_object_p ], :eina_bool ],
+        # EAPI void evas_object_freeze_events_set(Evas_Object *obj, Eina_Bool freeze);
+        [ :evas_object_freeze_events_set, [ :evas_object_p, :eina_bool ], :void ],
+        # EAPI Eina_Bool evas_object_freeze_events_get(const Evas_Object *obj);
+        [ :evas_object_freeze_events_get, [ :evas_object_p ], :eina_bool ],
         # EAPI void evas_object_map_enable_set (Evas_Object *obj, Eina_Bool enabled);
         [ :evas_object_map_enable_set, [ :evas_object_p, :eina_bool ], :void ],
         # EAPI Eina_Bool evas_object_map_enable_get (const Evas_Object *obj);
@@ -798,6 +813,10 @@ module Efl
         [ :evas_object_image_native_surface_set, [ :evas_object_p, :evas_native_surface_p ], :void ],
         # EAPI Evas_Native_Surface *evas_object_image_native_surface_get (const Evas_Object *obj);
         [ :evas_object_image_native_surface_get, [ :evas_object_p ], :evas_native_surface_p ],
+        # EAPI void evas_object_image_video_surface_set (Evas_Object *obj, Evas_Video_Surface *surf);
+        [ :evas_object_image_video_surface_set, [ :evas_object_p, :evas_video_surface_p ], :void ],
+        # EAPI const Evas_Video_Surface *evas_object_image_video_surface_get (const Evas_Object *obj);
+        [ :evas_object_image_video_surface_get, [ :evas_object_p ], :evas_video_surface_p ],
         # EAPI void evas_object_image_scale_hint_set (Evas_Object *obj, Evas_Image_Scale_Hint hint);
         [ :evas_object_image_scale_hint_set, [ :evas_object_p, :evas_image_scale_hint ], :void ],
         # EAPI Evas_Image_Scale_Hint evas_object_image_scale_hint_get (const Evas_Object *obj);
@@ -1326,6 +1345,14 @@ module Efl
         [ :evas_object_key_grab, [ :evas_object_p, :string, :ulong_long, :ulong_long, :eina_bool ], :eina_bool ],
         # EAPI void evas_object_key_ungrab (Evas_Object *obj, const char *keyname, Evas_Modifier_Mask modifiers, Evas_Modifier_Mask not_modifiers);
         [ :evas_object_key_ungrab, [ :evas_object_p, :string, :ulong_long, :ulong_long ], :void ],
+        # EAPI unsigned int evas_touch_point_list_count(Evas *e);
+        [ :evas_touch_point_list_count, [ :evas_p ], :uint ],
+        # EAPI void evas_touch_point_list_nth_xy_get(Evas *e, unsigned int n, Evas_Coord *x, Evas_Coord *y);
+        [ :evas_touch_point_list_nth_xy_get, [ :evas_p, :uint, :int_p, :int_p ], :void ],
+        # EAPI int evas_touch_point_list_nth_id_get(Evas *e, unsigned int n);
+        [ :evas_touch_point_list_nth_id_get, [ :evas_p, :uint ], :int ],
+        # EAPI Evas_Touch_Point_State evas_touch_point_list_nth_state_get(Evas *e, unsigned int n);
+        [ :evas_touch_point_list_nth_state_get, [ :evas_p, :uint ], :evas_touch_point_state ],
         ]
         #
         attach_fcts fcts

data/spec/ecore_evas_spec.rb

@@ -5,7 +5,7 @@ require 'efl/eina_list'
 require 'efl/ecore_evas'
 require './spec/helper'
 #
-describe Efl::EcoreEvas do
+describe 'Efl::EcoreEvas' do
     #
     before(:all) do
         EcoreEvas = Efl::EcoreEvas

data/spec/ecore_getopt_spec.rb

@@ -7,7 +7,7 @@ require 'efl/eina_list'
 require 'efl/eina_rectangle'
 require 'efl/ecore_getopt'
 #
-describe Efl::EcoreGetopt do
+describe 'Efl::EcoreGetopt' do
     #
     after(:all) do
         Efl::Ecore.shutdown

data/spec/ecore_input_spec.rb

@@ -3,7 +3,7 @@
 #
 require 'efl/ecore_input'
 #
-describe Efl::EcoreInput do
+describe 'Efl::EcoreInput' do
     #
     before(:all) do
         EcoreInput = Efl::EcoreInput

data/spec/ecore_spec.rb

@@ -130,7 +130,7 @@ describe "Efl::Ecore #{Efl::Ecore.version.full}" do
         e2.free
     end
     #
-    describe Efl::Ecore::REcorePipe do
+    describe 'Efl::Ecore::REcorePipe' do
     #
         it 'should write and read data from pipe' do
             data = FFI::MemoryPointer.from_string("none")

data/spec/edje_spec.rb

@@ -94,7 +94,7 @@ describe "Efl::Edje #{Efl::Edje.version.full}" do
     # TODO edje_color_class*
     # TODO edje_text_class*
     #
-    describe Efl::Edje::REdje do
+    describe 'Efl::Edje::REdje' do
         before(:all) do
             Efl::Evas.init
             realize_evas

data/spec/eet_spec.rb

@@ -42,7 +42,7 @@ describe "Efl::Eet #{Efl::Eet.version.full}" do
         Native.enum_type(:eet_file_mode)[:eet_file_mode_read_write].should == 2
     end
     #
-    describe Efl::Eet::REetFile do
+    describe 'Efl::Eet::REetFile' do
         #
         it "should open and close" do
             f = REetFile.open FP, Native.enum_type(:eet_file_mode)[:eet_file_mode_write]
@@ -83,7 +83,7 @@ describe "Efl::Eet #{Efl::Eet.version.full}" do
             f = REetFile.open FP, :eet_file_mode_read_write
             f.write 'configg', 'test key'
             f.read('configg').should == 'test key'
-#            f.close    #leave it to FFI::AutoPointer
+            f.close
         end
         #
         it "should write in block" do

data/spec/eina_hash_spec.rb

@@ -4,7 +4,7 @@
 require 'efl'
 require 'efl/eina_hash'
 #
-describe Efl::EinaHash do
+describe 'Efl::EinaHash' do
     #
     before(:all) do
         REinaHash = Efl::EinaHash::REinaHash

data/spec/eina_list_spec.rb

@@ -4,7 +4,7 @@
 require 'efl/eina'
 require 'efl/eina_list'
 #
-describe Efl::EinaList do
+describe 'Efl::EinaList' do
     #
     before(:all) do
         REinaList = Efl::EinaList::REinaList

data/spec/eina_log_spec.rb

@@ -5,7 +5,7 @@ require 'efl/eina'
 require 'efl/eina_log'
 require './spec/helper'
 #
-describe Efl::EinaLog do
+describe 'Efl::EinaLog' do
     before(:all) do
         Efl::Eina.init
         EinaLog = Efl::EinaLog

data/spec/elm_spec.rb

@@ -25,7 +25,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         Elm.shutdown.should == @init
     end
     #
-    describe Efl::Elm::ElmWin do
+    describe 'Efl::Elm::ElmWin' do
         before(:each) {
             realize_win
         }
@@ -179,7 +179,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         # TODO EAPI void elm_win_illume_command_send(Evas_Object *obj, Elm_Illume_Command command, void *params);;
         # TODO EAPI Ecore_X_Window elm_win_xwindow_get(const Evas_Object *obj);
         #
-        describe Efl::Elm::ElmInWin do
+        describe 'Efl::Elm::ElmInWin' do
             it "activate, content set/get/unset" do
                 @iwin = @win.inwin_add
                 o1 = @win.evas.object_rectangle_add
@@ -200,7 +200,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         end
     end
     #
-    describe Efl::Elm::ElmBg do
+    describe 'Efl::Elm::ElmBg' do
         before(:all) {
             realize_win
         }
@@ -242,7 +242,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         end
     end
     #
-    describe Efl::Elm::ElmLabel do
+    describe 'Efl::Elm::ElmLabel' do
         #
         before(:all) {
             realize_win
@@ -292,7 +292,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         end
     end
     #
-    describe Efl::Elm::ElmPager do
+    describe 'Efl::Elm::ElmPager' do
         #
         before(:all) {
             realize_win
@@ -323,7 +323,7 @@ describe "Efl::Elm #{Efl::Elm.version.full}" do
         end
     end
     #
-    describe Efl::Elm::ElmPanel do
+    describe 'Efl::Elm::ElmPanel' do
         #
         before(:all) {
             realize_win

data/spec/evas_spec.rb

@@ -58,7 +58,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         Evas.async_events_process.should == 0
     end
     #
-    describe Efl::Evas::REvas do
+    describe 'Efl::Evas::REvas' do
         before(:all) do
             realize_evas
         end
@@ -294,7 +294,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         # TODO evas_objects_at_xy_get, evas_objects_in_rectangle_get, evas_object_bottom_get, evas_object_top_get
     end
     #
-    describe Efl::Evas::REvasObject do
+    describe 'Efl::Evas::REvasObject' do
         #
         before(:all) do
             realize_evas
@@ -556,7 +556,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         #
     end
     #
-    describe Efl::Evas::REvasLine do
+    describe 'Efl::Evas::REvasLine' do
         #
         before(:all) do
             realize_evas
@@ -572,7 +572,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         end
     end
     #
-    describe Efl::Evas::REvasPolygon do
+    describe 'Efl::Evas::REvasPolygon' do
         #
         before(:all) do
             realize_evas
@@ -594,7 +594,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         end
     end
     #
-    describe Efl::Evas::REvasText do
+    describe 'Efl::Evas::REvasText' do
         #
         before(:all) do
             realize_evas
@@ -702,7 +702,7 @@ describe "Efl::Evas #{Efl::Evas.version.full}" do
         #
     end
     #
-    describe Efl::Evas::REvasBox do
+    describe 'Efl::Evas::REvasBox' do
         #
         before(:all) do
             realize_evas

data/test/test_elementary.rb

@@ -188,7 +188,8 @@ class TestWin < Elm::ElmWin
             @fr.content = lb
             lb.show
         end
-        Elm::ElmToggle.new self do |tg|
+        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)
@@ -237,7 +238,7 @@ class TestWin < Elm::ElmWin
     end
     #
     def tg_changed data, evas_obj, event_info
-        Native.elm_mirrored_set Native.elm_toggle_state_get evas_obj
+        Native.elm_mirrored_set Native.elm_check_state_get evas_obj
     end
     #
     def index_changed data, evas_obj, event_info

data/test/tests/test_anchorbock.rb

@@ -0,0 +1,73 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+module Tests
+    #
+    class TestAnchorBlock < 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 simple
+            @bg = Elm::ElmBg.new self do |bg|
+                bg.size_hint_weight_expand
+                self.resize_object_add bg
+                bg.show
+            end
+            @sc = Elm::ElmScroller.new self do |sc|
+                sc.size_hint_weight_expand
+                self.resize_object_add sc
+            end
+#            evas_object_smart_callback_add(sc, "edge_left", my_anchorblock_edge_left, NULL);
+#            evas_object_smart_callback_add(sc, "edge_right", my_anchorblock_edge_right, NULL);
+#            evas_object_smart_callback_add(sc, "edge_top", my_anchorblock_edge_top, NULL);
+#            evas_object_smart_callback_add(sc, "edge_bottom", my_anchorblock_edge_bottom, NULL);
+#            evas_object_smart_callback_add(sc, "scroll", my_anchorblock_scroll, NULL);
+            @bx = Elm::ElmBox.new self do |bx|
+                bx.size_hint_weight_set Evas::EVAS_HINT_EXPAND, 0.0
+                bx.size_hint_align_fill
+                bx.show
+            end
+            ico = Elm::ElmIcon.new self do |ic|
+                ic.file = "#{PACKAGE_DATA_DIR}/image/logo_small.png"
+            end
+        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_anchorblock
+        TestAnchorBlock.new 'anchorblock', 'Anchorblock', :simple
+    end
+#
+end
+#
+# EOF

data/test/tests/test_bg.rb

@@ -145,7 +145,7 @@ module Tests
     def self.test_bg_options
         TestBg.new 'bg-options', 'Bg Options', :options_bg
     end
-#
+    #
 end
 #
 # EOF

data/test/tests/test_buttons.rb

@@ -0,0 +1,114 @@
+#! /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
+            @bg = Elm::ElmBg.new self do |bg|
+                bg.size_hint_weight_expand
+                self.resize_object_add bg
+                bg.show
+            end
+            self.send fct
+            self.resize 320, 480
+            self.show
+        end
+        #
+        def __create_butt_ico txt=nil, do_icon=true
+            if do_icon
+                ico = Elm::ElmIcon.new self
+                ico.file = "#{PACKAGE_DATA_DIR}/images/logo_small.png", nil
+            else
+                ico = nil
+            end
+            bt = Efl::Elm::ElmButton.new self
+            bt.text = txt unless txt.nil?
+            bt.icon = ico if ico
+            bt.smart_callback_add "clicked", method(:bt_clicked_cb)
+            bt.smart_callback_add "unpressed", method(:bt_unpressed_cb)
+            @bx.pack_end bt
+            @buttons << bt
+            ico.show if ico
+            bt.show
+            [bt,ico]
+        end
+        #
+        def buttons
+            @scr = Efl::Elm::ElmScroller.new self do |scr|
+                scr.bounce = false, true
+                scr.policy = :elm_scroller_policy_off, :elm_scroller_policy_auto
+                self.resize_object_add scr
+                scr.size_hint_weight_expand
+                scr.show
+            end
+            @bx = Efl::Elm::ElmBox.new self do |bx|
+                bx.size_hint_weight_expand
+                @scr.content = bx
+                bx.show
+            end
+            #
+            @buttons = []
+            #
+            bt,ico = __create_butt_ico "Icon sized to button"
+            ico.size_hint_aspect = :evas_aspect_control_vertical, 1, 1
+            #
+            bt,ico = __create_butt_ico "Icon no scale"
+            ico.scale = false, false
+            #
+            bt,ico = __create_butt_ico "Disabled Button"
+            bt.disabled = true
+            ico.size_hint_aspect = :evas_aspect_control_vertical, 1, 1
+            #
+            bt,ico = __create_butt_ico
+            bt.disabled = true
+            ico.size_hint_aspect = :evas_aspect_control_vertical, 1, 1
+            #
+            bt,ico = __create_butt_ico "Label Only", false
+            bt.smart_callback_add "repeated", method(:bt_repeated_cb)
+            bt.autorepeat = true
+            bt.autorepeat_gap_timeout = 0.5
+            bt.autorepeat_initial_timeout = 2.0
+            #
+            bt,ico = __create_butt_ico
+            ico.scale = false, false
+            #
+            bt,ico = __create_butt_ico "Anchor style", false
+            bt.style = "anchor"
+            #
+            bt,ico = __create_butt_ico
+            ico.size_hint_aspect = :evas_aspect_control_vertical, 1, 1
+            bt.style = "anchor"
+            #
+            bt,ico = __create_butt_ico
+            ico.size_hint_aspect = :evas_aspect_control_vertical, 1, 1
+            bt.style = "anchor"
+            bt.disabled = true
+            bt.access_info_set "This is some custom text describing this widget"
+        end
+        #
+        def bt_clicked_cb data, evas_obj, event_info
+            idx = @buttons.index @buttons.find { |b| b.to_ptr==evas_obj }
+            puts "clicked event on Button: #{idx+1}"
+        end
+        #
+        def bt_unpressed_cb data, evas_obj, event_info
+            idx = @buttons.index @buttons.find { |b| b.to_ptr==evas_obj }
+            puts "unpressed event on Button: #{idx+1}"
+        end
+        #
+        def bt_repeated_cb data, evas_obj, event_info
+            @count = ((@count||=0)+1)%1000
+            Efl::Elm::ElmButton.new(evas_obj).text = "count = #{@count}"
+        end
+    end
+    #
+    def self.test_button
+        TestBg.new 'buttons', 'Buttons', :buttons
+    end
+end
+#
+# EOF