Menu
▾
▴
win32forth-cvs
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:39
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/WinEd Modified Files: Ed_Defaults.F Ed_FindInFiles.F Ed_HyperLink.F Ed_MenuFuncs.F HYPER.F Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: Ed_HyperLink.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Ed_HyperLink.F 15 Jul 2006 16:30:19 -0000 1.4 --- Ed_HyperLink.F 26 Aug 2006 15:25:32 -0000 1.5 *************** *** 331,335 **** MAXSTRING LocalAlloc: highlight$ MAXSTRING LocalAlloc: Oldpath$ ! path-ptr count Oldpath$ place \ Save the current path program-path-init \ Get the Forth path highlighting? 0= \ something is highlighted --- 331,335 ---- MAXSTRING LocalAlloc: highlight$ MAXSTRING LocalAlloc: Oldpath$ ! search-path count Oldpath$ place \ Save the current path program-path-init \ Get the Forth path highlighting? 0= \ something is highlighted *************** *** 347,351 **** ELSE open-text THEN ! Oldpath$ count path-ptr place \ Restore the old path ; --- 347,351 ---- ELSE open-text THEN ! Oldpath$ count search-path place \ Restore the old path ; Index: Ed_FindInFiles.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FindInFiles.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Ed_FindInFiles.F 28 Aug 2005 07:28:06 -0000 1.3 --- Ed_FindInFiles.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 254,258 **** 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 --- 254,258 ---- 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 *************** *** 306,312 **** : 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! Find-buf count InsertString: findComboEdit ID_CASE IsDlgButtonChecked: self to CaseSensitive? --- 306,312 ---- : 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! Find-buf count InsertString: findComboEdit ID_CASE IsDlgButtonChecked: self to CaseSensitive? Index: HYPER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/HYPER.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HYPER.F 30 Apr 2005 20:52:42 -0000 1.3 --- HYPER.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 330,342 **** if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" path-ptr place \ move in the directory list ! path-ptr count + 1- c@ ';' = \ remove any trailing ';' chars ! if path-ptr c@ 1- 0max path-ptr c! then ! path-ptr c@ 0= ! if base-path count path-ptr place \ else use current path then ! path-ptr c@ 0= ! if current-dir$ count path-ptr place \ else use current directory then then ; --- 330,342 ---- if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" search-path place \ move in the directory list ! search-path count + 1- c@ ';' = \ remove any trailing ';' chars ! if search-path c@ 1- 0max search-path c! then ! search-path c@ 0= ! if base-path count search-path place \ else use current path then ! search-path c@ 0= ! if current-dir$ count search-path place \ else use current directory then then ; *************** *** 433,437 **** defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! path-ptr count base-path +place ; : read-config ( -- ) \ read the hypertext word table for --- 433,437 ---- defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! search-path count base-path +place ; : read-config ( -- ) \ read the hypertext word table for *************** *** 454,458 **** : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! path-ptr count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place --- 454,458 ---- : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! search-path count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place *************** *** 540,544 **** close-index then message-off ! base-path count path-ptr place search-aborted? if s" User Aborted Index Compile\n" "message --- 540,544 ---- close-index then message-off ! base-path count search-path place search-aborted? if s" User Aborted Index Compile\n" "message Index: Ed_MenuFuncs.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MenuFuncs.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Ed_MenuFuncs.F 28 Aug 2005 07:28:07 -0000 1.3 --- Ed_MenuFuncs.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 212,216 **** printed-columns 0 (d.) IDE_COLS SetDlgItemText: self printer-lpi 0 (d.) IDE_LPI SetDlgItemText: self ! path-ptr count IDE_PATH SetDlgItemText: self def-right-edge 0 (d.) IDE_WRAP SetDlgItemText: self 1 ;M --- 212,216 ---- printed-columns 0 (d.) IDE_COLS SetDlgItemText: self printer-lpi 0 (d.) IDE_LPI SetDlgItemText: self ! search-path count IDE_PATH SetDlgItemText: self def-right-edge 0 (d.) IDE_WRAP SetDlgItemText: self 1 ;M *************** *** 230,236 **** THEN set-filter ! path-ptr 1+ MAXCOUNTED IDE_PATH GetDlgItemText: self path-ptr c! ! path-ptr count + 1- c@ '\' = ! IF path-ptr c@ 1- 0max path-ptr c! \ remove trailing '\' char THEN number$ dup 6 IDE_WRAP GetDlgItemText: self skip-number? --- 230,236 ---- THEN set-filter ! search-path 1+ MAXCOUNTED IDE_PATH GetDlgItemText: self search-path c! ! search-path count + 1- c@ '\' = ! IF search-path c@ 1- 0max search-path c! \ remove trailing '\' char THEN number$ dup 6 IDE_WRAP GetDlgItemText: self skip-number? Index: Ed_Defaults.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Defaults.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_Defaults.F 15 Jul 2006 16:30:19 -0000 1.5 --- Ed_Defaults.F 26 Aug 2006 15:25:32 -0000 1.6 *************** *** 88,92 **** mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! path-ptr count s" SearchPath" "SetDefault minimized? 0= \ ONLY SAVE WINDOW IF NOT MINIMIZED IF GetWindowRect: FrameWindow --- 88,92 ---- mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! search-path count s" SearchPath" "SetDefault minimized? 0= \ ONLY SAVE WINDOW IF NOT MINIMIZED IF GetWindowRect: FrameWindow *************** *** 152,156 **** THEN ! s" SearchPath" "GetDefault -IF 2dup "CLIP" path-ptr place THEN 2drop s" WindowLeft" "GetDefault number? 2drop --- 152,156 ---- THEN ! s" SearchPath" "GetDefault -IF 2dup "CLIP" search-path place THEN 2drop s" WindowLeft" "GetDefault number? 2drop |
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X