summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/test_checkbox.rb58
1 files changed, 58 insertions, 0 deletions
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
+