[Win32forth-cvs] win32forth/src/lib excontrols.f,1.2,1.3

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	excontrols.f 
Log Message:
Jos: Made it possible to select a textbox by default.

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** excontrols.f	1 May 2005 06:27:42 -0000	1.2
--- excontrols.f	20 Aug 2005 11:39:35 -0000	1.3
***************
*** 53,56 ****
--- 53,65 ----
                  ;M
  
+ :M SetSelection: ( nEnd nStart -- )   \ Set selection range.
+                 EM_SETSEL SendMessage:self  drop
+                 ;M
+ 
+ :M SelectAll: ( -- )             \ Select all the text in control.
+                 SetFocus: Self   \ Change the focus for deselecting.
+                 -1 0 SetSelection: self
+                 ;M
+ 
  :M Setfont:     ( handle -- )
                  1 swap WM_SETFONT SendMessage:Self drop
***************
*** 1980,1982 ****
  MODULE
  \S
!