diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/contours.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/contours.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/contours.pl b/Perl/demos/Tk/demos/zinc_lib/contours.pl index 8907dda..5d4a4ed 100644 --- a/Perl/demos/Tk/demos/zinc_lib/contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl @@ -12,8 +12,8 @@ package contours; # for avoiding symbol collision between different demos my $mw = MainWindow->new(); # The explanation displayed when running this demo -my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true - -height 9 -scrollbars e/); +my $text = $mw->Text(-relief => 'sunken', -borderwidth => 2, + -setgrid => 'true', -height => 9); $text->pack(qw/-expand yes -fill both/); $text->insert('0.0', @@ -25,7 +25,7 @@ $text->insert('0.0', The following operations are possible: - "Mouse Button 1" for dragging objects. - "Mouse Button 1" for dragging the black handle and - modifying the grey curve contour.'); + modifying the grey curve contour.'); # Creating the zinc widget my $zinc = $mw->Zinc(-width => 600, -height => 500, |