[Win32forth-cvs] win32forth/src/lib MDI.F,1.6,1.7 excontrols.f,1.11,1.12

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

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

Modified Files:
	MDI.F excontrols.f 
Log Message:
Updated the glossary generator in DexH. Now it supports most but not all defining words.

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** excontrols.f	4 Feb 2006 10:53:47 -0000	1.11
--- excontrols.f	6 Feb 2006 17:48:17 -0000	1.12
***************
*** 711,715 ****
  :M Select:	( index -- )
  \ *G Select a string in the list box.
! \ *G \i index \d specifies the zero-based index of the string to set. If this parameter
  \ ** is -1, the selection is added to all strings.
  \ ** Note: This method ABORT's on error.
--- 711,715 ----
  :M Select:	( index -- )
  \ *G Select a string in the list box.
! \ *P \i index \d specifies the zero-based index of the string to set. If this parameter
  \ ** is -1, the selection is added to all strings.
  \ ** Note: This method ABORT's on error.
***************
*** 720,724 ****
  :M Unselect: 	( index -- )
  \ *G Deselect a string in the list box.
! \ *G \i index \d specifies the zero-based index of the string to set. If this parameter
  \ ** is -1, the selection is removed from all strings.
  \ ** Note: This method ABORT's on error.
--- 720,724 ----
  :M Unselect: 	( index -- )
  \ *G Deselect a string in the list box.
! \ *P \i index \d specifies the zero-based index of the string to set. If this parameter
  \ ** is -1, the selection is removed from all strings.
  \ ** Note: This method ABORT's on error.

Index: MDI.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** MDI.F	14 Jan 2006 12:28:21 -0000	1.6
--- MDI.F	6 Feb 2006 17:48:17 -0000	1.7
***************
*** 87,93 ****
          ;M
  
! :M WindowMenuNo: ( -- n )   1 ;M
  \ *G Override this method to set the menu number in whitch all
  \ ** child windows should be displayed.
  
  :M On_Init: ( -- )
--- 87,94 ----
          ;M
  
! :M WindowMenuNo: ( -- n )
  \ *G Override this method to set the menu number in whitch all
  \ ** child windows should be displayed.
+         1 ;M
  
  :M On_Init: ( -- )