diff options
author | mertz | 2002-04-24 08:02:07 +0000 |
---|---|---|
committer | mertz | 2002-04-24 08:02:07 +0000 |
commit | d3d2eaa8f185d0a0574b51ea70820ee2d3925e80 (patch) | |
tree | f38fb009d630eea3d38bb82f8f9067104b1d4548 /Perl | |
parent | b79372c30921fbd19e3eb6a45b2114699cc89001 (diff) | |
download | tkzinc-d3d2eaa8f185d0a0574b51ea70820ee2d3925e80.zip tkzinc-d3d2eaa8f185d0a0574b51ea70820ee2d3925e80.tar.gz tkzinc-d3d2eaa8f185d0a0574b51ea70820ee2d3925e80.tar.bz2 tkzinc-d3d2eaa8f185d0a0574b51ea70820ee2d3925e80.tar.xz |
correction indispensable pour l'int�gration � zinc-demos
(merci � Jack.Dunnigan@EC.gc.ca pour le patch)
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/all_options.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl index 3a89072..c58def4 100644 --- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl +++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl @@ -53,7 +53,7 @@ foreach my $type qw(triangles) { sub showAllOptions { my ($type) = @_; - my $tl = MainWindow->new()->toplevel; + my $tl = $mw->Toplevel; my $title = "All options of an item $type"; my @options; if ($type eq 'zinc') { |