+icons

[www.jankratochvil.net.git] / project / Islet / Index.html.pl

diff --git a/project/Islet/Index.html.pl b/project/Islet/Index.html.pl
index a97494e..731a9bc 100755 (executable)
--- a/project/Islet/Index.html.pl
+++ b/project/Islet/Index.html.pl
@@ -27,8 +27,8 @@ use warnings;
 
 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-use My::Project;
-use project::Islet::ListItem;
+Wuse 'My::Project';
+Wuse 'project::Islet::ListItem';
 
 
 My::Project->init_project(
@@ -36,12 +36,14 @@ My::Project->init_project(
                "ListItem"=>\@project::Islet::ListItem::ListItem,
                );
 
-print <<'HERE';
+
+print <<"HERE";
 <iframe src="Islet/" width="90%" height="500" />
 <a href="Islet/">Program on-line</a>.
 </iframe>
+
+@{[ centerimg "Islet","Applet demo screen" ]}
 HERE
 
-print '<table border="0"><tr><td align="center">'.My::Web::img("Islet","Applet demo screen").'</td></tr></table>'."\n";
 
 My::Web->footer();