PBMiner

$PBExportHeader$n_x.sru
$PBExportComments$Base Exception Class
forward
global type n_x from exception
end type
end forward

global type n_x from exception
end type
global n_x n_x

type variables
Public:
String Title
String ObjectName
String RoutineName
String MsgID
icon Icon
Integer Line

private:
n_x ix_exceptionstack[]
end variables

forward prototypes
public subroutine of_copyruntimeerror (readonly runtimeerror a_re)
public subroutine of_populatefromerror ()
end prototypes

public subroutine of_copyruntimeerror (readonly runtimeerror a_re);this.Title = "Runtime Error"
this.Icon = Stopsign!
this.MsgID = STRING(a_re.Number)
this.RoutineName = a_re.RoutineName
this.ObjectName = a_re.ObjectName
this.SetMessage(a_re.GetMessage())
/*
how do we get this?
IF a_re.TypeOf() = PBXRuntimeError! THEN
   this.DLLName = a_re.DLLName
END IF
*/
end subroutine

public subroutine of_populatefromerror ();this.Title = ""
this.Icon = StopSign!
this.RoutineName = Error.objectevent
this.ObjectName = Error.object
this.SetMessage(Error.text)
end subroutine

on n_x.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_x.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on