FmMain Debug Testsuites

[DEVELOPMENT ENVIRONMENT]
* NEW: Menu entry Debug->Testsuites

app/src/gambas3/.src/FMain.class

@@ -1425,7 +1425,7 @@ Public Sub Action_Activate((Key) As String) As Boolean
       Project.Run(False)
     Case "test"
       Project.Test()
-    Case "testdesign"
+    Case "testsuites"
       FTestSuite.ShowDialog()
     Case "pause"
       Design.Pause
@@ -3155,5 +3155,6 @@ End
 Public Sub OnRefreshSources()
   
   Action["test"].Visible = Project.HasTest()
+  Action["testsuites"].Visible = Project.HasTest()
   
 End

app/src/gambas3/.src/FMain.form

@@ -265,6 +265,10 @@
       Picture = Picture["icon:/small/ok"]
       Shortcut = "F4"
     }
+    { mnuTestsuites Menu
+      Action = "testsuites"
+      Text = ("Testsuites") & "..."
+    }
     { Menu14 Menu
     }
     { mnuPause Menu
@@ -1822,8 +1826,8 @@
     Shortcut = "F4"
     Picture = "icon:/small/ok"
   }
-  { Action testdesign
-    Text = "Define Testsuite"
+  { Action testsuites
+    Text = "Testsuites"
     Shortcut = ""
   }
   { Action tips