mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-15 16:42:12 -05:00
9a2bb37a91
preventing double-click on a JT65 "OOO" message from populating message fields. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8143 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
22 lines
542 B
Fortran
22 lines
542 B
Fortran
function stdmsg(msg0,bcontest,mygrid)
|
|
|
|
! Is msg0 a standard "JT-style" message?
|
|
|
|
use iso_c_binding, only: c_bool
|
|
use packjt
|
|
character*22 msg0,msg1,msg
|
|
character*6 mygrid
|
|
integer dat(12)
|
|
logical(c_bool), value :: bcontest
|
|
logical(c_bool) :: stdmsg
|
|
|
|
msg1=msg0
|
|
i0=index(msg1,' OOO ')
|
|
if(i0.gt.10) msg1=msg0(1:i0)
|
|
call packmsg(msg0,dat,itype,logical(bcontest))
|
|
call unpackmsg(dat,msg,logical(bcontest),mygrid)
|
|
stdmsg=(msg.eq.msg1) .and. (itype.ge.0) .and. itype.ne.6
|
|
|
|
return
|
|
end function stdmsg
|