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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#!/usr/bin/env entity
<object>
<window border = "15"
position = "center"
ondelete = "entity:exit"
title = "Some Cool App"
name="windowone">
<valign>
<radio-group>
<radio name="foo" label="test 1"/>
<radio name="foo" label="test 2"/>
<radio name="foo" label="test 3"/>
<radio name="foo" label="test 4"/>
<radio name="foo" label="test 5"/>
<radio name="foo" label="test 6"/>
<radio name="foo" label="test 7"/>
<radio name="foo" label="test 8"/>
</radio-group>
<radio-group name = "myradiogroup1" onselect="radiotest2">
<radio name="Item1" ontoggle="radiotest">
<label text="Item 1"/> </radio>
<frame text = "Options">
<halign>
<radio name="Item2" ontoggle="radiotest">
<label text="Item 2"/> </radio>
<radio name="Item3" ontoggle="radiotest">
<label text="Item 3"/> </radio>
<button>
<label text="button1"/>
<radio name="Item8" ontoggle="radiotest">
<label text="Item 8"/> </radio>
</button>
<valign>
<button> <label text="button1"/> </button>
<radio name="Item6" ontoggle="radiotest">
<label text="Item 3"/> </radio>
</valign>
</halign>
</frame>
</radio-group>
<radio-group name = "myradiogroup2" onselect="radiotest2">
<halign>
<radio name="item4">
<label text="item 1"/> </radio>
<radio name="item5">
<label text="item 2"/> </radio>
</halign>
</radio-group>
</valign>
<perl>
sub radiotest{
my $node = @_;
#print "$node->path\n";
# $radio = Entity::is_attr_true($path, "value");
$radio = $node->attrib_is_true("selected");
print "($radio)\n";
}
</perl>
<perl>
sub radiotest2{
my ($node) = @_;
print "----$node---\n";
}
</perl>
</window>
</object>
|
