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
|
