Posted to tcl by aku at Fri Nov 09 19:04:38 GMT 2012view raw

  1. proc ::critcl::at::SHOWFRAMES {level {all 1}} {
  2. set n [info frame]
  3. set i 0
  4. set id 1
  5. while {$n} {
  6. ::critcl::msg "[expr {$level == $id ? "**" : " "}] frame [format %3d $id]: [info frame $i]"
  7. ::incr i -1
  8. ::incr id -1
  9. ::incr n -1
  10. if {($level > $id) && !$all} break
  11. }
  12. return
  13. }
  14.