Page History

USING Progress.Lang.*.
USING Akioma.Swat.OERA.ContextTest.ITestContextWrapper FROM PROPATH.
USING Akioma.Swat.OERA.Context.BaseContextWrapperImpl FROM PROPATH.
USING Akioma.Swat.SessionManager FROM PROPATH.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS Test.TestContextWrapperImpl
    INHERITS BaseContextWrapperImpl
    IMPLEMENTS ITestContextWrapper : 
    
	DEFINE PUBLIC PROPERTY TestProperty1 AS CHARACTER NO-UNDO
    GET ():
        IF NOT IsValidateSessionContext ("Get":U) THEN
            RETURN ?.
        RETURN GetSessionContextField ("TestProperty1"):BUFFER-VALUE .
    END GET .
    SET (arg AS CHARACTER):
        IsValidateSessionContext ("Set":U).
        GetSessionContextField ("TestProperty1"):BUFFER-VALUE = arg .
    END SET.
??
	DEFINE PUBLIC PROPERTY TestProperty2 AS CHARACTER NO-UNDO
    GET ():
        IF NOT IsValidateSessionContext ("Get":U) THEN
            RETURN ?.
        RETURN GetSessionContextField ("TestProperty2"):BUFFER-VALUE .
    END GET .
    SET (arg AS CHARACTER):
        IsValidateSessionContext ("Set":U).
        GetSessionContextField ("TestProperty2"):BUFFER-VALUE = arg .
    END SET.
    
    CONSTRUCTOR TestContextWrapperImpl():
        SUPER().
        THIS-OBJECT:ContextTableName = "eTestSessionContext".
    END CONSTRUCTOR.

END CLASS.