[Win32forth-cvs] win32forth/src/lib UpDownControl.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3193

Modified Files:
	UpDownControl.f 
Log Message:
Jos: Added Select:

Index: UpDownControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** UpDownControl.f	15 Mar 2013 00:23:07 -0000	1.6
--- UpDownControl.f	13 Apr 2013 15:34:21 -0000	1.7
***************
*** 106,128 ****
  TextBox TheBox
  
! :m start:     ( parent -- )
  \ *G Start the control.
                dup Start: TheBox \ both must have same parent
                Start: super
!               ;m
  
! :m TheBox:   ( -- spinbox )
  \ *G Object address of the text box for directly manipulating it (though it shouldn't really be done).
!               Addr: TheBox ;m
  
! :m Move:      ( x y w h -- )
  \ *G Move the text box to the specified positon and the up-down control as well.
                Move: TheBox
                \ allow the updowncontrol to move with the editcontrol
!               GetHandle: TheBox SetBuddy: self ;m
  
! :m SetFont:   ( hndl -- )
  \ *G Set the font of the text box.
!               Setfont: TheBox ;m
  
  :M Close:     ( -- )
--- 106,136 ----
  TextBox TheBox
  
! :M start:     ( parent -- )
  \ *G Start the control.
                dup Start: TheBox \ both must have same parent
                Start: super
!               ;M
  
! :M TheBox:   ( -- spinbox )
  \ *G Object address of the text box for directly manipulating it (though it shouldn't really be done).
!               Addr: TheBox ;M
  
! :M Move:      ( x y w h -- )
  \ *G Move the text box to the specified positon and the up-down control as well.
                Move: TheBox
                \ allow the updowncontrol to move with the editcontrol
!               GetHandle: TheBox SetBuddy: self ;M
  
! :M Select:    ( -- )
! \ *G Selects the text inside the spinner
!               SetFocus: TheBox
!               0 0 word-join EM_SETSEL
!               GetHandle: TheBox Call SendMessage ;M
! 
! 
! :M SetFont:   ( hndl -- )
  \ *G Set the font of the text box.
!               Setfont: TheBox ;M
! 
  
  :M Close:     ( -- )