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
|
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'efl/elementary_all'
#
class ElmGenItemClass < FFI::Struct
layout :version, :int,
:refcount, :uint,
:delete_me, :pointer,
:item_style, :pointer,
:decorate_item_style, :pointer,
:decorate_all_item_style, :pointer,
:text_get, :pointer,
:content_get, :pointer,
:state_get, :pointer,
:del, :pointer
end
#
include Efl
#
Elm.init
#
class Window < Elm::ElmWin
#
def initialize
super nil, "genlist"
title_set("Genlist")
@bg = Elm::ElmBg.new(self) do
color_set 255, 255, 255
size_hint_weight_expand
show
end
resize_object_add(@bg)
@itc = ElmGenItemClass.new(Native.elm_genlist_item_class_new)
@itc[:item_style] = FFI::MemoryPointer.from_string("default")
@itc[:text_get] = FFI::Function.new(:pointer, [:pointer, :pointer, :string]) do |data, *_|
ptr = FFI::MemoryPointer.from_string("Item # #{data.read_string}")
ptr.autorelease = false
ptr
end
@itc[:content_get] = FFI::Function.new(:pointer, [:pointer, :pointer, :string]) do |data, obj, part|
Elm::ElmIcon.new(self) do
standard_set(part == "elm.swallow.icon" ? "home" : "clock")
size_hint_aspect_set 0, 1, 1
end.to_ptr
end
@list = Elm::ElmGenList.new(self) do
size_hint_weight_expand
show
end
30.times do |i|
@list.item_append(@itc, i.to_s, nil, :elm_genlist_item_none,
FFI::Function.new(:pointer, [:pointer, :pointer, :pointer]) {|data, obj, evt|
p [:selected, data.read_string] }, i.to_s)
end
resize_object_add(@list)
smart_callback_add "delete,request", ->(*_) { Elm.exit }, nil
resize 200, 300
show
end
end
#
Window.new
#
Elm.run
Elm.shutdown
#
# EOF
|
