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

[George H. <geo...@us...>]

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

Modified Files:
	FORMOBJECT.F 
Log Message:
gah:Fix for delete problem from Ezra Boyce

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** FORMOBJECT.F	20 Nov 2006 14:18:17 -0000	1.13
--- FORMOBJECT.F	23 Nov 2006 16:15:30 -0000	1.14
***************
*** 1111,1114 ****
--- 1111,1115 ----
                  GetType: ActiveControl dec-array
                  ActiveControl ?ControlNumber >Link#: ControlList
+                 Free: ActiveControl
                  ActiveControl Dispose   \ closes control before disposing
                  0 Data!: ControlList
***************
*** 1139,1142 ****
--- 1140,1144 ----
                    0 Data!: ControlList      \ zero it
                    DeleteLink: ControlList   \ and delete
+                   Free: ActiveControl
                    ActiveControl Dispose     \ ditto for old control
                    r> >Link#: ControlList    \ as we were