Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/s5/tcl/s5-procs.tcl	29 Jan 2008 12:03:35 -0000	1.7
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	29 Jan 2008 23:00:12 -0000	1.8
@@ -47,7 +47,7 @@
           {-slideshow:boolean false}
           {-pagenr 0}
           {-style standard}
-          {-menu_buttons "edit copy create delete"}
+          {-menu_buttons "view edit copy create delete"}
         }}
       }
 
@@ -156,6 +156,7 @@
     if {$cnames ne ""} {
       #append output "<div class='filter'>Filtered by categories: $cnames</div>"
     }
+    ::xo::cc set_parameter __no_footer 1
     set count 0
     foreach o [$pages children] {
       $o instvar page_order title page_id name title 
@@ -201,21 +202,25 @@
       set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $page_id]
       $p destroy_on_cleanup
 
+      set pagenr_link "presentation?slideshow=1&pagenr=$count"
       set menu [list]
       foreach b $menu_buttons {
 	if {[info command ::xowiki::includelet::$b] eq ""} {
 	  set b $b-item-button
 	}
+        switch $b {
+	  view-item-button {append b " -link $pagenr_link"}
+	}
 	set html [$p include "$b -book_mode true"]
 	if {$html ne ""} {lappend menu $html}
       }
-      set pagenr_link "presentation?slideshow=1&pagenr=$count'"
+
       set menu "<div style='float: right'>[join $menu {&nbsp;}]</div>"
       $p set unresolved_references 0
       #$p set render_adp 0
       set content [$p get_content]
       set content [string map [list "\{\{" "\\\{\{" "\\@" "\\\\@"] $content]
-      my log content=$content
+      #my log content=$content
       regexp {^.*:([^:]+)$} $name _ anchor
       append output "<h$level class='book'>" \
           $menu \
@@ -252,3 +257,21 @@
     return "<div style='$width $height'><!-- --></div>\n"
   }
 }
+
+
+namespace eval ::xowiki {
+  ###########################################################
+  #
+  # ::xowiki::FormField::code_listing
+  #
+  ###########################################################
+
+  Class FormField::code_listing -superclass ::xowiki::FormField::textarea -parameter {
+    {rows 20}
+    {cols 80}
+  }
+  FormField::code_listing instproc pretty_value {v} {
+    return "<pre class='code'>[api_pretty_tcl [my value]] \
+	</pre>"
+  }
+}
\ No newline at end of file
Index: openacs-4/packages/s5/www/resources/standard/ui/default/pretty.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/standard/ui/default/pretty.css,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/s5/www/resources/standard/ui/default/pretty.css	28 Jan 2008 13:01:00 -0000	1.2
+++ openacs-4/packages/s5/www/resources/standard/ui/default/pretty.css	29 Jan 2008 23:00:12 -0000	1.3
@@ -97,4 +97,7 @@
 }
 div.slide ul > ul li {
     list-style-type: circle;
+}
+div.slide pre.code {
+    font-size: 60%;
 }
\ No newline at end of file
Index: openacs-4/packages/s5/www/resources/standard/ui/default/print.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/standard/ui/default/print.css,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/s5/www/resources/standard/ui/default/print.css	29 Jan 2008 12:03:35 -0000	1.3
+++ openacs-4/packages/s5/www/resources/standard/ui/default/print.css	29 Jan 2008 23:00:12 -0000	1.4
@@ -48,4 +48,8 @@
 div.slide {height: 11.55cm;}
 div.odd {page-break-after: always;}
 div.slide {font-size: 16px; font-family: sans-serif;}
-   */
\ No newline at end of file
+*/
+
+div.slide pre.code {
+    font-size: 60%;
+}
\ No newline at end of file