/script_binding/lua/demo4.lua

http://ftk.googlecode.com/ · Lua · 41 lines · 38 code · 3 blank · 0 comment · 0 complexity · f5fa3ad743a59a386be60cc66d79b767 MD5 · raw file

  1. xml=[[
  2. <?xml version="1.0" encoding="utf-8"?>
  3. <window value="Entry Label">
  4. <label id="1" x="5" y="5" w="$ww/4" h="30" value="Name" />
  5. <entry id="2" x="$ww/4+5" y="5" w="3*$ww/4-15" h="30" value="Li XianJing" />
  6. <label id="3" x="5" y="40" w="$ww/4" h="30" value="EMail" />
  7. <entry id="4" x="$ww/4+5" y="40" w="3*$ww/4-15" h="30" value="xianjimli@hotmail.com" />
  8. <label id="5" x="5" y="75" w="$ww/4" h="30" value="Mobile" />
  9. <entry id="6" x="$ww/4+5" y="75" w="3*$ww/4-15" h="30" value="+8613911112222" />
  10. <button id="99" x="5" y="3*$wh/4" w="$ww/2-5" h="50" value="Save" />
  11. <button id="100" x="$ww/2" y="3*$wh/4" w="$ww/2-5" h="50" attr="$FTK_ATTR_FOCUSED" value="Quit" />
  12. </window>
  13. ]]
  14. function OnQuit(button)
  15. ftk_quit()
  16. print(button:GetText() .. " Clicked.")
  17. return RET_OK
  18. end
  19. function OnSave(button)
  20. print(button:GetText() .. " Clicked.")
  21. return RET_OK
  22. end
  23. Ftk.Init(1, {"demo4"})
  24. win=FtkXul.Load(xml, #xml)
  25. button = win:Lookup(99)
  26. FtkButton.SetClickedListener(button, "OnSave")
  27. button=win:Lookup(100)
  28. FtkButton.SetClickedListener(button, "OnQuit")
  29. win:ShowAll(1)
  30. Ftk.Run()