* this will set the property values on the beginning of the form and then set them * back on the destory of the form THIS.cOrgEscape = SET("Escape") THIS.nOrgSys3054 = INT(VAL(SYS(3054))) THIS.cOrgUDFParms = SET("UDFPARMS") THIS.cOrgNotifyCursor = SET("NOTIFY", 1)In the DESTORY method, I reset those values that were stored in the load
m.cUDFParms = THIS.cOrgUDFParms IF !EMPTY(m.cUDFParms) SET UDFPARMS TO &cUDFParms ENDIF m.cEscape = THIS.cOrgEscape IF !EMPTY(m.cEscape) SET ESCAPE &cEscape ENDIF SYS(3054,THIS.nOrgSys3054) m.cNotifyCursor = THIS.cOrgNotifyCursor IF !EMPTY(m.cNotifyCursor) SET NOTIFY CURSOR &cNotifyCursor ENDIF *this is added becasue SET NOTIFY CURSOR ON just doesn't complete the process *once I did this, I was able see the cursor name in the status bar SET MESSAGE TOOk, I have re-written this enough. This is what I am using and sticking with for now. If I make any other changes, I will post them here