[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

[Dirk B. <db...@us...>]

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 ; 
!