|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
cecio
Joined: 02 Sep 2007 Posts: 11
|
Posted: Sat Nov 10, 2007 8:00 pm Post subject: EDIT_FILE_OPEN problem |
|
|
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 |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Sun Nov 11, 2007 10:16 am Post subject: |
|
|
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. |
|
Back to top |
|
|
cecio
Joined: 02 Sep 2007 Posts: 11
|
Posted: Mon Nov 12, 2007 1:05 pm Post subject: Re: |
|
|
PaulLaidler wrote: | 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 |
|
Back to top |
|
|
cecio
Joined: 02 Sep 2007 Posts: 11
|
Posted: Mon Nov 12, 2007 1:45 pm Post subject: Re: |
|
|
PaulLaidler wrote: | 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. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Nov 13, 2007 8:49 am Post subject: |
|
|
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? |
|
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
|