From 5c3a3ff2d333c8b35423b722f5a6a6fbd1e1fa93 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=A9my=20Zurcher?= Date: Thu, 8 Aug 2013 16:59:24 +0200 Subject: add checkbox example from Thanatermesis --- test/test_checkbox.rb | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 test/test_checkbox.rb 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 + -- cgit v1.1-2-g2b99