Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24798/src
Modified Files:
CONTROLS.F Class.f Dialog.f
Log Message:
Updated the glossary generator in DexH. Now it supports most but not all defining words.
Index: CONTROLS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** CONTROLS.F 1 Feb 2006 17:08:25 -0000 1.8
--- CONTROLS.F 6 Feb 2006 17:48:17 -0000 1.9
***************
*** 186,190 ****
:M GetString: ( adr index -- )
\ *G Use: GetString: to get indexed items out of the combo box string list
! \ ** Use: GetText: to get the current combo box string
swap dup>r 1+ swap
CB_GETLBTEXT
--- 186,190 ----
:M GetString: ( adr index -- )
\ *G Use: GetString: to get indexed items out of the combo box string list
! \ ** Use: GetText: to get the current combo box string.
swap dup>r 1+ swap
CB_GETLBTEXT
***************
*** 192,197 ****
;M
! :M GetCount: ( -- n1 ) \ n1 = count of items
! \ *G Use: GetCount: to get the count of items in the combo box string list
0 0 CB_GETCOUNT
GetID: self SendDlgItemMessage: parent 0 max
--- 192,197 ----
;M
! :M GetCount: ( -- n1 )
! \ *G Use: GetCount: to get the count of items in the combo box string list.
0 0 CB_GETCOUNT
GetID: self SendDlgItemMessage: parent 0 max
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Class.f 25 Jan 2006 11:10:53 -0000 1.14
--- Class.f 6 Feb 2006 17:48:17 -0000 1.15
***************
*** 959,963 ****
0 value BeginningOfRecordAddress
! : Record: ( -- ) \ W32F Class
\ *G Define a word that returns the starting address of a group of data fields that
\ ** need to be contiguous. Object IVARS have their class pointer suppressed if used
--- 959,963 ----
0 value BeginningOfRecordAddress
! : Record: ( -<name>- ) \ W32F Class
\ *G Define a word that returns the starting address of a group of data fields that
\ ** need to be contiguous. Object IVARS have their class pointer suppressed if used
***************
*** 982,986 ****
\ -------------------- Instance Variables --------------------
! : bytes ( n -<name>- ) \ unstructure array of bytes
\ create ^class DFA @ , class-allot
\ does> @ ^base + ;
--- 982,987 ----
\ -------------------- Instance Variables --------------------
! : bytes ( n -<name>- ) \ W32F Class
! \ *G n-Bytes instance variable (array of bytes)
\ create ^class DFA @ , class-allot
\ does> @ ^base + ;
***************
*** 1039,1043 ****
in-system
! : bits { nbits -- -<name>- } \ define an 'nbits' bit field in prev data item
header
(ivb@) ,
--- 1040,1061 ----
in-system
! : bits { nbits -- -<name>- } \ W32F Class
! \ *G Define an 'nbits' bit field in prev data item.
! \ *E Example:
! \ ** int BinaryBits \ a 32bit cell of bit fields
! \ ** 1 bits fBinary \ define the bit fields
! \ ** 1 bits fParity
! \ ** 1 bits fOutxCtsFlow
! \ ** 1 bits fOutxDsrFlow
! \ ** 2 bits fDtrControl
! \ ** 1 bits fDtrSensitivity
! \ ** 1 bits fTXContinueOnXoff
! \ ** 1 bits fOutX
! \ ** 1 bits fInx
! \ ** 1 bits fErrorChar
! \ ** 1 bits fNull
! \ ** 2 bits fRtsControl
! \ ** 1 bits fAbortOnError
! \ ** 17 bits fDummy
header
(ivb@) ,
Index: Dialog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dialog.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Dialog.f 31 Dec 2005 11:12:44 -0000 1.4
--- Dialog.f 6 Feb 2006 17:48:17 -0000 1.5
***************
*** 80,84 ****
\ *W <a name="Dialog"></a>
\ *S Dialog Class
! :CLASS Dialog <SUPER Dialog&Control \ generic-window
\ *G Dialog class. \n
\ ** To use this class you have to create a ressource file (*.res) whitch must contain
--- 80,84 ----
\ *W <a name="Dialog"></a>
\ *S Dialog Class
! :CLASS Dialog <SUPER Dialog&Control
\ *G Dialog class. \n
\ ** To use this class you have to create a ressource file (*.res) whitch must contain
|
