formularioinicio

' Gambas class file

Public tablero As New ClassTablero

Public Sub Form_Open()
  '
  TextLabelVersion.text = "Version: <font color=\"red\">" & Application.Version & "</font> "
  Me.center

End

Public Sub ToolButtonNueva_Click()

  Dim jugadores As New Variant[]
  Dim texto As New String[]

  tablero = New ClassTablero 'inicio un tablero en blanco
  FMainTablero.TextAreaJugadas.text = ""

  FormJugadores.texto = texto
  FormJugadores.jugadores = jugadores

  FormJugadores.Showmodal()
  If jugadores.max = -1 Then
    Return
  Endif
  FMainTablero.jugadores = New Variant[]
  FMainTablero.jugadores.Add(jugadores[0])
  FMainTablero.jugadores.Add(jugadores[1])
  FMainTablero.texto = texto
  FMainTablero.tablero = New ClassTablero
  Me.Minimized = True
  FMainTablero.Show()

End