forums.silverfrost.com

[cecio]

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>
character*129 file,new_file,help_file
character*10 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

[PaulLaidler]

The program runs OK for me.

Does it fail when you open the dialog or after you have selected a file and clicked on OPEN?

Try compiling and running with a minimal command line such as

FTN95 prog.f90 /lgo

from a command prompt window.

This will tell you if there are problems with one of the command line switches.

[cecio]

[cecio]

[PaulLaidler]

In Visual Studio, after a build, you will see a link to an HTML file in the output window. Follow the link to see the commands issued.

You may need to hold down the Control key to click on the link - I do not remember the details.

Are you using .NET (/CLR command line switch) rather than Win32?