[SerializableAttribute]
public class ActionBuilder

<SerializableAttribute>
Public Class ActionBuilder

[SerializableAttribute]
public ref class ActionBuilder

[<SerializableAttribute>]
type ActionBuilder =  class end

using Kjs.AppLife.Update.Engine.Core;
using Kjs.AppLife.Update.Engine.Core.Design;

[ActionBuilder(typeof(DelayActionBuilder))]
public class DelayAction : UpdateAction {
    private int mSeconds;

    public DelayAction() { }

    public int Seconds {
        get { return this.mSeconds; }
        set { this.mSeconds = value; }
    }

    public override void Execute(UpdateContext context) {
        System.Threading.Thread.Sleep(mSeconds * 1000);
    }

    public override void RollbackExecute(UpdateContext context) { }
}

public class DelayActionBuilder : ActionBuilder {
    public DelayActionBuilder() { }

    private new DelayAction Action {
        get { return (DelayAction)base.Action; }
    }

    protected override void ValidateActionCore(ValidationErrorCollection errors) {
        if(this.Action.Seconds < 0) {
            errors.AddError("Seconds cannot be less than 0.");
        }
    }
}

Imports Kjs.AppLife.Update.Engine.Core
Imports Kjs.AppLife.Update.Engine.Core.Design

<ActionBuilder(GetType(DelayActionBuilder))> _
Public Class DelayAction
    Inherits UpdateAction

    Dim mSeconds As Integer

    Public Sub New()
    End Sub

    Public Property Seconds() As Integer
        Get
            Return mSeconds
        End Get
        Set(ByVal value As Integer)
            mSeconds = value
        End Set
    End Property

    Public Overrides Sub Execute(ByVal context As UpdateContext)
        System.Threading.Thread.Sleep(mSeconds * 1000)
    End Sub

    Public Overrides Sub RollbackExecute(ByVal context As UpdateContext)
    End Sub
End Class

Public Class DelayActionBuilder
    Inherits ActionBuilder

    Public Sub New()
    End Sub

    Public Overloads ReadOnly Property Action() As DelayAction
        Get
            Return CType(MyBase.Action, DelayAction)
        End Get
    End Property

    Protected Overrides Sub ValidateActionCore(ByVal errors As ValidationErrorCollection)
        If Me.Action.Seconds < 0 Then
            errors.AddError("Seconds cannot be less than 0.")
        End If
    End Sub
End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.