diff options
author | Vladimir Glazunov <vg@openoffice.org> | 2010-02-16 18:29:26 +0100 |
---|---|---|
committer | Vladimir Glazunov <vg@openoffice.org> | 2010-02-16 18:29:26 +0100 |
commit | 4ff1be44998f4161985cdf04d5d6ebe3047edfdf (patch) | |
tree | c7d57c00f9d9e8a26c24c1da507c2957dd3326f3 /testautomation/writer/tools | |
parent | CWS-TOOLING: integrate CWS svxsplit (diff) | |
parent | cbosdo01: i108312: fixed integer to string (diff) | |
download | core-4ff1be44998f4161985cdf04d5d6ebe3047edfdf.tar.gz core-4ff1be44998f4161985cdf04d5d6ebe3047edfdf.zip |
CWS-TOOLING: integrate CWS cbosdo01
Diffstat (limited to 'testautomation/writer/tools')
-rwxr-xr-x | testautomation/writer/tools/includes/w_tool2.inc | 2 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/writer/tools/includes/w_tools_autocorrection.inc | 70 |
2 files changed, 46 insertions, 26 deletions
diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index a68a5eea9ea4..542b695e848d 100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -64,7 +64,7 @@ sub OptionenAufrufen(Seite as string) case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionen" : active.SetPage TabOptionen - case "TabTypografisch": active.SetPage TabTypografisch + case "TabLocalizedOptions": active.SetPage TabLocalizedOptions end select for i = 1 to 5 Kontext "Active" diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc index f259ce1dde51..d35c2a33e25b 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc +++ b/testautomation/writer/tools/includes/w_tools_autocorrection.inc @@ -41,42 +41,62 @@ '* '\*********************************************************************** -function fAutocorrectOptions(Options as String) +function fAutocorrectOptions(Options as String, iModify as integer, iType as integer) '/// Open Tools/Autocorrect/Autoformat diglog with tab page Options '///+ then choose the relevant Options and press 'space bar' + Dim iDown as integer ToolsAutocorrect Kontext Active.Setpage TabOptionenAutokorrektur Kontext "TabOptionenAutokorrektur" - Einstellungen.TypeKeys "<Home>" - Select case Options - case "UseReplacementTable" : wait 500 - case "CorrectTWoINitialCApitals" : Einstellungen.TypeKeys "<Down>" - case "CapitalizeFirstLetter" : Einstellungen.TypeKeys "<Down>",2 - case "AutomaticBoldAndUnderline" : Einstellungen.TypeKeys "<Down>",3 - case "URLRecognition" : Einstellungen.TypeKeys "<Down>",4 - case "Replace1st" : Einstellungen.TypeKeys "<Down>",5 - case "Replace1/2" : Einstellungen.TypeKeys "<Down>",6 - case "ReplaceDashes" : Einstellungen.TypeKeys "<Down>",7 - case "DeleteSpaceParagraph" : Einstellungen.TypeKeys "<Down>",8 - case "DeleteSpaceLine" : Einstellungen.TypeKeys "<Down>",9 - case "IgnoreDoulbeSpaces" : Einstellungen.TypeKeys "<Down>",10 - case "ApplyNumbering" : Einstellungen.TypeKeys "<Down>",11 - case "ApplyBorder" : Einstellungen.TypeKeys "<Down>",12 - case "CreateTable" : Einstellungen.TypeKeys "<Down>",13 - case "ApplyStyles" : Einstellungen.TypeKeys "<Down>",14 - case "RemoveBlankParagraphs" : Einstellungen.TypeKeys "<Down>",15 - case "ReplaceCustomStyles" : Einstellungen.TypeKeys "<Down>",16 - case "ReplaceBullets" : Einstellungen.TypeKeys "<Down>",17 - case "ReplaceQuotes" : Einstellungen.TypeKeys "<Down>",18 - case "CombineSingleLine" : Einstellungen.TypeKeys "<End>" - + case "UseReplacementTable" : iDown = 1 + case "CorrectTWoINitialCApitals" : iDown = 2 + case "CapitalizeFirstLetter" : iDown = 3 + case "AutomaticBoldAndUnderline" : iDown = 4 + case "URLRecognition" : iDown = 5 + case "ReplaceDashes" : iDown = 6 + case "DeleteSpaceParagraph" : iDown = 7 + case "DeleteSpaceLine" : iDown = 8 + case "IgnoreDoubleSpaces" : iDown = 9 + case "ApplyNumbering" : iDown = 10 + case "ApplyBorder" : iDown = 11 + case "CreateTable" : iDown = 12 + case "ApplyStyles" : iDown = 13 + case "RemoveBlankParagraphs" : iDown = 14 + case "ReplaceCustomStyles" : iDown = 15 + case "ReplaceBullets" : iDown = 16 + case "CombineSingleLine" : iDown = 17 end select - Einstellungen.TypeKeys "<SPACE>" + ' *** Set requested state *** + ' ### Modify + Select Case iDown + Case 1,2,3,4,5,6,7,8,14,15,16,17 + if iModify = 1 then + Einstellungen.Check(iDown,2) + else + Einstellungen.UnCheck(iDown,2) + endif + if iDown < 9 then + ' ### Type + if iType = 1 then + Einstellungen.Check(iDown,3) + else + Einstellungen.UnCheck(iDown,3) + endif + endif + Case 9,10,11,12,13 + ' ### Type + if iType = 1 then + Einstellungen.Check(iDown,3) + else + Einstellungen.UnCheck(iDown,3) + endif + end select + wait 100 TabOptionenAutokorrektur.OK end function |