repo.or.cz
/
tomato.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
UPS: apcupsd clean sources
[tomato.git]
/
release
/
src
/
router
/
apcupsd
/
examples
/
gui
/
events.tcl
blob
4d96883871591185bae4637d82c16e07a710638e
1
proc
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
}