diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/zoom.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/zoom.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/zoom.pl b/Perl/demos/Tk/demos/zinc_lib/zoom.pl index b5bc4e5..a97dd5e 100644 --- a/Perl/demos/Tk/demos/zinc_lib/zoom.pl +++ b/Perl/demos/Tk/demos/zinc_lib/zoom.pl @@ -15,8 +15,7 @@ my $mw = MainWindow->new(); # Text zone ########################################### -my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true - -height 4 -scrollbars e/); +my $text = $mw->Text(-relief => 'sunken', -borderwidth => 2, -height => 4); $text->pack(qw/-expand yes -fill both/); $text->insert('0.0', |