|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
wahorger
Joined: 13 Oct 2014 Posts: 1226 Location: Morrison, CO, USA
|
Posted: Sun Aug 18, 2024 1:24 pm Post subject: Edit Cells (%lv) |
|
|
The attachment of data to a %lv using the %ud format code is inconsistent when [edit_calls] is being used. The short program below shows this.
When a cell is edited, the 'BEGIN_EDIT' reason is given, the attached data is present in user_data. However, when the 'END_EDIT' of "KEY_DOWN' reason is invoked, the user_data is no longer valid (i.e. zero).
Code: |
winapp
PROGRAM tester
IMPLICIT NONE
CHARACTER*20 items(4)
INTEGER sel(3),view,i
integer,external:: my_func
items(1)='|Header_100|_50'
items(2)='|AItem1|Data1'
items(3)='|BItem2|Data2'
items(4)='|BItem3|Data3'
sel(1)=0;sel(2)=0;sel(3)=0;view=1
do i=1,4
print *,items(i)
end do
i = winio@('%^lv[edit_cells]%ud&',300,200,items,4,sel,view,my_func,loc(items))
i = winio@('')
END program TESTER
integer function my_func()
use mswin
integer(7):: user_data
user_data = clearwin_info@('USER_DATA')
print *,'User Data is:',user_data,' Reason:',trim(clearwin_string@('CALLBACK_REASON'))
my_func = 1
end |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 8017 Location: Salford, UK
|
Posted: Mon Aug 19, 2024 9:32 am Post subject: |
|
|
Bill
I have made a note to look into this. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 8017 Location: Salford, UK
|
Posted: Tue Oct 08, 2024 4:38 pm Post subject: |
|
|
This omission has now been fixed for the next release of the DLLs. |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1226 Location: Morrison, CO, USA
|
Posted: Tue Oct 08, 2024 9:36 pm Post subject: |
|
|
Thanks, 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
|