Add option to copy to clipboard and remove unity_support_test

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

@@ -1,11 +1,8 @@
 ' Gambas class file
 
 Public Sub Form_Open()
-  Dim unity_support_test As Boolean = Exist("/usr/lib/nux/unity_support_test")
   ButtonBox1.Text = Desktop.Path & "/report.txt"
-  If unity_support_test = True Then
-  CheckBox10.Visible = True
-  Endif
+
   ComboBox1.Add("pastebin.com")
   ComboBox1.Add("cxg.de")
   ComboBox1.Add("fpaste.org")
@@ -147,3 +144,12 @@ Public Sub Button3_Click()
   Message.Warning("Please select the Send to pastebin and then click on the  generate button.\nThis will take you to pastebin site. ")
  Endif
 End
+
+Public Sub Button4_Click()
+ If TextBox1.Text = Null Then
+  Message.Error("Nothing to copy, \nplease first generate report and select: \nSend to nopaste service", "OK")
+ Else
+  Clipboard.Copy(TextBox1.Text)
+ Endif
+
+End

src/i-nex/.src/FReport_Gen.form

@@ -151,7 +151,7 @@
     Picture = Picture["icon:/16/network"]
   }
   { TextBox1 TextBox
-    Move(7,385,455,28)
+    Move(7,385,427,28)
     Expand = True
     ReadOnly = True
   }
@@ -164,7 +164,7 @@
       Text = ("Send report to nopaste service:   ")
     }
     { ComboBox1 ComboBox
-      Move(329,0,144,24)
+      Move(322,0,144,24)
       Expand = True
       ReadOnly = True
     }
@@ -174,4 +174,9 @@
     Text = ("Close this window when finished.")
     Value = CheckBox.True
   }
+  { Button4 Button
+    Move(434,385,24,24)
+    ToolTip = ("Copy this link")
+    Picture = Picture["icon:/small/copy"]
+  }
 }