|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7927 Location: Salford, UK
|
Posted: Tue Apr 13, 2021 6:39 pm Post subject: |
|
|
I am pretty sure that won't work but you could give it a try. |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Tue Apr 13, 2021 11:03 pm Post subject: |
|
|
Had a few minutes to try. Nope, doesn't work that way. No big deal. |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Thu Apr 22, 2021 12:29 am Post subject: |
|
|
I just discovered that if a menu selection returns a value of 1, the same behavior is observed. I have updated my example and have included it here.
Code: | winapp
PROGRAM MAIN
use mswin
integer:: i,j,k
integer:: child_1(2)=0
integer,external:: lv_callback_1,lv_callback_2
character*32:: lv1(3),lv2(3)
integer:: sel1(2)=0,sel2(2)=0
data lv1/
$ '|col1|col2|col3|',
$ '!data1|||',
$ '|data2|||'/
data lv2/
$ '|col1|col2|col3|',
$ '!data1|||',
$ '|data2|||'/
i = winio@('%sh&',child_1(2))
i = winio@('%ca[buttons only]&')
i = winio@('%^bt[Button callback 1] &',lv_callback_1)
i = winio@('%^bt[Button callback 2] &',lv_callback_2)
i = winio@('')
i = winio@('%sh&',child_1(1))
i = winio@('%ca[lv only]&')
i = winio@('%^lv&',100,100,lv1,3,sel1,3,lv_callback_1)
i = winio@('%^lv&',100,100,lv2,3,sel2,3,lv_callback_2)
i = winio@('%ff%2nl&')
i = winio@('%^bt[Button callback 1] &',lv_callback_1)
i = winio@('%^bt[Button callback 2] &',lv_callback_2)
i = winio@('')
i = winio@('%mn[Return 1]&',lv_callback_1)
i = winio@('%mn[Return 2]&',lv_callback_2)
i = winio@('%2ps[hot_track]',child_1(2),child_1(1))
end
integer function lv_callback_1()
lv_callback_1 = 1
return
end
integer function lv_callback_2()
lv_callback_2 = 2
return
end
|
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7927 Location: Salford, UK
|
Posted: Thu Apr 22, 2021 7:50 am Post subject: |
|
|
Bill
The reported fix also resolves this situation. |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Thu Apr 22, 2021 5:42 pm Post subject: |
|
|
Thanks for the confirmation, Paul! |
|
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
|