[Win32forth-cvs] win32forth/apps/WinEd WinEd.f,1.13,1.14

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	WinEd.f 
Log Message:
Jos: Solved the Icon problem.

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** WinEd.f	28 Jul 2006 10:05:28 -0000	1.13
--- WinEd.f	31 Jul 2006 12:21:37 -0000	1.14
***************
*** 144,151 ****
                  also hidden ' uninit-shared-forth is uninit-shared-type previous
                  throw
!                 s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
                  1 pause-seconds bye
          [else]
!                 s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
                  WinEd
          [then]
--- 144,153 ----
                  also hidden ' uninit-shared-forth is uninit-shared-type previous
                  throw
!                 &forthdir count temp$ place s" WinEd.exe" temp$ +place
!                 s" src\res\WinEd.ico" temp$ count AddAppIcon
                  1 pause-seconds bye
          [else]
!                 &forthdir count temp$ place s" WinEd.exe" temp$ +place
!                 s" src\res\WinEd.ico" temp$ count AddAppIcon
                  WinEd
          [then]