ffi-efl 0.0.7 → 0.0.8

data/lib/efl/elementary.rb

@@ -54,16 +54,47 @@ module Efl
             end
         end
         #
-        class ElmWin < Efl::Evas::REvasObject
+        class ElmObject < Efl::Evas::REvasObject
             #
-            search_prefixes 'elm_win_', 'elm_object_'
+            search_prefixes 'elm_object_'
             #
-            def initialize parent, title, type=:elm_win_basic, &block
-                super Native.method(:elm_win_add), parent, title, type, &block
-            end
             def smart_callback_add event_str, cb, data=FFI::MemoryPointer::NULL
                 Native.evas_object_smart_callback_add @ptr, event_str, cb, data
             end
+            #
+            def text_set label
+                Native.elm_object_text_part_set @ptr, nil, label
+            end
+            alias :text= :text_set
+            #
+            def text_get
+                Native.elm_object_text_part_get @ptr, nil
+            end
+            alias :text :text_get
+            #
+            def content_set content
+                Native.elm_object_content_part_set @ptr, nil, content
+            end
+            alias :content= :content_set
+            #
+            def content_get
+                Native.elm_object_content_part_get @ptr, nil
+            end
+            alias :content :content_get
+            #
+            def content_unset
+                Native.elm_object_content_part_unset @ptr, nil
+            end
+            #
+        end
+        #
+        class ElmWin < ElmObject
+            #
+            search_prefixes 'elm_win_'
+            #
+            def initialize parent, title, type=:elm_win_basic, &block
+                super Native.method(:elm_win_add), parent, title, type, &block
+            end
             def inwin_add
                 ElmInWin.new @ptr
             end
@@ -76,20 +107,27 @@ module Efl
             alias :screen_position :screen_position_get
         end
         #
-        class ElmInWin < Efl::Evas::REvasObject
+        class ElmInWin < ElmObject
             #
-            search_prefixes 'elm_win_inwin_', 'elm_win_', 'elm_object_'
+            search_prefixes 'elm_win_inwin_', 'elm_win_'
             #
             def initialize parent, &block
                 super Native.method(:elm_win_inwin_add), parent, &block
             end
         end
         #
-        class ElmBg < Efl::Evas::REvasObject
+        class ElmFrame < ElmObject
+            #
+            include Helper
+            search_prefixes 'elm_frame_'
+            constructor :elm_frame_add
+        end
+        #
+        class ElmBg < ElmObject
             #
             include Helper
             constructor :elm_bg_add
-            search_prefixes 'elm_bg_', 'elm_object_'
+            search_prefixes 'elm_bg_'
             #
             def file_get
                 f = FFI::MemoryPointer.new :pointer
@@ -108,11 +146,11 @@ module Efl
             alias :color :color_get
         end
         #
-        class ElmLayout < Efl::Evas::REvasObject
+        class ElmLayout < ElmObject
             #
             include Helper
             constructor :elm_layout_add
-            search_prefixes 'elm_layout_', 'elm_object_'
+            search_prefixes 'elm_layout_'
             #
             def edje_get &block
                 Efl::Edje::REdje.new Native.method(:elm_layout_edje_get), @ptr, &block
@@ -120,11 +158,11 @@ module Efl
             alias :edje :edje_get
         end
         #
-        class ElmBox < Efl::Evas::REvasObject
+        class ElmBox < ElmObject
             #
             include Helper
             constructor :elm_box_add
-            search_prefixes 'elm_box_', 'elm_object_'
+            search_prefixes 'elm_box_'
             #
             def padding_get
                 x = FFI::MemoryPointer.new :int
@@ -148,20 +186,36 @@ module Efl
             alias :children :children_get
         end
         #
-        class ElmList < Efl::Evas::REvasObject
+        class ElmToggle < ElmObject
+            #
+            include Helper
+            constructor :elm_toggle_add
+            search_prefixes 'elm_toggle_'
+            #
+        end
+        #
+        class ElmIndex < ElmObject
+            #
+            include Helper
+            constructor :elm_index_add
+            search_prefixes 'elm_index_'
+            #
+        end
+        #
+        class ElmList < ElmObject
             #
             include Helper
             constructor :elm_list_add
-            search_prefixes 'elm_list_', 'elm_object_'
+            search_prefixes 'elm_list_'
             #
             def item_append label, left_icon=nil, right_icon=nil, cb=nil, data=nil
                 ElmListItem.new Native::elm_list_item_append @ptr, label, left_icon, right_icon, cb, data
             end
         end
         #
-        class ElmListItem < Efl::Evas::REvasObject
+        class ElmListItem < ElmObject
             #
