#!/usr/bin/wish

load /home/tshanks/build/hamlib-3.2~git/./bindings/.libs/hamlibtcl-3.1.so Hamlib
rig_set_debug $RIG_DEBUG_TRACE ; # or $RIG_DEBUG_NONE
Rig rig $RIG_MODEL_IC7100
rig set_conf rig_pathname /dev/ttyUSB0
rig set_conf serial_speed 19200
rig set_conf timeout 1234
rig set_conf retry 4
rig open

set c10 [font create -family Courier -size 10 -weight bold]
set c12 [font create -family Courier -size 12 -weight bold]
set c14 [font create -family Courier -size 14 -weight bold]
set c16 [font create -family Courier -size 16 -weight bold]
set c18 [font create -family Courier -size 18 -weight bold]
set c20 [font create -family Courier -size 20 -weight bold]


#button .hello -text {Hello World} -command exit
#.hello configure -width 500 -height 200

canvas .c -height 600 -width 800

#pack .hello
pack .c
bind . {<Key q>} exit

.c create text 20 30 -anchor nw -text @ -tags mode -font $c10

.c create rectangle 10 10 90 90 -tags One -fill green
.c create text 50 120 -anchor nw -text @ -tags RFPOWER -font $c10
.c create text 50 170 -anchor nw -text @ -tags SWR -font $c16
.c create text 50 220 -anchor nw -text @ -tags freq -font $c20
.c create text 50 270 -anchor nw -text @ -tags RF -font $c10
.c create text 50 320 -anchor nw -text @ -tags PBT_IN -font $c16
.c create text 50 350 -anchor nw -text @ -tags PBT_OUT -font $c16


puts "font names [font names]"
#exit

proc GetFreq {} {
  global RIG_VFO_A
  .c itemconfigure freq -text [format {%.3f} [expr {[rig get_freq $RIG_VFO_A]/1000.0}]]
  .c itemconfigure RFPOWER -text [rig get_level_f RFPOWER]
  .c itemconfigure SWR -text [rig get_level_f SWR]
  .c itemconfigure RF -text [rig get_level_f RF]
  .c itemconfigure mode -text [rig get_mode]
  .c itemconfigure PBT_IN -text [rig get_level_f PBT_IN]
  .c itemconfigure PBT_OUT -text [rig get_level_f PBT_OUT]
  


  after 100 GetFreq
}
after 100 GetFreq