Class ::xowiki::includelet::slidy

Class ::xowiki::includelet::slidy (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::slidy

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Display a sequence of pages via W3C slidy, based on book includelet

Testcases:: No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::slidy {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::slidy instproc render_items {-pages:required {-cnames ""} {-allow_reorder ""} -menu_buttons {-with_footer "false"}} {
    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
  }
::nsf::relation::set ::xowiki::includelet::slidy superclass ::xowiki::includelet::book

XQL Not present:

Generic, PostgreSQL, Oracle

[ hide source ] | [ make this the default ]