1proc GetEvents {} { 2 .events.text delete 0.0 end 3 set fd [open "| ./client localhost:7000 events" "r"] 4 while {[gets $fd line] > 0} { 5 .events.text insert end "\n" 6 .events.text insert end $line 7 } 8 catch {close $fd} 9 .events.text delete 0.0 2.0 10} 11