[Win32forth-cvs] win32forth/src/lib excontrols.f,1.9,1.10

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

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

Modified Files:
	excontrols.f 
Log Message:
- New GroupRadioButton class added; and changed ForthForm to use this class.
- Some more dexing

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** excontrols.f	22 Jan 2006 10:51:15 -0000	1.9
--- excontrols.f	1 Feb 2006 17:08:25 -0000	1.10
***************
*** 26,31 ****
  \ ------------------------------------------------------------------------
  :Class TextBox		<Super EditControl
! \ *G Class for text edit controls
! \ ** (enhanced Version of the EditControl class)
  
  int style
--- 26,33 ----
  \ ------------------------------------------------------------------------
  :Class TextBox		<Super EditControl
! \ *G Class for Edit controls.
[...1951 lines suppressed...]
+                        GetPrev: hb1 to hb1
+                 repeat ;M
+ 
+ :M Enable:     	{ flag \ hb1 -- }
+ \ *G Enable the control.
+                 hbb to hb1
+                 begin  hb1
+                 while  flag GetID: hb1 EnableDlgitem: self
+                        GetPrev: hb1 to hb1
+                 repeat ;M
+ 
+ :M Disable:     ( -- )
+ \ *G Disable the control.
+                 false Enable: self ;M
+ 
+ ;Class
+ \ *G End of HorizButtonBar class
+ 
  MODULE