Posted to tcl by kostix at Fri Dec 01 19:20:29 GMT 2006view pretty
proc get_caller {{level 1}} { if {[info level] < 3} { return {} } else { incr level uplevel $level {namespace which -command [lindex [info level 0] 0]} } }
proc get_caller {{level 1}} { if {[info level] < 3} { return {} } else { incr level uplevel $level {namespace which -command [lindex [info level 0] 0]} } }