my $mw ;
$mw = MainWindow->new (-width => 600, -height => 350 );

$mw->title("Tk: main config:: file replacement for ");


