luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

FTestSuite small fix selecttion of tests

Browse source
This commit is contained in:
Christof Thalhofer 2020-05-19 11:30:42 +02:00
parent cc57058d03
commit 5327e17b5e
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
app/src/gambas3/.src/Debug/FTestSuite.class
View file

@ -172,19 +172,6 @@ Private Sub StoreTests(TestSuite As String, Tests As String)
End
Public Sub tvwTests_Click()
$sBackuptests = TxtSelected.Text
FillSelected()
If Not lvwTestSuites.Exist(CURRENT_TESTSUITE_KEY) Then
lvwTestSuites.Add(CURRENT_TESTSUITE_KEY, $sCurrentTestSuiteCalled)
Endif
lvwTestSuites[CURRENT_TESTSUITE_KEY].Selected = True
End
Public Sub Form_KeyPress()
'Maybe TODO: Ctrl-Z Ctrl-Y
@ -318,3 +305,16 @@ Private Function GetAllowedCharsForHumans() As String
Return sbuf
End
Public Sub tvwTests_Select()
$sBackuptests = TxtSelected.Text
FillSelected()
If Not lvwTestSuites.Exist(CURRENT_TESTSUITE_KEY) Then
lvwTestSuites.Add(CURRENT_TESTSUITE_KEY, $sCurrentTestSuiteCalled)
Endif
lvwTestSuites[CURRENT_TESTSUITE_KEY].Selected = True
End