Index: openacs-4/packages/acs-templating/tcl/table-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/table-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/table-procs.tcl	15 Oct 2003 12:35:51 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/table-procs.tcl	29 Jul 2006 02:01:39 -0000	1.6
@@ -50,7 +50,13 @@
 namespace eval template::widget::table {}
 
 
-ad_proc -public template::widget::table::create { statement_name name args } {
+ad_proc -public template::widget::table::create {
+  statement_name
+  name
+  args
+} {
+  Create a table widget
+} {
 
   upvar "tablewidget:${name}" widget
 
@@ -60,16 +66,24 @@
   template::widget::table::prepare $statment_name $name 2
 }
 
-# Get the order by clause for the widget, other parameters (?)
-ad_proc -public template::widget::table::get_params { name {level 1} } {
+ad_proc -public template::widget::table::get_params {
+  name
+  {level 1}
+} {
+  Get the order by clause for the widget, other parameters (?)
+} {
   
   upvar $level "tablewidget:${name}" widget
 
   set widget(orderby) [ns_queryget "tablewidget:${name}_orderby"]
 }
 
-# Create the default column definition if none exists
-ad_proc -public template::widget::table::default_column_def { name { level 2} } {
+ad_proc -public template::widget::table::default_column_def {
+  name
+  { level 2}
+} {
+  Create the default column definition if none exists
+} {
 
   upvar $level "tablewidget:${name}" widget
 
@@ -88,8 +102,13 @@
   }
 }
 
-# Compose the query, if neccessary, and define the datasources
-ad_proc -public template::widget::table::prepare { statement_name name {level 1} } {
+ad_proc -public template::widget::table::prepare {
+  statement_name
+  name
+  {level 1}
+} {
+  Compose the query, if neccessary, and define the datasources
+} {
   
   upvar $level "tablewidget:${name}" widget