HI, i'm testing FTN95 and i have problem using EDIT_FILE_OPEN in a winio call.
in the next code the program hangs when i click on OPEN in the menu bar. Also hangs clicking on Save as or Save.
What is wrong?
thanks
the code is
! -------------------------------------------------- ! Silverfrost FTN95 for Visual Studio 2005 ! Free Format FTN95 Source File ! -------------------------------------------------- winapp include<windows.ins> character129 file,new_file,help_file character10 str common str integer compile,link,run,i external compile,link,run str='' str='Eeeeeee help_file='myhelp.hlp' i=winio@('%ca@&',str) i=winio@('%mn[&File[&Open]]&','EDIT_FILE_OPEN','.',file) i=winio@('%mn[[&Save]]&','EDIT_FILE_SAVE','.',new_file) i=winio@('%mn[[Save &As]]&','EDIT_FILE_SAVE_AS','.',file) i=winio@('%mn[[E&xit]]&','EXIT') i=winio@('%mn[&Edit[&Copy]]&','COPY') i=winio@('%mn[[Cu&t]]&','CUT') i=winio@('%mn[[&Paste]]&','PASTE') i=winio@('%mn[&Help[&Contents]]&','HELP_CONTENTS',help_file) i=winio@('%mn[[&Help on help]]&','HELP_ON_HELP',help_file) i=winio@('%ww%pv&') i=winio@('%30.10eb[vscrollbar,hscrollbar]&','*',0) i=winio@('%2nl %^7bt[&Compile]&',compile) i=winio@('%2nl %^7bt[&Link]&',link) i=winio@('%2nl %^7bt[&Run]',run) end
! funzioni callback integer function compile() character*10 str common str compile=1 str='pppppp' call window_update@(str) end
integer function link() link=1 end
integer function run () run=1 end