We have a Salford application which creates a window using the format code '%gr'. In the callback corresponding to '%gr' we retrieve and print out the mouse position as soon as the mouse pointer is moved (making use of function get_mouse_info@ (32 bit) or get_mouse_info$ (64 bit)).
This works properly for Salford 32 bit compile environment and for the 64 bit compile environments gFortran and ifort (64 bit).
We have a modification of that scenario: we implemented one more function, say F_TIM, which will be executed, if the user hits a push button (format code '%bt'). F_TIM contains a while loop which retrieves and prints out the mouse position. The while loop may be left by depressing the right button of the mouse.
This works fine for the Salford 32 bit compile environment. The mouse position is printed out correctly in function F_TIM and left correctly.
For 64 bit compile environments gFortran and ifort (64 bit) function F_TIM is entered correctly if the corresponding push button is hit. However, as soon as the loop is entered, the first mouse position is correct, but the mouse positions following do not change even if the mouse is moved. The loop cannot be left by depressing the right button of the mouse and hence we run into an endless loop.
This is a difference to the behaviour on 32 bit.
Here is our code for Salford 32 bit:
program test
! USE MSWIN$
INCLUDE <WINDOWS.INS>
integer*4 i,IGR,control,F_TIM1,w,h,F_GR,hwnd
external F_TIM1,F_GR
i=winio@('%ww[no_border,independent]&')
i=winio@('%hw&',hwnd)
i=winio@('%mn[open]&',F_TIM1)
w=300
h=300
i=winio@('%`^gr[rgb_colours,black,full_mouse_input]&',
* w,h,IGR,F_GR)
i=winio@('%pv%fr%ff&',400,300)
i=winio@('%^bt[Test]&',F_TIM1)
i=winio@('%lw',control)
! call stop_when_windows_close@()
end
FUNCTION F_GR()
INTEGER*4 F_GR
F_GR=4
RETURN
END
FUNCTION F_TIM1()
! USE MSWIN$
INCLUDE <WINDOWS.INS>
integer*4 F_TIM1,PAR1,PAR2,PAR3,I
LOGICAL*4 LOGIC
F_TIM1=2
LOGIC=.TRUE.
I=0
DO WHILE (LOGIC)
I=I+1
call get_mouse_info@(PAR1,PAR2,PAR3)
WRITE(*,*)'get_mouse_info (loop 1): ',PAR1,PAR2,PAR3 ,I
IF(PAR3.eq.2) LOGIC=.FALSE.
ENDDO
END
We created the corresponding exe file for Salford 32 bit compile environment by means of command
ftn95 test.for /link /windows
If we do not use the /windows option for the Salford 32 bit compile, the behaviour for all the compiler platforms mentioned are the same (and do not produce the correct mouse pointer coordinates).
For gFrotran we also tried compiling with option -mwindows , but this did not work, as well.
