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
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/evas/evas-ffi'
#
module Efl
module Evas
#
class Evas
attr_reader :ptr
def initialize o=nil
@ptr = (
case o
when NilClass
FFI::AutoPointer.new Efl::API.evas_new, method(:free)
when self.class
o.ptr
when FFI::AutoPointer
o
when FFI::Pointer
FFI::AutoPointer.new o, method(:free)
else
raise ArgumentError.new "#{ptr.class} valid argument"
end
)
yield self if block_given?
end
def free
Efl::API.evas_free @ptr
@ptr=nil
end
def === o
@ptr === o.ptr
end
def method_missing m, *args, &block
sym = 'evas_'+m.to_s
Efl::API.send sym if not Efl::API.respond_to? sym
self.class.class_eval "def #{m} *args, █ r =Efl::API.#{sym}(@ptr,*args); yield r if block_given?; r; end"
self.send m, *args, &block
end
def output_size_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
Efl::API.evas_output_size_get @ptr, x, y
[ x.read_int, y.read_int ]
end
def output_viewport_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
w = FFI::MemoryPointer.new :int
h = FFI::MemoryPointer.new :int
Efl::API.evas_output_viewport_get @ptr, x, y, w, h
[ x.read_int, y.read_int, w.read_int, h.read_int ]
end
def pointer_output_xy_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
Efl::API.evas_pointer_output_xy_get @ptr, x, y
[ x.read_int, y.read_int ]
end
def pointer_canvas_xy_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
Efl::API.evas_pointer_canvas_xy_get @ptr, x, y
[ x.read_int, y.read_int ]
end
end
#
class EvasObject
attr_reader :ptr
def initialize o=nil
@ptr = (
case o
when NilClass
FFI::AutoPointer.new Efl::API.evas_new, method(:free)
when self.class
o.ptr
when FFI::AutoPointer
o
when FFI::Pointer
FFI::AutoPointer.new o, method(:free)
else
raise ArgumentError.new "#{ptr.class} valid argument"
end
)
yield self if block_given?
end
def free
Efl::API.evas_object_del @ptr
@ptr=nil
end
def method_missing m, *args, &block
if Efl::API.respond_to? m
self.class.class_eval "def #{m} *args, █ r=Efl::API.#{m}(@ptr,*args); yield r if block_given?; r; end"
return self.send m, *args, &block
end
sym = 'evas_object_'+m.to_s
Efl::API.send sym if not Efl::API.respond_to? sym
self.class.class_eval "def #{m} *args, █ r=Efl::API.#{sym}(@ptr,*args); yield r if block_given?; r; end"
self.send m, *args, &block
end
def geometry_get
x = FFI::MemoryPointer.new :int
y = FFI::MemoryPointer.new :int
w = FFI::MemoryPointer.new :int
h = FFI::MemoryPointer.new :int
Efl::API.evas_object_geometry_get @evas, x, y, w, h
[ x.read_int, y.read_int, w.read_int, h.read_int ]
end
def color_get
r = FFI::MemoryPointer.new :int
g = FFI::MemoryPointer.new :int
b = FFI::MemoryPointer.new :int
a = FFI::MemoryPointer.new :int
Efl::API.evas_object_color_get @evas, r, g, b, a
[ r.read_int, g.read_int, b.read_int, a.read_int ]
end
end
end
end
#
# EOF
|
