#$bot->{signalid} = $bot->signal_connect(insert_text => \&botinsert, $bot);
$vbox->pack_start($top, 1, 1, 0);
$vbox->show;
# the bottom handler
my $bot = new Gtk::Entry;
#$bot->{signalid} = $bot->signal_connect(insert_text => \&botinsert, $bot);
$vbox->pack_start($top, 1, 1, 0);
$vbox->show;
# the bottom handler
my $bot = new Gtk::Entry;