Posted to tcl by aku at Fri Nov 09 19:04:38 GMT 2012view pretty
proc ::critcl::at::SHOWFRAMES {level {all 1}} { set n [info frame] set i 0 set id 1 while {$n} { ::critcl::msg "[expr {$level == $id ? "**" : " "}] frame [format %3d $id]: [info frame $i]" ::incr i -1 ::incr id -1 ::incr n -1 if {($level > $id) && !$all} break } return }