Posted to tcl by bjorkintosh at Wed Apr 04 14:11:55 GMT 2012view raw
- 1 package require Tk
- 2 package require img::jpeg
- 3 set comm [open /dev/ttyACM0 r+]
- 4 chan configure $comm -mode -9600,n,8,1 -blocking 0 -buffering none
- 5
- 6 proc Reader {fid} {
- 7 global done
- 8 if {[eof $fid]} {
- 9 catch {close $fid}
- 10 set done 1
- 11 return
- 12 }
- 13 gets $fid line
- 14 puts $line
- 15 }
- 16 chan event $comm readable [pack [label .lbb -text [Reader $comm]]]
- 17 vwait done