ParallelFox: Added default error handler for workers when not in debug mode to prevent crashes.

git-svn-id: https://vfpx.svn.codeplex.com/svn/ParallelFox@94126 81e6e737-5a20-4d0f-a97c-cb01297b46e0

Author: SND\joelleach_cp

workermgr.VCT

@@ -8,6 +8,51 @@ PLATFORM C(8,0),UNIQUEID C(10,0),TIMESTAMP N(10,0),CLASS M(4,0),CLASSLOC M(4,0),
 [START RESERVED1]
 VERSION =   3.00[END RESERVED1]
 
+[ RECORD]
+[PLATFORM] WINDOWS 
+[UNIQUEID] _3CV0I1GR4
+[CLASS] custom
+[BASECLASS] custom
+[OBJNAME] errorhandler
+[START PROPERTIES]
+Name = "errorhandler"
+_memberdata = <VFPData><memberdata name="handleerror" display="HandleError"/></VFPData>
+[END PROPERTIES]
+[START METHODS]
+PROCEDURE Init
+* Default error handler 
+* Unhandled errors may cause workers to crash when not in debug mode
+
+On Error _Screen.oErrorHandler.HandleError(Error(), Sys(16), Lineno(1), Message(), Message(1))
+ENDPROC
+PROCEDURE handleerror
+* Handle worker error and return to main process
+Lparameters lnError, lcMethod, lnLine, lcMessage, lcCode
+Local Worker as Worker
+Worker = NewObject("Worker", "ParallelFox.vcx")
+
+Worker.ReturnError(lnError, lcMethod, lnLine, lcMessage, lcCode)
+
+* Exit current code containing error and return to command processor
+Return to ProcessCommand 
+ENDPROC
+[END METHODS]
+[START RESERVED1]
+Class[END RESERVED1]
+[START RESERVED2]
+1[END RESERVED2]
+[START RESERVED3]
+*handleerror Handle worker error.
+_memberdata XML Metadata for customizable properties
+[END RESERVED3]
+[START RESERVED6]
+Pixels[END RESERVED6]
+
+[ RECORD]
+[PLATFORM] COMMENT 
+[UNIQUEID] RESERVED  
+[OBJNAME] errorhandler
+
 [ RECORD]
 [PLATFORM] WINDOWS 
 [UNIQUEID] _2Z619GLX6
@@ -104,6 +149,8 @@ _VFP.Caption = "ParallelFox Worker"
 *	can cause worker to crash.
 If _VFP.StartMode > 1
 	Sys(2335,0)
+	* Default error handler
+	_Screen.NewObject("oErrorHandler", "ErrorHandler", "ParallelFox.vcx")
 EndIf 
 Set TablePrompt Off
 This.oCmdTimer = NewObject("tmrCommand", "ParallelFox.vcx")