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: ( -- )
|
