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