You probably don't want to use a Text widget since you most likely won't want an editable dialog box... and even a ROText seems like overkill. Probably just using a Label is your best bet. Pack it inside a scrolled Pane to get the scroll bars. See example.
#!/user/bin/perl use strict; use warnings; use Tk; use Tk::DialogBox; use Tk::Pane; my $mw = MainWindow->new(); my $dialog = $mw->DialogBox( -title => "Title", -buttons => [ "OK", "Cancel" ] ); my $text_str = "blah\n" x 40; my $scrolled = $dialog->add( 'Scrolled', 'Pane', -scrollbars => 'osoe' +, )->pack; my $dtext = $scrolled->Label( -text => $text_str )->pack; my $reply = $dialog->Show; print "$reply\n"; MainLoop;
In reply to Re: Adding 'text' to a Tk DialogBox
by thundergnat
in thread Adding 'text' to a Tk DialogBox
by merrymonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |