%ls no longer working as it used to

FWIW:

I have a %ls that changes its value depending on another selection. This has been working for a long time, now, no longer. No matter what I do, it can't be altered in real-time based on the previous selection. Adding window_update@() didn't work. I'm trying to recreate this in Plato and will post more when I get something that demonstrates the problem.

Bill

Here's the code. Clicking on the button should change the %ls contents. Using DLL's V91, 8.74 compiler.

        winapp
        program main
        integer,external:: run1,runx
        character*12 ::text1(10),text2(10)
        common/forum/text1,text2
        integer:: i,j=1
        do i=1,10
          write(text1(i),'(i0)')i
        end do
        i = winio@('%^bt[change ls]&',run1)
        i = winio@('%ls',text1,10,j)
        end
        integer function run1()
        character*12 ::text1(10),text2(10)
        common/forum/text1,text2
        integer:: i=11,j
        do j=i,i+9
          write(text1(j-i+1),'(i0)')j
        end do
        i = j
        run1 = 1
        call window_update@(text1)
        call beep@
        return
        end

I think the %ls work done in the following post may have caused this.

https://forums.silverfrost.com/Forum/Topic/4022&highlight=list

If a copy of the list is made, then one cannot update the list.

Bill

Bill

Yes, you are right.

I have fixed this by back tracking on the fix for Simon's code. Simon will need to use a new option [constant_data] in order to get his code to work.

Thanks, Paul! And, having such an option might also help me in a couple of situations!!

I eagerly await the DLL's! Bill

Thanks, Paul, for the newest release!

Bill