[Win32forth-cvs] win32forth/apps/Win32ForthIDE ProjectTree.f, 1.15, 1.16

[Jos v.d.V. <jo...@us...>]

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