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
|
