[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.62,1.63

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

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

Modified Files:
	PLAYER4.F 
Log Message:
Build process updated, to set the current dir correctly when compiling an application with the Setup.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.62
retrieving revision 1.63
diff -C2 -d -r1.62 -r1.63
*** PLAYER4.F	26 Aug 2006 15:25:31 -0000	1.62
--- PLAYER4.F	2 Dec 2006 10:17:30 -0000	1.63
***************
*** 661,666 ****
          false to MciDebug?
          NoConsoleIO  NoConsoleInImage
          ' player4 turnkey Player4.exe
!         s" Player4.ico" s" Player4.exe" AddAppIcon
          1 pause-seconds bye
  [else]
--- 661,668 ----
          false to MciDebug?
          NoConsoleIO  NoConsoleInImage
+ 
+         &forthdir count &appdir place
          ' player4 turnkey Player4.exe
!         s" Player4.ico" s" Player4.exe" Prepend<home>\ AddAppIcon
          1 pause-seconds bye
  [else]