[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.5,1.6

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	FORMOBJECT.F 
Log Message:
Got some problems when Parent was defined as a value.

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FORMOBJECT.F	21 Aug 2005 06:22:00 -0000	1.5
--- FORMOBJECT.F	21 Sep 2005 12:40:39 -0000	1.6
***************
*** 1422,1426 ****
                  if      s" MultiStatusBar TheStatusBar" append&crlf
                  then    GetSuperclass: self DIALOG-CLASS =      \ only for dialogwindow super class
!                 if  s" 0 value parent   \ pointer to parent of form" append&crlf
                      SaveScreen?
                      if  frmXPos (.) append 1 +spaces frmYPos (.) append
--- 1422,1426 ----
                  if      s" MultiStatusBar TheStatusBar" append&crlf
                  then    GetSuperclass: self DIALOG-CLASS =      \ only for dialogwindow super class
!                 if  s" int parent   \ pointer to parent of form" append&crlf
                      SaveScreen?
                      if  frmXPos (.) append 1 +spaces frmYPos (.) append
***************
*** 2000,2002 ****
                  r> >Link#: FormList ;
  
! \s
\ No newline at end of file
--- 2000,2002 ----
                  r> >Link#: FormList ;
  
! \s