[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f, 1.18, 1.19

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

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

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

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** ProjectManager.f	26 Aug 2006 15:25:31 -0000	1.18
--- ProjectManager.f	2 Dec 2006 10:17:30 -0000	1.19
***************
*** 1942,1960 ****
  
  : InitDir       ( -- )
!                 current-dir$ count SetDir: OpenProjectDialog ;
! 
  Initialization-chain Chain-add InitDir
  
!         :noname ( -- )
!             init-console
!             if  initialization-chain do-chain  then
!             exception@ if bye then
!             default-application ;   is default-hello
  
          0 0 ' PM application Project.exe
  
          \ add the Application Icon
          needs Resources
!         s" src\res\Project.ico" s" Project.exe" AddAppIcon
  
          1 pause-seconds bye
--- 1942,1961 ----
  
  : InitDir       ( -- )
!         current-dir$ count SetDir: OpenProjectDialog ;
  Initialization-chain Chain-add InitDir
  
! :noname ( -- )
!         init-console
!         if  initialization-chain do-chain  then
!         exception@ if bye then
!         default-application ;   is default-hello
  
+         &forthdir count &appdir place
          0 0 ' PM application Project.exe
+         &appdir off
  
          \ add the Application Icon
          needs Resources
!         s" src\res\Project.ico" s" Project.exe" Prepend<home>\ AddAppIcon
  
          1 pause-seconds bye