call back in %rs with mouse click

winapp 
program mouse_test 
include <windows.ins> 
external test
character*10 data
data = ' '
i=winio@('%ac[Enter]&',test) 
i=winio@('%^rs',data,test)    
end 

integer*4 function test()
include <windows.ins> 
test=1
write(*,*)'call back test called'
end

Hello, with %^rs the call back 'test' works fine with characters and with [ENTER] . Is it possible to call the call back function in %^rs with the right mouse click?

Thanks Johann

The short answer is no, not without a lot of messing about (sub-classing the default message handling procedure for the Microsoft edit control).

Bartl,

There is a format code %bk to allow right mouse button clicks on a %bt button (I don't know if it works on a %bb button), and there is also a subroutine call to change the button text (change_button_text@). Button text can also be specified with an @ to make it change dynamically like you do with a caption %ca. Hence you might be able to get the effect you want with a button, although you won't be able to edit the text character-by-character at runtime.

Eddie