mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-09 06:46:39 -04:00
bda874be89
Double-clicks on 73 messages fixed. Fixed issue with incorrect decode being selected by double-click. Refined auto-sequencing sign off handling, any 73 or rr73 free text near Rx or Tx frequency taken as a 73 from QSO partner but if a standard message then must be from QSO partner. Moved functionality from MainWindow to DecodedText class. More efficient picking of messages from decoded text windows by extracting the text block directly. Tighten up use of RR73 and skipping Tx1, these are now disabled for relevant compound calls where they would break the QSO exchange. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8056 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
13 lines
247 B
Fortran
13 lines
247 B
Fortran
logical*1 function stdmsg(msg0)
|
|
|
|
use packjt
|
|
character*22 msg0,msg
|
|
integer dat(12)
|
|
|
|
call packmsg(msg0,dat,itype)
|
|
call unpackmsg(dat,msg)
|
|
stdmsg=(msg.eq.msg0) .and. (itype.ge.0) .and. itype.ne.6
|
|
|
|
return
|
|
end function stdmsg
|