set ucmd [ta_word]
set procname ucmd/[string tolower $ucmd]
if {[catch { info body $procname }]} {
- usererror "Unknown command; try help for help."
+ usererror "Unknown command; try help for Help."
}
$procname $p $dest
}
proc ucmd/$cmdname {p dest} " upvar 1 text text\n$body"
}
+proc def_ucmd_alias {alias canon} {
+ proc ucmd/$alias {p dest} " uplevel 1 \[list ucmd/$canon \$p \$dest\]\n"
+}
+
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}