|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Fri Jul 02, 2021 4:50 am Post subject: %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 |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Fri Jul 02, 2021 5:03 am Post subject: |
|
|
Here's the code. Clicking on the button should change the %ls contents. Using DLL's V91, 8.74 compiler.
Code: |
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 |
|
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Jul 02, 2021 9:55 am Post subject: |
|
|
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. |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Fri Jul 02, 2021 1:22 pm Post subject: |
|
|
Thanks, Paul! And, having such an option might also help me in a couple of situations!!
I eagerly await the DLL's!
Bill |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Mon Jul 05, 2021 1:49 pm Post subject: |
|
|
Thanks, Paul, for the newest release!
Bill |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|