[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f, 1.15, 1.16

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

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

Modified Files:
	ProjectManager.f 
Log Message:
- Changed the IDE and the Project Manager to use the defaul Forth search path if no search is defind for building the current project.
- Added some missing Project-Files.

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ProjectManager.f	13 Jun 2006 19:34:42 -0000	1.15
--- ProjectManager.f	23 Jul 2006 10:12:56 -0000	1.16
***************
*** 12,16 ****
      StartSize: method to TheProject.  Used WndClassStyle: method instead of SetClassLong
      wherever possible.  Splitter bar object NOT needed when background of main window
!     is set to COLOR_BTNFACE. 
  
  October 07, 2005 - EAB - added class for viewing binary files of any size.
--- 12,16 ----
      StartSize: method to TheProject.  Used WndClassStyle: method instead of SetClassLong
      wherever possible.  Splitter bar object NOT needed when background of main window
!     is set to COLOR_BTNFACE.
  
  October 07, 2005 - EAB - added class for viewing binary files of any size.
***************
*** 1641,1645 ****
          ;   IDM_SET_BUILD_PATH SetCommand
  
! : build-project  ( -- )
                  reset-results
                  GetBuildFile: TheProject nip 0=
--- 1641,1653 ----
          ;   IDM_SET_BUILD_PATH SetCommand
  
! : build-project { \ old-path$ -- }
! 
!                 MAXSTRING CHARS 1+ LocalAlloc: old-path$
!                 path-ptr count old-path$ place \ save current search path
! 
!                 path-ptr count nip 0=
!                 if   program-path-init \ set default project search path
!                 then
! 
                  reset-results
                  GetBuildFile: TheProject nip 0=
***************
*** 1662,1666 ****
                  s"  bytes" pad +place
                  pad +NULL
!                 pad 1+ 0 SetText: ProjectStatusBar ;   IDM_BUILD SetCommand
  
  : delete-item ( -- )   Delete: TheProject ;   IDM_DELETE SetCommand
--- 1670,1677 ----
                  s"  bytes" pad +place
                  pad +NULL
!                 pad 1+ 0 SetText: ProjectStatusBar
! 
!                 old-path$ count path-ptr place \ restore current search path
!                 ;   IDM_BUILD SetCommand
  
  : delete-item ( -- )   Delete: TheProject ;   IDM_DELETE SetCommand