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
|
