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
|
#!/usr/bin/env entity
<object>
<window border = "15"
position = "center"
ondelete = "entity:exit"
title = "Some Cool App"
name="windowone">
<frame text = "test the tree tag">
<valign height = "500" width = "300">
<scrollwindow fill="true" expand="true">
<tree expand ="true"
fill="true"
name="l1 one"
selection-type="multiple"
onselect="testtree">
<label text = "test"/>
<tree name ="l2 one"><label text="l2 one"/>
<tree name="l3 one"><label text="l3 one"/>
</tree>
<tree name="l3 two" onselect="testtree2"><label text="l3 two"/>
</tree>
<tree name="l3 three"><label text="l3 three"/>
</tree>
<tree name="l3 four"><label text="l3 four"/>
</tree>
</tree>
<tree name="l2 two"><label text="l2 two"/>
</tree>
<tree name="l2 three"><label text="l2 three"/>
</tree>
</tree>
</scrollwindow>
</valign>
</frame>
<perl>
<![CDATA[
sub testtree{
my ( $node ) = @_;
print "$node\n";
$text = $node->attrib("string");
print "testtree hears -$text-\n";
}
]]>
</perl>
</window>
</object>
|
