Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -r1.16 -r1.17 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 May 2004 15:14:42 -0000 1.16 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 7 Feb 2005 10:29:14 -0000 1.17 @@ -494,9 +494,9 @@ } if { [llength $doc_elements(switches)] > 0 } { - append out "
Switches:
\n" + append out "
Switches:
\n" foreach switch $doc_elements(switches) { - append out "-$switch" + append out "
-$switch" if { [lsearch $flags($switch) "boolean"] >= 0 } { append out " (boolean)" } @@ -511,13 +511,12 @@ } else { append out " (optional)" } - + append out "
" if { [info exists params($switch)] } { - append out " - $params($switch)" + append out "
$params($switch)
" } - append out "
\n" } - append out "
\n" + append out "\n" } if { [llength $doc_elements(positionals)] > 0 } {