Ajout de la librairie Zinc::Graphics de JLV

et d'une demonstration faite par JLV

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;