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
|
