diff options
Diffstat (limited to 'testautomation/dbaccess/optional/includes')
3 files changed, 14 insertions, 5 deletions
diff --git a/testautomation/dbaccess/optional/includes/ctrl_General.inc b/testautomation/dbaccess/optional/includes/ctrl_General.inc index 5fc684f8f540..80fc173652b2 100755 --- a/testautomation/dbaccess/optional/includes/ctrl_General.inc +++ b/testautomation/dbaccess/optional/includes/ctrl_General.inc @@ -884,6 +884,8 @@ testcase tActivationOrder endif DocumentWriter.TypeKeys "<TAB>" , true sleep(1) + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true sleep(1) DocumentWriter.TypeKeys "<MOD1 C>" , true @@ -896,6 +898,8 @@ testcase tActivationOrder DocumentWriter.TypeKeys "<TAB>" , true sleep(1) + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true sleep(1) DocumentWriter.TypeKeys "<MOD1 C>" , true diff --git a/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc b/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc index 4ce62f21b619..b7e93ba9e34c 100755 --- a/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc +++ b/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc @@ -581,7 +581,7 @@ testcase tListBox Kontext "FormControls" Listbox.Click - call hDrawingWithSelection ( 50, 20, 60, 30 ) + call hDrawingWithSelection ( 50, 20, 60, 25 ) sleep(3) Kontext "AutoPilotListComboBox" AutoPilotListComboBox.MouseDown(10,10) diff --git a/testautomation/dbaccess/optional/includes/frm_Forms.inc b/testautomation/dbaccess/optional/includes/frm_Forms.inc index 5bc5b4c18131..5cfeeb7a709f 100755 --- a/testautomation/dbaccess/optional/includes/frm_Forms.inc +++ b/testautomation/dbaccess/optional/includes/frm_Forms.inc @@ -530,9 +530,10 @@ testcase tCreateSubForms DataSource.setText(gDSName) TabDataForm.TypeKeys("<RETURN>") '/// set the table TT_Forms - printlog "set the table TT_Forms" - Content.setText("TT_Forms") - TabDataForm.TypeKeys("<RETURN>") + printlog "set the table TT_Forms" + Content.setText("TT_Forms") + sleep(1) + Content.TypeKeys("<RETURN>",true) sleep(1) Kontext "FormPropertiesDialog" sleep(1) @@ -607,7 +608,11 @@ testcase tCreateSubForms '/// set the sql string : select * from TT_Forms where id=:var1" printlog "set the sql string : select * from TT_Forms where id=:var1" TabDataForm.TypeKeys "<RETURN>" , true - TabDataForm.TypeKeys "select * from TT_Forms where id=:var1" , true + sleep(1) + Content.TypeKeys "select * from TT_Forms where id=:var1" , true + sleep(1) + TabDataForm.TypeKeys("<RETURN>") + sleep(1) '/// set link master field printlog "set link master field" TabDataForm.TypeKeys "<TAB>" , 11 , true |