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
|
