attrib ("y-scroll") >= 98)
{
$do_move = 1;
}
$text->set_data ($text->get_data() . $mesg);
if ($do_move)
{
$scrollbar->attrib ("y-scroll" => "100");
}
}
sub myonconnect
{
my $node = shift;
my $connbutton = enode ("button.connect");
my $discbutton = enode ("button.disconnect");
my $sendbutton = enode ("button.send");
my $scrollbar = enode ("scrollwindow.scroller");
my $text = enode ("text.textfield");
if ($scrollbar->attrib ("y-scroll") >= 98)
{
$do_move = 1;
}
$text->set_data ($text->get_data() . "Connected...\n");
if ($do_move)
{
$scrollbar->attrib ("y-scroll" => "100");
}
$connbutton->attrib ("sensitive" => "false");
$discbutton->attrib ("sensitive" => "true");
$sendbutton->attrib ("sensitive" => "true");
}
sub myondisconnect
{
my $node = shift;
my $connbutton = enode ("button.connect");
my $discbutton = enode ("button.disconnect");
my $sendbutton = enode ("button.send");
my $scrollbar = enode ("scrollwindow.scroller");
my $text = enode ("text.textfield");
if ($scrollbar->attrib ("y-scroll") >= 98)
{
$do_move = 1;
}
$text->set_data ($text->get_data() . "Disconnected...\n");
if ($do_move)
{
$scrollbar->attrib ("y-scroll" => "100");
}
$connbutton->attrib ("sensitive" => "true");
$discbutton->attrib ("sensitive" => "false");
$sendbutton->attrib ("sensitive" => "false");
}
sub myconnect
{
my $sink = enode ("csink.mysink");
$sink->attrib ("action" => "connect");
}
sub mydisconnect
{
my $sink = enode ("csink.mysink");
$sink->attrib ("action" => "disconnect");
}
sub writemesg
{
my $sink = enode ("csink.mysink");
my $text = enode ("entry.cursor");
my $mesg = $text->attrib ("text");
$sink->attrib ("write" => $mesg . "\n");
$text->attrib ("text" => "");
}
sub sethost
{
my $sink = enode ("csink.mysink");
my $entry = enode ("entry.remote-host");
$sink->attrib ("hostname", $entry->attrib ("text"));
}
sub setport
{
my $sink = enode ("csink.mysink");
my $entry = enode ("entry.remote-port");
$sink->attrib ("port" => $entry->attrib ("text"));
}
]]>