#! ../blt_wish -f

proc beforeWatch { level cmdStr argList } {
    set cmd [lindex $argList 0]
    puts stderr "$level $cmd => $cmdStr"
}
proc beforeWatch { level cmdStr argList } {
}
proc afterWatch { level cmdStr argList code results } {
    set cmd [lindex $argList 0]
    puts stderr "$level $cmd => $argList\n<= ($code) $results"
}

blt_watch create trace -postcmd afterWatch 
#-before beforeWatch