Changed version number to 0.8.

Display "No data" if not receiving packets.
Permanent label at top of Messages window.
Display green tick marks at startup.
Fix display of quick-decode time.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@482 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

datcom.f90

@@ -1,5 +1,5 @@
 parameter (NSMAX=60*96000)          !Samples per 60 s file
 integer*2 id                        !46 MB: raw data from Linrad timf2
 character*80 fname80
-common/datcom/id(4,NSMAX,2),nutc,newdat2,kbuf,kk,kkdone,nlost,   &
+common/datcom/id(4,NSMAX,2),nutc,newdat2,kbuf,kxp,kk,kkdone,nlost,   &
      nlen,fname80

map65.py

@@ -17,7 +17,7 @@ from types import *
 import array
 
 root = Tk()
-Version="0.7 r" + "$Rev$"[6:-1]
+Version="0.8 r" + "$Rev$"[6:-1]
 print "******************************************************************"
 print "MAP65 Version " + Version + ", by K1JT"
 print "Revision date: " + \
@@ -61,6 +61,7 @@ hisgrid=""
 isec0=-99
 k2txb=IntVar()
 kb8rq=IntVar()
+kxp0=0
 loopall=0
 mode=StringVar()
 mode.set("")
@@ -187,6 +188,8 @@ def messages(event=NONE):
     bm.geometry(bm_geom)
     if g.Win32: bm.iconbitmap("wsjt.ico")
     iframe_bm1 = Frame(bm, bd=1, relief=SUNKEN)
+    Label(iframe_bm1,text='Freq      DF     Pol     UTC').pack(anchor=W, \
+        pady=0,side='top')
     msgtext=Text(iframe_bm1, height=35, width=41, bg="Navy", fg="yellow")
     msgtext.bind('<Double-Button-1>',dbl_click_msgtext)
     msgtext.pack(side=LEFT, fill=X, padx=1, pady=3)
@@ -922,7 +925,7 @@ def GenAltMsgs(event=NONE):
 
 #------------------------------------------------------ update
 def update():
-    global root_geom,isec0,naz,nel,ndmiles,ndkm,nopen, \
+    global root_geom,isec0,naz,nel,ndmiles,ndkm,nopen,kxp0, \
            im,pim,cmap0,isync,isync_save,idsec,first,itol,txsnrdb,tx6alt,\
            bm_geom,bm2_geom
     
@@ -949,6 +952,12 @@ def update():
             options.MyGrid.get().upper(),HisGrid.get().upper(),utchours)
         azdist()
         g.nfreq=nfreq.get()
+        kxp=int(Audio.datcom.kxp)
+        if kxp-kxp0 < 50000:
+            msg5.configure(text='No data',bg='red')
+        else:
+            msg5.configure(bg='gray85')            
+        kxp0=kxp
 
         if Audio.gcom2.ndecoding==0:
             g.AzSun,g.ElSun,g.AzMoon,g.ElMoon,g.AzMoonB,g.ElMoonB,g.ntsky, \
@@ -1105,8 +1114,6 @@ def update():
                 lines=""
             msgtext.configure(state=NORMAL)
             msgtext.delete('1.0',END)
-            msgtext.insert(END,'Freq  DF Pol  UTC\n')
-            msgtext.insert(END,'----------------------------------------\n')
             for i in range(len(lines)):
                 try:
                     nage=int(lines[i][41:])

map65a.F90

@@ -254,12 +254,14 @@ subroutine map65a(newdat)
         iloop=iloop+1
         go to 1
      endif
-     write(11,*) '$EOF'
-     call flushqqq(11)
-     ndecdone=1
-     t2=sec_midn()
-     if(ndebug.eq.2) write(*,3002) mod(int(t2),60)
-3002 format('mod65a  2:'i8.2)
+     if(nqd.eq.1) then
+        write(11,*) '$EOF'
+        call flushqqq(11)
+        ndecdone=1
+        t2=sec_midn()
+        if(ndebug.eq.2) write(*,3002) mod(int(t2),60)
+3002    format('mod65a  2:'i8.2)
+     endif
      if(nagain.eq.1) go to 999
   enddo
 

recvpkt.F90

@@ -76,6 +76,7 @@ subroutine recvpkt(iarg)
   enddo
   sqave=sqave + u*(sq-sqave)
   rxnoise=10.0*log10(sqave) - 48.0
+  kxp=k
 
   if(mode.eq.'Measur') then
      npkt=npkt+1

specjt.py

@@ -289,7 +289,7 @@ def update():
         nfreeze0=int(Audio.gcom2.nfreeze)
 
     if g.mode!=mode0:
-        draw_axis()
+        df_mark()                        ### was draw_axis()
         mode0=g.mode
 
     if nmark.get()!=nmark0: