Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	16 Apr 2007 11:30:51 -0000	1.1
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	8 Aug 2007 09:57:16 -0000	1.2
@@ -27,6 +27,15 @@
 }
 
 ::xotcl::Object create ::xotcl::api \
+    -proc method_link {obj kind method} {
+      set kind [string trimright $kind s]
+      set proc_index [::xotcl::api proc_index "" $obj $kind $method]
+      if {[nsv_exists api_proc_doc $proc_index]} {
+        return "<a href='/api-doc/proc-view?proc=[ns_urlencode $proc_index]'>$method</a>"
+      } else {
+        return $method
+      }
+    } \
     -proc isclass {scope obj} {
       expr {$scope eq "" ? 
             [::xotcl::Object isclass $obj] :