From 554927f7bad42cd1e5c25c4877646b284c736edd Mon Sep 17 00:00:00 2001
From: Marius Hanne <marius.hanne@sourceagency.org>
Date: Mon, 18 Feb 2013 15:54:29 +0100
Subject: examples for ElmGenList

---
 test/test_genlist-native.rb | 75 +++++++++++++++++++++++++++++++++++++++++++++
 test/test_genlist.rb        | 68 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 143 insertions(+)
 create mode 100644 test/test_genlist-native.rb
 create mode 100644 test/test_genlist.rb

diff --git a/test/test_genlist-native.rb b/test/test_genlist-native.rb
new file mode 100644
index 0000000..19f8712
--- /dev/null
+++ b/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
diff --git a/test/test_genlist.rb b/test/test_genlist.rb
new file mode 100644
index 0000000..76303c5
--- /dev/null
+++ b/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
-- 
cgit v1.1-2-g2b99