Posted to tcl by simple at Thu Aug 30 19:13:44 GMT 2007view raw
- proc sourcetcl { n u h c a } {
- set filename [string trim [lindex $a 0].tcl]
- catch { set variable [source scripts/$filename] } variable
- putlog "DEBUG: sourcing returned this: $variable"
- if {[string match *no*such*or*directory* $variable]} {
- putnotc $n "Could not reload $filename"
- return 1
- }
- if {[string match *Tcl*error* $variable]} {
- putnotc $n "Please check DCC window"
- return 1
- }
- putnotc $n "Reloaded $filename"
- return 0
- }