[Win32forth-cvs] win32forth/src/lib ButtonBar.f, 1.3, 1.4 UpDownControl.f, 1.3, 1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv21609

Modified Files:
	ButtonBar.f UpDownControl.f 
Log Message:
Added Spinner doc and minor corrections.

Index: ButtonBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ButtonBar.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ButtonBar.f	29 Aug 2006 08:52:25 -0000	1.3
--- ButtonBar.f	18 Nov 2011 11:08:05 -0000	1.4
***************
*** 13,17 ****
  EXTERNAL
  
! \ *T ExControls -- More (enhanced) classes for none standard windows controls.
  
  \ ------------------------------------------------------------------------
--- 13,17 ----
  EXTERNAL
  
! \ *T ExControls -- More (enhanced) classes for non-standard windows controls.
  
  \ ------------------------------------------------------------------------

Index: UpDownControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UpDownControl.f	29 Aug 2006 08:52:25 -0000	1.3
--- UpDownControl.f	18 Nov 2011 11:08:05 -0000	1.4
***************
*** 109,123 ****
  
  :Class SpinnerControl           <Super UpDownControl
  TextBox TheBox
  
! :m start:     ( parent -- )     \ both must have same parent
!               dup Start: TheBox
                Start: super
                ;m
  
! :m TheBox:   ( -- spinbox ) \ in case we need it directly for some reason
                Addr: TheBox ;m
  
  :m Move:      ( x y w h -- )
                Move: TheBox
                \ allow the updowncontrol to move with the editcontrol
--- 109,130 ----
  
  :Class SpinnerControl           <Super UpDownControl
+ \ *G Spinner Control Class.
+ 
+ \ *P This class is a combination of an up-down control and a Text Box (the buddy).
+ 
  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
***************
*** 125,135 ****
--- 132,146 ----
  
  :m SetFont:   ( hndl -- )
+ \ *G Set the font of the text box.
                Setfont: TheBox ;m
  
  :M Close:     ( -- )
+ \ *G Close the control.
                Close: TheBox
                Close: self ;M
  ;class
  
+ \ *G End of Spinner Control Class.
+ 
  MODULE