my $infodialog = $infowin->add( 
        'infodialog', 
        'TextViewer',
        -wrapping => 1,
        -vscrollbar => 'right',
);
 $infodialog->focus();

sub info{
	my ($infoText, $infodialog) = @_;
	
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
	localtime(time);
	
	my $fqInfoText = "[$hour:$min:$sec]-" . $infoText;
	my $currentText = $infodialog->get();
	$infodialog->text($currentText . $fqInfoText);
	$infodialog->draw(); 	
}