jeyzu pushed a commit to branch master.
commit 5c3a3ff2d333c8b35423b722f5a6a6fbd1e1fa93
Author: Jérémy Zurcher <[email protected]>
Date: Thu Aug 8 16:59:24 2013 +0200
add checkbox example from Thanatermesis
---
test/test_checkbox.rb | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 58 insertions(+)
diff --git a/test/test_checkbox.rb b/test/test_checkbox.rb
new file mode 100644
index 0000000..d0b507e
--- /dev/null
+++ b/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
+
--
------------------------------------------------------------------------------
Learn the latest--Visual Studio 2012, SharePoint 2013, SQL 2012, more!
Discover the easy way to master current and previous Microsoft technologies
and advance your career. Get an incredible 1,500+ hours of step-by-step
tutorial videos with LearnDevNow. Subscribe today and save!
http://pubads.g.doubleclick.net/gampad/clk?id=58041391&iu=/4140/ostg.clktrk
