Posted to tcl by simple at Thu Aug 30 19:13:44 GMT 2007view raw

  1. proc sourcetcl { n u h c a } {
  2. set filename [string trim [lindex $a 0].tcl]
  3. catch { set variable [source scripts/$filename] } variable
  4. putlog "DEBUG: sourcing returned this: $variable"
  5. if {[string match *no*such*or*directory* $variable]} {
  6. putnotc $n "Could not reload $filename"
  7. return 1
  8. }
  9. if {[string match *Tcl*error* $variable]} {
  10. putnotc $n "Please check DCC window"
  11. return 1
  12. }
  13. putnotc $n "Reloaded $filename"
  14. return 0
  15. }