ffi-efl 0.1.0 → 0.1.1

data/lib/efl/native/embryo.rb

@@ -18,7 +18,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'embryo'
+        ffi_lib 'embryo.so.1'
         #
         # ENUMS
         # typedef enum _Embryo_Error {...} Embryo_Error;

data/lib/efl/native/emotion.rb

@@ -19,7 +19,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'emotion'
+        ffi_lib 'emotion.so.1'
         #
         # ENUMS
         # typedef enum _Emotion_Module {...} Emotion_Module;

data/lib/efl/native/ethumb.rb

@@ -18,7 +18,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'ethumb'
+        ffi_lib 'ethumb.so.1'
         #
         # ENUMS
         # typedef enum _Ethumb_Thumb_FDO_Size {...} Ethumb_Thumb_FDO_Size;

data/lib/efl/native/ethumb_client.rb

@@ -19,7 +19,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'ethumb_client'
+        ffi_lib 'ethumb_client.so.1'
         #
         # TYPEDEFS
         # typedef struct _Ethumb_Client Ethumb_Client;

data/lib/efl/native/ethumb_plugin.rb

@@ -21,7 +21,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'ethumb'
+        ffi_lib 'ethumb.so.1'
         #
         # TYPEDEFS
         # typedef struct _Ethumb_Plugin Ethumb_Plugin;

data/lib/efl/native/evas.rb

@@ -19,7 +19,7 @@ module Efl
     #
     module Native
         #
-        ffi_lib 'evas'
+        ffi_lib 'evas.so.1'
         #
         # CONSTANTS
         EVAS_LAYER_MIN=-32768

data/test/test_button-native.rb

@@ -0,0 +1,39 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/native/elm/elm_win'
+require 'efl/native/elm/elm_bg'
+require 'efl/native/elm/elm_button'
+require 'efl/native/elm/elm_object'
+#
+include Efl::Native
+#
+elm_init 0, FFI::MemoryPointer::NULL
+#
+def on_click data, object, event
+  elm_exit
+end
+#
+win = elm_win_add(nil, "Greetings", 0)
+elm_win_title_set(win, "Hello, World!")
+elm_win_autodel_set(win, true)
+elm_policy_set(0, 1)
+evas_object_resize(win, 240, 60)
+evas_object_show(win)
+#
+bg = elm_bg_add(win)
+evas_object_size_hint_weight_set(bg, 1.0, 1.0)
+elm_win_resize_object_add(win, bg)
+evas_object_show(bg)
+#
+btn = elm_button_add(win)
+elm_object_part_text_set(btn, nil, "Good-Bye, World!")
+evas_object_smart_callback_add(btn, "clicked", method(:on_click), nil)
+evas_object_resize(btn, 120, 30)
+evas_object_move(btn, 60, 15)
+evas_object_show(btn)
+#
+elm_run
+elm_shutdown
+#
+# EOF

data/test/test_button.rb

@@ -0,0 +1,40 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/elm/elm_win'
+require 'efl/elm/elm_bg'
+require 'efl/elm/elm_button'
+#
+include Efl
+#
+class MyWin < Elm::ElmWin
+  #
+  def initialize
+    super(nil, "Greetings") do
+      title_set "Hello, World!"
+      resize 240, 60
+      show
+    end
+    @bg = Elm::ElmBg.new(self) do
+      size_hint_weight_expand
+      show
+    end
+    resize_object_add @bg
+    @btn = Elm::ElmButton.new(self) do
+      part_text_set(nil, "Good-Bye, World!")
+      smart_callback_add("clicked", ->(*_) { Elm.exit }, nil)
+      resize 120, 30
+      move 60, 15
+      show
+    end
+  end
+end
+#
+Elm.init
+#
+MyWin.new
+#
+Elm.run
+Elm.shutdown
+#
+# EOF

data/test/test_checkbox.rb

@@ -0,0 +1,58 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+
+require 'efl/native/elm/elm_win'
+require 'efl/native/elm/elm_bg'
+require 'efl/native/elm/elm_check'
+require 'efl/native/elm/elm_object'
+require 'efl/native/elm/elm_focus'
+
+require 'efl/native/ecore'
+
+include Efl::Native
+
+elm_init 0, nil
+
+def cb_change_text (obj)
+    elm_object_part_text_set(obj, nil, "done")
+    # elm_check_state_set(obj, false)
+end
+
+def print_cb (data, obj, event)
+    if elm_check_state_get(obj)
+        puts "marked"
+        elm_object_part_text_set(obj, nil, "I feel touched, and I like it")
+        ecore_timer_add(1.0, method(:cb_change_text), obj)
+    else
+        puts "unmarked"
+    end
+end
+
+# Main Window
+win = elm_win_add(nil, "Checkbox Test", 0)
+elm_win_title_set(win, "Test of Checkbox functions")
+elm_win_autodel_set(win, true)
+elm_policy_set( Efl::Native.enum_type(:elm_policy)[:elm_policy_quit],
+               Efl::Native.enum_type(:elm_policy_quit)[:elm_policy_quit_last_window_closed])
+elm_object_focus_set(win, true)
+evas_object_resize(win, 200, 100)
+evas_object_show(win)
+
+# Background
+bg = elm_bg_add(win)
+evas_object_size_hint_weight_set(bg, 1.0, 1.0)
+elm_win_resize_object_add(win, bg)
+evas_object_show(bg)
+
+# Checkbox
+cb = elm_check_add(win)
+elm_object_part_text_set(cb, nil, "click me!")
+elm_object_focus_set(cb, true)
+evas_object_smart_callback_add(cb, "changed", method(:print_cb), nil)
+evas_object_move(cb, 10, 10)
+evas_object_resize(cb, 200, 30)
+evas_object_show(cb)
+
+elm_run
+elm_shutdown
+

