Posted to tcl by bjorkintosh at Wed Apr 04 14:11:55 GMT 2012view raw

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