mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-06-26 23:15:21 -04:00
Complete the handling of SuperFox text messages.
This commit is contained in:
parent
c652763932
commit
cf4167ea2d
@ -34,20 +34,18 @@ subroutine foxgen(bSuperFox,fname)
|
|||||||
equivalence (x,cx),(y,cy)
|
equivalence (x,cx),(y,cy)
|
||||||
|
|
||||||
if(bSuperFox) then
|
if(bSuperFox) then
|
||||||
|
n=nslots
|
||||||
if(bMoreCQs) cmsg(1)(40:40)='1' !Set flag to include a CQ
|
if(bMoreCQs) cmsg(1)(40:40)='1' !Set flag to include a CQ
|
||||||
! print*,'A',bMoreCQs,bSendMsg,nslots,textMsg
|
|
||||||
if(bSendMsg) then
|
if(bSendMsg) then
|
||||||
cmsg(1)(39:39)='1' !Set flag for text message
|
|
||||||
n=min(nslots+1,3)
|
n=min(nslots+1,3)
|
||||||
cmsg(n)=textMsg
|
cmsg(n)=textMsg
|
||||||
! do i=1,n
|
cmsg(n)(39:39)='1' !Set flag for text message
|
||||||
! print*,'CC',i,cmsg(i)
|
nslots=n
|
||||||
! enddo
|
|
||||||
endif
|
endif
|
||||||
open(25,file=fname,status='unknown')
|
open(25,file=fname,status='unknown')
|
||||||
write(25,'(a40)') cmsg(1:nslots)
|
write(25,'(a40)') cmsg(1:n)
|
||||||
close(25)
|
close(25)
|
||||||
return
|
go to 999
|
||||||
endif
|
endif
|
||||||
|
|
||||||
fstep=60.d0
|
fstep=60.d0
|
||||||
@ -87,7 +85,7 @@ subroutine foxgen(bSuperFox,fname)
|
|||||||
peak3=maxval(abs(wave))
|
peak3=maxval(abs(wave))
|
||||||
wave=wave/peak3
|
wave=wave/peak3
|
||||||
|
|
||||||
return
|
999 return
|
||||||
end subroutine foxgen
|
end subroutine foxgen
|
||||||
|
|
||||||
! include 'plotspec.f90'
|
! include 'plotspec.f90'
|
||||||
|
@ -9884,7 +9884,10 @@ void MainWindow::on_pbFreeText_clicked()
|
|||||||
bool ok;
|
bool ok;
|
||||||
m_freeTextMsg = QInputDialog::getText (this, tr("Free Text Message"),
|
m_freeTextMsg = QInputDialog::getText (this, tr("Free Text Message"),
|
||||||
tr("Message:"), QLineEdit::Normal, m_freeTextMsg0, &ok);
|
tr("Message:"), QLineEdit::Normal, m_freeTextMsg0, &ok);
|
||||||
if(ok) m_freeTextMsg0=m_freeTextMsg;
|
if(ok) {
|
||||||
|
m_freeTextMsg=m_freeTextMsg.toUpper();
|
||||||
|
m_freeTextMsg0=m_freeTextMsg;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void MainWindow::on_comboBoxHoundSort_activated(int index)
|
void MainWindow::on_comboBoxHoundSort_activated(int index)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user