' Gambas class file

sLine AS String
tmpsrc AS String
hSourceIn AS File
choice AS String
Content AS String
PUBLIC SUB Form_Open()
DIM fSourceInput AS File
ME.Caption = "Build a package"
ME.Center
PathBox.Clear
CpuLbl.text = "ARCH: i586"
BuildLbl.text = "BUILD: 1"  
BuildTagLbl.text = "TAG: vl58"
ArchSel.text = "Arch"
BuildSel.text = "Build"
BldTagBox.Text = "Tag"
END

PUBLIC SUB BackBtn_Click()
ME.close
FMain.Show  
END

PUBLIC SUB BrwseBtn_Click()

Dialog.title = "Select a source tarball"
dialog.filter = ["Compressed Source (*)"]
Dialog.OpenFile
tmpsrc = Dialog.Path
PathBox.text = tmpsrc  

END

PUBLIC SUB QuitBtn_Click()

QUIT 

END

PUBLIC SUB buildinfo_MouseDown()

  

END

PUBLIC SUB PkgrId_KeyPress()

  

END

PUBLIC SUB PkgrId_Enter()

PkgrID.clear

END

PUBLIC SUB ArchSel_Click()

  

END

PUBLIC SUB NextBtn_Click()
DIM sName AS String
DIM sVersion AS String
DIM sPname AS String
DIM ipos1 AS Integer
DIM ipos2 AS Integer
DIM ipos3 AS Integer


'EXEC ["cd", "/tmp", "&&", "tar", "xf", tmpsrc]
EXEC ["tar", "Cxvf", "/tmp", tmpsrc]
'TextArea1.text = tmpsrc 
ipos1 = RInStr(Dialog.Path, "/")
sPname = Right$(tmpsrc, - ipos1)
ipos2 = InStr(sPname, "-")
ipos3 = InStr(sPname, ".tar") - 1 
sName = Left$(spname, ipos2 - 1)
sVersion = Mid$(Left$(sPname, ipos3), ipos2 + 1)
'TextArea1.Text = "name " & sName & "   " & sVersion
TextArea1.Text = sPname & "       " & sName & "      " & sVersion
SHELL "cd /tmp/" & sName & "-" & sVersion & " && ./configure" FOR READ
'TextArea1.Text = 
TextArea1.Text = Content
END
PUBLIC SUB Process_Read()

  DIM sLine AS String

  READ #LAST, sLine, -256

  Content = Content & sLine
  PRINT sLine;

END

PUBLIC SUB ComboBox1_Change()


choice = Trim(ComboBox1.text)  
message.info(choice & " Was selected")
TextArea1.text = choice & " Was selected"
END