The following program ill-behaves when clicking on any of the editable boxes (each BEGIN_EDIT is immediately followed by an END_EDIT for no reason) and, worse, clicking on any of the boxes of the last row triggers an instant crash. This does happen with every Windows7 we tried (ftn95 from current down to 5.21 tested) but works fine for XP. Removing the XP-style manifest (resources section) makes the problem go away.
winapp
program listbox
implicit none
integer, dimension(3):: selection
integer :: view
character (len=*), dimension(4), parameter ::lvdata = &
(/'|Header_100|', '|Data1 |', '|Data2 |', '|Data3 |'/)
integer i
selection = 0
view = 1
i=winio@('%lv[edit_cells]',150, 100, lvdata, 4, selection, view)
end program listbox
resources
1 24 default.manifest