Public Sub Button1_Click()
  Dim sCurrentFileName As String
  sCurrentFileName = "~/files"
  If Exist(sCurrentFileName) Then
    Exec ["/usr/share/local/nmn/runscript"]
  Message.Info("Trying to copy your files into the destination Directory.It may take sometime depending the size of your file.So Please wait for sometime and then click ok!")
  Else
      Message.Info("Sorry the folder files doesn't exist in your home directory.Please paste Your files and try again ")
  Endif
  End

Public Sub Button4_Click()
 
  Message.Info(File.Load("help.htm"))

End




Public Sub Button2_Click() 
Dim sCurrentFileName As String
  sCurrentFileName = "/usr/share/local/nmn/files"
  If Exist(sCurrentFileName) Then
Exec ["/usr/share/local/nmn/newscript"]
Message.Info("Trying to package Your distribution.It may take sometime depending the size of your files.So please wait for sometime and then click ok!")
Shell "nautilus" Wait
  Else
      Message.Info("The folder files doesn't exist.Please copy the folder files in to your home directory and click the select button again!")
  Endif
  End
Public Sub Button6_Click()
Shell "nautilus" Wait
End

Public Sub Button8_Click()
Exec ["xdg-open", "/usr/share/local/nmn/readme.pdf"]

End

Public Sub Button7_Click()
Exec ["/usr/bin/python", "/usr/share/local/nmn/comments.py"]
  
End

Public Sub Button5_Click()

 Exec ["/usr/bin/python", "/usr/share/local/nmn/more.py"] 

End

Public Sub Label3_MouseDown()

  

End

Public Sub Menu2_Click()
 Dim sCurrentFileName As String
  sCurrentFileName = "~/files"
  If Exist(sCurrentFileName) Then
    Exec ["/usr/share/local/nmn/runscript"]
  Message.Info("Trying to copy your files into the destination Directory.It may take sometime depending the size of your file.So Please wait for sometime and then click ok!!")
  Else
      Message.Info("Sorry the folder files doesn't exist in your home directory.Please paste Your files and try again ")
  Endif
  End

Public Sub Menu3_Click()
Dim sCurrentFileName As String
  sCurrentFileName = "/usr/share/local/nmn/files"
  If Exist(sCurrentFileName) Then
Exec ["/usr/share/local/nmn/newscript"]
Message.Info("Trying to package Your distribution.It may take sometime depending the size of your files.So please wait for sometime and then click ok!")
Shell "nautilus" Wait
  Else
      Message.Info("The folder files doesn't exist.Please copy the folder files in to your home directory and click the select button again!")
  Endif
  End

Public Sub quit_Click()

  Me.close

End

Public Sub Menu6_Click()
Exec ["xdg-open", "/usr/share/local/nmn/readme.pdf"]
  

End

Public Sub Menu8_Click()

  Exec ["/usr/bin/python", "/usr/share/local/nmn/more.py"]

End

Public Sub Menu7_Click()
Exec ["/usr/bin/python", "/usr/share/local/nmn/comments.py"]
  

End