Silverfrost Forums

Welcome to our forums

EDIT_FILE_OPEN problem

10 Nov 2007 7:00 #2417

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

11 Nov 2007 9:16 #2419

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.

12 Nov 2007 12:05 #2428

Quoted from 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

.... ....

The program hangs when i click on Open

Yes, when i compile with /lgo the program works fine.

How can i see switches used? (i opened a new fortran project from vs2005 ide with no modifications) thanks

12 Nov 2007 12:45 #2429

Quoted from 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

.... ....

The program hang in Debug version only. in release version or in PLATO it works fine.

13 Nov 2007 7:49 #2430

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?

Please login to reply.