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 ;
|
