+ my $title = $self->{-info}->{'Comment'};
+ $title = $name unless ($title);
+ my $thumb = $self->{$sizes[0]};
+ my $medium = $self->{$sizes[1]};
+ my $info = $self->{-info};
+ my ($w, $h) = dim($info);
+
+ #print &infobox($info,$base,$fn),"\n";
+ print $IND table({-class=>'slide'},Tr(td(
+ a({-href=>".html/$name-info.html",
+ -onClick=>"return showIbox('$name');"},$title),
+ br,
+ a({-href=>$medium,-rel=>"lightbox",-title=>$title},
+ img({-src=>$thumb})),
+ br,
+ a({-href=>$name},"($w x $h)"),
+ br))),"\n";