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
|
IUPTREE = {parent = WIDGET}
IUPTREEREFERENCETABLE = {} -- Used in C, see luatree.c
function IUPTREE:CreateIUPelement (obj)
return iupCreateTree ()
end
function iuptree (o)
return IUPTREE:Constructor (o)
end
iup.tree = iuptree
function TreeSetValueRec(handle, t, id)
if t == nil then return end
local cont = getn(t)
while cont >= 0 do
if type (t[cont]) == "table" then
if t[cont].branchname ~= nil then
IupSetAttribute(handle, "ADDBRANCH"..id, t[cont].branchname)
else
IupSetAttribute(handle, "ADDBRANCH"..id, "")
end
TreeSetValueRec(handle, t[cont], id+1)
else
if t[cont] then
IupSetAttribute(handle, "ADDLEAF"..id, t[cont])
end
end
cont = cont - 1
end
end
function TreeSetValue(handle, t)
if type(t) ~= "table" then
IupMessage("TreeLua Error", "Incorrect arguments to function TreeSetValue")
return
end
if t.branchname ~= nil then
IupSetAttribute(handle, "NAME", t.branchname)
end
TreeSetValueRec(handle, t, 0)
end
iup.TreeSetValue = TreeSetValue
iup_callbacks.selection = {"SELECTION_CB", iup_tree_selection_cb}
iup_callbacks.multiselection = {"MULTISELECTION_CB", iup_tree_multiselection_cb}
iup_callbacks.branchopen = {"BRANCHOPEN_CB", iup_tree_branchopen_cb}
iup_callbacks.branchclose = {"BRANCHCLOSE_CB", iup_tree_branchclose_cb}
iup_callbacks.executeleaf = {"EXECUTELEAF_CB", iup_tree_executeleaf_cb}
iup_callbacks.renamenode = {"RENAMENODE_CB", iup_tree_renamenode_cb}
iup_callbacks.renamecb = {"RENAME_CB", iup_tree_renamecb_cb}
iup_callbacks.showrenamecb = {"SHOWRENAME_CB", iup_tree_showrenamecb_cb}
iup_callbacks.rightclick = {"RIGHTCLICK_CB", iup_tree_rightclick_cb}
iup_callbacks.dragdrop = {"DRAGDROP_CB", iup_tree_dragdrop_cb}
iup_callbacks.selection_cb = iup_callbacks.selection
iup_callbacks.multiselection_cb = iup_callbacks.multiselection
iup_callbacks.branchopen_cb = iup_callbacks.branchopen
iup_callbacks.branchclose_cb = iup_callbacks.branchclose
iup_callbacks.executeleaf_cb = iup_callbacks.executeleaf
iup_callbacks.renamenode_cb = iup_callbacks.renamenode
iup_callbacks.rename_cb = iup_callbacks.renamecb
iup_callbacks.showrename_cb = iup_callbacks.showrenamecb
iup_callbacks.rightclick_cb = iup_callbacks.rightclick
iup_callbacks.dragdrop_cb = iup_callbacks.dragdrop
|
