$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
- Sources
- Kodigo
- OpenExplorer
- n_x.sru
File: n_x.sru
Size: 1264
Date: Mon, 07 Apr 2008 21:30:56 +0200
Size: 1264
Date: Mon, 07 Apr 2008 21:30:56 +0200