[Win32forth-cvs] win32forth/src/lib excontrols.f,1.16,1.17

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22111/src/lib

Modified Files:
	excontrols.f 
Log Message:
Fixed a bug in the SetTextZ: method of the TextBox class (thank's Richard for the bug report).

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** excontrols.f	28 May 2006 09:48:21 -0000	1.16
--- excontrols.f	29 May 2006 16:47:46 -0000	1.17
***************
*** 216,220 ****
  \ *G Copy the text from the 0 terminated string \i addrz \d into the edit control.
                  hwnd
!                 if   hwnd swap Call SetWindowText ?win-error
  		else drop
                  then ;M
--- 216,220 ----
  \ *G Copy the text from the 0 terminated string \i addrz \d into the edit control.
                  hwnd
!                 if   hwnd Call SetWindowText ?win-error
  		else drop
                  then ;M