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::method_handle_to_xotcl {methodHandle} {
set definition [::nx::Object info method definition $methodHandle]
#puts "method_handle_to_xotcl raw definition '$methodHandle' // $definition"
if {$definition ne ""} {
set obj [lindex $definition 0]
set modifier [lindex $definition 2]
if {$modifier eq "object"} {
set prefix ""
set kind [lindex $definition 3]
set name [lindex $definition 4]
} else {
set prefix [expr {[::nsf::is class $obj] ? "inst" : ""}]
set kind $modifier
set name [lindex $definition 3]
}
if {$kind eq "method"} {
set kind proc
} elseif {$kind eq "setter"} {
set kind parametercmd
} elseif {$kind eq "alias"} {
set kind "cmd"
set name [lindex $definition 3]
}
set definition [list [lindex $definition 0] ${prefix}$kind $name]
}
#puts "method_handle_to_xotcl gets handle '$methodHandle' // $definition"
return $definition
}
