[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.24,1.25

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

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

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/Win32ForthIDE/Main.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Main.f	23 Jul 2006 09:36:40 -0000	1.24
--- Main.f	27 Jul 2006 07:29:31 -0000	1.25
***************
*** 979,990 ****
                  ' my-hello is default-hello
  
!                 &forthdir count &appdir place  \ create SciEditMdi.exe in the
!                 0 0 ' Main Application Win32ForthIde.exe \ Win32Forth folder
                  &appdir off
! 
                  s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon
  
-                 \ make shure that the remote I/O will still work after the IDE was compiled
-                 also hidden ' uninit-shared-forth is uninit-shared-type previous
                  1 pause-seconds bye
  [else]
--- 979,991 ----
                  ' my-hello is default-hello
  
!                 &forthdir count &appdir place
!                 \ create Win32ForthIDE.exe in the Win32Forth folder
!                 0 0 ' Main ' Application catch Win32ForthIde.exe checkstack
                  &appdir off
!                 \ make sure that the remote I/O will still work after the IDE is compiled
!                 also hidden ' uninit-shared-forth is uninit-shared-type previous
!                 throw
                  s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon
  
                  1 pause-seconds bye
  [else]