Commit 915db308 authored by gambas's avatar gambas
Browse files

Test suites dialog: Add a button to run the selected test suite, that reacts to the F4 shortcut.

[DEVELOPMENT ENVIRONMENT]
* NEW: Test suites dialog: Add a button to run the selected test suite, that reacts to the F4 shortcut.
parent 369f2301
Pipeline #490678526 failed with stage
in 21 minutes and 54 seconds
......@@ -332,13 +332,15 @@ End
Public Sub Form_KeyPress()
Select Case Key.Code
Case Key["+"]
Select Case Key.Shortcut
Case "+"
btnNew.Value = True
Case Key.Delete, Key["-"]
Case "-", "Delete"
btnDelete.Value = True
Case Key["Z"]
If Key.Control Then btnReset.Value = True
Case "CTRL+Z"
btnReset.Value = True
Case "F4"
btnRunTest.Value = True
End Select
End
......@@ -348,3 +350,9 @@ Public Sub lvwSuite_DblClick()
Try lvwSuite.Current.Rename()
End
Public Sub btnRunTest_Click()
Me.Close(True)
End
......@@ -20,6 +20,12 @@
Expand = True
ReadOnly = True
}
{ btnRunTest Button
MoveScaled(61,0,16,4)
AutoResize = True
Text = ("Run test")
Picture = Picture["icon:/small/ok"]
}
}
{ HBox2 Panel
MoveScaled(1,8,77,42)
......
......@@ -1544,6 +1544,7 @@ Public Sub Action_Activate((Key) As String) As Boolean
Dim hEditor As FEditor
Dim hCtrl As Object
Dim hAction As Action
Dim bRunTest As Integer
Select Key
......@@ -1556,8 +1557,9 @@ Public Sub Action_Activate((Key) As String) As Boolean
Case "test"
Project.Test()
Case "test-suite"
FTestSuite.ShowDialog()
bRunTest = FTestSuite.ShowDialog()
FDebugInfo.UpdateTestSuites
If bRunTest Then Project.Test()
Case "pause"
Design.Pause
Case "stop"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment