Evaluated proc depends_list name { if {[info proc $name] != ""} { set ok [lweed [regexp -all -inline {\[(.+?)( |])} [inspect $name]] 1]; set out [list]; foreach item $ok { if {[info proc $item] != ""} {lappend out $item} }; . $out}}