TOPIC:

BEGIN NAMESPACE Aspects

    /// <summary>
    /// The MyOnExceptionAspect class.
    /// </summary>
    [PSerializable];
    public class MyOnExceptionAspect INHERIT OnExceptionAspect
    
        override public METHOD OnException(args AS MethodExecutionArgs) AS VOID STRICT
        
            Console.WriteLine(i"From within the XSharp OnExceptionAspect: {args.Exception.Message}")
            args:FlowBehavior := FlowBehavior.Return
            return
    END CLASS
END NAMESPACE

BEGIN NAMESPACE PostSharpTest
    public CLASS Test

            [MyOnExceptionAspect];
            METHOD MyBuggyMethod(mustThrow as LOGIC) as void strict
                IF mustThrow
                    throw Exception{"I had to throw an exception"}
                ENDIF
            RETURN

    END CLASS	
END NAMESPACE // PostSharpTest

    FUNCTION Start() AS VOID
        Console.WriteLine("Hello World!")
        LOCAL t AS Test
        t := Test{}
        Console.WriteLine("before the buggy method")
        t:MyBuggyMethod(true)
        Console.WriteLine("after the buggy method")

        Console.WriteLine("Press any key to continue...")

        Console.ReadKey()
    RETURN

before the buggy method
From within the XSharp OnExceptionAspect: I had to throw an exception
after the buggy method