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 -r1.31 -r1.32
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 28 Oct 2024 17:19:58 -0000 1.31
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 29 Oct 2024 16:40:12 -0000 1.32
@@ -181,7 +181,7 @@
if {[nsv_exists api_proc_doc $proc_index]} {
return "$label"
} else {
- if {[::xo::getObjectProperty $obj $kind $method] eq ""} {
+ if {[::apidoc::get_object_property $obj $kind $method] eq ""} {
return $methodC
} else {
return $method
@@ -205,14 +205,14 @@
#
# Check, whether the passed in obj is a class
#
- :scope_eval $scope xo::getObjectProperty $obj isclass
+ :scope_eval $scope apidoc::get_object_property $obj isclass
}
:public object method isobject {scope obj} {
#
# Check, whether the passed in obj is an object
#
- :scope_eval $scope xo::getObjectProperty $obj isobject
+ :scope_eval $scope apidoc::get_object_property $obj isobject
}
:public object method scope {} {
@@ -524,9 +524,9 @@
# Obtain a doc-string for a method, convert it and add it to the
# proc-doc.
#
- set methodType [::xo::getObjectProperty $obj ${inst}methodtype $proc_name]
+ set methodType [::apidoc::get_object_property $obj ${inst}methodtype $proc_name]
set varargs_p [expr {$methodType eq "scripted"
- && "args" in [::xo::getObjectProperty $obj ${inst}args $proc_name]}]
+ && "args" in [::apidoc::get_object_property $obj ${inst}args $proc_name]}]
set doc [dict create \
param "" \
@@ -551,13 +551,13 @@
dict set doc positionals {}
} else {
set defaults [list]
- foreach a [::xo::getObjectProperty $obj ${inst}args $proc_name] {
- if {[::xo::getObjectProperty $obj ${inst}argdefault $proc_name $a d]} {
+ foreach a [::apidoc::get_object_property $obj ${inst}args $proc_name] {
+ if {[::apidoc::get_object_property $obj ${inst}argdefault $proc_name $a d]} {
lappend defaults $a $d
}
}
- foreach def [::xo::getObjectProperty $obj ${inst}methodparameter $proc_name] {
+ foreach def [::apidoc::get_object_property $obj ${inst}methodparameter $proc_name] {
lassign $def f default
set pair [split [lindex $f 0 0] :]
lassign $pair flaggedName flags
@@ -584,7 +584,7 @@
}
}
dict set doc default_values $defaults
- dict set doc positionals [::xo::getObjectProperty $obj ${inst}args $proc_name]
+ dict set doc positionals [::apidoc::get_object_property $obj ${inst}args $proc_name]
}
# argument documentation finished