[Win32forth-cvs] win32forth/apps/SciEdit EdFindInFiles.f, 1.2, 1.3 Main.f, 1.24, 1.25 ScintillaMDI.f, 1.11, 1.12

[Jos v.d.V. <jo...@us...>]

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
  
!