Max size of several widgets made larger to accommodate people who set

system fonts larger than the default.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3152 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2013-04-10 18:00:33 +00:00
parent c652a0338f
commit bd7f680e84
3 changed files with 49 additions and 37 deletions
+7 -7
View File
@@ -34,23 +34,23 @@ subroutine decoder(ss,c0)
if(ntrMinutes.eq.1) then
nsps=6912
df3=1500.0/2048.0
fmt='(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22)'
fmt='(i4.4,i4,i5,f6.1,f8.0,i4,3x,a18)'
else if(ntrMinutes.eq.2) then
nsps=15360
df3=1500.0/2048.0
fmt='(i4.4,i4,i5,f6.1,f8.1,i4,3x,a22)'
fmt='(i4.4,i4,i5,f6.1,f8.1,i4,3x,a18)'
else if(ntrMinutes.eq.5) then
nsps=40960
df3=1500.0/6144.0
fmt='(i4.4,i4,i5,f6.1,f8.1,i4,3x,a22)'
fmt='(i4.4,i4,i5,f6.1,f8.1,i4,3x,a18)'
else if(ntrMinutes.eq.10) then
nsps=82944
df3=1500.0/12288.0
fmt='(i4.4,i4,i5,f6.1,f8.2,i4,3x,a22)'
fmt='(i4.4,i4,i5,f6.1,f8.2,i4,3x,a18)'
else if(ntrMinutes.eq.30) then
nsps=252000
df3=1500.0/32768.0
fmt='(i4.4,i4,i5,f6.1,f8.2,i4,3x,a22)'
fmt='(i4.4,i4,i5,f6.1,f8.2,i4,3x,a18)'
endif
if(nsps.eq.0) stop 'Error: bad TRperiod' !Better: return an error code###
@@ -133,8 +133,8 @@ subroutine decoder(ss,c0)
nsnr=nint(snrdb)
ndrift=nint(drift/df3)
if(msg.ne.' ') then
write(*,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg
write(13,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg
write(*,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg(1:18)
write(13,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg(1:18)
fgood=f
nsynced=1
ndecoded=1