You cannot run a modeless dialog from QuickWin's PROGRAM (or any routine it calls). You can do that from a menu callback though.
Depending on what you want to achieve (it isn't clear from the code), you can:
1) Run it as a modal dialog (but you cannot do a calculation simultaneously in that case)
2) Run it from a callback. You can sync the callback and calculation (in PROGRAM or its descendant routine e.g. using a global logical variable):
program x
logical bCalcStart
common bCalcStart
...
bCalcStart = .false.
...
do while (.true.)
if (bCalcStart) then
do i=1,100000000
...
end do
bCalcStart = .false.
else
call sleepqq(0)
end if
end do
end program x
Somewhere in the menu/dialog callback, set up the bCalcStart to .true. -- the calculation will start running in the secondary thread.
3) You can use similar technique as in 2), but you can run the dialog (more precisely, invoke the menu callback) automatically using subclassing technique as shown in
QWToolbar sample.
Jugoslav
