This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc ::xotcl::info_default {scope o method arg varName} {
foreach argName [$o ::nsf::methods::${scope}::info::method args $method] flag [$o ::nsf::methods::${scope}::info::method parameter $method] {
if {$argName eq $arg} {
# we are in a proc, so using built-in "upvar" is safe
::upvar $varName default
if {[llength $flag] == 2} {
set default [lindex $flag 1]
#puts "--- get $scope default for $o $method $arg => setting default to '$default'"
return 1
}
#puts "--- get $scope default for $o $method $arg fails"
set default ""
return 0
}
}
error "procedure \"$method\" doesn't have an argument \"$arg\""
}