data/test/test_ecore_pipe-native.rb

@@ -0,0 +1,52 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/native/ecore'
+require 'efl/native/elm/elm_win'
+require 'efl/native/elm/elm_bg'
+require 'efl/native/elm/elm_label'
+require 'efl/native/elm/elm_object'
+#
+include Efl::Native
+#
+elm_init 0, FFI::MemoryPointer::NULL
+#
+win_del = Proc.new { |data,evas_object,event_info| elm_exit() }
+#
+win = elm_win_add nil, "App name", :elm_win_basic
+elm_win_title_set win, "Window title"
+evas_object_smart_callback_add win, "delete,request", win_del, nil
+#
+bg = elm_bg_add win
+evas_object_size_hint_weight_set bg, 1.0, 1.0
+elm_win_resize_object_add win, bg
+evas_object_show bg
+#
+lb = elm_label_add win
+elm_object_part_text_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
+#
+evas_object_move win, 300, 300
+evas_object_resize win, 200, 100
+#
+evas_object_show win
+#
+pipe_cb = Proc.new { |date,buffer,n|
+  elm_object_part_text_set lb, nil, buffer.read_string[0..n-1]
+}
+#
+pipe = ecore_pipe_add pipe_cb, nil
+#
+pid = fork {
+  ecore_pipe_read_close(pipe);
+  [ "hello", "dying", "old", "planet", "earth"].each do |w|
+    sleep 1
+    ecore_pipe_write pipe, w, w.length
+  end
+}
+#
+elm_run
+ecore_pipe_del pipe
+elm_shutdown

data/test/test_ecore_pipe.rb

@@ -0,0 +1,57 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/ecore'
+require 'efl/elm/elm_win'
+require 'efl/elm/elm_bg'
+require 'efl/elm/elm_label'
+#
+include Efl
+#
+class MyWin < Elm::ElmWin
+  #
+  attr_reader :pipe
+  def initialize
+    super(nil, "Pipe test") do
+      title_set "Hello, World!"
+      smart_callback_add("delete,request", ->(*_) { Elm.exit }, nil)
+      resize 200, 100
+      show
+    end
+    @bg = Elm::ElmBg.new(self) do
+      size_hint_weight_expand
+      show
+    end
+    resize_object_add @bg
+    #
+    @label = Elm::ElmLabel.new(self) do
+      text_set "Hello World"
+      size_hint_weight_expand
+      show
+    end
+    resize_object_add @label
+    #
+    @pipe = Ecore.ecore_pipe_add(method(:pipe_cb), nil)
+  end
+  #
+  def pipe_cb date, buffer, n
+    @label.text_set buffer.read_string[0..n-1]
+  end
+end
+#
+Elm.init
+#
+@win = MyWin.new
+#
+pid = fork do
+  Ecore.ecore_pipe_read_close(@win.pipe)
+  [ "hello", "dying", "old", "planet", "earth"].each do |w|
+    sleep 1
+    Ecore.ecore_pipe_write @win.pipe, w, w.length
+  end
+end
+Elm.run
+Ecore.ecore_pipe_del @win.pipe
+Elm.shutdown
+#
+# EOF

data/test/test_elm_win-native2.rb

@@ -0,0 +1,41 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/native/elm/elm_win'
+require 'efl/native/elm/elm_bg'
+require 'efl/native/elm/elm_label'
+require 'efl/native/elm/elm_object'
+#
+include Efl
+#
+Elm.init 0, FFI::MemoryPointer::NULL
+#
+win_del = Proc.new { |data,evas_object,event_info|
+    Elm.exit();
+}
+#
+win = ElmWin.add nil, "App name", :elm_win_basic
+ElmWin.title_set win, "Window title"
+Evas.object_smart_callback_add win, "delete,request", win_del, nil
+#
+bg = ElmBg.add win
+Evas.object_size_hint_weight_set bg, 1.0, 1.0
+ElmWin.resize_object_add win, bg
+Evas.object_show bg
+#
+lb = ElmLabel.add win
+ElmObject.part_text_set lb, nil, "Hello World"
+Evas.object_size_hint_weight_set lb, 1.0, 1.0
+ElmWin.resize_object_add win, lb
+Evas.object_show lb
+#
+Evas.object_move win, 300, 300
+Evas.object_resize win, 200, 100
+#
+Evas.object_show win
+#
+
+Elm.run
+Elm.shutdown
+#
+# EOF

