diff options
Diffstat (limited to 'Perl/demos/zinc-demos')
-rw-r--r-- | Perl/demos/zinc-demos | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 414a0a6..88fb9bd 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -183,12 +183,13 @@ $T->insert('end', "4. Transformation testbed.\n", [qw/demo demo-transforms/] $T->insert('end', "5. zooming/Rotating icons. (requires openGL)\n", [qw/demo demo-icon_zoom_resize/]); $T->insert('end', "\n", '', "Use of openGL\n", 'title'); -$T->insert('end', "1. The TkZinc Logo (requires openGL).\n", [qw/demo demo-tkZincLogo/]); +$T->insert('end', "1. A zoomable/rotatable TkZinc Logo (better with openGL).\n", [qw/demo demo-tkZincLogo/]); $T->insert('end', "2. Axial color variation on the X axis (requires openGL).\n", [qw/demo demo-color-x/]); $T->insert('end', "3. Axial color variation on the Y axis (requires openGL).\n", [qw/demo demo-color-y/]); $T->insert('end', "4. Circular color variation (requires openGL).\n", [qw/demo demo-color-circular/]); $T->insert('end', "5. Path and Conical color variations (requires openGL).\n", [qw/demo demo-color-path-and-conic/]); $T->insert('end', "6. The triangles item (requires openGL).\n", [qw/demo demo-triangles/]); +$T->insert('end', "7. A set of demos based on Graphics.pm module (really better with openGL).\n", [qw/demo demo-testGraphics/]); @@ -248,7 +249,9 @@ sub AUTOLOAD { { $DEMO_FILE = "$WIDTRIB/${demo}.pl" if -f "$WIDTRIB/${demo}.pl"; $DEMO_FILE = "$zinc_lib/${demo}.pl" if -f "$zinc_lib/${demo}.pl"; - do $DEMO_FILE; + if (defined $DEMO_FILE) { + do $DEMO_FILE ; + } else { warn "No such demo: $demo.pl in either $WIDTRIB/ or $zinc_lib/\n"; } warn $@ if $@; } $T->Unbusy; |