I have been using %`rs to show a string, and update the string as the user proceeds through my code. But, it doesn't appear to work like I expect anymore.
I thought it had something to do with %ps tabs, but apparently not. I have the code below that illustrates the issue.
The %`rs appears in the main window and in Tab 1. Tabs 2 and 3 have a %rs in its other forms. for comparison. The button callback regenerates the text to be displayed and applies a counter to it.
I am using V8.66.0, and this problem shows in checkmate and release for both 32 and 64 bits.
winapp
PROGRAM MAIN
use mswin
integer,external:: abcd
character*40:: rs_text
common/rs_text_common/rs_text
data rs_text/'This is the standard text for the %rs'/
integer:: tabs(3),i,j
i = winio@('%sh%ca[Tab 1]&',tabs(1))
i = winio@('%`rs&',rs_text)
i = winio@(' ')
i = winio@('%sh%ca[Tab 2]&',tabs(2))
i = winio@('%~rs&',rs_text,0)
i = winio@(' ')
i = winio@('%sh%ca[Tab 3]&',tabs(3))
i = winio@('%rs&',rs_text)
i = winio@(' ')
i = winio@('%ww%^bt[Change Text]%2nl%`rs%2nl%3ps[ms_style,hot_track]',abcd,rs_text,tabs(1),tabs(2),tabs(3))
end
integer function abcd()
character*40:: rs_text
common/rs_text_common/rs_text
integer:: i=0
abcd = 1
i = i + 1
write(rs_text,*)'This is now click number',i
call window_update@(rs_text)
return
end