data/test/test_genlist-native.rb

@@ -0,0 +1,75 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/native/elm/elm_win'
+require 'efl/native/elm/elm_bg'
+require 'efl/native/elm/elm_label'
+require 'efl/native/elm/elm_genlist'
+#
+class ElmGenItemClass < FFI::Struct
+  layout  :version, :int,
+  :refcount, :uint,
+  :delete_me, :pointer,
+  :item_style, :pointer,
+  :decorate_item_style, :pointer,
+  :decorate_all_item_style, :pointer,
+  :text_get, :pointer,
+  :content_get, :pointer,
+  :state_get, :pointer,
+  :del, :pointer
+end
+#
+include Efl::Native
+#
+elm_init 0, FFI::MemoryPointer::NULL
+#
+win = elm_win_add(nil, "genlist", 0)
+elm_win_title_set(win, "Genlist")
+elm_policy_set(0, 1)
+elm_win_autodel_set(win, true)
+#
+bg = elm_bg_add(win)
+elm_bg_color_set(bg, 255, 255, 255)
+evas_object_size_hint_weight_set(bg, 1.0, 1.0)
+elm_win_resize_object_add(win, bg)
+evas_object_show(bg)
+#
+if !@itc
+  itc_ptr = elm_genlist_item_class_new
+  @itc = ElmGenItemClass.new(itc_ptr)
+  @itc[:item_style] = FFI::MemoryPointer.from_string("default")
+  @itc[:text_get] = FFI::Function.new(:pointer, [:pointer, :pointer, :string]) {|data, *_|
+    ptr = FFI::MemoryPointer.from_string("Item # #{data.read_string}")
+    ptr.autorelease = false
+    ptr
+  }
+  @itc[:content_get] = FFI::Function.new(:pointer, [:pointer, :pointer, :string]) do
+    |data, obj, part|
+    ic = elm_icon_add(obj)
+    elm_icon_standard_set(ic, "clock")  if part == "elm.swallow.icon"
+    evas_object_size_hint_aspect_set(ic, 0, 1, 1)
+    ic
+  end
+  @itc[:state_get] = nil
+  @itc[:del] = nil
+end
+#
+list = elm_genlist_add(win)
+#
+30.times do |i|
+  elm_genlist_item_append(list, @itc, i.to_s, nil, :elm_genlist_item_none,
+    FFI::Function.new(:pointer, [:pointer, :pointer, :pointer]) {|data, obj, evt|
+      p [:selected, data.read_string] }, i.to_s)
+end
+#
+evas_object_size_hint_weight_set(list, 1.0, 1.0)
+elm_win_resize_object_add(win, list)
+evas_object_show(list)
+#
+evas_object_resize(win, 200, 300)
+evas_object_show(win)
+#
+elm_run
+elm_shutdown
+#
+# EOF

data/test/test_genlist.rb

@@ -0,0 +1,68 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/elementary_all'
+#
+class ElmGenItemClass < FFI::Struct
+  layout  :version, :int,
+  :refcount, :uint,
+  :delete_me, :pointer,
+  :item_style, :pointer,
+  :decorate_item_style, :pointer,
+  :decorate_all_item_style, :pointer,
+  :text_get, :pointer,
+  :content_get, :pointer,
+  :state_get, :pointer,
+  :del, :pointer
+end
+#
+include Efl
+#
+Elm.init
+#
+class Window < Elm::ElmWin
+  #
+  def initialize
+    super nil, "genlist"
+    title_set("Genlist")
+    @bg = Elm::ElmBg.new(self) do
+      color_set 255, 255, 255
+      size_hint_weight_expand
+      show
+    end
+    resize_object_add(@bg)
+    @itc = ElmGenItemClass.new(Native.elm_genlist_item_class_new)
+    @itc[:item_style] = FFI::MemoryPointer.from_string("default")
+    @itc[:text_get] = FFI::Function.new(:pointer, [:pointer, :pointer, :string]) do |data, *_|
+      ptr = FFI::MemoryPointer.from_string("Item # #{data.read_string}")
+      ptr.autorelease = false
+      ptr
+    end
+    @itc[:content_get] =  FFI::Function.new(:pointer, [:pointer, :pointer, :string]) do |data, obj, part|
+      Elm::ElmIcon.new(self) do
+        standard_set(part == "elm.swallow.icon" ? "home" : "clock")
+        size_hint_aspect_set 0, 1, 1
+      end.to_ptr
+    end
+    @list = Elm::ElmGenList.new(self) do
+      size_hint_weight_expand
+      show
+    end
+    30.times do |i|
+      @list.item_append(@itc, i.to_s, nil, :elm_genlist_item_none,
+        FFI::Function.new(:pointer, [:pointer, :pointer, :pointer]) {|data, obj, evt|
+          p [:selected, data.read_string] }, i.to_s)
+    end
+    resize_object_add(@list)
+    smart_callback_add "delete,request", ->(*_) { Elm.exit }, nil
+    resize 200, 300
+    show
+  end
+end
+#
+Window.new
+#
+Elm.run
+Elm.shutdown
+#
+# EOF