[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.10,1.11 FORTHFORM.F,1.13,1.14

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

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31280/apps/ForthForm

Modified Files:
	FORMOBJECT.F FORTHFORM.F 
Log Message:
Changed the name of the ivar 'parent' in the dialog objects to 'hWndParent'.

Index: FORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** FORTHFORM.F	1 Feb 2006 17:08:24 -0000	1.13
--- FORTHFORM.F	29 May 2006 17:13:14 -0000	1.14
***************
*** 99,103 ****
  
  \ adapted from WinEd
! 20206 constant fform_version#  \ 2.02.06
  
  \ Version numbers: v.ww.rr
--- 99,103 ----
  
  \ adapted from WinEd
! 20207 constant fform_version#  \ 2.02.07
  
  \ Version numbers: v.ww.rr

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** FORMOBJECT.F	1 Feb 2006 17:08:24 -0000	1.10
--- FORMOBJECT.F	29 May 2006 17:13:14 -0000	1.11
***************
*** 1509,1513 ****
                  if      s" MultiStatusBar TheStatusBar" append&crlf
                  then    GetSuperclass: self DIALOG-CLASS =      \ only for dialogwindow super class
!                 if  SaveScreen?
                      if  frmXPos #append frmYPos #append
                          s"  2value XYPos  \ save screen location of form" append&crlf
--- 1509,1514 ----
                  if      s" MultiStatusBar TheStatusBar" append&crlf
                  then    GetSuperclass: self DIALOG-CLASS =      \ only for dialogwindow super class
!                 if  s" 0 value hWndParent   \ window handle of the parent of form" append&crlf
!                     SaveScreen?
                      if  frmXPos #append frmYPos #append
                          s"  2value XYPos  \ save screen location of form" append&crlf
***************
*** 1738,1746 ****
                  s" \ if this form is a modal form a non-zero parent must be set" append&crlf
                  s" :M ParentWindow:  ( -- hwndparent | 0 if no parent )" append&crlf
!                 2tabs s" parent" append&crlf
                  2tabs s" ;M" append&crlf
                  \ write function for setting parent window
                  +crlf s" :M SetParent:  ( hwndparent -- ) \ set owner window" append&crlf
!                 2tabs s" to parent" append&crlf
                  2tabs s" ;M" append&crlf ;
  
--- 1739,1747 ----
                  s" \ if this form is a modal form a non-zero parent must be set" append&crlf
                  s" :M ParentWindow:  ( -- hwndparent | 0 if no parent )" append&crlf
!                 2tabs s" hWndParent" append&crlf
                  2tabs s" ;M" append&crlf
                  \ write function for setting parent window
                  +crlf s" :M SetParent:  ( hwndparent -- ) \ set owner window" append&crlf
!                 2tabs s" to hWndParent" append&crlf
                  2tabs s" ;M" append&crlf ;