diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_autocorrection.inc')
-rwxr-xr-x | testautomation/graphics/optional/includes/global/g_autocorrection.inc | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc index 21cda12dc6f4..bceff84e9f5b 100755 --- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc +++ b/testautomation/graphics/optional/includes/global/g_autocorrection.inc @@ -217,15 +217,15 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check + SingleQuotesReplace.Check else - DoppelteErsetzen.Check - DoppeltStandard.Click + DoubleQuotesReplace.Check + DoubleQuotesDefault.Click endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 5 gMouseClick 50,50 sleep 5 @@ -252,14 +252,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - dont replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - Active.SetPage TabTypografisch - Kontext "TabTypografisch" + Active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Uncheck + SingleQuotesReplace.Uncheck else - DoppelteErsetzen.Uncheck + DoubleQuotesReplace.Uncheck endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 gMouseClick 50,50 sleep 1 @@ -285,14 +285,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check - EinfachWortAnfang.Click + SingleQuotesReplace.Check + SingleQuotesStart.Click else - DoppelteErsetzen.Check - DoppeltWortAnfang.Click + DoubleQuotesReplace.Check + DoubleQuotesStart.Click endif Kontext "Sonderzeichen" sleep 1 @@ -301,11 +301,11 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) sleep 1 Sonderzeichen.OK - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" if bSimple then - EinfachWortEnde.Click + SingleQuotesEnd.Click else - DoppeltWortEnde.Click + DoubleQuotesEnd.Click endif Kontext "Sonderzeichen" sleep 1 @@ -314,8 +314,8 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) sleep 1 Sonderzeichen.OK - Kontext "TabTypografisch" - TabTypografisch.OK + Kontext "TabLocalizedOptions" + TabLocalizedOptions.OK sleep 5 gMouseClick 50,50 sleep 5 @@ -341,17 +341,17 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - back to standard" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check - EinfachStandard.Click + SingleQuotesReplace.Check + SingleQuotesDefault.Click else - DoppelteErsetzen.Check - DoppeltStandard.Click + DoubleQuotesReplace.Check + DoubleQuotesDefault.Click endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30) sleep 2 @@ -374,14 +374,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.UnCheck + SingleQuotesReplace.UnCheck else - DoppelteErsetzen.UnCheck + DoubleQuotesReplace.UnCheck endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 hCloseDocument @@ -390,7 +390,7 @@ endcase '------------------------------------------------------------------------------- testcase tToolsAutocorrectOption - const cEntryCount = 9 + const cEntryCount = 7 dim i as integer dim iEntryCount as integer dim sEntries (20, 2) as string @@ -407,14 +407,14 @@ testcase tToolsAutocorrectOption sEntries (4,2) = "*Hello* " '"_Hello_ " sEntries (5,1) = "URL Recognition" sEntries (5,2) = "It is www.ksta.de " - sEntries (6,1) = "Replace 1st... with 1^st..." - sEntries (6,2) = "1st " - sEntries (7,1) = "Replace 1/2 ... with û ..." - sEntries (7,2) = "1/2 " - sEntries (8,1) = "Replace dashes" - sEntries (8,2) = "Hello - Hrbert " - sEntries (9,1) = "Ignore double spaces" - sEntries (9,2) = "Hello this is 2 blanks " + 'sEntries (6,1) = "Replace 1st... with 1^st..." + 'sEntries (6,2) = "1st " + 'sEntries (7,1) = "Replace 1/2 ... with û ..." + 'sEntries (7,2) = "1/2 " + sEntries (6,1) = "Replace dashes" + sEntries (6,2) = "Hello - Hrbert " + sEntries (7,1) = "Ignore double spaces" + sEntries (7,2) = "Hello this is 2 blanks " Printlog "- Tools / Autocorrect -options" Call hNewDocument() |