attrib ("_refresh" => "true");
my $key = enode ("sdl-key.howdy");
$key->attrib ("_refresh" => "true");
my $mouse = enode ("sdl-mouse.mouse1");
$enode = enode ("sdl-sprite.sprite1");
my $x = $mouse->attrib( "x");
my $y = $mouse->attrib( "y");
my $button = $mouse->attrib("button3");
#Button attributes name button1, button2, and button3 also exist.
if ("true" eq $button)
{
print "button was down\n";
}
$enode->attrib ("xpos" => "$x");
$enode->attrib ("ypos" => "$y");
my $blue_enode = enode("sdl-rectangle.rect1");
my $blue = $blue_enode->attrib("blue");
if (255 < $blue || 0 > $blue)
{
$cx = -$cx;
}
$blue = $blue + $cx;
$blue_enode->attrib("blue" => "$blue");
}
]]>