[Win32forth-cvs] win32forth/apps/SciEdit Main.f,1.22,1.23

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

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1725/win32forth/apps/SciEdit

Modified Files:
	Main.f 
Log Message:
gah:Added catch and throw to (hopefully) correctly reset the system on file saving errors (tested on Win98).

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Main.f	23 Jul 2006 09:27:14 -0000	1.22
--- Main.f	27 Jul 2006 07:29:31 -0000	1.23
***************
*** 713,724 ****
                  ' my-hello is default-hello
  
!                 &forthdir count &appdir place  \ create SciEditMdi.exe in the
!                 0 0 ' Main Application SciEditMdi.exe \ Win32Forth folder
                  &appdir off
  
                  s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon
  
!                 \ make shure that the remote I/O will still work after SchiEdit was compiled
!                 also hidden ' uninit-shared-forth is uninit-shared-type previous
                  1 pause-seconds bye
  [else]
--- 713,727 ----
                  ' my-hello is default-hello
  
!                 &forthdir count &appdir place
!                 \ create SciEditMdi.exe in the Win32Forth folder
!                 0 0 ' Main ' Application catch SciEditMdi.exe checkstack
                  &appdir off
+                 \ make sure that the remote I/O will still work after SciEdit is compiled
+                 also hidden ' uninit-shared-forth is uninit-shared-type previous
+                 throw
  
                  s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon
  
! 
                  1 pause-seconds bye
  [else]