New. If System have kdialog, yad, zenity then file chooser use this c…

…ommand to get save file dir i Generate report

src/i-nex/.src/FReport_Gen.class

@@ -124,13 +124,28 @@ Endif
 End
 
 Public Sub ButtonBox1_Click()
- Dialog.Title = "Choose a file"
- Dialog.Filter = ["*.txt", "Text files"]
- Dialog.SaveFile
- ButtonBox1.Text = Dialog.Path
- If Exist(ButtonBox1.Text, True) Then
- Shell "rm " & Dialog.Path & "" Wait
- Endif
+  Dim savefile As String
+
+  If ChkPrm.ChkExec("kdialog") = True Then
+     Exec ["kdialog", "--getsaveurl", "~/", ".txt"] Wait To savefile
+     ButtonBox1.Text = Replace(savefile, "file://", "")
+  Else If ChkPrm.ChkExec("yad") = True Then
+     Exec ["yad", "--width=600", "--height=500", "--align=center", "--file-selection", "--filename=report.txt", "--file-filter=*.txt"] Wait To savefile
+     ButtonBox1.Text = Replace(savefile, "file://", "")
+  Else If ChkPrm.ChkExec("zenity") = True Then
+     Exec ["zenity", "--file-selection", "--confirm-overwrite", "--filename=report.txt", "--file-filter=*.txt"] Wait To savefile
+     ButtonBox1.Text = Replace(savefile, "file://", "")
+  Else
+     Dialog.Title = "Choose a file"
+     Dialog.Filter = ["*.txt", "Text files"]
+     Dialog.SaveFile
+     ButtonBox1.Text = Dialog.Path
+  Endif
+
+  If Exist(ButtonBox1.Text, True) Then
+  Try Kill ButtonBox1.Text
+  Endif
+
 End
 
 Public Sub Button2_Click()