diff options
| -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') { |