Posted to tcl by bjorkintosh at Thu Apr 19 20:50:09 GMT 2012view raw

  1. package require Tk
  2. package require comm
  3. set nixdevice [glob /dev/ttyACM*]
  4. set windevice {com3 com4 com5 com6 com7 com8 com9}
  5.  
  6. if {[lindex $tcl_platform(os)] == "Linux"} {
  7. if {[expr [llength $nixdevice] == 1]} {
  8. set commport [open $nixdevice r+]
  9. } else {
  10. pack [spinbox .dev -width 10 -textvariable devport1 -values $nixdevice]
  11. set commport [open $devport1 r+]
  12. }
  13. } else {
  14. pack [spinbox .dev -width 10 -textvariable devport1 -values $windevice]
  15. set commport [open $devport1 r+]
  16. }