1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/evas'
require 'efl/native/elementary'
#
module Efl
module Elm
#
class << self
def init *args
a = args.select { |e| e.is_a? String }
return Native.elm_init 0, FFI::MemoryPointer::NULL if a.length==0
ptr = FFI::MemoryPointer.new :pointer, a.length
a.each_with_index do |s,i|
ptr[i].write_pointer FFI::MemoryPointer.from_string(s)
end
Native.elm_init a.length, ptr
end
end
#
class ElmWin < Efl::Evas::REvasObject
#
search_prefixes 'elm_win_', 'elm_object_'
#
def initialize parent, title, type=:elm_win_basic, &block
super Native.method(:elm_win_add), parent, title, type, &block
end
def smart_callback_add event_str, cb, data=FFI::MemoryPointer::NULL
Native.evas_object_smart_callback_add @ptr, event_str, cb, data
end
def inwin_add
ElmInWin.new @ptr
end
def screen_position_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
Native.elm_win_screen_position_get @ptr, x, y
[ x.read_int, y.read_int ]
end
alias :screen_position :screen_position_get
end
#
class ElmInWin < Efl::Evas::REvasObject
#
search_prefixes 'elm_win_inwin_', 'elm_win_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_win_inwin_add), parent, &block
end
end
#
class ElmBg < Efl::Evas::REvasObject
#
search_prefixes 'elm_bg_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_bg_add), parent, &block
end
def file_get
f = FFI::MemoryPointer.new :pointer
g = FFI::MemoryPointer.new :pointer
Native.elm_bg_file_get @ptr, f, g
[ f.read_pointer.read_string, g.read_pointer.read_string ]
end
alias :file :file_get
def color_get
r = FFI::MemoryPointer.new :int
g = FFI::MemoryPointer.new :int
b = FFI::MemoryPointer.new :int
Native.elm_bg_color_get @ptr, r, g, b
[ r.read_int, g.read_int, b.read_int ]
end
alias :color :color_get
end
#
class ElmLayout < Efl::Evas::REvasObject
#
search_prefixes 'elm_layout_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_layout_add), parent, &block
end
#
def edje_get &block
Efl::Edje::REdje.new Native.method(:elm_layout_edje_get), @ptr, &block
end
alias :edje :edje_get
end
#
class ElmBox < Efl::Evas::REvasObject
#
search_prefixes 'elm_box_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_box_add), parent, &block
end
#
end
#
class ElmList < Efl::Evas::REvasObject
#
search_prefixes 'elm_list_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_list_add), parent, &block
end
#
end
#
class ElmIcon < Efl::Evas::REvasObject
#
search_prefixes 'elm_icon_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_icon_add), parent, &block
end
#
def scale_set args
Native.elm_icon_scale_set @ptr, *args
end
alias :scale= :scale_set
end
#
class ElmLabel < Efl::Evas::REvasObject
#
search_prefixes 'elm_label_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_label_add), parent, &block
end
end
#
class ElmPager < Efl::Evas::REvasObject
#
search_prefixes 'elm_pager_', 'elm_object_'
#
def initialize parent, &block
super Native.method(:elm_pager_add), parent, &block
end
end
#
class ElmPanel < Efl::Evas::REvasObject
#
search_prefixes 'elm_panel_', 'elm_object'
#
def initialize parent, &block
super Native.method(:elm_panel_add), parent, &block
end
end
#
class ElmDiskSelector < Efl::Evas::REvasObject
#
search_prefixes 'elm_diskselector_', 'elm_object'
#
def initialize parent, &block
super Native.method(:elm_diskselector_add), parent, &block
end
end
#
class ElmNotify < Efl::Evas::REvasObject
#
search_prefixes 'elm_notify_', 'elm_object'
#
def initialize parent, &block
super Native.method(:elm_notify_add), parent, &block
end
end
#
end
end
#
# EOF
|
