Posted to tcl by dkf at Wed Apr 04 14:18:08 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. pack [label .lbb -textvariable accumulator]
  7.  
  8. proc Reader {fid} {
  9. global done accumulator
  10. gets $fid line
  11. if {[eof $fid]} {
  12. catch {close $fid}
  13. set done 1
  14. return
  15. }
  16. puts $line
  17. append accumulator "\n$line"
  18. }
  19. chan event $comm readable [list Reader $comm]
  20. vwait done