27 lines
1 KiB
Tcl
27 lines
1 KiB
Tcl
|
#!/usr/local/bin/wish8.4
|
||
|
|
# Change the open line below to reference your serial device.
|
||
|
|
proc every {ms body} { eval $body; after $ms [ info level 0] }
|
||
|
|
proc dowhatnot fhh {
|
||
|
|
puts -nonewline $fhh "D"
|
||
|
|
flush $fhh
|
||
|
|
}
|
||
|
|
set fhn [ open "/dev/cuaa0" "r+" ]
|
||
|
|
fconfigure $fhn -mode 1200,n,7,2 -handshake none -ttycontrol {RTS 0}
|
||
|
|
frame .rc -borderwidth 2 -width 80c -height 24c
|
||
|
|
pack .rc
|
||
|
|
wm title . "RSMeter"
|
||
|
|
frame .mnubar -relief raised -bd 2
|
||
|
|
pack .mnubar -in .rc -fill x -expand yes
|
||
|
|
menubutton .mnubar.file -underline 0 -text "File" -menu .mnubar.file.menu
|
||
|
|
pack .mnubar.file -side left
|
||
|
|
menubutton .mnubar.help -underline 0 -text "Help" -menu .mnubar.help.menu
|
||
|
|
pack .mnubar.help -side right
|
||
|
|
label .rc.slb -width 24 -height 2
|
||
|
|
pack .rc.slb
|
||
|
|
menu .mnubar.file.menu
|
||
|
|
.mnubar.file.menu add command -label "Exit" -command {close $fhn; exit }
|
||
|
|
menu .mnubar.help.menu
|
||
|
|
.mnubar.help.menu add command -label "About" -command {message .msg -text "RSMeter.\n(C)2004, Dan Ponte" }
|
||
|
|
fileevent $fhn readable {.rc.slb configure -text [gets $fhn] }
|
||
|
|
every 1000 [list dowhatnot $fhn]
|