Posted to tcl by bjorkintosh at Thu Apr 19 20:50:09 GMT 2012view raw
- package require Tk
- package require comm
- set nixdevice [glob /dev/ttyACM*]
- set windevice {com3 com4 com5 com6 com7 com8 com9}
- if {[lindex $tcl_platform(os)] == "Linux"} {
- if {[expr [llength $nixdevice] == 1]} {
- set commport [open $nixdevice r+]
- } else {
- pack [spinbox .dev -width 10 -textvariable devport1 -values $nixdevice]
- set commport [open $devport1 r+]
- }
- } else {
- pack [spinbox .dev -width 10 -textvariable devport1 -values $windevice]
- set commport [open $devport1 r+]
- }