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.80 -r1.81 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 22 Oct 2024 13:44:14 -0000 1.80 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 25 Oct 2024 12:19:44 -0000 1.81 @@ -5,7 +5,6 @@ @author Jon Salz (jsalz@mit.edu) @author Lars Pind (lars@arsdigita.com) @creation-date 21 Jun 2000 - @cvs-id $Id$ } @@ -651,10 +650,33 @@ svg g g polygon {fill: #f4f4e4;} } - set callgraph [util::inline_svg_from_dot -css $css \ - [api_call_graph_snippet -proc_name $proc_name -maxnodes 5]] - if {$callgraph ne ""} { - append blocks_out "
+ } } append blocks_out "+ foreach m [$objName info lookup methods -callprotection public -source application] { + set methodSyntax "$objName $m [$objName info lookup syntax $m]" + set definition [nx::Object info method definition [$objName info lookup method $m]] + set containerObject [lindex $definition 0] + if {$containerObject ne $objName} { + # + # The method is defined on a class + # + set methodSyntax [xo::api method_link -label $methodSyntax $containerObject instproc $m] + } + append blocks_out "
- $methodSyntax
\n" + } + append blocks_out