Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1725/win32forth/apps/WinEd
Modified Files:
WinEd.f
Log Message:
gah:Added catch and throw to (hopefully) correctly reset the system on file saving errors (tested on Win98).
Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** WinEd.f 23 Jul 2006 09:27:14 -0000 1.10
--- WinEd.f 27 Jul 2006 07:29:31 -0000 1.11
***************
*** 136,146 ****
.free \ how much memory did we really use?
-1 ed-forth-count +! \ remove myself from Forth count
! 0 0 ' wined APPLICATION WinEd.exe \ save WinEd.exe
s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
1 ed-forth-count +!
forth-msg-chain !
! \ make shure that the remote I/O will still work after WinEd was compiled
also hidden ' uninit-shared-forth is uninit-shared-type previous
1 pause-seconds bye
[else]
--- 136,147 ----
.free \ how much memory did we really use?
-1 ed-forth-count +! \ remove myself from Forth count
! 0 0 ' wined ' APPLICATION catch WinEd.exe \ save WinEd.exe
s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
1 ed-forth-count +!
forth-msg-chain !
! \ make sure that the remote I/O will still work after WinEd is compiled
also hidden ' uninit-shared-forth is uninit-shared-type previous
+ throw
1 pause-seconds bye
[else]
|
