[Win32forth-cvs] win32forth/apps/Win32ForthIDE ProjectTree.f, 1.25, 1.26

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv11080

Modified Files:
	ProjectTree.f 
Log Message:
Minor mods. EAB

Index: ProjectTree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** ProjectTree.f	3 Jun 2010 08:56:38 -0000	1.25
--- ProjectTree.f	2 Dec 2010 05:23:12 -0000	1.26
***************
*** 1104,1105 ****
--- 1104,1119 ----
  \ The files that are currently added to the project are removed first.
                  true (build-project) ;   IDM_REBUILD_PRJ SetCommand
+ 
+ : add-opened-files { \ thechild -- }
+                 TabFile? ?dup
+                 if      0
+                         do      i GetFileTabChild dup to TheChild
+                                 if	TheChild ActiveCoder <>
+ 					if	GetFileName: TheChild count ".ext-only" nip \ not viewing source?
+ 						if	GetFileName: TheChild count AddFile
+ 						then
+ 					then
+ 				then
+                         loop
+                 then    ; IDM_ADD_OPEN_PRJ SetCommand
+