Menu
▾
▴
[Win32forth-cvs] win32forth/apps/WinEd EdDebug.f,1.1,1.2 EdFindInFiles.f,1.1,1.2 Ed_EditWindowObj.F,1.2,1.3 Ed_MessageBrodcast.F,1.2,1.3 Ed_Search.F,1.2,1.3 W_SEARCH.F,1.1,1.2 WinEd_Menu.f,1.1,1.2
|
From: Dirk B. <db...@us...> - 2005-05-05 09:43:53
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/WinEd Modified Files: EdDebug.f EdFindInFiles.f Ed_EditWindowObj.F Ed_MessageBrodcast.F Ed_Search.F W_SEARCH.F WinEd_Menu.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: EdDebug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/EdDebug.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdDebug.f 21 Dec 2004 00:18:50 -0000 1.1 --- EdDebug.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 80,84 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; --- 80,84 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; *************** *** 87,91 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; --- 87,91 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; *************** *** 131,135 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; --- 131,135 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; Index: WinEd_Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd_Menu.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WinEd_Menu.f 21 Dec 2004 00:18:50 -0000 1.1 --- WinEd_Menu.f 5 May 2005 09:43:28 -0000 1.2 *************** *** 104,108 **** IF MF_BYCOMMAND MAXSTRING ! text$ 1+ rel>abs theID pid Call GetMenuString text$ c! --- 104,108 ---- IF MF_BYCOMMAND MAXSTRING ! text$ 1+ theID pid Call GetMenuString text$ c! *************** *** 126,130 **** MF_BYCOMMAND MAXSTRING ! r> 1+ rel>abs mid[] r> CELLS+ @ pid Call GetMenuString r> c! --- 126,130 ---- MF_BYCOMMAND MAXSTRING ! r> 1+ mid[] r> CELLS+ @ pid Call GetMenuString r> c! *************** *** 155,159 **** IF MF_BYCOMMAND MAXSTRING ! text$ 1+ rel>abs mid[] i CELLS+ @ \ use the ID to get text pid Call GetMenuString text$ c! --- 155,159 ---- IF MF_BYCOMMAND MAXSTRING ! text$ 1+ mid[] i CELLS+ @ \ use the ID to get text pid Call GetMenuString text$ c! *************** *** 168,172 **** pFunc mfunc[] insertedMenus CELLS+ ! \ set the function ! zMenuText rel>abs mid[] insertedMenus cells+ @ MF_STRING --- 168,172 ---- pFunc mfunc[] insertedMenus CELLS+ ! \ set the function ! zMenuText mid[] insertedMenus cells+ @ MF_STRING *************** *** 190,194 **** THEN \ insert the new entry in menu ! zMenuText rel>abs mid[] @ MF_STRING --- 190,194 ---- THEN \ insert the new entry in menu ! zMenuText mid[] @ MF_STRING *************** *** 214,218 **** pFunc mfunc[] ! \ insert the new entry in menu ! zMenuText rel>abs mid[] @ MF_STRING --- 214,218 ---- pFunc mfunc[] ! \ insert the new entry in menu ! zMenuText mid[] @ MF_STRING Index: Ed_MessageBrodcast.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MessageBrodcast.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvswgBTGP and /tmp/cvsI2Flym differ Index: Ed_Search.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Search.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Ed_Search.F 30 Apr 2005 20:52:42 -0000 1.2 --- Ed_Search.F 5 May 2005 09:43:28 -0000 1.3 *************** *** 264,268 **** begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rel>abs rot call GetWindowText pad swap 2r@ 2swap w-search nip never else never 0 true --- 264,268 ---- begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rot call GetWindowText pad swap 2r@ 2swap w-search nip never else never 0 true *************** *** 679,681 **** THEN SetFocus: DocWindow ; ! |
