Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Win32ForthIDE
Modified Files:
EdFindInFiles.f Main.f ProjectTree.f ScintillaMDI.f
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr by search-path
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Main.f 4 Aug 2006 09:43:27 -0000 1.27
--- Main.f 26 Aug 2006 15:25:32 -0000 1.28
***************
*** 379,383 ****
mask-ptr count s" SearchMask" "SetDefault
find-buf count s" SearchText" "SetDefault
! path-ptr count s" SearchPath" "SetDefault
path-ptr: TheProject count s" ProjectSearchPath" "SetDefault
--- 379,383 ----
mask-ptr count s" SearchMask" "SetDefault
find-buf count s" SearchText" "SetDefault
! search-path count s" SearchPath" "SetDefault
path-ptr: TheProject count s" ProjectSearchPath" "SetDefault
***************
*** 415,419 ****
s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop
! s" SearchPath" "GetDefault -IF 2dup "CLIP" path-ptr place THEN 2drop
s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop
s" ProjectSearchPath" "GetDefault -IF 2dup "CLIP" path-ptr: TheProject place THEN 2drop
--- 415,419 ----
s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop
! s" SearchPath" "GetDefault -IF 2dup "CLIP" search-path place THEN 2drop
s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop
s" ProjectSearchPath" "GetDefault -IF 2dup "CLIP" path-ptr: TheProject place THEN 2drop
Index: ProjectTree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** ProjectTree.f 23 Jul 2006 10:12:56 -0000 1.13
--- ProjectTree.f 26 Aug 2006 15:25:32 -0000 1.14
***************
*** 1022,1029 ****
MAXSTRING CHARS 1+ LocalAlloc: old-path$
! path-ptr count old-path$ place \ save current search path
path-ptr: TheProject count dup
! if path-ptr place \ set project search path
else drop program-path-init \ set default project search path
then
--- 1022,1029 ----
MAXSTRING CHARS 1+ LocalAlloc: old-path$
! search-path count old-path$ place \ save current search path
path-ptr: TheProject count dup
! if search-path place \ set project search path
else drop program-path-init \ set default project search path
then
***************
*** 1058,1062 ****
SortParentLists: TheProject
! old-path$ count path-ptr place \ restore current search path
; IDM_BUILD_PRJ SetCommand
--- 1058,1062 ----
SortParentLists: TheProject
! old-path$ count search-path place \ restore current search path
; IDM_BUILD_PRJ SetCommand
Index: EdFindInFiles.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFindInFiles.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdFindInFiles.f 5 Jun 2006 09:19:00 -0000 1.1
--- EdFindInFiles.f 26 Aug 2006 15:25:32 -0000 1.2
***************
*** 264,268 ****
THEN
0 SetFile: self
! path-ptr count ID_DIRECTORY SetDlgItemText: self
mask-ptr count ID_MASK SetDlgItemText: self
Find-buf count ID_SEARCHTEXT SetDlgItemText: self
--- 264,268 ----
THEN
0 SetFile: self
! search-path count ID_DIRECTORY SetDlgItemText: self
mask-ptr count ID_MASK SetDlgItemText: self
Find-buf count ID_SEARCHTEXT SetDlgItemText: self
***************
*** 316,322 ****
: get-parameters ( -- )
! path-ptr 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self path-ptr c!
! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c!
! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c!
[defined] findComboEdit [if]
Find-buf count InsertString: findComboEdit
--- 316,322 ----
: get-parameters ( -- )
! search-path 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self search-path c!
! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c!
! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c!
[defined] findComboEdit [if]
Find-buf count InsertString: findComboEdit
***************
*** 377,379 ****
;Object
! |
