原創(chuàng) visualfc
在LUA中進(jìn)行GUI程序設(shè)計(jì)，可以選擇的GUI庫(kù)一般有wxLua和IupLua。wxLua具備典型的面向?qū)ο箫L(fēng)格，功能相對(duì)強(qiáng)大。而IUP的LUA綁定則非常簡(jiǎn)潔易用。本文主要介紹IupLua。
IUPLUA目前穩(wěn)定版本為2.7.1，最新版本為3.0beta1。
IUP項(xiàng)目主頁(yè)為：http://sourceforge.net/projects/iup
在IupLua程序設(shè)計(jì)中，主要使用表來(lái)設(shè)計(jì)應(yīng)用程序界面，表的鍵值則為GUI部件的屬性，通過(guò)回調(diào)函數(shù)完成窗口消息的獲取。下面給出一個(gè)完整的例子。
1
require "iuplua"
2
3text_location = iup.text{expand="HORIZONTAL", id="text_location"}
4btn_browse = iup.button{title="Browse", rastersize="x22",id="btn_browse"}
5dlg = iup.dialog
6{
7 iup.vbox
8 {
9 iup.label{title="Location:"},
10 iup.hbox
11 {
12 text_location,
13 btn_browse
14 ; margin="0x0"
15 },
16 iup.label{title="Text:"},
17 iup.multiline{expand="YES"},
18 }
19 ;title="iuplua sample", size="200x100", margin="10x10"
20}
21
22function btn_browse:action()
23 local dlg = iup.filedlg{dialogtype="DIR"}
24 dlg:popup()
25 if dlg.status == "0" then
26 text_location.value = dlg.value
27 end
28end
29
30dlg:show()
31
32iup.MainLoop()
33
上面的例子通過(guò)hbox和vbox進(jìn)行界面的自動(dòng)調(diào)整。程序很簡(jiǎn)單，如下圖所示：
其中22行的fuctnion btn_browse:action即為回調(diào)函數(shù)，相比wxLua的Bind方法，這種用法更為簡(jiǎn)潔。
另外我們也可以看到在此程序中我們需要對(duì)text_location和btn_browse進(jìn)行聲明，而后在dialog的box中進(jìn)行引用，我們也可以使用類似HTML控制中的ID值來(lái)進(jìn)行設(shè)計(jì)而無(wú)需事先聲明。如下：
1require "iuplua"
2require "iupid"
3
4dlg = iup.dialog
5{
6 iup.vbox
7 {
8 iup.label{title="Location:", id="ok"},
9 iup.hbox
10 {
11 iup.text{expand="HORIZONTAL", id="text_location"},
12 iup.button{title="Browse", rastersize="x22", id="btn_browse"}
13 ; margin="0x0"
14 },
15 iup.label{title="Text:"},
16 iup.multiline{expand="YES"},
17 }
18 ;title="iuplua sample", size="200x100", margin="10x10"
19}
20
21function btn_browse:action()
22 local dlg = iup.filedlg{dialogtype="DIR"}
23 dlg:popup()
24 if dlg.status == "0" then
25 text_location.value = dlg.value
26 end
27end
28
29dlg:show()
30
31iup.MainLoop()
32
如上所示，使用id值的方式GUI設(shè)計(jì)代碼顯得更為一致。那么如何做到這一點(diǎn)呢，在LUA中實(shí)現(xiàn)起來(lái)很簡(jiǎn)單，使用upvalue就可以做到。
1function iup_id(func)
2 return function(o)
3 if o.id ~= nil then
4 _G[o.id] = func(o)
5 return _G[o.id]
6 else
7 return func(o)
8 end
9 end
10end
然后對(duì)所需部件進(jìn)行聲明。
--standard
iup.button = iup_id(iup.button)
iup.text = iup_id(iup.text)
這樣就可以使用id的方式來(lái)直接引用GUI部件了，另外需要注意的是各個(gè)GUI部件要取不同的id值。
下面給出了我寫(xiě)的iupcd.lua的完整源代碼以供參考。
require "iuplua"
require "iupluacontrols"
function iup_id(func)
return function(o)
if o.id ~= nil then
_G[o.id] = func(o)
return _G[o.id]
elseif o.ID ~= nil then
_G[o.ID] = func(o)
return _G[o.ID]
else
return func(o)
end
end
end
--standard
iup.button = iup_id(iup.button)
iup.canvas = iup_id(iup.canvas)
iup.frame = iup_id(iup.frame)
iup.multiline = iup_id(iup.multiline)
iup.progressbar = iup_id(iup.progressbar)
iup.spin = iup_id(iup.spin)
iup.tabs = iup_id(iup.tabs)
iup.val = iup_id(iup.val)
iup.toggle = iup_id(iup.toggle)
iup.radio = iup_id(iup.radio)
iup.text = iup_id(iup.text)
iup.list = iup_id(iup.list)
iup.label = iup_id(iup.label)
--dialog
iup.dialog = iup_id(iup.dialog)
iup.filedlg = iup_id(iup.filedlg)
iup.messagedlg = iup_id(iup.messagedlg)
iup.colordlg = iup_id(iup.colordlg)
iup.fontdlg = iup_id(iup.fontdlg)
iup.alarm = iup_id(iup.alarm)
iup.getfile = iup_id(iup.getfile)
iup.gettext = iup_id(iup.gettext)
iup.listdialog = iup_id(iup.listdialog)
iup.message = iup_id(iup.message)
iup.scanf = iup_id(iup.scanf)
iup.getcolor = iup_id(iup.getcolor)
iup.getparam = iup_id(iup.getparam)
--layout
iup.fill = iup_id(iup.fill)
iup.vbox = iup_id(iup.vbox)
iup.hbox = iup_id(iup.hbox)
iup.zbox = iup_id(iup.zbox)
iup.cbox = iup_id(iup.cbox)
iup.sbox = iup_id(iup.cbox)
--additional
iup.cells = iup_id(iup.cells)
iup.colorbar = iup_id(iup.colorbar)
iup.colorbrowser = iup_id(iup.colorbrowser)
iup.dial = iup_id(iup.dial)
iup.gauge = iup_id(iup.gauge)
iup.tabs = iup_id(iup.tabs)
iup.matrix = iup_id(iup.matrix)
iup.tree = iup_id(iup.tree)
iup.glcanvas = iup_id(iup.glcanvas)
iup.pplot = iup_id(iup.pplot)
iup.olecontrol = iup_id(iup.olecontrol)
iup.speech = iup_id(iup.speech)