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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/evas'
require 'efl/native/elementary'
#
module Efl
#
module Native
#
class ElmGenlistItemClassStruct < FFI::Struct
layout :item_style, :pointer,
:label_get, :pointer,
:icon_get, :pointer,
:state_get, :pointer,
:del, :pointer,
:moved, :pointer,
:mode_item_style, :pointer
end
#
end
#
module Elm
#
def self.version
Native::VersionStruct.new(Native.elm_version)
end
#
module Helper
def self.included kls
def kls.constructor meth
self.class_eval <<-EOF
def initialize ptr, &block
if ptr.is_a? FFI::Pointer
super ptr, &block
else
super Native.method(:#{meth}), ptr, &block
end
end
EOF
end
end
end
#
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 ElmObject < Efl::Evas::REvasObject
#
search_prefixes 'elm_object_'
#
def smart_callback_add event_str, cb, data=FFI::MemoryPointer::NULL
Native.evas_object_smart_callback_add @ptr, event_str, cb, data
end
#
def text_set label
Native.elm_object_text_part_set @ptr, nil, label
end
alias :text= :text_set
#
def text_get
Native.elm_object_text_part_get @ptr, nil
end
alias :text :text_get
#
def content_set content
Native.elm_object_content_part_set @ptr, nil, content
end
alias :content= :content_set
#
def content_get
Native.elm_object_content_part_get @ptr, nil
end
alias :content :content_get
#
def content_unset
Native.elm_object_content_part_unset @ptr, nil
end
#
end
#
class ElmWin < ElmObject
#
search_prefixes 'elm_win_'
#
def initialize parent, title, type=:elm_win_basic, &block
super Native.method(:elm_win_add), parent, title, type, &block
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 < ElmObject
#
search_prefixes 'elm_win_inwin_', 'elm_win_'
#
def initialize parent, &block
super Native.method(:elm_win_inwin_add), parent, &block
end
end
#
class ElmFrame < ElmObject
#
include Helper
search_prefixes 'elm_frame_'
constructor :elm_frame_add
end
#
class ElmBg < ElmObject
#
include Helper
constructor :elm_bg_add
search_prefixes 'elm_bg_'
#
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 < ElmObject
#
include Helper
constructor :elm_layout_add
search_prefixes 'elm_layout_'
#
def edje_get &block
Efl::Edje::REdje.new Native.method(:elm_layout_edje_get), @ptr, &block
end
alias :edje :edje_get
end
#
class ElmBox < ElmObject
#
include Helper
constructor :elm_box_add
search_prefixes 'elm_box_'
#
def padding_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
Native::elm_box_padding_get @ptr, x, y
[ x.read_int, y.read_int ]
end
alias :padding :padding_get
#
def align_get
x = FFI::MemoryPointer.new :float
y = FFI::MemoryPointer.new :float
Native::elm_box_align_get @ptr, x, y
[ x.read_float, y.read_float ]
end
alias :align :padding_get
#
def children_get
Efl::EinaList::REinaList.new Native.elm_box_children_get @ptr
end
alias :children :children_get
end
#
class ElmToggle < ElmObject
#
include Helper
constructor :elm_toggle_add
search_prefixes 'elm_toggle_'
#
end
#
class ElmIndex < ElmObject
#
include Helper
constructor :elm_index_add
search_prefixes 'elm_index_'
#
end
#
class ElmList < ElmObject
#
include Helper
constructor :elm_list_add
search_prefixes 'elm_list_'
#
def item_append label, left_icon=nil, right_icon=nil, cb=nil, data=nil
ElmListItem.new Native::elm_list_item_append @ptr, label, left_icon, right_icon, cb, data
end
end
#
class ElmListItem < ElmObject
#
search_prefixes 'elm_list_item_'
#
def data_get
Native::elm_list_item_data_get @ptr
end
alias :data :data_get
end
#
class ElmIcon < ElmObject
#
include Helper
constructor :elm_icon_add
search_prefixes 'elm_icon_'
#
def scale_set args
Native.elm_icon_scale_set @ptr, *args
end
alias :scale= :scale_set
end
#
class ElmLabel < ElmObject
#
include Helper
constructor :elm_label_add
search_prefixes 'elm_label_'
#
end
#
class ElmPager < ElmObject
#
include Helper
constructor :elm_pager_add
search_prefixes 'elm_pager_'
#
end
#
class ElmPanel < ElmObject
#
include Helper
constructor :elm_panel_add
search_prefixes 'elm_panel_'
#
end
#
class ElmDiskSelector < ElmObject
#
include Helper
constructor :elm_diskselector_add
search_prefixes 'elm_diskselector_'
#
def item_selected_set it, b
Native::elm_diskselector_item_selected_set it, b
end
alias :item_selected= :item_selected_set
end
#
class ElmDiskSelectorItem < ElmObject
#
search_prefixes 'elm_diskselector_item_'
#
def data_get
Native::elm_diskselector_item_data_get @ptr
end
alias :data :data_get
end
#
class ElmNotify < ElmObject
#
include Helper
constructor :elm_notify_add
search_prefixes 'elm_notify_'
#
end
#
class ElmEntry < ElmObject
#
include Helper
constructor :elm_entry_add
search_prefixes 'elm_entry_'
#
end
#
class ElmFlipSelector < ElmObject
#
include Helper
constructor :elm_flipselector_add
search_prefixes 'elm_flipselector_'
#
def item_append label, cb, data
ElmFlipSelectorItem.new Native::elm_flipselector_item_append @ptr, label, cb, data
end
#
def selected_item_get
ElmFlipSelectorItem.new Native::elm_flipselector_selected_item_get @ptr
end
alias :selected_item :selected_item_get
end
#
class ElmFlipSelectorItem < ElmObject
#
search_prefixes 'elm_flipselector_item_'
#
end
#
class ElmHoversel < ElmObject
#
include Helper
constructor :elm_hoversel_add
search_prefixes 'elm_hoversel_'
#
def item_add label, icon_file=nil, icon_type=:elm_icon_none, cb=nil, data=nil
ElmHoverselItem.new Native::elm_hoversel_item_add @ptr, label, icon_file, icon_type, cb, data
end
end
#
class ElmHoverselItem < ElmObject
#
search_prefixes 'elm_hoversel_item_'
#
end
#
class ElmHover < ElmObject
#
include Helper
constructor :elm_hover_add
search_prefixes 'elm_hover_'
#
end
#
class ElmButton < ElmObject
#
include Helper
constructor :elm_button_add
search_prefixes 'elm_button_'
#
end
#
class ElmGenlist < ElmObject
#
include Helper
constructor :elm_genlist_add
search_prefixes 'elm_genlist_'
#
end
#
end
end
#
# EOF
|
