\' Gambas class file
Inherits Comando
Private p1 As New Point
Private torigen As Tablero
Public Sub _new(t As Tablero, x0 As Integer, y0 As Integer)
torigen = t
p1.x = x0
p1.y = y0
End
Public Sub ejecutar()
torigen.insertarValla(p1.x, p1.y)
torigen.dibujalista()
End
Public Sub deshacer()
\'cambio movimiento
torigen.quitarValla(p1.X, p1.y)
torigen.dibujalista()
End