*** empty log message ***

1 files changed, 0 insertions, 21 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
index fe9c35a..e5e4bb4 100644
--- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
@@ -1413,16 +1413,6 @@ $zinc->pack(-fill => 'both', -expand => 1);
 # initialise les gradients nommés
 &setGradients($zinc, \%gradset);
 
-# initialise les images de fontes
-while (my ($anchor, $table) = each(%tabtable)) {
-  my @images;
-  foreach my $filename (@{$table->{'-images'}}) {
-    my $image = $zinc->Photo(-file => Tk::findINC($filename));
-    push(@images, $image);
-  }
-  $tabtable{$anchor}->{'-images'} = \@images;
-}
-
 # création de la vue principale
 my $tgroup = $zinc->add('group', 1);
 $zinc->coords($tgroup, [350, 240]);
@@ -1621,13 +1611,10 @@ sub selectDivider {
     my $fontname = $tabtable{$tabanchor}->{'-names'}->[$numpage];
     my $firstLetter = substr($fontname,0,1);
     my $lcFirstLetter = lc($firstLetter);
-#    my $fontimage = $tabtable{$tabanchor}->{'-images'}->[$numpage];
     $zinc->itemconfigure("($divname && fontname)",
 			 -text => $fontname.
 			 ("\n".($firstLetter x 20)."\n". ($lcFirstLetter x 20))x4);
     $zinc->raise("($divname && fontname)");
-#    $zinc->itemconfigure("($divname && fontimage)", -image => $fontimage);
-#    $zinc->raise("($divname && fontimage)");
   }
 }
 
@@ -1838,14 +1825,6 @@ sub buildTabBox {
 		 -tags => [$tags[0], 'fontname'],
 		);
 
-      # as I do not want to put lot of images in TkZinc demos, I
-      # commented out the following lines!
-#      $zinc->add('icon', $parentgroup,
-#		 -position => [-130, -70],
-#		 -priority => 200,
-#		 -image =>  $table->{'-images'}->[0],
-#		 -tags => [$tags[0], 'fontimage'],
-#		);
     }
 
   }