-            search_prefixes 'elm_list_item_', 'elm_object'
+            search_prefixes 'elm_list_item_'
             #
             def data_get
                 Native::elm_list_item_data_get @ptr
@@ -169,11 +223,11 @@ module Efl
             alias :data :data_get
         end
         #
-        class ElmIcon < Efl::Evas::REvasObject
+        class ElmIcon < ElmObject
             #
             include Helper
             constructor :elm_icon_add
-            search_prefixes 'elm_icon_', 'elm_object_'
+            search_prefixes 'elm_icon_'
             #
             def scale_set args
                 Native.elm_icon_scale_set @ptr, *args
@@ -181,35 +235,35 @@ module Efl
             alias :scale= :scale_set
         end
         #
-        class ElmLabel < Efl::Evas::REvasObject
+        class ElmLabel < ElmObject
             #
             include Helper
             constructor :elm_label_add
-            search_prefixes 'elm_label_', 'elm_object_'
+            search_prefixes 'elm_label_'
             #
         end
         #
-        class ElmPager < Efl::Evas::REvasObject
+        class ElmPager < ElmObject
             #
             include Helper
             constructor :elm_pager_add
-            search_prefixes 'elm_pager_', 'elm_object_'
+            search_prefixes 'elm_pager_'
             #
         end
         #
-        class ElmPanel < Efl::Evas::REvasObject
+        class ElmPanel < ElmObject
             #
             include Helper
             constructor :elm_panel_add
-            search_prefixes 'elm_panel_', 'elm_object'
+            search_prefixes 'elm_panel_'
             #
         end
         #
-        class ElmDiskSelector < Efl::Evas::REvasObject
+        class ElmDiskSelector < ElmObject
             #
             include Helper
             constructor :elm_diskselector_add
-            search_prefixes 'elm_diskselector_', 'elm_object'
+            search_prefixes 'elm_diskselector_'
             #
             def item_selected_set it, b
                 Native::elm_diskselector_item_selected_set it, b
@@ -217,9 +271,9 @@ module Efl
             alias :item_selected= :item_selected_set
         end
         #
-        class ElmDiskSelectorItem < Efl::Evas::REvasObject
+        class ElmDiskSelectorItem < ElmObject
             #
-            search_prefixes 'elm_diskselector_item_', 'elm_object'
+            search_prefixes 'elm_diskselector_item_'
             #
             def data_get
                 Native::elm_diskselector_item_data_get @ptr
@@ -227,27 +281,27 @@ module Efl
             alias :data :data_get
         end
         #
-        class ElmNotify < Efl::Evas::REvasObject
+        class ElmNotify < ElmObject
             #
             include Helper
             constructor :elm_notify_add
-            search_prefixes 'elm_notify_', 'elm_object'
+            search_prefixes 'elm_notify_'
             #
         end
         #
-        class ElmEntry < Efl::Evas::REvasObject
+        class ElmEntry < ElmObject
             #
             include Helper
             constructor :elm_entry_add
-            search_prefixes 'elm_entry_', 'elm_object'
+            search_prefixes 'elm_entry_'
             #
         end
         #
-        class ElmFlipSelector < Efl::Evas::REvasObject
+        class ElmFlipSelector < ElmObject
             #
             include Helper
             constructor :elm_flipselector_add
-            search_prefixes 'elm_flipselector_', 'elm_object'
+            search_prefixes 'elm_flipselector_'
             #
             def item_append label, cb, data
                 ElmFlipSelectorItem.new Native::elm_flipselector_item_append @ptr, label, cb, data
@@ -259,50 +313,50 @@ module Efl
             alias :selected_item :selected_item_get
         end
         #
-        class ElmFlipSelectorItem < Efl::Evas::REvasObject
+        class ElmFlipSelectorItem < ElmObject
             #
-            search_prefixes 'elm_flipselector_item_', 'elm_object'
+            search_prefixes 'elm_flipselector_item_'
             #
         end
         #
-        class ElmHoversel < Efl::Evas::REvasObject
+        class ElmHoversel < ElmObject
             #
             include Helper
             constructor :elm_hoversel_add
-            search_prefixes 'elm_hoversel_', 'elm_object'
+            search_prefixes 'elm_hoversel_'
             #
             def item_add label, icon_file=nil, icon_type=:elm_icon_none, cb=nil, data=nil
                 ElmHoverselItem.new Native::elm_hoversel_item_add @ptr, label, icon_file, icon_type, cb, data
             end
         end
         #
-        class ElmHoverselItem < Efl::Evas::REvasObject
+        class ElmHoverselItem < ElmObject
             #
