[Win32forth-cvs] win32forth/src/tools dfc.F,1.5,1.6

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30031

Modified Files:
	dfc.F 
Log Message:
Added CloseFiles to close the files. Files are also closed when new ones are opened.

Index: dfc.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/dfc.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** dfc.F	28 Jun 2008 20:35:07 -0000	1.5
--- dfc.F	30 Jun 2008 20:31:32 -0000	1.6
***************
*** 875,878 ****
--- 875,886 ----
  \ Extended with dialogs for Win32Forth
  
+ external
+ 
+ : CloseFiles ( -- )
+         OldFile -if  close-file abort" Error closing old File" 0 then to Oldfile
+         NewFile -if  close-file abort" Error closing new File" 0 then to NewFile ;
+ 
+ internal
+ 
  FileOpenDialog OldFileName  "Old or orginal file" "Forth Files (*.f,*.fs,*.4th,*.fth,*.seq)|*.f;*.fs;*.4th;*.fth;*.seq|IDE Backup Files (*.bak)|*.bak|All Files (*.*)|*.*"
  FileOpenDialog NewFileName  "The new file" "Forth Files (*.f,*.fs,*.4th,*.fth,*.seq)|*.f;*.fs;*.4th;*.fth;*.seq|All Files (*.*)|*.*"
***************
*** 882,885 ****
--- 890,894 ----
  : .DfcFiles  ( -- )
  \ *G Ask for 2 files and show their differences in the console.
+       CloseFiles
        conhndl start: OldFileName count dup 0=
                  if ." No OLD file selected" quit
***************
*** 897,901 ****
  .DfcFiles
  
! previous
  
  \s
--- 906,910 ----
  .DfcFiles
  
! module
  
  \s