Imports UTS_Core.Undo
Imports UTS_Core.UTSModule.Station

Public Class GridNodeMoveUpCommand : Implements ICommand

    Private ReadOnly grd As StationPlanGrid
    Private ReadOnly startMoveRow As Integer
    Private ReadOnly moveRows As Integer

    Sub New(grd As StationPlanGrid, startMoveRow As Integer, moveRows As Integer)
        Me.grd = grd
        Me.startMoveRow = startMoveRow
        Me.moveRows = moveRows
    End Sub


    Public Sub Execute() Implements ICommand.Execute
        grd.NodeMoveUp(startMoveRow, moveRows)
    End Sub

    Public Sub Redo() Implements ICommand.Redo
        grd.NodeMoveUp(startMoveRow, moveRows)
    End Sub

    Public Sub Undo() Implements ICommand.Undo
        grd.NodeMoveDown(startMoveRow, moveRows)
    End Sub
End Class