amigan
/
beartkat
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First commit in years! 

Added fake option...confirmed works on osx
This commit is contained in:
dcp1990 2008-07-21 15:16:23 +00:00
parent aa1471eace
commit 41978869b6
2 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/beartkat.tcl
View File

@ -1,6 +1,6 @@
#!/usr/local/bin/wish8.4
# under the DUPL
# $Amigan: beartkat/src/beartkat.tcl,v 1.13 2005/05/31 21:13:51 dcp1990 Exp $
# $Amigan: beartkat/src/beartkat.tcl,v 1.14 2008/07/21 15:16:23 dcp1990 Exp $
# (C)2004-2005, Dan Ponte
#YA!!!
#package require wcb
@ -10,6 +10,11 @@ set version 0.3
set tries 1
set gotresp no
set donthandle no
if {[expr {$argc == 1} && {[lindex $argv 0] == "-r"}]} {
set realmode false
} else {
set realmode true
}
proc setalpha {chan tag fhh mde} {
if {[expr [string length $chan] != 3]} {
return
@ -36,7 +41,7 @@ proc aboutbox {} {
frame .abtbox.btn
pack .abtbox.btn -side bottom -fill x
label .abtbox.msg.icon -bitmap info
label .abtbox.msg.mess -text "BearTKat v$version - a scanner control app for the BC250D and other radios\n(C)2004-2005, Dan Ponte. Licensed under the DUPL.\nA copy of the DUPL should have been included with this application. If not, write dcp1990@neptune.atopia.net.\nPortions (specifically the control protocol) are copyright (C)2003,2004 Uniden America, Inc.\nThis product is not endorsed by or affiliated with Uniden.\nThe \"Bearcat\" logo and the Bearcat name are property of Uniden America and are trademarked.\n\$Amigan: beartkat/src/beartkat.tcl,v 1.13 2005/05/31 21:13:51 dcp1990 Exp $\nhttp://www.theamigan.net/beartkat.html" -justify left
label .abtbox.msg.mess -text "BearTKat v$version - a scanner control app for the BC250D and other radios\n(C)2004-2005, Dan Ponte. Licensed under the DUPL.\nA copy of the DUPL should have been included with this application. If not, write dcp1990@neptune.atopia.net.\nPortions (specifically the control protocol) are copyright (C)2003,2004 Uniden America, Inc.\nThis product is not endorsed by or affiliated with Uniden.\nThe \"Bearcat\" logo and the Bearcat name are property of Uniden America and are trademarked.\n\$Amigan: beartkat/src/beartkat.tcl,v 1.14 2008/07/21 15:16:23 dcp1990 Exp $\nhttp://www.theamigan.net/beartkat.html" -justify left
pack .abtbox.msg.icon -side left
pack .abtbox.msg.mess
button .abtbox.btn.ok -text "Ok" -command {destroy .abtbox}
@ -218,8 +223,12 @@ source dumpmem.tcl
source loadfreqs.tcl
source chanedit.tcl
wm geometry . "=200x100"
set fhn [ open $btkConfig::ttydev "r+" ]
fconfigure $fhn -mode $btkConfig::baudrate,n,8,1 -blocking no
if { $realmode } {
set fhn [ open $btkConfig::ttydev "r+" ]
fconfigure $fhn -mode $btkConfig::baudrate,n,8,1 -blocking no
} else {
set fhn 0
}
wm title . "BearTkat v$version"
frame .mfr -borderwidth 2 -width 102c -height 30c
grid .mfr -sticky wwwwwnnnnn -row 0 -column 0
@ -308,7 +317,9 @@ button .disp.butk.dec -text "." -command {sendcommand "KEY03"}
button .disp.butk.kn0 -text "0" -command {sendcommand "KEY02 0"}
button .disp.butk.enter -text "E" -command {sendcommand KEY04}
grid .disp.butk.dec .disp.butk.kn0 .disp.butk.enter -sticky we
fileevent $fhn readable {handlefile $fhn}
if {$realmode} {
fileevent $fhn readable {handlefile $fhn}
}
set tx .freq.outp
toplevel .freq
wm title .freq "Frequencies"

20
src/scommand.tcl
View File

@ -3,16 +3,24 @@ proc scommand {command} {
global fhn
global lastin
global lastcmd
puts $fhn $command
flush $fhn
global realmode
set lastcmd $command
vwait lastin
return $lastin
if {$realmode} {
puts $fhn $command
flush $fhn
vwait lastin
return $lastin
} else {
return OK
}
}
proc sendcommand {cmd} {
global lastcmd
global fhn
puts $fhn $cmd
flush $fhn
global realmode
set lastcmd $cmd
if {$realmode} {
puts $fhn $cmd
flush $fhn
}
}