diff options
| author | mertz | 2002-12-20 12:32:03 +0000 |
|---|---|---|
| committer | mertz | 2002-12-20 12:32:03 +0000 |
| commit | 9bfc13c30f64c8deff73c29ec4d5f4c9cc92680b (patch) | |
| tree | 7e916361416e314bf0c121881c142e6fa57778b1 /Perl/demos/Tk/demos/zinc_lib/contours.pl | |
| parent | 54f02580554d0fa8631d9616927fed08439fe6b0 (diff) | |
| download | tkzinc-9bfc13c30f64c8deff73c29ec4d5f4c9cc92680b.zip tkzinc-9bfc13c30f64c8deff73c29ec4d5f4c9cc92680b.tar.gz tkzinc-9bfc13c30f64c8deff73c29ec4d5f4c9cc92680b.tar.bz2 tkzinc-9bfc13c30f64c8deff73c29ec4d5f4c9cc92680b.tar.xz | |
simplifiaction du code (suppression de l'ascenseur
dans les zones text Tk ou passage du texte d'explication
directement dans le Zinc
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, |