[Win32forth-cvs] win32forth/src Extend.f,1.23,1.24

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv10558/src

Modified Files:
	Extend.f 
Log Message:
Moved the manifest into the exe file.

Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Extend.f	2 Sep 2008 07:01:20 -0000	1.23
--- Extend.f	19 Apr 2009 07:47:08 -0000	1.24
***************
*** 109,115 ****
  ' ForthBoot SAVE Win32for           \ save Win32For.EXE
  
  fload lib\Resources.f
- s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
  
  
  1 pause-seconds
--- 109,130 ----
  ' ForthBoot SAVE Win32for           \ save Win32For.EXE
  
+ \ add the resources to the exe file
+ 
  fload lib\Resources.f
  
+ winver winnt4 >=
+ [if]
+         &forthdir count pad place
+         s" Win32for.exe" pad +place
+         pad count "path-file drop AddToFile
+ 
+         CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" src\res\Win32For.exe.manifest" "path-file drop  AddResource
+         101 s" src\res\Win32For.ico" "path-file drop AddIcon
+ 
+         false EndUpdate
+ 
+ [else]
+         s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
+ [then]
  
  1 pause-seconds