Posted to tcl by kostix at Fri Dec 01 19:20:29 GMT 2006view raw

  1. proc get_caller {{level 1}} {
  2. if {[info level] < 3} {
  3. return {}
  4. } else {
  5. incr level
  6. uplevel $level {namespace which -command [lindex [info level 0] 0]}
  7. }
  8. }
  9.