Correction, the class library is BaseApp.VCX. Any help understanding what may be going is appreciated! TIA
Be well. ================ PabloSr In a learning adventure -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Pablo Rivera Sr Sent: Saturday, July 01, 2006 10:16 PM To: [EMAIL PROTECTED] Subject: Program errors when releasing environment class in destroy event These are the program errors I get: Unrecognized command verb. Syntax error. File does not exist. Cannot open file c:\documents.dbf I am trying to adapt "The fundamentals..." environment class within my own baseclass.vcx. Has anyone come across these program errors...? I have not used the "hw..." classes, but this "ENV" class is based on my own prCustom class which is a direct subclass of the custom base class to which I've made no changes. All the changes have been put into the "ENV" class which when released give me those errors listed above. FYI. The Environment class has the properties and methods recommended, i.e.: DoSets, SaveSets, and RestoreSets. The DoSets and the RestoreSets methods are called from the Init and Destroy events with the requisite this.dosets, and this.restoresets, respectively. Any insight out there? Here's the code for the class "ENV" in case some adventuresome spirit wishes to test: DEFINE CLASS env AS prcustom coldcent = "ON" colddele = "" coldesca = "" coldexac = "" coldexcl = "" coldmult = "" coldproc = "" coldrepr = "" coldsafe = "" coldstat = "" coldtalk = "" coldhelp = "" coldreso = "" coldoner = "" noldhour = "" coldclas = "" Name = "env" *-- Saves the values of existing set commands to properties of this ENV class PROCEDURE savesets m.gcOldHour = set("HOURS") set hours to 12 set hours to &gcOldHour this.cOldclas = SET("Classlib") this.cOldCent = set("century") this.cOldDele = set("delete") this.cOldEsca = set("escape") this.cOldExac = set("exact") this.cOldExcl = set("exclusive") this.cOldMult = set("multilocks") this.cOldProc = set("procedure") this.cOldRepr = set("reprocess") this.cOldSafe = set("safety") this.cOldStat = set("status bar") this.cOldTalk = gcOldTalk this.cOldHelp = set("help",1) this.cOldReso = sys(2005) this.cOldOnEr = on("error") RETURN ENDPROC PROCEDURE dosets SET CENTURY ON SET ESCAPE ON SET CLOCK STATUS SET DELETED ON SET EXACT OFF SET EXCLUSIVE OFF SET MULTILOCKS ON SET REPROCESS TO 5 SET SAFETY OFF RETURN ENDPROC PROCEDURE restoresets * use "u" because you may be storing either * character or numeric values to luTemp * in your own routine * m.gcOldHour = set("HOURS") set hours to 12 set hours to &gcOldHour * local luTemp luTemp = this.cOldCent set century &luTemp * luTemp = this.cOldClas set classlib to &luTemp * luTemp = this.cOldDele set deleted &luTemp * luTemp = this.cOldEsca set escape &luTemp * luTemp = this.cOldExac set exact &luTemp * luTemp = this.cOldExcl set exclusive &luTemp * luTemp = this.cOldMult set multilocks &luTemp * luTemp = this.cOldProc set procedure to &luTemp * luTemp = this.cOldRepr set reprocess to (luTemp) * luTemp = this.cOldSafe set safety &luTemp * luTemp = this.cOldStat set status bar &luTemp * luTemp = this.cOldOnEr on error (luTemp) * luTemp = this.cOldTalk set talk &luTemp * luTemp = this.cOldHelp if !empty( luTemp ) set help to &luTemp ENDIF * luTemp = this.cOldReso if !empty( luTemp ) set resource to &luTemp ENDIF * RETURN ENDPROC PROCEDURE Init * call the savesetes procedure this.savesets ENDPROC PROCEDURE Destroy * call the restoresets method in this class this.restoresets ENDPROC ENDDEFINE * *-- EndDefine: env ************************************************** ================ PabloSr In a learning adventure [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
