[Win32forth-cvs] win32forth/src/lib RESOURCES.F,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18567/src/lib

Modified Files:
	RESOURCES.F 
Log Message:
- Changed Setup.exe to bild the new applications (Solipion, Player4 and PlayVirginRadio)
- Fixed a bug in Resources.f
- Added an Icon to Win32for.exe
- Changed Version to 6.11.03 (to match Version 6.11.03 at www.win32forth.org)

Index: RESOURCES.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** RESOURCES.F	10 Jun 2005 16:44:23 -0000	1.2
--- RESOURCES.F	12 Jun 2005 08:37:39 -0000	1.3
***************
*** 51,54 ****
--- 51,57 ----
  anew -Resources.f
  
+ in-system
+ internal
+ 
  winver winnt4 < [if]
  
***************
*** 76,82 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
- in-system
- internal
- 
  Create SourceFileName 256 allot
  Create UpdateFileName 256 allot
--- 79,82 ----
***************
*** 354,371 ****
  
  in-system
  
  winver winnt4 < [if]
  
! : ReplaceFile 2drop ;
! : AddIcon     3drop ;
! : EndUpdate    drop ;
  
! [then]
  
  \ Add the Icon filename1 to the Application filename2
! : AddAppIcon    ( s" filename1" s" filename2" )
!         ReplaceFile 
!         2dup AppIcon place 101 -rot AddIcon
!         false EndUpdate ;
  
  in-application
--- 354,384 ----
  
  in-system
+ external
  
  winver winnt4 < [if]
  
! \ Add the Icon filename1 to the Application filename2
! : AddAppIcon    ( s" filename1" s" filename2" -- )
!         2drop AppIcon place ;
  
! [else]
! 
! \ returns true if we can add the icon to the file
! : AddAppIcon?   ( addr len -- f )
!         r/w open-file 0= dup
!         if   swap close-file drop
!         else nip
!         then ;
  
  \ Add the Icon filename1 to the Application filename2
! : AddAppIcon    ( s" filename1" s" filename2" -- )
!         2dup AddAppIcon?
!         if   ReplaceFile 
!              2dup 101 -rot AddIcon
!              false EndUpdate
!         else 2drop 
!         then AppIcon place ;
! 
! [then]
  
  in-application
***************
*** 450,452 ****
          s" PictureViewer.exe" ListResources
          ;
!