Killing a running process

Hello group,

I run the following code which creates mutiple processes:

proc Run1 {command log} {
    set fd [open |$command]
    $log insert end $command\n
    fileevent $fd readable [list Log1 $fd $log]
    vwait done
  }

  proc Log1 {fd log} {
    if {[eof $fd]} {
      close $fd
      set done 1
      return
    }
    gets $fd line
    $log insert end $line\n
    $log see end
  }

How do I kill any running processes on the channel in use without
making globals? I would like to capture Control-c to be able to do
this in wish.

Thanks in advance

-Al
Received on Sun Apr 30 02:22:43 2006