get_mouse_position

We work with an old existing application. In it, we use 'get_mouse_position@'. This function no longer exists. The alternative for this are 'get_mouse_inf@' or 'clearwin_info@'. But both alternatives only provide values ​​when the mouse is pressed. But I need the values of the mouse pointer ​​permanently.

You can get the values you need for instance like here:

MOUSE_X = CLEARWIN_INFO@('GRAPHICS_MOUSE_X')+1
MOUSE_Y = CLEARWIN_INFO@('GRAPHICS_MOUSE_Y')+1
BUTTON  = AND(CLEARWIN_INFO@('GRAPHICS_MOUSE_FLAGS'),31)
M_INFO  = adjustl(clearwin_string@('call_back_reason'))
!
! then for instance:
!
if (M_INFO(1:16) .eq. 'MOUSE_LEFT_CLICK') ...

To get the values all time, you can either put the code above into a loop (old style) or you can call it as part of a function from the %gr command.

Regards - Wilfried

get_mouse_position@ is still available in salflibc.dll. It does not require a binding for FTN95 so you should be able to call it directly in your code.

It is not currently available in clearwin64.dll but it looks like it could be made available.