-            search_prefixes 'elm_hoversel_item_', 'elm_object'
+            search_prefixes 'elm_hoversel_item_'
             #
         end
         #
-        class ElmHover < Efl::Evas::REvasObject
+        class ElmHover < ElmObject
             #
             include Helper
             constructor :elm_hover_add
-            search_prefixes 'elm_hover_', 'elm_object'
+            search_prefixes 'elm_hover_'
             #
         end
         #
-        class ElmButton < Efl::Evas::REvasObject
+        class ElmButton < ElmObject
             #
             include Helper
             constructor :elm_button_add
-            search_prefixes 'elm_button_', 'elm_object'
+            search_prefixes 'elm_button_'
             #
         end
         #
-        class ElmGenlist < Efl::Evas::REvasObject
+        class ElmGenlist < ElmObject
             #
             include Helper
             constructor :elm_genlist_add
-            search_prefixes 'elm_genlist_', 'elm_object'
+            search_prefixes 'elm_genlist_'
             #
         end
         #

data/lib/efl.rb

@@ -4,7 +4,11 @@
 #
 module Efl
     #
-    VERSION = '0.0.7'
+    VERSION = '0.0.8'
+    #
+    PACKAGE_BIN_DIR = File.join `pkg-config --variable=exec_prefix ecore`, 'bin'
+    PACKAGE_LIB_DIR = File.join `pkg-config --variable=exec_prefix ecore`, 'lib'
+    PACKAGE_DATA_DIR = File.join `pkg-config --variable=exec_prefix ecore`, 'share'
     #
     autoload :EcoreEvas,    './lib/efl/ecore_evas.rb'
     autoload :EcoreGetopt,  './lib/efl/ecore_getopt.rb'

data/test/test_elementary.rb

@@ -0,0 +1,243 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl'
+#
+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
+        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::ElmToggle.new self do |tg|
+            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
+            li.show
+        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.each do |l,m|
+            it = @li.item_append l, nil, nil, method(:fake)
+            if l[0]!=ch
+                ch = l[0]
+                @idx.item_append ch, it
+            end
+        end
+        @idx.item_go 0
+        @li.go
+    end
+    #
+    def fake data, evas_obj, event_info
+        puts 'FAKE'
+    end
+    #
+    def tg_changed data, evas_obj, event_info
+        Native.elm_mirrored_set Native.elm_toggle_state_get evas_obj
+    end
+    #
+    def index_changed data, evas_obj, event_info
+        Native.elm_list_item_show event_info
+    end
+    #
+    def on_delete data, evas_object, event_info
+        Elm.exit
+    end
+end
+#
+def elm_main
+    win = TestWin.new 'test_elementare', 'Elementary Tests'
+    win.evas_object_resize 320, 480
+    win.show
+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
+#
+# EOF

data/test/test_elm_win-native.rb

@@ -22,7 +22,7 @@ elm_win_resize_object_add win, bg
 evas_object_show bg
 #
 lb = elm_label_add win
-elm_label_label_set lb, "Hello World!"
+elm_object_text_part_set lb, nil, "Hello World"
 evas_object_size_hint_weight_set lb, 1.0, 1.0
 elm_win_resize_object_add win, lb
 evas_object_show lb

data/test/test_elm_win.rb

@@ -22,7 +22,7 @@ class MyWin < Elm::ElmWin
         end
         resize_object_add @bg
         @lb = Elm::ElmLabel.new(self) do |lb|
-            lb.label = "Hello World!"
+            lb.text = "Hello World!"
             lb.size_hint_align_fill
             lb.size_hint_weight_expand
         end
@@ -48,4 +48,3 @@ Elm.run
 Elm.shutdown
 #
 # EOF
-

metadata

@@ -2,7 +2,7 @@
 name: ffi-efl
 version: !ruby/object:Gem::Version 
   prerelease: 
-  version: 0.0.7
+  version: 0.0.8
 platform: ruby
 authors: 
 - "J\xC3\xA9r\xC3\xA9my Zurcher"
@@ -116,6 +116,7 @@ files:
 - tasks/svn.rake
 - tasks/test.rake
 - test/test_edje.rb
+- test/test_elementary.rb
 - test/test_elm_win-native.rb
 - test/test_elm_win.rb
 - test/test_evas.rb
@@ -150,6 +151,7 @@ signing_key:
 specification_version: 3
 summary: A ruby-ffi binding to efl libraries (Enlightenment Foundation Libraries)
 test_files: 
+- test/test_elementary.rb
 - test/test_elm_win.rb
 - test/test_evas.rb
 - test/test_edje.rb