diff options
Diffstat (limited to 'testautomation/graphics')
4 files changed, 77 insertions, 77 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() diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc index fb774c22acb2..284e0b530c4a 100755 --- a/testautomation/graphics/optional/includes/global/id_006.inc +++ b/testautomation/graphics/optional/includes/global/id_006.inc @@ -199,35 +199,35 @@ testcase tiToolsAutoCorrect Kontext "TabOptionen" Call DialogTest ( TabOptionen ) Kontext - Messagebox.SetPage TabTypografisch - Kontext "TabTypografisch" ' 1a - EinfacheErsetzen.Check - EinfachWortAnfang.Click + Messagebox.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" ' 1a + SingleQuotesReplace.Check + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1b - EinfachWortEnde.Click + Kontext "TabLocalizedOptions" ' 1b + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1s - EinfachStandard.Click + Kontext "TabLocalizedOptions" ' 1s + SingleQuotesDefault.Click - Kontext "TabTypografisch" ' 2a - DoppeltWortAnfang.Click + Kontext "TabLocalizedOptions" ' 2a + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2b - DoppeltWortEnde.Click + Kontext "TabLocalizedOptions" ' 2b + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2s - DoppeltStandard.Click - EinfacheErsetzen.UnCheck - TabTypografisch.cancel + Kontext "TabLocalizedOptions" ' 2s + DoubleQuotesDefault.Click + SingleQuotesReplace.UnCheck + TabLocalizedOptions.cancel Call hCloseDocument endcase diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index d7a3834f64b7..edbc42b3d09b 100755 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -250,50 +250,50 @@ testcase tiToolsAutoCorrect Call DialogTest ( TabOptionen ) Kontext '/// select tabpage 'Custom Quotes' ///' - Messagebox.SetPage TabTypografisch - Kontext "TabTypografisch" ' 1a + Messagebox.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" ' 1a '/// in the part of 'single quotes': ///' '///+ check 'replace' ///' '///+ click 'start quote' ///' - EinfacheErsetzen.Check - EinfachWortAnfang.Click + SingleQuotesReplace.Check + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) '///+ cancel dialog 'start quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1b + Kontext "TabLocalizedOptions" ' 1b '///+ click 'end quote' ///' - EinfachWortEnde.Click + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) '///+ cancel dialog 'end quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1s + Kontext "TabLocalizedOptions" ' 1s '///+ click button 'default' ///' - EinfachStandard.Click + SingleQuotesDefault.Click - Kontext "TabTypografisch" ' 2a + Kontext "TabLocalizedOptions" ' 2a '/// in the part of 'double quotes': ///' '///+ click 'start quote' ///' - DoppeltWortAnfang.Click + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) '///+ cancel dialog 'start quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2b + Kontext "TabLocalizedOptions" ' 2b '///+ click 'end quote' ///' - DoppeltWortEnde.Click + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) '///+ cancel dialog 'end quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2s + Kontext "TabLocalizedOptions" ' 2s '///+ click button 'default' ///' - DoppeltStandard.Click + DoubleQuotesDefault.Click '///+ UNcheck 'replace' ///' - EinfacheErsetzen.UnCheck + SingleQuotesReplace.UnCheck '/// cancel dialog 'AtorCorrect' ///' - TabTypografisch.cancel + TabLocalizedOptions.cancel '/// close application ///' Call hCloseDocument endcase diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc index 78a71da95775..15c5665867c4 100755 --- a/testautomation/graphics/tools/id_tools_2.inc +++ b/testautomation/graphics/tools/id_tools_2.inc @@ -142,8 +142,8 @@ sub sCheckCheck (i, Pruefung$, bEnabled) select case i ' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA case 5: bEnabled 'sCheckUnderlined (bEnabled) - case 6: sCheckSupperscript (bEnabled) - case 8: sCheckDash (bEnabled) + case 6: sCheckDash (bEnabled) + case 8: sCheckSupperscript (bEnabled) case else: hTypeKeys "<Home><Shift End>" EditCopy |