From d3d2eaa8f185d0a0574b51ea70820ee2d3925e80 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 24 Apr 2002 08:02:07 +0000
Subject: correction indispensable pour l'int�gration � zinc-demos (merci �
 Jack.Dunnigan@EC.gc.ca pour le patch)

---
 Perl/demos/Tk/demos/zinc_lib/all_options.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl/demos/Tk')

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') {
-- 
cgit v1.1