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
|
#!/usr/bin/env entity
<object>
<window border = "15"
position = "center"
ondelete = "entity:exit"
title = "Some Cool App"
name="windowone">
<halign>
<dropdown name="dd" text="2" onselect="selected" onenter="labelfun">
<string text="one" value="1"/>
<string text="two" value="2"/>
<string text="three" value="3"/>
</dropdown>
<button label="go" onclick="dogo"/>
</halign>
<perl> <![CDATA[
sub labelfun
{
$node = shift;
print $node,"\n";
}
sub selected
{
my $text = enode ("dropdown")->{'text'};
my $value = enode ("dropdown")->{'value'};
print "selected text $text, value $value\n";
}
sub dogo
{
$node = enode("dropdown.dd");
print $node,"\n";
}
]]></perl>
</window>
</object>
|
