enlightenment
/
examples
6
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

elua: elm test entry

This commit is contained in:
Daniel Kolesa 2014-04-08 14:55:01 +01:00 committed by Daniel Kolesa
parent 92891c84f9
commit 82b10de760
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
elua/elm_test.lua
View File

@ -38,21 +38,26 @@ lbl:text_set("Lua runtime test")
bx:pack_end(lbl)
lbl:show()
local counter = nil
local step = 5
local entry
local btn = elm.Button(win)
btn:text_set("Reset counter")
bx:pack_end(btn)
btn:smart_callback_add("clicked", function()
if not counter then
btn:text_set("Add " .. step)
end
counter = counter and (counter + step) or 0
lbl:text_set(tostring(counter))
lbl:text_set(entry:entry_get())
end)
btn:show()
entry = elm.Entry(win)
entry:single_line_set(true)
entry:scrollable_set(true)
entry:focus_set(true)
entry:entry_set("Hello world")
entry:size_hint_weight_set(1.0, 1.0)
entry:size_hint_align_set(-1.0, -1.0)
entry:show()
bx:pack_end(entry)
win:resize(360, 360)
win:show()