my $txt = $textarea -> Text(-width=>40, -height=>10, -wrap => 'none');