Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/SciEdit
Modified Files:
EdFindInFiles.f Main.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/SciEdit/Main.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Main.f 4 Aug 2006 09:43:27 -0000 1.24
--- Main.f 26 Aug 2006 15:25:31 -0000 1.25
***************
*** 212,218 ****
then
! mask-ptr count s" SearchMask" "SetDefault
! find-buf count s" SearchText" "SetDefault
! path-ptr count s" SearchPath" "SetDefault
SaveRecentFiles
--- 212,218 ----
then
! mask-ptr count s" SearchMask" "SetDefault
! find-buf count s" SearchText" "SetDefault
! search-path count s" SearchPath" "SetDefault
SaveRecentFiles
***************
*** 244,250 ****
s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace?
! 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" ShowToolbar" "GetDefaultValue 0= IF drop true THEN dup to ShowToolbar? Show: TheRebar
--- 244,250 ----
s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace?
! 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" ShowToolbar" "GetDefaultValue 0= IF drop true THEN dup to ShowToolbar? Show: TheRebar
Index: EdFindInFiles.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdFindInFiles.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EdFindInFiles.f 5 May 2005 09:43:27 -0000 1.2
--- EdFindInFiles.f 26 Aug 2006 15:25:31 -0000 1.3
***************
*** 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
! |
