diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_opt_2.inc')
-rw-r--r-- | testautomation/graphics/required/includes/global/id_opt_2.inc | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/testautomation/graphics/required/includes/global/id_opt_2.inc b/testautomation/graphics/required/includes/global/id_opt_2.inc index 8d38b2b9dc92..0d2f050f4916 100644 --- a/testautomation/graphics/required/includes/global/id_opt_2.inc +++ b/testautomation/graphics/required/includes/global/id_opt_2.inc @@ -37,15 +37,15 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) dim iCount2 as integer dim sUnitOptions as string dim sUnitDialog as string - + hNewDocument - sleep 1 + sleep 1 ToolsOptions hToolsOptions (sApplication,"General") iCount2 = Masseinheit.GetSelIndex printlog "current measurement unit is: " & iCount2 iCount = Masseinheit.GetItemCount - + Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog "----------------------" @@ -56,14 +56,11 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) for i=1 to iCount ToolsOptions hToolsOptions (sApplication,"General") - Masseinheit.select i sUnitOptions = GetMeasUnit(Tabulatorabstand.getText) ' (1) printlog "(" + i + "/" + iCount + "): '" + Masseinheit.getSelText + "' - " + sUnitOptions + " (1)" - Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Format3D_Effects Kontext "Drei_D_Effekte" Geometrie.Click @@ -74,7 +71,6 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Depth:'" + getMeasUnit(Tiefe.getText) + "' (3)" endif Drei_D_Effekte.close - FormatParagraph Kontext Messagebox.SetPage TabEinzuegeUndAbstaende @@ -86,9 +82,8 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Vonlinks:'" + getMeasUnit(Vonlinks.getText) + "' Paragraph" endif TabEinzuegeUndAbstaende.cancel - next i - + printlog "Setting back measurement to " & iCount2 ToolsOptions hToolsOptions (sApplication,"General") @@ -97,4 +92,4 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) ExtrasOptionenDlg.OK hCloseDocument -endcase 'tToolsOptionsMeasurementUnit +endcase 'tToolsOptionsMeasurementUnit
\ No newline at end of file |