my $input = $mw->new_tk__text( -width => 40, -height => 5, -state => "normal", -wrap => "none" );