$text->g_bind('<Return>',sub{$name=$text->get(qw/sel.first sel.last/);print "The name is $name\n"});