Advertisement
jsbsan

insertar

Nov 3rd, 2013
1,863
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.43 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Inherits Comando
  4.  
  5. Private p1 As New Point
  6.  
  7. Private torigen As Tablero
  8.  
  9. Public Sub _new(t As Tablero, x0 As Integer, y0 As Integer)
  10.  
  11.   torigen = t
  12.  
  13.   p1.x = x0
  14.   p1.y = y0
  15.  
  16. End
  17.  
  18. Public Sub ejecutar()
  19.  
  20.   torigen.insertarValla(p1.x, p1.y)
  21.  
  22.   torigen.dibujalista()  
  23.  
  24. End
  25.  
  26. Public Sub deshacer()
  27.   'cambio movimiento
  28.  
  29.   torigen.quitarValla(p1.X, p1.y)
  30.   torigen.dibujalista()
  31.  
  32. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement