diff options
| author | mertz | 2003-11-04 12:30:08 +0000 |
|---|---|---|
| committer | mertz | 2003-11-04 12:30:08 +0000 |
| commit | 43bd0973ef002e665f4f2a0a7226243ec86ef6ff (patch) | |
| tree | 4ae711cc5910d88a46952f811fc059c69ca3301f /Perl | |
| parent | 17b4c897def03316fefe1f53edd7bd8eff1bb34b (diff) | |
| download | tkzinc-43bd0973ef002e665f4f2a0a7226243ec86ef6ff.zip tkzinc-43bd0973ef002e665f4f2a0a7226243ec86ef6ff.tar.gz tkzinc-43bd0973ef002e665f4f2a0a7226243ec86ef6ff.tar.bz2 tkzinc-43bd0973ef002e665f4f2a0a7226243ec86ef6ff.tar.xz | |
a better integration of contributed demos, boosted par "zentara" demo
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/demos/zinc-demos | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 995b178..907dc99 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -38,7 +38,7 @@ $MW->configure(-menu => my $menubar = $MW->Menu); sub new { my ($name) = $::DEMO_FILE =~ m#([^/]+).pl$#; - $::MW->WidgetDemo(-name => $name, -text => $::DEMO_DESCRIPTION{$name}); + $::MW->WidgetDemo(-name => $name, -text => $::DEMO_DESCRIPTION{$name} || "" ); } } @@ -215,7 +215,7 @@ while ($_ = shift @dirent) { next; } my($name) = /^(.*)\.pl$/; - $_ = <C>; + $_ = <C>; $_ = <C>; my($title) = /^#\s*(.*)$/; $DEMO_DESCRIPTION{$name} = $title; close C; |