Class ::xowiki::includelet::slidy
::xowiki::includelet::slidy![[i]](/resources/acs-subsite/ZoomIn16.gif)
create ...
Display a sequence of pages via W3C slidy, based on book includelet
Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tclClass Relations
- class: ::xowiki::IncludeletClass
- superclass: ::xowiki::includelet::book
::xowiki::IncludeletClass create ::xowiki::includelet::slidy \
-superclass ::xowiki::includelet::book
Methods (to be applied on instances)
render_items (scripted)
if {$cnames ne "" || $allow_reorder ne "" || $with_footer != "false"} {
error "ignoring cnames, allow_reorder, and with_footer for the time being"
}
set output ""
foreach o [$pages children] {
set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id [$o set page_id]]
append output "<div class='slide'>\n" [$p render -with_footer false] "\n</div>\n"
}
ns_return 200 text/html [subst {<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<title>[${:__including_page} title]</title>
<link rel="stylesheet" href="http://www.w3.org/Talks/Tools/Slidy2/styles/slidy.css" type="text/css" media="screen, projection" />
<link rel="stylesheet" href="print.css" type="text/css"
media="print" />
<script src="http://www.w3.org/Talks/Tools/Slidy2/scripts/slidy.js" type="text/javascript"></script>
</head>
<body>
$output
</body>
}]
ad_script_abort
