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
|
