Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22328/Win32ForthIDE
Modified Files:
ProjectTree.f
Log Message:
Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way.
The last opened projectfile of the IDE is used
Index: ProjectTree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ProjectTree.f 13 Oct 2006 03:55:11 -0000 1.15
--- ProjectTree.f 25 Feb 2007 19:04:42 -0000 1.16
***************
*** 596,599 ****
--- 596,607 ----
(source) 2! >in off ch word count ;
+ : SaveProjectName ( -- )
+ LatestProjectFile$ count
+ r/w create-file abort" Can't create the projectname on disk." dup>r
+ GetProjectFileName: TheProject
+ r> write-file abort" Can't save the projectname on disk."
+ close-file drop
+ ;
+
:M OpenProject: ( -- )
ProjectFile.filename c@
***************
*** 617,620 ****
--- 625,629 ----
else true abort" Search path not found!"
then \ now we read in files
+ SaveProjectName
begin rem-buffer nip
while ',' get-word pad place
|
