if {[catch {eval $cmd $args}] == 0} {
return ""
} else {
- set errmsg "Command handler execution failed"
+ # 'classic' commands output error message as part of progress output
+ set errmsg ""
}
} else {if {$type == "group"} {
- catch {eval ocd_help $name $args}
+ catch {eval ocd_usage $name $args}
set errmsg [format "%s: command requires more arguments" \
[concat $name " " $args]]
} else {
#########
-# catch any exceptions, capture output and return output
-proc capture_catch {a} {
- catch {
- capture {uplevel $a}
- } result
- return $result
-}