update
[www.jankratochvil.net.git] / project / Islet / index.html.pl
index b47522d..5ef85ab 100755 (executable)
@@ -33,6 +33,12 @@ My::Web->init_project(
                "ListItem"=>\%My::Project::icp::ListItem,
                );
 
+print <<'HERE';
+<iframe src="Islet/" width="90%" height="500" />
+<a href="Islet/">Program on-line</a>.
+</iframe>
+HERE
+
 print '<table border="0"><tr><td align="center">'.My::Web::img("Islet.png","Applet demo screen").'</td></tr></table>'."\n";
 
 My::Web->footer();