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
|
