Since updating to Ver 8.74 (from Ver 8.6) My menu based %gr program does not terminate cleanly. When selecting exit, it has started giving an error that a file unit was not opened. ' Unit has neither been OPENed nor preconnected at address 1a009481' in MOUSE_BACK_FUNC at address 112'
I investigated my exit routine integer4 function exit_func() ! ! integer4 :: i ! i = winio@ ('Exit function called.&') ! i = winio@ ('%nl%cn%bt[OK]') ! call call_back_statistics (' ', -1) ! call close_output_window close (unit=98) ! call report_memory_usage ('last call on exit from saplot') close (unit=117) ! ! Setting the return value to zero will exit the program. ! exit_func = 0 end function exit_func
I first tried moving the close, then commented them out, only to change the response to; If selecting the menu option 'Exit' the program does not terminate, but If selecting top right X, the program does close. I am not sure what is the explanation.
I select the menu Exit with:
integer*4, external :: exit_func
..
i = winio@ ('%mn[[E&xit]]&', exit_func)
Old versions of .exe also now don't work normally, as the are using the new clearwin64.dll Any suggestions where to look ?
I could install Ver 8.8 and see what happens ?