' Gambas class file

Public Sub Form_Open()
  Me.x = FMain.x + 10
  Me.y = FMain.y + 10  
  escogeFichero.Filter = ["*.pdf", ("Ficheros PDF")]
End

Public Sub botonCANCELAR_Click()
  FMain.botonSeleccionarPDF.Tag = ""
  FMain.Frame1.Enabled = False
  Me.Close
End

Public Sub botonACEPTAR_Click()
  Dim tipo As String
  Dim fichero As String
  fichero = escogeFichero.SelectedPath
  ' No creemos al usuario.. veamos si es un PDF...
  Shell "echo -n $(file " & fichero & "|awk -F ':' '{print $2}'|grep -i 'pdf'|wc -l)" To tipo
  If tipo <> "0" 
  ' file fichero |awk -F ': ' '{print $2}'|grep -i "pdf"|wc -l
    ' Enviamos como STRING la URL absoluta del fichero
    FMain.botonSeleccionarPDF.Tag = escogeFichero.SelectedPath
    FMain.Frame1.Enabled = True
    Me.Close  
  Else
    ' No es un PDF
    FMain.Frame1.Enabled = False
    Message.Title = ("ERROR - Fichero PDF")
    Message.Error("El fichero seleccionado no es un PDF")
  Endif
End