[Win32forth-cvs] win32forth/src CONTROLS.F,1.8,1.9 Class.f,1.14,1.15 Dialog.f,1.4,1.5

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

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