#!/usr/bin/wish
#
# tkradio - choose a radio station on a host w/a wintv fm tuner card
#
# dave@grox.net - Fri Jul 12 03:33:22 EDT 2002
#
############################################################

#################################
# GLOBAL VARIABLES
#
set host ibm
set stn wskg
set cmd 90.9
set mute 1

#################################
# USER DEFINED PROCEDURES
#
proc doit {host cmd mute} {
	global theHost
	set off ""
	if { $mute == 1 } { set off " -m" }
	exec ssh $host "/usr/bin/radio -q -f $cmd$off" 2>/dev/null
}

wm title . "Radio"
frame .ftop
menubutton .ftop.menubtn -menu .ftop.menubtn.m -relief raised -text Stations
menu .ftop.menubtn.m
foreach stn { wskg wicb wvbr lite97-wixl pop country hiphop } \
	freq { 90.9 91.7 93.5 97.3 98.5 103.7 106.9 } {
	.ftop.menubtn.m add command -label $stn -command "set cmd $freq ; set stn $stn"
}
entry .ftop.e -textvariable stn -width 10 -background black -foreground cyan
frame .fmid -relief ridge -border 2
button .fmid.bdoit -text Tune  -command { doit $host $cmd $mute}
checkbutton .fmid.r -text "mute server" -variable mute
pack .ftop
pack .ftop.menubtn -side left
pack .ftop.e -side right

pack .fmid
pack .fmid.bdoit -side left
pack .fmid.r -side right

button .bon -text On -command { exec /home/dave/bin/radio & }
button .boff -text Off -command { exec killall nc >/dev/null 2>/dev/null }
button .bexit -text Exit -command exit

pack .bon -side left
pack .boff -side left
pack .bexit -side right

bind . <Return> { doit $host $cmd $mute}
bind . <KP_Enter> { doit $host $cmd $mute}
bind . <Escape> exit