diff options
| author | Thomas Benisch <tbe@openoffice.org> | 2010-03-01 12:22:02 +0100 |
|---|---|---|
| committer | Thomas Benisch <tbe@openoffice.org> | 2010-03-01 12:22:02 +0100 |
| commit | 4f4ce41e44919b7e201f854e52cc004c3858856d (patch) | |
| tree | 14b7a6003953848bae2c065e32b16fd7106ea504 /testautomation/writer | |
| parent | 247c018e0c1fae644f52fae087f4f3906e1f529a (diff) | |
| parent | bbfe7e2867795f697920d2d7055037e202d2169d (diff) | |
chartshapes: merge with DEV300_m72
Diffstat (limited to 'testautomation/writer')
171 files changed, 7950 insertions, 9226 deletions
diff --git a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc b/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc index 4da6aa9779a1..1ef81edec2c0 100755 --- a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc +++ b/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: CJKCTLDependency1.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:46 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc b/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc index 51b1f4ebf792..683febb2cd63 100755 --- a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc +++ b/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_alternative_text.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: hde $ $Date: 2008-08-18 12:30:39 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc index 229289cdb556..bcb454f5a0d8 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc @@ -1,64 +1,37 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_autocorrect1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:23:21 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com '* '* short description : Test the AutoCorrect/AutoFormat/Options '* -'************************************************************************ -'* -' #1 tOpenDialog_1 -' #1 tReplaceDashes_1 -' #1 tToolsAutocorrectOptions_1 -' #1 tToolsAutocorrectOptions_2 -' #1 tToolsAutocorrectOptions_3 -' #1 tToolsAutocorrectOptions_4_1 -' #1 tToolsAutocorrectOptions_4_2 -' #1 tToolsAutocorrectOptions_5 -' #1 tToolsAutocorrectOptions_6 -' #1 tToolsAutocorrectOptions_7 -' #1 tToolsAutocorrectOptions_8 -' #1 tToolsAutocorrectOptions_11 -' #1 tToolsAutocorrectOptions_12 -' #1 tToolsAutocorrectOptions_13 -' #1 tToolsAutocorrectOptions_14 -' #1 tToolsAutocorrectOptions_16 -' #1 tToolsAutocorrectOptions_18 -' #1 tToolsAutocorrectOptions_19 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_1 +sub w_autocorrect1 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features" @@ -70,16 +43,14 @@ sub w_autocorrect_autoformat_1 Call tToolsAutocorrectOptions_4_1 'Automatic bold Call tToolsAutocorrectOptions_4_2 'Automatic underline Call tToolsAutocorrectOptions_5 'URL Recognition - Call tToolsAutocorrectOptions_6 'Replace 1st ... with 1^st... - Call tToolsAutocorrectOptions_7 'Replace 1/2 ... with ½ ... - Call tToolsAutocorrectOptions_8 'Replace dashes - Call tToolsAutocorrectOptions_11 'Ignore double spaces - Call tToolsAutocorrectOptions_12 'Apply numbering - Call tToolsAutocorrectOptions_13 'Apply Border - Call tToolsAutocorrectOptions_14 'Create Table - Call Ttoolsautocorrectoptions_16 'Remove Blank Paragraphs - Call Ttoolsautocorrectoptions_18 'Replace bullets with • - Call tToolsAutocorrectOptions_19 'Replace standard quotes with custom quotes + Call tToolsAutocorrectOptions_6 'Replace dashes + Call tToolsAutocorrectOptions_7 'Ignore double spaces + Call tToolsAutocorrectOptions_8 'Apply numbering + Call tToolsAutocorrectOptions_9 'Apply Border + Call tToolsAutocorrectOptions_10 'Create Table + Call tToolsAutocorrectOptions_11 'Remove Blank Paragraphs + Call tToolsAutocorrectOptions_12 'Replace bullets with • + Call tToolsAutocorrectOptions_13 'Replace standard quotes with custom quotes end sub @@ -143,19 +114,27 @@ testcase tToolsAutocorrectOptions_1 Kuerzel.SetText "Aabbcc" ErsetzenDurch.SetText "Aaccbb" Sleep 1 - Neu.Click + try + Neu.Click + catch + Warnlog "Seems settings are already made. Please remove entries from replacement table" + endcatch Sleep 1 TabErsetzung.OK - '/// M:Y T:Y (default) + printlog "- M:Y T:Y (default)" ToolsAutoCorrect Kontext Active.SetPage TabOptionenAutokorrektur Kontext "TabOptionenAutokorrektur" - Einstellungen.Select 1 - if Not Einstellungen.IsChecked then Warnlog "First Checkbox: " & Einstellungen.IsChecked - Einstellungen.TypeKeys "<Right>" - if Not Einstellungen.IsChecked then Warnlog "Second Checkbox: " & Einstellungen.IsChecked + if Einstellungen.IsChecked(1,2) = FALSE then + Warnlog "First Checkbox not checked by default" + Einstellungen.Check(1,2) + endif + if Einstellungen.IsChecked(1,3) = FALSE then + Warnlog "Second Checkbox not checked by default" + Einstellungen.Check(1,3) + endif TabOptionenAutokorrektur.Ok Call wTypeKeys "Aabbcc" @@ -166,8 +145,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:Y T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:Y T:N" + Call fAutocorrectOptions("UseReplacementTable", 1, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -189,8 +168,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:Y" + Call fAutocorrectOptions("UseReplacementTable", 0, 1) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -201,8 +180,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:N" + Call fAutocorrectOptions("UseReplacementTable", 0, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -210,9 +189,9 @@ testcase tToolsAutocorrectOptions_1 EditCopy if GetClipboardText <> "Aabbcc" then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - else - + Call hCloseDocument + goto endsub + else Call wTypeKeys "<ESCAPE>" FormatAutoformatApply Call wTypeKeys "<Home><Shift End>" @@ -223,8 +202,8 @@ testcase tToolsAutocorrectOptions_1 end if end if - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- Recover to the default M:Y T:Y" + Call fAutocorrectOptions("UseReplacementTable", 1, 1) 'remove the test words which you insert in the replacement table Dim i as Integer @@ -250,95 +229,94 @@ endcase testcase tToolsAutocorrectOptions_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Correct TWo INitial CApital' " - '/// Test 'Correct TWo INitial CApital' - Call hNewDocument + printLog "Test 'Correct TWo INitial CApital' " + '/// Test 'Correct TWo INitial CApital' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "TEst" - hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" + testContent = "TEst" + hopeResult = "Test" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "Test" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should be changed after Autoformat!M:Y T:N" + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "TEst" - hopeResult = "Test" + testContent = "TEst" + hopeResult = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "TEst" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "TEst" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if + Call hCloseDocument + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,1) Call hCloseDocument @@ -348,14 +326,14 @@ endcase testcase tToolsAutocorrectOptions_3 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Capitalize first letter of every setence'" - '/// Test 'Capitalize first letter of every setence' - Call hNewDocument + printLog "Test 'Capitalize first letter of every setence'" + '/// Test 'Capitalize first letter of every setence' + Call hNewDocument '/// M:Y T:Y (default) testContent = "the test for StarOffice automation. who is the author?" @@ -372,7 +350,7 @@ testcase tToolsAutocorrectOptions_3 hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -396,7 +374,7 @@ GOING1: testContent = "the test for StarOffice automation. who is the author?" hopeResult = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -409,7 +387,7 @@ GOING1: hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "the test for StarOffice automation. who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" @@ -430,7 +408,7 @@ GOING1: testend: '/// Recover to the default - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,1) Call hCloseDocument @@ -441,16 +419,16 @@ endcase testcase tToolsAutocorrectOptions_4_1 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getStyle as String - Dim hopeStyle as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getStyle as String + Dim hopeStyle as String - printLog "Test 'Automatic bold and underline' --- bold " - '/// Test 'Automatic bold' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- bold " + '/// Test 'Automatic bold' + Call hNewDocument '/// M:Y T:Y (default) testContent = "*Test*" @@ -464,193 +442,193 @@ testcase tToolsAutocorrectOptions_4_1 fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "Test" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - fFormatCharacter("TabFont") + fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - Sleep 1 + Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 -GOING1: + GOING1: - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "*Test*" - hopeResult = "Test" + testContent = "*Test*" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "*Test*" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "*Test*" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" - TabFont.OK - Sleep 1 + if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" + TabFont.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -660,155 +638,155 @@ endcase testcase tToolsAutocorrectOptions_4_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getUnderlineStatus as Integer - Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getUnderlineStatus as Integer + Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single - printLog "Test 'Automatic bold and underline' --- underline " - '/// Test 'Automatic underline' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- underline " + '/// Test 'Automatic underline' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "Test" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 -GOING1: - Call wTypeKeys "<DELETE>" + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" - Underline.Select 1 - Sleep 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" + Underline.Select 1 + Sleep 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "_Test_" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "_Test_" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " - TabFontEffects.OK + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " + TabFontEffects.OK - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should NOT be changed after Autoformat! M:N T:N" + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" + TabFontEffects.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -818,100 +796,100 @@ endcase testcase tToolsAutocorrectOptions_5 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "URL Recognition" - '/// URL Recognition - Call hNewDocument + printLog "URL Recognition" + '/// URL Recognition + Call hNewDocument '/// M:Y T:Y (default) - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:Y T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:Y - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,1) Call hCloseDocument @@ -921,279 +899,93 @@ endcase testcase tToolsAutocorrectOptions_6 - Dim testContent as String - - printLog "Replace 1st ... with 1^st..." - '/// Replace 1st ... with 1^st... - Call hNewDocument - - testContent = "1st" - - '/// M:Y T:Y (default) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:Y T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:N T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("Replace1st") - - Call hCloseDocument - - -endcase - -'------------------------------------------------------------------------- - -testcase tToolsAutocorrectOptions_7 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - - printLog "Replace 1/2 ... with ½ ... " - '/// Replace 1/2 ... with ½ ... - Call hNewDocument - - '/// M:Y T:Y (default) - testContent = "1/2" - hopeResult = "½" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if - -GOING1: - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - testContent = "1/2" - hopeResult = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... when M:N T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "1/2" - - Call fAutocorrectOptions("Replace1/2") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if - -testend: - - '/// Recover to the default - Call fAutocorrectOptions("Replace1/2") - - Call hCloseDocument - - -endcase - -'------------------------------------------------------------------------- + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat + Dim hopeResultAfterAutoformat as String -testcase tToolsAutocorrectOptions_8 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat - Dim hopeResultAfterAutoformat as String - - printLog "Replace dashes" - '/// Replace dashes - Call hNewDocument + printLog "Replace dashes" + '/// Replace dashes + Call hNewDocument '/// M:Y T:Y (default) - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla – Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call fAutocorrectOptions("ReplaceDashes",1,0) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" + Call fAutocorrectOptions("ReplaceDashes",0,1) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla - Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla - Bla" - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: + testend: '/// Recover to the default - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",1,1) Call hCloseDocument @@ -1201,14 +993,14 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_11 +testcase tToolsAutocorrectOptions_7 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Ignore double spaces" - '/// Ignore double spaces - Call hNewDocument + printLog "Ignore double spaces" + '/// Ignore double spaces + Call hNewDocument '/// + T:N (default) testContent = "Two Space" @@ -1224,7 +1016,7 @@ testcase tToolsAutocorrectOptions_11 testContent = "Two Space" hopeResult = "Two Space" - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",1,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -1234,7 +1026,7 @@ testcase tToolsAutocorrectOptions_11 Call wTypeKeys "<ESCAPE>" '/// Recover to the default - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",0,0) Call hCloseDocument @@ -1242,49 +1034,54 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_12 +testcase tToolsAutocorrectOptions_8 - Dim firstLine as String - Dim testContent as String - Dim hopeResult as String + Dim firstLine as String + Dim testContent as String + Dim hopeResult as String - printLog "Apply numbering" - '/// Apply numbering + printLog "Apply numbering" + '/// Apply numbering - Call hNewDocument + Call hNewDocument '/// + T:Y (default) - firstLine = "1. FirstLine" - testContent = "Test1" - hopeResult = "1.Test1" + firstLine = "1. FirstLine" + testContent = "Test1" + hopeResult = "1.Test1" - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y " + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy + printlog GetClipBoardtext + if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y. Not " & hopeResult & " but " & GetClipboardtext - EditSelectAll - Call wTypeKeys "<DELETE>" - Call wTypeKeys "<BACKSPACE>",3 + EditSelectAll + Call wTypeKeys "<DELETE>" + Call wTypeKeys "<BACKSPACE>",3 '/// + T:N - testContent = "Test1" - hopeResult = "Test1" - - Call fAutocorrectOptions("ApplyNumbering") - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + testContent = "Test1" + hopeResult = "Test1" + + Call fAutocorrectOptions("ApplyNumbering",0,0) + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:Y" + if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:N. Not " & hopeResult & " but " & GetClipboardtext '/// Recover to the default - Call fAutocorrectOptions("ApplyNumbering") + Call fAutocorrectOptions("ApplyNumbering",1,1) Call hCloseDocument @@ -1292,132 +1089,124 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_13 +testcase tToolsAutocorrectOptions_9 - Dim testList() as String - Dim testContent as String - Dim hopeResult as String - Dim i as String - Dim j as Integer - Dim bottom as String + Dim testList() as String + Dim testContent as String + Dim hopeResult as String + Dim i as integer + Dim bottom as String - bottom = "0" + gSeperator + "10" + gMeasurementUnit + bottom = "0" + gSeperator + "10" + gMeasurementUnit - testList = Array( _ - "---" , _ - "___" , _ - "===" , _ - "***" , _ - "~~~" , _ - "###" , _ - ) - j = UBound(testList) + testList = Array( "---", "___", "===", "***", "~~~" , "###" ) - '/// Apply border test , including - '/// + '---' , '___", "===", "***" , "~~~", "###" - printLog "Apply border" + '/// Apply border test , including + '/// + '---' , '___", "===", "***" , "~~~", "###" + printLog "Apply border" - Call hNewDocument - - For i = 0 to j - - '/// + T:Y (default) - testContent = testlist(i) + Call hNewDocument - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + For i = 0 to 5 + + printlog testlist(i) + printlog "- T:Y (default)" + testContent = testlist(i) + + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try + EditCopy + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + catch + endcatch + + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + catch + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + endcatch + TabUmrandung.Cancel + + Call wTypeKeys "<Down>" + + printlog "- T:N" + testContent = testlist(i) + hopeResult = testlist(i) + + Call fAutocorrectOptions("ApplyBorder",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" EditCopy - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - catch - endcatch - - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - catch - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - endcatch - TabUmrandung.Cancel - - Call wTypeKeys "<Down>" - '/// + T:N - testContent = testlist(i) - hopeResult = testlist(i) - - Call fAutocorrectOptions("ApplyBorder") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + Warnlog "Apply border is NOT correct when T:N "+testlist(i) + catch + endcatch + TabUmrandung.Cancel - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - Warnlog "Apply border is NOT correct when T:N "+testlist(i) - catch - endcatch - TabUmrandung.Cancel + printlog "- Recover to the default" + Call fAutocorrectOptions("ApplyBorder",1,1) - '/// Recover to the default - Call fAutocorrectOptions("ApplyBorder") - - next i + next i - Call hCloseDocument + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_14 +testcase tToolsAutocorrectOptions_10 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Create Table" - '/// Create Table - Call hNewDocument + printLog "Create Table" + '/// Create Table + Call hNewDocument '/// + T:Y (default) - testContent = "+---+" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + testContent = "+---+" + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try EditCopy Warnlog "Something wrong in create table T:Y" - catch - endcatch + catch + endcatch - try + try FormatRowDelete Sleep 1 - catch + catch Warnlog "Can't delete table ,T:Y" - endcatch + endcatch '/// + T:N - testContent = "+---+" - hopeResult = "+---+" + testContent = "+---+" + hopeResult = "+---+" - Call fAutocorrectOptions("CreateTable") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + Call fAutocorrectOptions("CreateTable",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" - try + try FormatRowDelete Sleep 1 Warnlog "Should NOT generate table when T:N" - catch - endcatch + catch + endcatch '/// Recover to the default - Call fAutocorrectOptions("CreateTable") + Call fAutocorrectOptions("CreateTable",1,1) Call hCloseDocument @@ -1425,74 +1214,73 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_16 - - Dim testContent1 as String - Dim testContent2 as String - Dim hopeResultAfterAutoformat1 as String - Dim hopeResultAfterAutoformat2 as String +testcase tToolsAutocorrectOptions_11 - testContent1 = "ABCD1234" - testContent2 = "EFGH5678" + Dim testContent1 as String + Dim testContent2 as String + Dim hopeResultAfterAutoformat1 as String + Dim hopeResultAfterAutoformat2 as String - hopeResultAfterAutoformat1 = "ABCD1234" - hopeResultAfterAutoformat2 = "EFGH5678" + testContent1 = "ABCD1234" + testContent2 = "EFGH5678" + hopeResultAfterAutoformat1 = "ABCD1234" + hopeResultAfterAutoformat2 = "EFGH5678" - printLog "Remove Blank Paragraphs" - '/// Remove Blank Paragraphs + printLog "Remove Blank Paragraphs" + '/// Remove Blank Paragraphs - Call hNewDocument + Call hNewDocument '/// M:N (default) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" - wTypeKeys "<Down><Home><Shift End>" - try + Call wTypeKeys "<Down><Home><Shift End>" + try EditCopy Warnlog "the second line's content is NOT correct when M:N" - catch - endcatch + catch + endcatch - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" Call hCloseDocument Call hNewDocument '/// M:Y - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",1,1) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" '/// Recover to the default - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",0,0) Call hCloseDocument @@ -1500,39 +1288,39 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_18 +testcase tToolsAutocorrectOptions_12 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace bullets with •" - '/// Replace bullets with • + printLog "Replace bullets with •" + '/// Replace bullets with • - Call hNewDocument + Call hNewDocument '/// M:Y (default) printLog "M:Y (default)" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "• Hello" - - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "• Hello" - FormatAutoformatApply + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - Sleep 1 - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + Sleep 1 + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " Call hCloseDocument @@ -1540,30 +1328,30 @@ testcase tToolsAutocorrectOptions_18 '/// M:N printLog "M:N" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "+ Hello" + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "+ Hello" - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",0,0) - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply - Sleep 1 - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + FormatAutoformatApply + Sleep 1 + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",1,1) Call hCloseDocument @@ -1571,89 +1359,88 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_19 +testcase tToolsAutocorrectOptions_13 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace standard quotes with custom quotes" - '/// Replace standard quotes with custom quotes + printLog "Replace standard quotes with custom quotes" + '/// Replace standard quotes with custom quotes - Call hNewDocument + Call hNewDocument '/// M:Y (default) - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "[" - - ToolsAutoCorrect - Kontext - Active.SetPage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.UnCheck - EinfachWortAnfang.Click - Kontext "Sonderzeichen" - Schriftliste.TypeKeys "<PageUp><Home>" - Schriftliste.TypeKeys "<Right>", 59 ' is [ - Schriftliste.TypeKeys "<Space>" - Sonderzeichen.OK - - Kontext "TabTypografisch" - TabTypografisch.OK - - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "[" - FormatAutoformatApply + ToolsAutoCorrect + Kontext + Active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.UnCheck + SingleQuotesStart.Click + Kontext "Sonderzeichen" + Schriftliste.TypeKeys "<PageUp><Home>" + Schriftliste.TypeKeys "<Right>", 59 ' is [ + Schriftliste.TypeKeys "<Space>" + Sonderzeichen.OK + + Kontext "TabLocalizedOptions" + TabLocalizedOptions.OK + + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should change after autoformat " Call hCloseDocument Call hNewDocument '/// M:N - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "'" + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "'" - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",0,0) - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",1,1) - ToolsAutoCorrect - Kontext - Active.Setpage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.Check - EinfachStandard.Click - wait 100 - TabTypografisch.OK + ToolsAutoCorrect + Kontext + Active.Setpage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.Check + SingleQuotesDefault.Click + wait 100 + TabLocalizedOptions.OK Call hCloseDocument endcase - diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc index e627b1632c62..788a0e54900a 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc @@ -1,120 +1,108 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_autocorrect2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:23:31 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com '* '* short description : Test AutoCorrect/AutoFormat/Word Completion '* -'************************************************************************ -'* -' #1 tToolsAutocorrectWordCompletion_1 -' #1 tToolsAutocorrectWordCompletion_2 -' #1 tToolsAutocorrectWordCompletion_3 -' #1 tToolsAutocorrectWordCompletion_4 -' #1 tToolsAutocorrectWordCompletion_5 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_2 +sub w_autocorrect2 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features" Call tToolsAutocorrectWordCompletion_1 'Check the default settings Call tToolsAutocorrectWordCompletion_2 'Check entries Call tToolsAutocorrectWordCompletion_3 'Check list of suggestions can be "scrolled" Call tToolsAutocorrectWordCompletion_4 'Test Max entries - Call Ttoolsautocorrectwordcompletion_5 'Check 'When closing a document, save the list for later use in other documents' - + Call tToolsAutocorrectWordCompletion_5 'Check 'When closing a document, save the list for later use in other documents' + Call tToolsAutocorrectWordCompletion_6 + end sub '------------------------------------------------------------------------- testcase tToolsAutocorrectWordCompletion_1 - Dim iAcceptWith as String - Dim iEntriesNumber as Integer - Dim sMinWordLength as String - Dim sMaxEntries as String - Dim sMinMaxEntries as String - - iAcceptWith = 2 - iEntriesNumber = 0 - sMinWordLength = "10" - sMaxEntries = "500" - sMinMaxEntries = "50" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check the default settings - '/// - Check box "Enable word completion" (default: checked) - '/// - Check box "Append Space" (default: unchecked) - '/// - Check box "Show as tip" (default: unchecked) - '/// - Check box "Collect Words" (default: checked) - '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked) - '/// - List box "Accept with" (Default = "Return") - '/// - Spin box "minimal number of characters" default = 10 - '/// - Spin box "Max. entries" (default =500, minimum = 50) - '/// - Box: "List of words collected" -- should be empty after Office restart. - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - - if WoerterErgaenzen.IsChecked <> TRUE then Warnlog "Complete words should be checked ." - if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." - if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." - if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." - if KeepList.IsChecked <> TRUE then Warnlog "When closing a document, save the list for later use in other documents should be checked ." - if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." - if MinWortlaenge.GetText <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength - if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - - MaxEintraege.SetText "49" - - TabWortergaenzung.OK - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries - MaxEintraege.SetText sMaxEntries - TabWortergaenzung.OK - - Call hCloseDocument + Dim iAcceptWith as String + Dim iEntriesNumber as Integer + Dim sMinWordLength as String + Dim sMaxEntries as String + Dim sMinMaxEntries as String + + iAcceptWith = 2 + iEntriesNumber = 0 + sMinWordLength = "10" + sMaxEntries = "500" + sMinMaxEntries = "50" + + printLog "Check the default settings" + '/// Check the default settings + '/// - Check box "Enable word completion" (default: checked) + '/// - Check box "Append Space" (default: unchecked) + '/// - Check box "Show as tip" (default: unchecked) + '/// - Check box "Collect Words" (default: checked) + '/// - Check box "When closing a document, remove the words collected from it from the list" (default: unchecked) + '/// - List box "Accept with" (Default = "Return") + '/// - Spin box "minimal number of characters" default = 10 + '/// - Spin box "Max. entries" (default =500, minimum = 50) + '/// - Box: "List of words collected" -- should be empty after Office restart. + + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + + if WoerterErgaenzen.IsChecked = False then Warnlog "Complete words should be checked ." + if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." + if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." + if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." + if KeepList.IsChecked = TRUE then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ." + if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." + if MinWortlaenge.GetText <> sMinWordLength then Warnlog "Min word length should be " + sMinWordLength + if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries + if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber + + MaxEintraege.SetText "49" + + TabWortergaenzung.OK + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries + MaxEintraege.SetText sMaxEntries + TabWortergaenzung.OK + + Call hCloseDocument endcase @@ -122,66 +110,68 @@ endcase testcase tToolsAutocorrectWordCompletion_2 - Dim iDefaultEntriesNumber as Integer - Dim iEntriesNumber as Integer - Dim i as Integer - Dim sMinWordLength as String - - iDefaultEntriesNumber = 0 - iEntriesNumber = 3 - sMinWordLength = "5" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check entries - '/// delete all entries first - '/// input some test words - '/// check if some words should are remembered in the entries - '/// delete all entries - '/// close and reopen dialog, check entries again - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then - Warnlog "Entries number should be " + iDefaultEntriesNumber - Warnlog "No test for this case" - TabWortergaenzung.Cancel - Goto NoTest - end if - MinWortlaenge.SetText sMinWordLength - TabWortergaenzung.OK - - Call wTypeKeys "Hello World ! This is a StarOffice Test .<Return>" + Dim iDefaultEntriesNumber as Integer + Dim iEntriesNumber as Integer + Dim i as Integer + Dim sMinWordLength as String + + iDefaultEntriesNumber = 0 + iEntriesNumber = 3 + sMinWordLength = "5" + + printLog "Check the default settings" + '/// Check entries + '/// delete all entries first + '/// input some test words + '/// check if some words should are remembered in the entries + '/// delete all entries + '/// close and reopen dialog, check entries again + + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if GesammelteWorte.GetItemCount <> 0 then + Warnlog "Entries number should be " + iDefaultEntriesNumber + Warnlog "No test for this case" + TabWortergaenzung.Cancel + Call hCloseDocument + end if + MinWortlaenge.SetText sMinWordLength + TabWortergaenzung.OK + + Call wTypeKeys "Hello World ! This is a OpenOffice.org Test .<Return>" Sleep 3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - for i = 1 to GesammelteWorte.GetItemCount - GesammelteWorte.Select 1 - if EintragLoeschen.IsEnabled then - EintragLoeschen.Click - else - i = GesammelteWorte.GetItemCount + 1 - end if - next i - TabWortergaenzung.OK - Sleep 1 + if GesammelteWorte.GetItemCount <> 3 then Warnlog "Entries number should be " + iEntriesNumber + for i = 1 to GesammelteWorte.GetItemCount + GesammelteWorte.Select 1 + if EintragLoeschen.IsEnabled then + EintragLoeschen.Click + else + i = GesammelteWorte.GetItemCount + 1 + end if + next i + TabWortergaenzung.OK + Sleep 1 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then Warnlog "Entries number should be " + iDefaultEntriesNumber + if GesammelteWorte.GetItemCount <> 0 then Warnlog "Entries number should be " + 0 TabWortergaenzung.Cancel -NoTest: - Call hCloseDocument + Call hCloseDocument endcase @@ -189,101 +179,78 @@ endcase testcase tToolsAutocorrectWordCompletion_3 - Dim aTestWord() as String - Dim sPartOfTestWord as String - Dim i as Integer - Dim j as Integer - - aTestWord = Array( _ - "accessibility" , _ - "accomplish" , _ - "account" , _ - ) - j = UBound(aTestWord) + Dim aTestWord() as String + Dim sPartOfTestWord as String + Dim i as Integer + Dim j as integer - sPartOfTestWord = "acc" - - printLog "Check list of suggestions can be 'scrolled'" - '/// Check list of suggestions can be 'scrolled' + aTestWord = Array( "accessibility", "accomplish", "accounting" ) + + sPartOfTestWord = "acc" - '/// input some test words with first 3 letters are same - '/// forward with <CTRL-Tab> - '/// backwards with <SHIFT-CTRL-Tab> - '/// endless loop test + printLog "Check list of suggestions can be 'scrolled'" + '/// Check list of suggestions can be 'scrolled' - 'Delete all entries in the list - fDeleteAllEntries() + '/// input some test words with first 3 letters are same + '/// forward with <CTRL-Tab> + '/// backwards with <SHIFT-CTRL-Tab> + '/// endless loop test - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() - 'forward with <CTRL-Tab> - For i = 0 to j + 'forward with <CTRL-Tab> + For i = 0 to 2 Call wTypeKeys aTestWord(i) Call wTypeKeys "<Return>" next i Sleep 2 - For i = 0 to j + For i = 0 to 2 Call wTypeKeys sPartOfTestWord - if i > 0 then Call wTypeKeys "<MOD1 TAB>", i Sleep 2 - Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(i) then Warnlog "#102535# Should be " +aTestWord(i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j+1 - Sleep 2 + Call wTypeKeys "<MOD1 TAB>", 3 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" - 'backwards with <SHIFT-CTRL-Tab> + 'backwards with <SHIFT-CTRL-Tab> + j = UBound (aTestWord) + For i = j to 0 step -1 Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j - if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i - - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(j-i) then Warnlog "#102535# Should be " +aTestWord(j-i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord Call wTypeKeys "<Shift MOD1 TAB>" - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 - if GetClipboardText <> aTestWord(j) then Warnlog "#102535# Should be " +aTestWord(j) +" but get " +GetClipboardText + if GetClipboardText <> "accounting" then Warnlog "#102535# Should be 'accounting' but get " +GetClipboardText - Call hCloseDocument + Call hCloseDocument endcase @@ -291,48 +258,50 @@ endcase testcase tToolsAutocorrectWordCompletion_4 - Dim sDefaultMaxEntries as String - Dim sTestMaxEntries as String - Dim sTestFile as String - Dim iTestMaxEntries as Integer - - sDefaultMaxEntries = "500" - sTestMaxEntries = "50" - sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" - iTestMaxEntries = 50 + Dim sDefaultMaxEntries as String + Dim sTestMaxEntries as String + Dim sTestFile as String + Dim iTestMaxEntries as Integer - printLog "Test Max entries" - '/// Test Max entries + sDefaultMaxEntries = "500" + sTestMaxEntries = "50" + sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" + iTestMaxEntries = 50 - '/// Delete all entries in the list - '/// set Max entries to 50 - '/// Open the test file ( The entries number is > 50 when Max entries is 500) - '/// check the number of entries. + printLog "Test Max entries" + '/// Test Max entries - 'Delete all entries in the list - fDeleteAllEntries() + '/// Delete all entries in the list + '/// set Max entries to 50 + '/// Open the test file ( The entries number is > 50 when Max entries is 500) + '/// check the number of entries. - Call hNewDocument + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" MaxEintraege.SetText sTestMaxEntries TabWortergaenzung.OK Call hFileOpen ( gTesttoolPath + "writer\optional\input\advanced\" + sTestFile ) + Call sMakeReadOnlyDocumentEditable Sleep 4 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries - 'Recover to default - MaxEintraege.SetText sDefaultMaxEntries - TabWortergaenzung.OK + 'Recover to default + MaxEintraege.SetText sDefaultMaxEntries + TabWortergaenzung.OK - Call hCloseDocument + Call hCloseDocument endcase @@ -340,154 +309,166 @@ endcase testcase tToolsAutocorrectWordCompletion_5 - Dim sTestWord1 as String - Dim sTestWord2 as String - Dim sTestWord3 as String - Dim iEntriesNumber_Checked as Integer - Dim iEntriesNumber_UnChecked as Integer - - sTestWord1 = "kilometer " - sTestWord2 = "entertainment " - sTestWord3 = "education " - iEntriesNumber_Checked = 3 - iEntriesNumber_UnChecked = 1 - - printLog "Check 'When closing a document, save the list for later use in other documents'" - '/// Check 'When closing a document, save the list for later use in other documents' - '/// delete all entries first. - '/// 1) check when the checkbox is checked - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 3 - '/// 2) check when the checkbox is Unchecked - '/// delete all entries , and Uncheck the testing checkbox - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 1 - - 'Test when checkbox is checkec -- default - - 'Open 1st file - Call hNewDocument + Dim sTestWord1 as String + Dim sTestWord2 as String + Dim sTestWord3 as String + Dim iEntriesNumber_Checked as Integer + Dim iEntriesNumber_UnChecked as Integer + + sTestWord1 = "kilometer " + sTestWord2 = "entertainment " + sTestWord3 = "education " + iEntriesNumber_Checked = 3 + iEntriesNumber_UnChecked = 1 + + printLog "Check 'When closing a document, remove the words collected from it from the list'" + '/// Check 'When closing a document, remove the words collected from it from the list' + '/// delete all entries first. + '/// 1) check when the checkbox is unchecked + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 3 + '/// 2) check when the checkbox is checked + '/// delete all entries , and Uncheck the testing checkbox + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 1 + + 'Test when checkbox is checkec -- default + + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + Call fDeleteAllEntries() - Call wTypeKeys sTestWord1 + ' check checkbox + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + MinWortlaenge.SetText "5" + KeepList.UnCheck + TabWortergaenzung.Ok + + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount - end if - TabWortergaenzung.Cancel + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 1st file ,but get " + GesammelteWorte.GetItemCount + end if + TabWortergaenzung.Cancel - Call hCloseDocument + Call hCloseDocument - 'Test when checkbox is Unchecked - 'Open 1st file - Call hNewDocument + 'Test when checkbox is Checked + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - KeepList.Uncheck - TabWortergaenzung.OK + KeepList.Check + TabWortergaenzung.OK - Call wTypeKeys sTestWord1 + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "UnChecked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_UnChecked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 1 then + Warnlog "UnChecked:Entries number should be equal 1 in 2nd file ,but get " +GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel - 'Recover to the default - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - KeepList.Check - TabWortergaenzung.OK - - 'Close 1st file - Call hCloseDocument + 'Close 1st file + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectWordCompletion_x +testcase tToolsAutocorrectWordCompletion_6 - Dim sTestWord as String - Dim sPartOfTestWord as String + Dim sTestWord as String + Dim sPartOfTestWord as String - sTestWord = "StarOffice" - sPartOfTestWord = "Sta" + sTestWord = "OpenOffice.org" + sPartOfTestWord = "Ope" - printLog "Check Show as Tip" - '/// Check Show as Tip + printLog "Check Show as Tip" + '/// Check Show as Tip - '/// When uncheck ( default) , the left word will be highlight - '/// When check , the left word will NOT be appeared, <--- can test - '/// and a help tip will appear <--- no way to test yet + '/// When uncheck ( default) , the left word will be highlight + '/// When check , the left word will NOT be appeared, <--- can test + '/// and a help tip will appear <--- no way to test yet - 'Show as Tip -- uncheck (default) - Call hNewDocument + 'Show as Tip -- uncheck (default) + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord - Call wTypeKeys "<Return>" - Sleep 1 - Call wTypeKeys sPartOfTestWord - Sleep 4 - Call wTypeKeys "<Return>" - Call wTypeKeys "<Shift Home>" + Call wTypeKeys sTestWord + Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys sPartOfTestWord + Sleep 4 + Call wTypeKeys "<Return>" + Call wTypeKeys "<Shift Home>" - Sleep 1 - Call wTypeKeys "StaS" - Sleep 4 - Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys "StaS" + Sleep 4 + Call wTypeKeys "<Return>" - Call hCloseDocument + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/autotext/w_autotext.inc b/testautomation/writer/optional/includes/autotext/w_autotext.inc index 73fa0b50d0ef..7bdc6686ba6a 100755 --- a/testautomation/writer/optional/includes/autotext/w_autotext.inc +++ b/testautomation/writer/optional/includes/autotext/w_autotext.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_autotext.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:18:43 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/calculate/w_calculate.inc b/testautomation/writer/optional/includes/calculate/w_calculate.inc index 9d06e907e00b..6626c4df9b1b 100755 --- a/testautomation/writer/optional/includes/calculate/w_calculate.inc +++ b/testautomation/writer/optional/includes/calculate/w_calculate.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_calculate.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:23:54 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc index 29ee3cda0e6d..8a85b2385d44 100755 --- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc +++ b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_chinesetranslate1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:24:05 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc index b6206b49ea75..6ba8f2505bb6 100755 --- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc +++ b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_chinesetranslate2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:24:17 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc index 691d22bc9236..970f4ce8bc65 100755 --- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc +++ b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: clipbrd_func.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:24:28 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_210_.inc b/testautomation/writer/optional/includes/clipboard/w_210_.inc index 59de504ad3f2..05030962bb34 100755 --- a/testautomation/writer/optional/includes/clipboard/w_210_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_210_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_210_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_211_.inc b/testautomation/writer/optional/includes/clipboard/w_211_.inc index 9b7b34728acb..bde26a9bb20d 100755 --- a/testautomation/writer/optional/includes/clipboard/w_211_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_211_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_211_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_212_.inc b/testautomation/writer/optional/includes/clipboard/w_212_.inc index 47e0d1e52235..148d86d35e3b 100755 --- a/testautomation/writer/optional/includes/clipboard/w_212_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_212_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_212_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_213_.inc b/testautomation/writer/optional/includes/clipboard/w_213_.inc index 08392bb07466..dcd4a7ae42b5 100755 --- a/testautomation/writer/optional/includes/clipboard/w_213_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_213_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_213_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_214_.inc b/testautomation/writer/optional/includes/clipboard/w_214_.inc index 4c23e760ea7b..a6e1d3aa8c78 100755 --- a/testautomation/writer/optional/includes/clipboard/w_214_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_214_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_214_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_215_.inc b/testautomation/writer/optional/includes/clipboard/w_215_.inc index 8a8495e79cb1..0ab7a2d27357 100755 --- a/testautomation/writer/optional/includes/clipboard/w_215_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_215_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_215_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_216_.inc b/testautomation/writer/optional/includes/clipboard/w_216_.inc index f85736751d34..76b5efbca697 100755 --- a/testautomation/writer/optional/includes/clipboard/w_216_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_216_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_216_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:18:55 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_217_.inc b/testautomation/writer/optional/includes/clipboard/w_217_.inc index 7aa136a9ab99..635a4e5c8312 100755 --- a/testautomation/writer/optional/includes/clipboard/w_217_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_217_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_217_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:24:52 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_218_.inc b/testautomation/writer/optional/includes/clipboard/w_218_.inc index 6d5f1443e301..ebfda17cb25b 100755 --- a/testautomation/writer/optional/includes/clipboard/w_218_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_218_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_218_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:03 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_219_.inc b/testautomation/writer/optional/includes/clipboard/w_219_.inc index 6acaf9829084..c52b5bf4db26 100755 --- a/testautomation/writer/optional/includes/clipboard/w_219_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_219_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_219_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:15 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_220_.inc b/testautomation/writer/optional/includes/clipboard/w_220_.inc index 92cdf19b96e2..2aa62fb35226 100755 --- a/testautomation/writer/optional/includes/clipboard/w_220_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_220_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_220_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:27 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_221_.inc b/testautomation/writer/optional/includes/clipboard/w_221_.inc index 80574f8075e8..ba441f0e11fe 100755 --- a/testautomation/writer/optional/includes/clipboard/w_221_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_221_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_221_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:48 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/clipboard/w_222_.inc b/testautomation/writer/optional/includes/clipboard/w_222_.inc index eb067b6105f3..62d0cc0a0619 100755 --- a/testautomation/writer/optional/includes/clipboard/w_222_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_222_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_222_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:48 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc index 6dc0b20e7c09..012b7f9f01a5 100755 --- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc +++ b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_contextmenu1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:37 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc index 5c65be67cb2d..ac08305bb040 100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_drawing_tools1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:48 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc index f96238cb11a8..402046b1af48 100755 --- a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc +++ b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_drawing_tools2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:25:59 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -304,9 +298,9 @@ testcase tGroup_6 Call wTypeKeys "<Right>",2 PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)" - Call gMouseClick(35,35) + Call gMouseClick(41,40) Call fPositionAndSize("TabPositionAndSizeWriter") - if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext + if Horizontalby.Gettext <> sPositionX1 then Warnlog "#i106719#Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext if Verticalby.Gettext <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+" but -> "+ Verticalby.Gettext TabPositionAndSizeWriter.Cancel @@ -377,7 +371,7 @@ testcase tGroup_7 PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)." Call gMouseClick(40,40) Call fPositionAndSize("TabPositionAndSizeWriter") - if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext + if Horizontalby.Gettext <> sPositionX1 then Warnlog "#i106719#Rectangle should NOT be moved: X Not -> "+sPositionX1+" but -> "+ Horizontalby.Gettext if Verticalby.Gettext <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+" but -> "+ Verticalby.Gettext TabPositionAndSizeWriter.Cancel diff --git a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc b/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc index 1112d4b62551..872cbf771fa2 100755 --- a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc +++ b/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_dropdownLB1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:26:11 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -1032,6 +1026,10 @@ testcase tDropDownLB_17 PrintLog "- Open a word document which includes 2 entries." Call hFileOpen(sTestFile) Call sMakeReadOnlyDocumentEditable + + Kontext "EditInputList" + if EditInputList.Exists then EditInputList.Cancel + PrintLog "- Set focus in front of first line." Call wTypeKeys "<MOD1 Home>" PrintLog "- Edit/Fields." @@ -1085,7 +1083,9 @@ testcase tDropDownLB_17 FeldbefehlBearbeitenFunktionen.Cancel - Call hCloseDocument ' <- close word document + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase diff --git a/testautomation/writer/optional/includes/fields/w_fields1.inc b/testautomation/writer/optional/includes/fields/w_fields1.inc index 23b2c6676320..94e56b88d57e 100755 --- a/testautomation/writer/optional/includes/fields/w_fields1.inc +++ b/testautomation/writer/optional/includes/fields/w_fields1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:26:27 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc index 06f5df39a68d..9f9c6c2bdd94 100755 --- a/testautomation/writer/optional/includes/fields/w_fields2.inc +++ b/testautomation/writer/optional/includes/fields/w_fields2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:26:39 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fields/w_fields3.inc b/testautomation/writer/optional/includes/fields/w_fields3.inc index 6e92e0b0017c..29106028d1da 100755 --- a/testautomation/writer/optional/includes/fields/w_fields3.inc +++ b/testautomation/writer/optional/includes/fields/w_fields3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:26:51 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc index f0444a21271b..da598939c5a2 100755 --- a/testautomation/writer/optional/includes/fields/w_fields4.inc +++ b/testautomation/writer/optional/includes/fields/w_fields4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields4.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:27:02 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -782,15 +776,15 @@ testcase tDocInformationPrinted if Active.GetRT = 304 then Active.Ok QAErrorLog "No Default-Printer! The testcase isn't tested !" - Kontext "DruckenDlg" + Kontext "Printing" Sleep 1 - DruckenDlg.Cancel + Printing.Cancel goto NoTest end if else - Kontext "DruckenDlg" + Kontext "Printing" Sleep 1 - DruckenDlg.OK + Printing.OK kontext "active" if active.exists(5) then QaErrorLog "Error Printing..." diff --git a/testautomation/writer/optional/includes/fields/w_fields5.inc b/testautomation/writer/optional/includes/fields/w_fields5.inc index 2dd0be24a5cc..a2080fa4c2c4 100755 --- a/testautomation/writer/optional/includes/fields/w_fields5.inc +++ b/testautomation/writer/optional/includes/fields/w_fields5.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields5.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:27:14 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fields/w_fields6.inc b/testautomation/writer/optional/includes/fields/w_fields6.inc index 376813e22e40..d48a824330a5 100755 --- a/testautomation/writer/optional/includes/fields/w_fields6.inc +++ b/testautomation/writer/optional/includes/fields/w_fields6.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields6.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:27:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fields/w_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc index c73408d4702f..c2e4064149f0 100755 --- a/testautomation/writer/optional/includes/fields/w_fields7.inc +++ b/testautomation/writer/optional/includes/fields/w_fields7.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields7.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:27:37 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/filter/w_filter.inc b/testautomation/writer/optional/includes/filter/w_filter.inc index 313a9ac7da79..76aeded14502 100755 --- a/testautomation/writer/optional/includes/filter/w_filter.inc +++ b/testautomation/writer/optional/includes/filter/w_filter.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_filter.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:27:49 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* Owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc b/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc index 810b6131187e..60580dacb022 100755 --- a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc +++ b/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fontwork1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:28:01 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc index 4e648e87de12..24f47dde6841 100755 --- a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc +++ b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_format_character1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:28:11 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc index 78071bd64bbd..6b0eeaf47d3d 100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatpage1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:28:23 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc index 32f04046c17e..21074b643010 100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatpage2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:28:35 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc index 96ed5a3dfc53..6cfbd16b8f04 100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatpage3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:28:45 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc index 7dc570f5146b..41c1324e924e 100755 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatpage4.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:29:03 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc index 5dabe72ff6ca..df6b302a713c 100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatparagraph1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:29:14 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc index a91d71c3cdd5..9ac2265f2ddc 100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatparagraph2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:29:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc index b24e6c580a4a..2008f69a99a5 100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatparagraph3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:29:37 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc index 80250808310b..cc5500f866f5 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: hhConversion1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:29:51 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc index 1aea0c514c61..c49c3d1976a7 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: hhConversion2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:30:03 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc index ca6e71019e37..cb7dc9d9ac7f 100755 --- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc +++ b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: hhConversion3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:30:14 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc b/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc index c663faf68001..f62d57489b44 100755 --- a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc +++ b/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_hyphenation.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:30:28 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -40,354 +34,347 @@ ' #1 tHyphenation_1 ' #1 tHyphenation_2 ' #1 tHyphenation_3 +' #1 tHyphenation_4 '* '\*********************************************************************** testcase tHyphenation_1 - Dim testFile as String - Dim testWord as String - Dim firstPartOfTestWord as String - Dim secondPartOfTestWord as String - - testFile = "tHyphenation.odt" - testWord = "following" - firstPartOfTestWord = "fol" - secondPartOfTestWord = "follow" - - PrintLog "- Test Hyphenation using ctrl and -" - - printlog "Test Hyphenation using ctrl and -" - - printlog "open a test file" - Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) - Call sMakeReadOnlyDocumentEditable - - Call wTypeKeys "<End><Shift Mod1 Left>" - - EditCopy - - printlog "add '-' between 'fol' and 'lowing' , then press 3 times 'space bar' (pc). (7 times on linux)" - printlog "+ check if fol in the end of the line" - if GetClipboardText = testWord then - Call wTypeKeys "<Right>" , 3 - Call wTypeKeys "<Mod1 SUBTRACT>" - Call wTypeKeys "<Home>" - if gPlatGroup <> "unx" then - Call wTypeKeys "<SPACE>" ,3 - else - Call wTypeKeys "<SPACE>" ,7 - end if - - Call wTypeKeys "<End><Left><Shift Mod1 Left>" - EditCopy - - if GetClipboardText <> firstPartOfTestWord then - Warnlog "The hyphenation does NOT work well in first part!" - end if - - printlog "add '-' between 'follow' and 'ing' , then press 6 times 'space bar'" - printlog "+ check if follow in the end of the line ." - Call wTypeKeys "<Mod1 z>",2 - Call wTypeKeys "<End>" - Call wTypeKeys "<Left>",3 - Call wTypeKeys "<Mod1 SUBTRACT>" - Call wTypeKeys "<Home>" - if gPlatGroup <> "unx" then - Call wTypeKeys "<SPACE>" ,3 - else - Call wTypeKeys "<SPACE>" ,6 - end if - Call wTypeKeys "<End><Left><Shift Mod1 Left>" - EditCopy - - if GetClipboardText = secondPartOfTestWord then - Call wTypeKeys "<Home>" - - printlog "press 5 times 'space bar'" - printlog "check if fol in the end of the line ." - if gPlatGroup <> "unx" then - Call wTypeKeys "<SPACE>" ,3 - else - Call wTypeKeys "<SPACE>" ,5 - end if - Call wTypeKeys "<End><Shift Mod1 Left>" - EditCopy - - if GetClipboardText <> firstPartOfTestWord then - Warnlog "The hyphenation does NOT work well in first part, but it works fine in second part!" - end if - else - Warnlog "The hyphenation does NOT work well in second part!" - end if - - else - Warnlog "The test word is wrong !!" - end if - - Call hCloseDocument - -endcase + Dim testFile as String + Dim testWord as String + Dim PartOfTestWord as String + + testFile = "tHyphenation.odt" + testWord = "following" + PartOfTestWord = "fol" + + printlog "Test Hyphenation using ctrl and -" + + printlog "open a test file" + Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) + Call sMakeReadOnlyDocumentEditable + + ' we must assure the word 'following' is the first word in second line + ' otherwise the test will not work correctly + if fPrepareHyphenationDocument(testWord) = false then + Warnlog "Unable to prepare document for hyphenation. Check testcase" + Call hCloseDocument + end if + + printlog "add '-' between 'fol' and 'lowing'" + printlog "+ check if fol in the end of the line" + + Call wTypeKeys "<Home>" + Call wTypeKeys "<Right>" , 3 + Call wTypeKeys "<Mod1 SUBTRACT>" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + Call wTypeKeys "<Delete>" + + Call wTypeKeys "<End><Left>" + Call wTypeKeys "<Mod1 Shift Left>" + EditCopy + + if GetClipboardText <> PartOfTestWord then + Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'" + end if + + Call hCloseDocument + +endcase '------------------------------------------------------------------------- testcase tHyphenation_2 -warnlog "#i102304# - outcommenting tHyphenation_2 due to bug." -goto endsub - - Dim testFile as String - Dim testWord as String - Dim firstPartOfTestWord as String - Dim secondPartOfTestWord as String - Dim testWordInHyphenationDlg as String - - testFile = "tHyphenation.odt" - testWord = "following" - testWordInHyphenationDlg = "fol=low-ing" - firstPartOfTestWord = "fol" - secondPartOfTestWord = "follow" - - PrintLog "- Test Hyphenation using Tools/Hyphenation ,test like fol-lowing" - - printlog "Test Hyphenation using Tools/Hyphenation ,test like fol-lowing" - - printlog "open a test file" - Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) - Call sMakeReadOnlyDocumentEditable - - Call wTypeKeys "<End><Shift Mod1 Left>" - - EditCopy - - if GetClipboardText <> testWord then - Warnlog "The test word is wrong !!" - goto endsub - end if - - printlog "Press 3 times 'space bar'" - Call wTypeKeys "<Home>" - if gPlatGroup <> "unx" then - Call wTypeKeys "<SPACE>" ,3 - else - Call wTypeKeys "<SPACE>" ,6 - end if - - printlog "Tools/Hyphenation" - ToolsLanguageHyphenate - Kontext "Silbentrennung" - - if Not Silbentrennung.Exists then - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Active.Yes - - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then Active.Ok - end if - end if - end if - Warnlog "Unable to bring up Dialog 'Hyphenation'!" - goto endsub - end if - - printlog "check if get 'fol=low-ing'" - if Wort.Gettext <> testWordInHyphenationDlg then - Warnlog "#i40561# The test can NOT be seperated two times , or something wrong!" - Silbentrennung.Cancel - goto NOTest - end if - - if NOT Vor.IsEnabled then - Warnlog "the Vor button is Not enabled, or something wrong!" - Silbentrennung.Cancel - goto NOTest - end if - - printlog "add '-' between 'fol' and 'lowing' using left arrow key" - Vor.Click - Silbentrennung.OK - - printlog "Close all dialogue, and recover the file to default" - Kontext "Active" - if NOT Active.Exists then - Kontext "Silbentrennung" - Silbentrennung.Cancel - Warnlog "The first message box is NOT pop up" - goto NOTest - end if - - Active.Yes - - Kontext "Active" - if NOT Active.Exists then - Warnlog "The second message box is NOT pop up" - goto endsub - end if - - Active.OK - - printlog "Press 3 times 'space bar' in front of the line" - Call wTypeKeys "<BACKSPACE>",3 - Call wTypeKeys "<SPACE>",3 - - Call wTypeKeys "<End><Left><Shift Mod1 Left>" - EditCopy - - printlog "Check if get 'fol'" - if GetClipboardText <> firstPartOfTestWord then - Warnlog "The hyphenation does NOT work well in first part!" - end if - -NOTest: - Call hCloseDocument - -endcase + Dim testFile as String + Dim testWord as String + Dim PartOfTestWord as String + + testFile = "tHyphenation.odt" + testWord = "following" + PartOfTestWord = "follow" + + printlog "Test Hyphenation using ctrl and -" + + printlog "open a test file" + Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) + Call sMakeReadOnlyDocumentEditable + + ' we must assure the word 'following' is the first word in second line + ' otherwise the test will not work correctly + if fPrepareHyphenationDocument(testWord) = false then + Warnlog "Unable to prepare document for hyphenation. Check testcase" + Call hCloseDocument + end if + + printlog "add '-' between 'follow' and 'ing'" + printlog "+ check if 'follow' in the end of the line" + + Call wTypeKeys "<Home>" + Call wTypeKeys "<Right>" , 6 + Call wTypeKeys "<Mod1 SUBTRACT>" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + if gPlatgroup = "unx" then + Call wTypeKeys "<Delete>", 6 + else + Call wTypeKeys "<Delete>", 7 + end if + + Call wTypeKeys "<End><Left>" + Call wTypeKeys "<Mod1 Shift Left>" + EditCopy + + if GetClipboardText <> PartOfTestWord then + Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'" + end if + + Call hCloseDocument + +endcase '------------------------------------------------------------------------- testcase tHyphenation_3 -warnlog "#i102304# - outcommenting tHyphenation_3 due to bug." -goto endsub - - Dim testFile as String - Dim testWord as String - Dim firstPartOfTestWord - Dim secondPartOfTestWord as String - Dim testWordInHyphenationDlg1 as String - Dim testWordInHyphenationDlg2 as String - - testFile = "tHyphenation.odt" - testWord = "following" - firstPartOfTestWord = "fol" - secondPartOfTestWord = "follow" - testWordInHyphenationDlg1 = "fol=low-ing" - testWordInHyphenationDlg2 = "fol-low=ing" - - printLog "- Test Hyphenation using Tools/Hyphenation ,test like follow-ing" - printlog "Test Hyphenation using Tools/Hyphenation ,test like follow-ing" - - printlog "open a test file" - Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) - Call sMakeReadOnlyDocumentEditable - - Call wTypeKeys "<End><Shift Mod1 Left>" - - EditCopy - - if GetClipboardText <> testWord then - Warnlog "The test word is wrong !!" - goto endsub - end if - - printlog "Press 3 times 'space bar'" - Call wTypeKeys "<Home>" - if gPlatGroup <> "unx" then - Call wTypeKeys "<SPACE>" ,3 - else - Call wTypeKeys "<SPACE>" ,6 - end if - - printlog "Tools/Hyphenation" - ToolsLanguageHyphenate - Kontext "Silbentrennung" - - if Not Silbentrennung.Exists then - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - Active.Yes - - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then Active.Ok - end if - end if - end if - Warnlog "Unable to bring up Dialog 'Hyphenation'!" - goto endsub - end if - - printlog "check if get 'fol=low-ing'" - if Wort.Gettext <> testWordInHyphenationDlg1 then - Warnlog "#i40561# The test can NOT be seperated two times , or something wrong!" - Silbentrennung.Cancel - goto NOTest - end if - - printlog "click left arrow key" - if NOT Vor.IsEnabled then - Warnlog "the Vor button is Not enabled, or something wrong!" - Silbentrennung.Cancel - goto NOTest - end if - Vor.Click - - printlog "check if get ''fol-low=ing'" - if Wort.Gettext <> testWordInHyphenationDlg2 then - Warnlog "The test word should be changed after clicking Vor!" - goto endsub - end if - - printlog "add '-' between 'follow' and 'ing' pressing right arrow key" - if NOT Zurueck.IsEnabled then - Warnlog "the Zuruech button is Not enabled, or something wrong!" - goto endsub - end if - Zurueck.Click - - printlog "check if get 'fol-low=ing'" - if Wort.Gettext <> testWordInHyphenationDlg1 then - Warnlog "The test word should be changed after clicking Zurueck!" - goto endsub - end if - - Sleep 1 - - printlog "close all dialogue" - Silbentrennung.OK - - Kontext "Active" - if NOT Active.Exists then - Warnlog "The first message box is NOT pop up" - goto endsub - end if - - Active.Yes - - Kontext "Active" - if NOT Active.Exists then - Warnlog "The second message box is NOT pop up" - goto endsub - end if - - Active.OK - - printlog "recover to the default file and press 3 sparc bar in front of the line" - Call wTypeKeys "<BACKSPACE>",3 - Call wTypeKeys "<SPACE>",3 - - Call wTypeKeys "<End><Left><Shift Mod1 Left>" - EditCopy - - printlog "check if get 'follow' in the end of the line" - if GetClipboardText = secondPartOfTestWord then - Call wTypeKeys "<Home>" - Call wTypeKeys "<SPACE>" , 5 - - Call wTypeKeys "<End><Shift Mod1 Left>" - EditCopy + Dim testFile as String + Dim testWord as String + Dim firstPartOfTestWord as String + Dim secondPartOfTestWord as String + Dim testWordInHyphenationDlg as String + + testFile = "tHyphenation.odt" + testWord = "following" + testWordInHyphenationDlg = "fol=low-ing" + firstPartOfTestWord = "fol" + secondPartOfTestWord = "follow" + + printlog "Test Hyphenation using Tools/Hyphenation ,test like fol-lowing" + + printlog "open a test file" + Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) + Call sMakeReadOnlyDocumentEditable + + ' we must assure the word 'following' is the first word in second line + ' otherwise the test will not work correctly + if fPrepareHyphenationDocument(testWord) = false then + Warnlog "Unable to prepare document for hyphenation. Check testcase" + Call hCloseDocument + end if + + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + if gPlatgroup = "unx" then + Call wTypeKeys "<Delete>", 6 + else + Call wTypeKeys "<Delete>", 7 + end if + + printlog "Tools/Hyphenation" + ToolsLanguageHyphenate + Kontext "Silbentrennung" + + if Not Silbentrennung.Exists then + Warnlog "Unable to bring up Dialog 'Hyphenation'!" + Call hCloseDocument + goto endsub + end if + + printlog "check if get 'fol=low-ing'" + if Wort.Gettext <> testWordInHyphenationDlg then + Warnlog "Expected " & testWordInHyphenationDlg & " but found " & Wort.Gettext + Silbentrennung.Cancel + Call hCloseDocument + goto endsub + end if + + if NOT Vor.IsEnabled then + Warnlog "the 'Vor' button is Not enabled, or something wrong!" + Silbentrennung.Cancel + Call hCloseDocument + goto endsub + end if + + printlog "add '-' between 'fol' and 'lowing' using left arrow key" + Vor.Click + Silbentrennung.OK + + ' Messagebox 'Start hypheantion from the beginning ? + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.ok + endcatch + else + Warnlog "No messagebox asking for hyphenate at beginning of document" + end if + end if + + ' End of hyphenation message + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Ok + catch + Active.yes + endcatch + else + Warning "No 'end of hyphenation' messagebox" + end if + end if + + printlog "Press 3 times 'space bar' in front of the line" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + Call wTypeKeys "<Left>" + Call wTypeKeys "<Shift Mod1 Left>" + EditCopy + + printlog "Check if get 'fol'" + if GetClipboardText <> firstPartOfTestWord then + Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'" + end if + + Call hCloseDocument + +endcase - if GetClipboardText <> firstPartOfTestWord then - Warnlog "The hyphenation does NOT work well in first part, but it works fine in second part!" - end if - else - Warnlog "The hyphenation does NOT work well in second part!" - end if -NOTest: - Call hCloseDocument +'------------------------------------------------------------------------- +testcase tHyphenation_4 + + Dim testFile as String + Dim testWord as String + Dim firstPartOfTestWord as string + Dim secondPartOfTestWord as String + Dim testWordInHyphenationDlg1 as String + Dim testWordInHyphenationDlg2 as String + + testFile = "tHyphenation.odt" + testWord = "following" + firstPartOfTestWord = "fol" + secondPartOfTestWord = "follow" + testWordInHyphenationDlg1 = "fol=low-ing" + testWordInHyphenationDlg2 = "fol-low=ing" + + printLog "- Test Hyphenation using Tools/Hyphenation ,test like follow-ing" + printlog "Test Hyphenation using Tools/Hyphenation ,test like follow-ing" + + printlog "open a test file" + Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile ) + Call sMakeReadOnlyDocumentEditable + + ' we must assure the word 'following' is the first word in second line + ' otherwise the test will not work correctly + if fPrepareHyphenationDocument(testWord) = false then + Warnlog "Unable to prepare document for hyphenation. Check testcase" + Call hCloseDocument + end if + + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + if gPlatgroup = "unx" then + Call wTypeKeys "<Delete>", 6 + else + Call wTypeKeys "<Delete>", 7 + end if + + printlog "Tools/Hyphenation" + ToolsLanguageHyphenate + Kontext "Silbentrennung" + + if Not Silbentrennung.Exists then + Call hCloseDocument + goto endsub + end if + + printlog "check if get 'fol=low-ing'" + if Wort.Gettext <> testWordInHyphenationDlg1 then + Warnlog "Expected " & testWordInHyphenationDlg1 & " but found " & Wort.Gettext + Silbentrennung.Cancel + Call hCloseDocument + goto endsub + end if + + printlog "click left arrow key" + if NOT Vor.IsEnabled then + Warnlog "the Vor button is Not enabled, or something wrong!" + Silbentrennung.Cancel + Call hCloseDocument + goto endsub + end if + Vor.Click + + printlog "check if get ''fol-low=ing'" + if Wort.Gettext <> testWordInHyphenationDlg2 then + Warnlog "Expected " & testWordInHyphenationDlg2 & " but found " & Wort.Gettext + Call hCloseDocument + goto endsub + end if + + printlog "add '-' between 'follow' and 'ing' pressing right arrow key" + if NOT Zurueck.IsEnabled then + Warnlog "the 'Back' button is Not enabled, or something wrong!" + Call hCloseDocument + goto endsub + end if + Zurueck.Click + + printlog "check if get 'fol-low=ing'" + if Wort.Gettext <> testWordInHyphenationDlg1 then + Warnlog "The test word should be changed after clicking Zurueck!" + Call hCloseDocument + goto endsub + end if + + Sleep 1 + + printlog "close all dialogs" + Silbentrennung.OK + + ' Messagebox 'Start hypheantion from the beginning ? + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.ok + endcatch + else + Warnlog "No messagebox asking for hyphenate at beginning of document" + end if + end if + + ' End of hyphenation message + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Ok + catch + Active.yes + endcatch + else + Warning "No 'end of hyphenation' messagebox" + end if + end if + + printlog "Press 3 times 'space bar' in front of the line" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End>" + Call wTypeKeys "<Left>" + Call wTypeKeys "<Shift Mod1 Left>" + EditCopy + + printlog "Check if get 'follow'" + if GetClipboardText <> secondPartOfTestWord then + Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & secondPartOfTestWord & "'" + end if + + Call hCloseDocument + endcase diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc index 034bbd7c1793..10d8448e79e7 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:30:39 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -455,39 +449,34 @@ endcase testcase tInsertGraphic_8 - Dim iFileType as Integer - Dim iFileNumber as Integer - - iFileType = 1 'filter (Format <All>) - - if gPlatGroup = "unx" then - iFileNumber = 4 '4 graphic files. (directory hidden on Unix) - else - iFileNumber = 5 '4 graphic files and 1 directory. - end if - - PrintLog "- Test preselect Filter (Format <All>)" - '/// Test preselect Filter (Format <All>) - - Call hNewDocument - - '/// Insert a Graphic , Insert/Graphics/From file - InsertGraphicsFromFile - - '/// Select filter (Format <All>) - Kontext "GrafikEinfuegenDlg" - Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") ) - Sleep 1 - Oeffnen.Click - - Dateityp.Select iFileType - Sleep 1 - - '/// Check if Filter (Format <All>) works well - if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter (Format <All>) does NOT work well" - GrafikEinfuegenDlg.Cancel - - Call hCloseDocument + Dim iFileType as Integer + Dim iFileNumber as Integer + + iFileType = 1 'filter (Format <All>) + iFileNumber = 4 + + PrintLog "- Test preselect Filter (Format <All>)" + '/// Test preselect Filter (Format <All>) + + Call hNewDocument + + '/// Insert a Graphic , Insert/Graphics/From file + InsertGraphicsFromFile + + '/// Select filter (Format <All>) + Kontext "GrafikEinfuegenDlg" + Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") ) + Sleep 1 + Oeffnen.Click + + Dateityp.Select iFileType + Sleep 1 + + '/// Check if Filter (Format <All>) works well + if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter (Format <All>) does NOT work well" + GrafikEinfuegenDlg.Cancel + + Call hCloseDocument endcase @@ -495,39 +484,34 @@ endcase testcase tInsertGraphic_9 - Dim iFileType as Integer - Dim iFileNumber as Integer - - iFileType = 2 'another filter except for (Format <All>) -- bmp - - if gPlatGroup = "unx" then - iFileNumber = 1 - else - iFileNumber = 2 'the first is the .svn-directory - end if - - PrintLog "- Test preselect Filter excepte for (Format <All>)" - '/// Test preselect Filter excepte for (Format <All>) - - Call hNewDocument - - '/// Insert a Graphic , Insert/Graphics/From file - InsertGraphicsFromFile - - '/// Select filter 'BMP' - Kontext "GrafikEinfuegenDlg" - Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") ) - Sleep 1 - Oeffnen.Click - - Dateityp.Select iFileType - Sleep 1 - - '/// Check if Filter BMP works well - if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter BMP does NOT work well" - GrafikEinfuegenDlg.Cancel - - Call hCloseDocument + Dim iFileType as Integer + Dim iFileNumber as Integer + + iFileType = 2 'another filter except for (Format <All>) -- bmp + iFileNumber = 1 + + PrintLog "- Test preselect Filter excepte for (Format <All>)" + '/// Test preselect Filter excepte for (Format <All>) + + Call hNewDocument + + '/// Insert a Graphic , Insert/Graphics/From file + InsertGraphicsFromFile + + '/// Select filter 'BMP' + Kontext "GrafikEinfuegenDlg" + Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") ) + Sleep 1 + Oeffnen.Click + + Dateityp.Select iFileType + Sleep 1 + + '/// Check if Filter BMP works well + if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter BMP does NOT work well" + GrafikEinfuegenDlg.Cancel + + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc index 3c0595bdff3f..3ba0eae92fa7 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:30:51 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -631,116 +625,116 @@ endcase testcase tInsertGraphic_18 - Dim sGraphicName1 as String - Dim sGraphicName2 as String - Dim sGraphicName3 as String - Dim sWidth as String - Dim sHeight as String + Dim sGraphicName1 as String + Dim sGraphicName2 as String + Dim sGraphicName3 as String + Dim sWidth as String + Dim sHeight as String - sGraphicName1 = "TEST1" - sGraphicName2 = "TEST2" - sGraphicName3 = "TEST3" + sGraphicName1 = "TEST1" + sGraphicName2 = "TEST2" + sGraphicName3 = "TEST3" - sWidth = "7"+ gSeperator + "00" + gMeasurementUnit - sHeight = "6"+ gSeperator + "00" + gMeasurementUnit + sWidth = "7"+ gSeperator + "00" + gMeasurementUnit + sHeight = "6"+ gSeperator + "00" + gMeasurementUnit - PrintLog "- Test Set different attributes via Contextmenu Arrange (send backward)" - '/// Test Set different attributes via Contextmenu Arrange (send backward) + PrintLog "- Test Set different attributes via Contextmenu Arrange (send backward)" + '/// Test Set different attributes via Contextmenu Arrange (send backward) - Call hNewDocument + Call hNewDocument - Call wTypeKeys "<Return>" + Call wTypeKeys "<Return>" - '/// Insert three Graphics at the same place , and named in series + '/// Insert three Graphics at the same place , and named in series - 'the 1st graphic - fInsertGraphics("Bughunter.jpg") + 'the 1st graphic + fInsertGraphics("Bughunter.jpg") - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName1 - TabZusaetze.OK - - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK - - Call wTypeKeys "<ESCape>" + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName1 + Kontext + Active.Setpage TabType + Kontext "TabType" + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK - 'the 2nd graphic - fInsertGraphics("flowers.gif") + Call wTypeKeys "<ESCape>" - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName2 - TabZusaetze.OK + 'the 2nd graphic + fInsertGraphics("flowers.gif") - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName2 + TabZusaetze.OK - Call wTypeKeys "<ESCape>" + fFormatGraphic("TabType") + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK - 'the 3rd graphic - fInsertGraphics("game.bmp") + Call wTypeKeys "<ESCape>" - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName3 - TabZusaetze.OK + 'the 3rd graphic + fInsertGraphics("game.bmp") - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName3 + TabZusaetze.OK - '/// ContextMenu Arrange / Send backward - Call wOpenContextMenu + fFormatGraphic("TabType") + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK + + '/// ContextMenu Arrange / Send backward + Call wOpenContextMenu hMenuSelectNr(1) Sleep 2 hMenuSelectNr(3) Sleep 1 - Call wTypeKeys "<ESCape>" - Sleep 1 + Call wTypeKeys "<ESCape>" + Sleep 1 - '/// Check if the attributes Arrange (send to back) works well - Call wNavigatorAuswahl(4,1) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName1 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + '/// Check if the attributes Arrange (send to back) works well + Call wNavigatorAuswahl(4,1) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName1 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call wNavigatorAuswahl(4,2) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName2 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + Call wNavigatorAuswahl(4,2) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName2 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call wNavigatorAuswahl(4,3) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName3 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + Call wNavigatorAuswahl(4,3) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName3 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call hCloseDocument + Call hCloseDocument endcase @@ -748,120 +742,122 @@ endcase testcase tInsertGraphic_19 - Dim sGraphicName1 as String - Dim sGraphicName2 as String - Dim sGraphicName3 as String - Dim sWidth as String - Dim sHeight as String + Dim sGraphicName1 as String + Dim sGraphicName2 as String + Dim sGraphicName3 as String + Dim sWidth as String + Dim sHeight as String - sGraphicName1 = "TEST1" - sGraphicName2 = "TEST2" - sGraphicName3 = "TEST3" + sGraphicName1 = "TEST1" + sGraphicName2 = "TEST2" + sGraphicName3 = "TEST3" - sWidth = "7"+ gSeperator + "00" + gMeasurementUnit - sHeight = "6"+ gSeperator + "00" + gMeasurementUnit + sWidth = "7"+ gSeperator + "00" + gMeasurementUnit + sHeight = "6"+ gSeperator + "00" + gMeasurementUnit - PrintLog "- Test Set different attributes via Contextmenu Arrange (bring to front)" - '/// Test Set different attributes via Contextmenu Arrange (bring to front) + PrintLog "- Test Set different attributes via Contextmenu Arrange (bring to front)" + '/// Test Set different attributes via Contextmenu Arrange (bring to front) - Call hNewDocument + Call hNewDocument - Call wTypeKeys "<Return>" + Call wTypeKeys "<Return>" - '/// Insert three Graphics at the same place , and named in series + '/// Insert three Graphics at the same place , and named in series - 'the 1st graphic - fInsertGraphics("Bughunter.jpg") + 'the 1st graphic + fInsertGraphics("Bughunter.jpg") - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName1 - TabZusaetze.OK + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName1 - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK + Kontext + Active.Setpage TabType + Kontext "TabType" - Call wTypeKeys "<ESCape>" + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK - 'the 2nd graphic - fInsertGraphics("flowers.gif") + Call wTypeKeys "<ESCape>" - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName2 - TabZusaetze.OK + 'the 2nd graphic + fInsertGraphics("flowers.gif") - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName2 + TabZusaetze.OK - Call wTypeKeys "<ESCape>" + fFormatGraphic("TabType") + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK - 'the 3rd graphic - fInsertGraphics("game.bmp") + Call wTypeKeys "<ESCape>" - fFormatGraphic("TabZusaetze") - Sleep 1 - ObjektName.SetText sGraphicName3 - TabZusaetze.OK + 'the 3rd graphic + fInsertGraphics("game.bmp") - fFormatGraphic("TabType") - KeepRatio.UnCheck - Sleep 1 - Width.SetText sWidth - wait 500 - Height.SetText sHeight - wait 500 - TabType.OK + fFormatGraphic("TabZusaetze") + Sleep 1 + ObjektName.SetText sGraphicName3 + TabZusaetze.OK - '/// Format / Arrange / Send to back - FormatArrangeSendToBack - Sleep 2 + fFormatGraphic("TabType") + KeepRatio.UnCheck + Sleep 1 + Width.SetText sWidth + wait 500 + Height.SetText sHeight + wait 500 + TabType.OK + + '/// Format / Arrange / Send to back + FormatArrangeSendToBack + Sleep 2 - '/// ContextMenu Arrange / bring to front - Call wOpenContextMenu + '/// ContextMenu Arrange / bring to front + Call wOpenContextMenu hMenuSelectNr(1) Sleep 2 hMenuSelectNr(1) Sleep 1 - Call wTypeKeys "<ESCape>" - Sleep 1 + Call wTypeKeys "<ESCape>" + Sleep 1 - '/// Check if the attributes Arrange (send to back) works well - Call wNavigatorAuswahl(4,1) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName1 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + '/// Check if the attributes Arrange (send to back) works well + Call wNavigatorAuswahl(4,1) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName1 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call wNavigatorAuswahl(4,2) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName2 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + Call wNavigatorAuswahl(4,2) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName2 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call wNavigatorAuswahl(4,3) - Sleep 1 - fFormatGraphic("TabZusaetze") - Sleep 1 - if ObjektName.GetText <> sGraphicName3 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText - TabZusaetze.Cancel + Call wNavigatorAuswahl(4,3) + Sleep 1 + fFormatGraphic("TabZusaetze") + Sleep 1 + if ObjektName.GetText <> sGraphicName3 then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText + TabZusaetze.Cancel - Call hCloseDocument + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc index 11908cb75a20..2b9099c8bfc3 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic3.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:54 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc index 0a1790c1cbcb..87dac6648482 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic4.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:31:06 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -812,14 +806,14 @@ testcase tInsertGraphic_40 if Active.GetRT = 304 then Active.Ok QAErrorLog "No Default-Printer!" - Kontext "DruckenDlg" + Kontext "Printing" Sleep 1 - DruckenDlg.Cancel + Printing.Cancel end if else - Kontext "DruckenDlg" + Kontext "Printing" Sleep 1 - DruckenDlg.OK + Printing.OK Sleep 5 end if diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc index fe6704392a0a..e904b2df2f47 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic5.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:54 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index ad2c3122da63..a612b5f987c2 100644..100755 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_loadsave.inc,v $ -'* -'* $Revision: 1.1.4.3 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008/10/06 18:36:45 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -51,7 +45,6 @@ testcase tExportAllReadableFormatsIntoODF end if Dim AvailableFilters( 35 ) as String - Dim TemplateFilterFile as String Dim ImportFileList ( 300 ) as String Dim ExportFileList ( 300 ) as String Dim WorkDirectory as String @@ -61,7 +54,6 @@ testcase tExportAllReadableFormatsIntoODF Dim sExportFile as string Dim i as Integer - TemplateFilterFile = ConvertPath ( gTesttoolPath + "writer\optional\input\filterlist.txt") WorkDirectory = ( ConvertPath ( gOfficePath + "user\work\" + gPlatgroup + "\export\")) ImportDir = ConvertPath ( gTesttoolPath + "writer\optional\input\import\") @@ -84,98 +76,103 @@ testcase tExportAllReadableFormatsIntoODF printlog "- Start loading files in list" For i = 1 to listCount(ImportFileList()) printlog "- " & i & ". load: " & ImportFileList(i) - Call hFileOpen ( ImportFileList(i) ) - printlog "- done" - - Kontext "TextImport" - if TextImport.Exists then - TextImport.Ok - printlog "- Text import dialog passed" - end if - - Kontext "Filterauswahl" - if Filterauswahl.Exists then - Filterauswahl.Cancel - printlog "- Filterdialog passed" - end if - - Kontext "AsciiFilterOptionen" - if AsciiFilterOptionen.Exists then - AsciiFilterOptionen.Ok - printlog "- ASCII-Filter dialog passed" - end if - - Kontext "SecurityWarning" - if SecurityWarning.Exists(3) then - SecurityWarning.Ok - printlog "- Security warning passed" - end if - - Kontext "DocumentWriter" - if DocumentWriter.Exists(3) then - Do until DocumentWriter.StatusIsProgress = false - wait 500 - Loop + sExportFile = ImportFileList(i) + if GetExtention ( sExportFile ) = "psw" then + QAErrorlog "#i102221#Pocket Word filter puts General I/O Error" else - Kontext "DocumentCalc" - if DocumentCalc.Exists(3) then - Do until DocumentCalc.StatusIsProgress = false + Call hFileOpen ( ImportFileList(i) ) + printlog "- done" + + Kontext "TextImport" + if TextImport.Exists then + TextImport.Ok + printlog "- Text import dialog passed" + end if + + Kontext "Filterauswahl" + if Filterauswahl.Exists then + Filterauswahl.Cancel + printlog "- Filterdialog passed" + end if + + Kontext "AsciiFilterOptionen" + if AsciiFilterOptionen.Exists then + AsciiFilterOptionen.Ok + printlog "- ASCII-Filter dialog passed" + end if + + Kontext "SecurityWarning" + if SecurityWarning.Exists(3) then + SecurityWarning.Ok + printlog "- Security warning passed" + end if + + Kontext "DocumentWriter" + if DocumentWriter.Exists(3) then + Do until DocumentWriter.StatusIsProgress = false wait 500 Loop else - Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?" + Kontext "DocumentCalc" + if DocumentCalc.Exists(3) then + Do until DocumentCalc.StatusIsProgress = false + wait 500 + Loop + else + Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?" + end if end if - end if - - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(ImportFileList(i),"sw40") = false then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + + ' Check for macro alert + Kontext "SecurityWarning" + if SecurityWarning.Exists then + if inStr(ImportFileList(i),"sw40") = false then + QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + end if + SecurityWarning.Cancel end if - SecurityWarning.Cancel - end if - Sleep 1 - - Kontext "AlienWarning" - if AlienWarning.Exists then - AlienWarning.Ok - printlog "- Alien warning passed" - end if - - ' HTML-File can't be exported as odf this way - if GetExtention(ImportFileList(i)) <> "html" then - - sExportFile = WorkDirectory & "ExportedFile" & i & ".odf" - Printlog "- Save as : " & ConvertPath ( sExportFile ) - if hFileSaveAsWithFilterKill (sExportFile, "writer8") = true then - printlog "- done" - printlog "- close file" - Call hCloseDocument + Sleep 1 - Printlog "- Open previous saved file" - Call hFileOpenWithFilter (sExportFile, "writer8") - printlog "- done" - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(ImportFileList(i),"sw40") = false then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + Kontext "AlienWarning" + if AlienWarning.Exists then + AlienWarning.Ok + printlog "- Alien warning passed" + end if + + ' HTML-File can't be exported as odf this way + if GetExtention(ImportFileList(i)) <> "html" then + + sExportFile = WorkDirectory & "ExportedFile" & i & ".odf" + Printlog "- Save as : " & ConvertPath ( sExportFile ) + if hFileSaveAsWithFilterKill (sExportFile, "writer8") = true then + printlog "- done" + printlog "- close file" + Call hCloseDocument + + Printlog "- Open previous saved file" + Call hFileOpenWithFilter (sExportFile, "writer8") + printlog "- done" + ' Check for macro alert + Kontext "SecurityWarning" + if SecurityWarning.Exists then + if inStr(ImportFileList(i),"sw40") = false then + QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + end if + SecurityWarning.Cancel end if - SecurityWarning.Cancel + Sleep 1 + else + Warnlog "Unable to save file: " & sExportFile end if - Sleep 1 else - Warnlog "Unable to save file: " & sExportFile + printlog "- HTML-file is not exported this way" end if - else - printlog "- HTML-file is not exported this way" - end if - - printlog "- Close all open files." - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + + printlog "- Close all open files." + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + endif next i 'File endcase @@ -190,7 +187,6 @@ testcase tExportAllReadableFormatsIntoThemselves end if Dim AvailableFilters( 35 ) as String - Dim TemplateFilterFile as String Dim SavedCorrectly as Boolean Dim ImportFileList ( 300 ) as String Dim ExportFileList ( 300 ) as String @@ -205,7 +201,6 @@ testcase tExportAllReadableFormatsIntoThemselves Dim iCounter as integer Dim DocumentCount as integer - TemplateFilterFile = ConvertPath ( gTesttoolPath + "writer\optional\input\filterlist.txt") sWorkDirectory = ( ConvertPath ( gOfficePath + "user\work\" + gPlatgroup + "\export\")) sImportDir = ConvertPath ( gTesttoolPath + "writer\optional\input\import\") @@ -220,155 +215,150 @@ testcase tExportAllReadableFormatsIntoThemselves end if app.Mkdir sWorkDirectory - QAErrorlog "#i102221#Pocketword-filter seems broken." - - For iCurrentFileIndex = 1 to 16 + For iCurrentFileIndex = 7 to 7 select case iCurrentFileIndex - case 1 : sCurrentFile = "xml2.odt" - sCurrentFilter = "writer8" - case 2 : sCurrentFile = "wpsfile.wps" - sCurrentFilter = "Text (encoded)" - case 3 : sCurrentFile = "dostext.txt" - sCurrentFilter = "Text (encoded)" - case 4 : sCurrentFile = "sw30.sdw" - sCurrentFilter = "StarWriter 3.0" - case 5 : sCurrentFile = "sw50.vor" - sCurrentFilter = "StarWriter 5.0 Vorlage/Template" - case 6 : sCurrentFile = "sw31.sdw" - sCurrentFilter = "StarWriter 3.0" - case 7 : sCurrentFile = "sw31.vor" - sCurrentFilter = "StarWriter 3.0 Vorlage/Template" - case 8 : sCurrentFile = "sw40.sdw" - sCurrentFilter = "StarWriter 4.0" - case 9 : sCurrentFile = "sw40_sp2.vor" - sCurrentFilter = "StarWriter 4.0 Vorlage/Template" - case 10 : sCurrentFile = "sw50.sdw" - sCurrentFilter = "StarWriter 5.0" - case 11 : sCurrentFile = "html.html" - sCurrentFilter = "HTML (StarWriter)" - case 12 : sCurrentFile = "rtf.rtf" - sCurrentFilter = "Rich Text Format" - case 13 : sCurrentFile = "sw60.sxw" - sCurrentFilter = "StarOffice XML (Writer)" - case 14 : sCurrentFile = "winw97.doc" - sCurrentFilter = "MS Word 97" - case 15 : sCurrentFile = "winword6.doc" - sCurrentFilter = "MS Word 95" - case 16 : sCurrentFile = "wintext.txt" - sCurrentFilter = "Text (encoded)" -' case 17 : sCurrentFile = "pocketword.psw" -' sCurrentFilter = "PocketWord File" - - -'TODO: 18-23 not applyable. Can be opened, but saving in the format is not supported. - -' case 18 : sCurrentFile = "unixtext.txt" -' sCurrentFilter = "Text" -' case 19 : sCurrentFile = "sw2.sdw" -' sCurrentFilter = "StarWriter 2.0" -' case 20 : sCurrentFile = "amipro3.sam" -' sCurrentFilter = "Ami Pro 1.x-3.1 (W4W)" -' case 21 : sCurrentFile = "mactext.txt" -' sCurrentFilter = "Mac Write 4.x 5.0 (W4W)" -' case 22 : sCurrentFile = "sw1.sdw" -' sCurrentFilter = "StarWriter 1.0" -' case 23 : sCurrentFile = "swdoc.txt" -' sCurrentFilter = "Text (encoded) (StarWriter/GlobalDocument)" -' case 24 : sCurrentFile = "hangul.hwp" -' sCurrentFilter = "writer_MIZI_Hwp_97" + case 1 : sCurrentFile = "xml2.odt" + sCurrentFilter = "writer8" + case 2 : sCurrentFile = "wpsfile.wps" + sCurrentFilter = "Text (encoded)" + case 3 : sCurrentFile = "dostext.txt" + sCurrentFilter = "Text (encoded)" + case 4 : sCurrentFile = "sw30.sdw" + sCurrentFilter = "StarWriter 3.0" + case 5 : sCurrentFile = "sw50.vor" + sCurrentFilter = "StarWriter 5.0 Vorlage/Template" + case 6 : sCurrentFile = "sw31.sdw" + sCurrentFilter = "StarWriter 3.0" + case 7 : sCurrentFile = "sw31.vor" + sCurrentFilter = "StarWriter 3.0 Vorlage/Template" + case 8 : sCurrentFile = "sw40.sdw" + sCurrentFilter = "StarWriter 4.0" + case 9 : sCurrentFile = "sw40_sp2.vor" + sCurrentFilter = "StarWriter 4.0 Vorlage/Template" + case 10 : sCurrentFile = "sw50.sdw" + sCurrentFilter = "StarWriter 5.0" + case 11 : sCurrentFile = "html.html" + sCurrentFilter = "HTML (StarWriter)" + case 12 : sCurrentFile = "rtf.rtf" + sCurrentFilter = "Rich Text Format" + case 13 : sCurrentFile = "sw60.sxw" + sCurrentFilter = "StarOffice XML (Writer)" + case 14 : sCurrentFile = "winw97.doc" + sCurrentFilter = "MS Word 97" + case 15 : sCurrentFile = "winword6.doc" + sCurrentFilter = "MS Word 95" + case 16 : sCurrentFile = "wintext.txt" + sCurrentFilter = "Text (encoded)" +' case 17 : sCurrentFile = "pocketword.psw" +' sCurrentFilter = "PocketWord File" +' TODO: 18-23 not applyable. Can be opened, but saving in the format is not supported. +' case 18 : sCurrentFile = "unixtext.txt" +' sCurrentFilter = "Text" +' case 19 : sCurrentFile = "sw2.sdw" +' sCurrentFilter = "StarWriter 2.0" +' case 20 : sCurrentFile = "amipro3.sam" +' sCurrentFilter = "Ami Pro 1.x-3.1 (W4W)" +' case 21 : sCurrentFile = "mactext.txt" +' sCurrentFilter = "Mac Write 4.x 5.0 (W4W)" +' case 22 : sCurrentFile = "sw1.sdw" +' sCurrentFilter = "StarWriter 1.0" +' case 23 : sCurrentFile = "swdoc.txt" +' sCurrentFilter = "Text (encoded) (StarWriter/GlobalDocument)" +' case 24 : sCurrentFile = "hangul.hwp" +' sCurrentFilter = "writer_MIZI_Hwp_97" end select - printlog " - Export of File nr " + iCurrentFileIndex + " started." - sLoadFile = sImportDir & sCurrentFile - sSaveFile = sWorkDirectory & "filenr_" & iCurrentFileIndex - - try - - ' Load In-file - Call hFileOpenWithFilter(sLoadFile, sCurrentFilter, false) - - kontext "active" - if active.exists(2) then - active.ok - warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "." - end if - - Kontext "TextImport" - if TextImport.Exists then - TextImport.Ok - end if - - Kontext "Filterauswahl" - if Filterauswahl.Exists then - Filterauswahl.Cancel - end if - - Kontext "AsciiFilterOptionen" - if AsciiFilterOptionen.Exists then AsciiFilterOptionen.Ok - Kontext "SecurityWarning" - if SecurityWarning.Exists(3) then SecurityWarning.Ok - Kontext "DocumentWriter" - if DocumentWriter.Exists(3) then - Do until DocumentWriter.StatusIsProgress = false - wait 500 - Loop - else - Kontext "DocumentCalc" - if DocumentCalc.Exists(3) then - Do until DocumentCalc.StatusIsProgress = false - wait 500 - Loop - else - Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?" - end if - end if - - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(currentfile,"sw40") = false then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" - end if - SecurityWarning.Cancel - end if - Sleep 1 - - Kontext "AlienWarning" - if AlienWarning.Exists then AlienWarning.Ok - - ' Save Out-file - Call hFileSaveAsWithFilterKill(sSaveFile, sCurrentFilter) - - kontext "active" - if active.exists(2) then - active.ok - warnlog "Error saving file " + sLoadFile + " as " + sSaveFile + "." - goto Cleanup - end if - - ' Load Out-file again - Call hFileOpenWithFilter(sSaveFile, sCurrentFilter, false) - - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(currentfile,"sw40") > 0 then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" - end if - SecurityWarning.Cancel - end if - Sleep 1 - - catch - Warnlog "Error with file: " + sLoadFile - endcatch + sSaveFile = sWorkDirectory & "filenr_" & iCurrentFileIndex & "." & GetExtention ( sCurrentFile ) + printlog "- Export of File nr " + iCurrentFileIndex + " started" + printlog " - Save file: " & sLoadFile + printlog " - to file: " & sSaveFile + + + ' Load In-file + Call hFileOpenWithFilter(sLoadFile, sCurrentFilter, false) + + kontext "active" + if active.exists(2) then + active.ok + warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "." + end if + + Kontext "TextImport" + if TextImport.Exists then + TextImport.Ok + end if + + Kontext "Filterauswahl" + if Filterauswahl.Exists then + Filterauswahl.Cancel + end if + + Kontext "AsciiFilterOptionen" + if AsciiFilterOptionen.Exists then AsciiFilterOptionen.Ok + Kontext "SecurityWarning" + if SecurityWarning.Exists(3) then SecurityWarning.Ok + Kontext "DocumentWriter" + if DocumentWriter.Exists(3) then + Do until DocumentWriter.StatusIsProgress = false + wait 500 + Loop + else + Kontext "DocumentCalc" + if DocumentCalc.Exists(3) then + Do until DocumentCalc.StatusIsProgress = false + wait 500 + Loop + else + Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?" + end if + end if + + ' Check for macro alert + Kontext "SecurityWarning" + if SecurityWarning.Exists then + if inStr(currentfile,"sw40") = false then + QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + end if + SecurityWarning.Cancel + end if + Sleep 1 + + Kontext "AlienWarning" + if AlienWarning.Exists then AlienWarning.Ok + + ' Save Out-file + Call hFileSaveAsWithFilterKill(sSaveFile, sCurrentFilter) + + kontext "active" + if active.exists(2) then + active.ok + warnlog "Error saving file " + sLoadFile + " as " + sSaveFile + "." + goto Cleanup + end if + + ' Load Out-file again + Call hFileOpenWithFilter(sSaveFile, sCurrentFilter, false) + + ' Check for macro alert + Kontext "SecurityWarning" + if SecurityWarning.Exists then + if inStr(currentfile,"sw40") > 0 then + QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + end if + SecurityWarning.Cancel + end if + Sleep 1 Cleanup: kontext "active" if active.exists(2) then active.ok - warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "." + Select Case iCurrentFileIndex + case 7: QAErrorlog "#i106758#Saving StarWriter 3 template corrupts file" + case else + warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "." + end select end if printlog " Close all open files." @@ -420,132 +410,79 @@ testcase tExportTop5FormatsIntoTop5 '// Start of the LOAD-Loop For iCurrentLoadFileIndex = 1 to 4 Select case iCurrentLoadFileIndex - case 1 : sCurrentLoadFile = "xml2.odt" - sCurrentLoadFilter = "writer8" - case 2 : sCurrentLoadFile = "sw60.sxw" - sCurrentLoadFilter = "StarOffice XML (Writer)" - case 3 : sCurrentLoadFile = "winw97.doc" - sCurrentLoadFilter = "MS Word 97" - case 4 : sCurrentLoadFile = "rtf.rtf" - sCurrentLoadFilter = "Rich Text Format" - case 5 : sCurrentLoadFile = "html.html" - sCurrentLoadFilter = "HTML (StarWriter)" + case 1 : sCurrentLoadFile = sImportDir & "xml2.odt" + sCurrentLoadFilter = "writer8" + case 2 : sCurrentLoadFile = sImportDir & "sw60.sxw" + sCurrentLoadFilter = "StarOffice XML (Writer)" + case 3 : sCurrentLoadFile = sImportDir & "winw97.doc" + sCurrentLoadFilter = "MS Word 97" + case 4 : sCurrentLoadFile = sImportDir & "rtf.rtf" + sCurrentLoadFilter = "Rich Text Format" + case 5 : sCurrentLoadFile = sImportDir & "html.html" + sCurrentLoadFilter = "HTML (StarWriter)" End select - printlog " - Export of File nr " + iCurrentLoadFileIndex + " started." - - call fLoadTheFile((sImportDir & sCurrentLoadFile), sCurrentLoadFilter) - + printlog "- Export of File nr " + iCurrentLoadFileIndex + " started." + printlog " - Save file: " & sCurrentLoadFile + '/// Here comes the SAVE-Loop For iCurrentSaveFileIndex = 1 to 5 - Select case iCurrentSaveFileIndex - case 1 : sCurrentSaveFile = "SavedFile_l" + iCurrentLoadFileIndex + "_s1.odt" - sCurrentSaveFilter = "writer8" - case 2 : sCurrentSaveFile = "SavedFile_l" + iCurrentLoadFileIndex + "_s2.sxw" - sCurrentSaveFilter = "StarOffice XML (Writer)" - case 3 : sCurrentSaveFile = "SavedFile_l" + iCurrentLoadFileIndex + "_s3.doc" - sCurrentSaveFilter = "MS Word 97" - case 4 : sCurrentSaveFile = "SavedFile_l" + iCurrentLoadFileIndex + "_s4.rtf" - sCurrentSaveFilter = "Rich Text Format" - case 5 : sCurrentSaveFile = "SavedFile_l" + iCurrentLoadFileIndex + "_s5.html" - sCurrentSaveFilter = "HTML (StarWriter)" - End select - - Call hFileSaveAsWithFilterKill((sWorkDirectory & sCurrentSaveFile), sCurrentSaveFilter) - - if hFileExists (sWorkDirectory & sCurrentSaveFile) then - - 'Check if the saved file can be loaded - call fLoadTheFile((sWorkDirectory & sCurrentSaveFile), sCurrentSaveFilter) - - 'Close the opened file - Do Until GetDocumentCount = 1 - Call hCloseDocument - Loop - end if + if hFileOpenWithFilter((sCurrentLoadFile), sCurrentLoadFilter) = true then + Select case iCurrentSaveFileIndex + case 1 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s1.odt" + sCurrentSaveFilter = "writer8" + case 2 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s2.sxw" + sCurrentSaveFilter = "StarOffice XML (Writer)" + case 3 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s3.doc" + sCurrentSaveFilter = "MS Word 97" + case 4 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s4.rtf" + sCurrentSaveFilter = "Rich Text Format" + case 5 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s5.html" + sCurrentSaveFilter = "HTML (StarWriter)" + End select + + printlog " - " & iCurrentSaveFileIndex & ". to file: " & sCurrentSaveFile + if hFileSaveAsWithFilterKill(sCurrentSaveFile, sCurrentSaveFilter) = true then + printlog " - close all open documents" + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + printlog " - check if file exists" + if hFileExists (sCurrentSaveFile) then + printlog " - success" + printlog " - reload previously saved file" + if hFileOpenWithFilter(sCurrentSaveFile, sCurrentSaveFilter) = true then + printlog " - success" + else + Warnlog "error loading file: " & sCurrentSaveFile + end if + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + else + Warnlog "Saved file doesn't exist" + 'Close the opened file + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + end if + else + Warnlog "Error saving file: " & sCurrentLoadFile + 'Close the opened file + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + end if + else + Warnlog "Error loading file: " & sCurrentLoadFile + 'Close the opened file + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + end if Next iCurrentSaveFileIndex - '/// Here ends the Save-Loop - - Cleanup: - kontext "active" - if active.exists(2) then - active.ok - warnlog "Error. Last file processed: " + sCurrentLoadFile + " as " + sCurrentSaveFile + "." - end if - - printlog " Close all open files." - - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop - - printlog " - File nr " + iCurrentLoadFileIndex + " completed." + printlog "- Export of File nr " + iCurrentLoadFileIndex + " completed." Next iCurrentLoadFileIndex '// End of the LOAD-Loop. endcase - -'--------------------------------------------------------------------------------------------------------------------- - -function fLoadTheFile(sLoadFile as string, sCurrentFilter as string) - - try - ' Load In-file - Call hFileOpenWithFilter(sLoadFile, sCurrentFilter, false) - - kontext "active" - if active.exists(2) then - active.ok - warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "." - end if - - Kontext "TextImport" - if TextImport.Exists then - TextImport.Ok - end if - - Kontext "Filterauswahl" - if Filterauswahl.Exists then - Filterauswahl.Cancel - end if - - Kontext "AsciiFilterOptionen" - if AsciiFilterOptionen.Exists then AsciiFilterOptionen.Ok - Kontext "SecurityWarning" - if SecurityWarning.Exists(3) then SecurityWarning.Ok - Kontext "DocumentWriter" - if DocumentWriter.Exists(3) then - Do until DocumentWriter.StatusIsProgress = false - wait 500 - Loop - else - Kontext "DocumentCalc" - if DocumentCalc.Exists(3) then - Do until DocumentCalc.StatusIsProgress = false - wait 500 - Loop - else - Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?" - end if - end if - - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(currentfile,"sw40") > 0 then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" - end if - SecurityWarning.Cancel - end if - Sleep 1 - - Kontext "AlienWarning" - if AlienWarning.Exists then AlienWarning.Ok - - catch - Warnlog "Error with file: " + sLoadFile - endcatch -end function 'fLoadTheFile - -'------------------------------------------------------------------------------------------------------------------------------------------------ - diff --git a/testautomation/writer/optional/includes/navigator/w_navigator.inc b/testautomation/writer/optional/includes/navigator/w_navigator.inc index 31f146fb733a..db9a1a024488 100755 --- a/testautomation/writer/optional/includes/navigator/w_navigator.inc +++ b/testautomation/writer/optional/includes/navigator/w_navigator.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_navigator.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:31:20 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/number/w_205_.inc b/testautomation/writer/optional/includes/number/w_205_.inc index eca5710d6df4..8c767b31ec27 100755 --- a/testautomation/writer/optional/includes/number/w_205_.inc +++ b/testautomation/writer/optional/includes/number/w_205_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_205_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:19:08 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/number/w_205a_.inc b/testautomation/writer/optional/includes/number/w_205a_.inc index bd47c799bfbc..b9cdbb9df100 100755 --- a/testautomation/writer/optional/includes/number/w_205a_.inc +++ b/testautomation/writer/optional/includes/number/w_205a_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_205a_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:19:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/number/w_206_.inc b/testautomation/writer/optional/includes/number/w_206_.inc index 1a3d78c51f5c..457d4d2f2144 100755 --- a/testautomation/writer/optional/includes/number/w_206_.inc +++ b/testautomation/writer/optional/includes/number/w_206_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_206_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:19:40 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/number/w_207_.inc b/testautomation/writer/optional/includes/number/w_207_.inc index 690695a1acc8..71510fc152ac 100755 --- a/testautomation/writer/optional/includes/number/w_207_.inc +++ b/testautomation/writer/optional/includes/number/w_207_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_207_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:19:53 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/option/wh_o_1.inc b/testautomation/writer/optional/includes/option/wh_o_1.inc index 508030bdc4d7..2ab8eafed08e 100755 --- a/testautomation/writer/optional/includes/option/wh_o_1.inc +++ b/testautomation/writer/optional/includes/option/wh_o_1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wh_o_1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:32:16 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -50,7 +44,7 @@ end sub '------------------------------------------------------------------------------ testcase tToolsOptionsHTMLContent - Dim irgendwas(17) as boolean + Dim bCheckboxStatus(17) as boolean printlog "tToolsOptionsHTMLContent datei erstellen zum laden" '/// uses "input\\writer\\optional\\options\\options1.sxw" /// @@ -63,23 +57,21 @@ testcase tToolsOptionsHTMLContent ToolsOptions Call hToolsOptions ("HTML","View") - irgendwas(1) = GrafikenUndObjekte.IsChecked - irgendwas(2) = Tabellen.IsChecked - irgendwas(3) = Zeichnungen.IsChecked - irgendwas(4) = Feldnamen.IsChecked - irgendwas(5) = Notizen.IsChecked + bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked + bCheckboxStatus(3) = Zeichnungen.IsChecked + bCheckboxStatus(4) = Feldnamen.IsChecked + bCheckboxStatus(5) = Notizen.IsChecked - 'irgendwas(9) = Felder.IsChecked + 'bCheckboxStatus(9) = Felder.IsChecked printlog ("'/// - all states inverting ///") - if irgendwas(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check - if irgendwas(2) Then Tabellen.UnCheck Else Tabellen.Check - if irgendwas(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check - if irgendwas(4) Then Feldnamen.UnCheck Else Feldnamen.Check - if irgendwas(5) Then Notizen.UnCheck Else Notizen.Check + if bCheckboxStatus(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check + if bCheckboxStatus(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check + if bCheckboxStatus(4) Then Feldnamen.UnCheck Else Feldnamen.Check + if bCheckboxStatus(5) Then Notizen.UnCheck Else Notizen.Check - 'if irgendwas(9) Then Felder.UnCheck Else Felder.Check + 'if bCheckboxStatus(9) Then Felder.UnCheck Else Felder.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -92,16 +84,14 @@ testcase tToolsOptionsHTMLContent ToolsOptions Call hToolsOptions ( "HTML","View" ) - if ( irgendwas(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "GrafikenUndObjekte state changed" - if ( irgendwas(2) = Tabellen.IsChecked ) Then WarnLog "Tabellen state changed" - if ( irgendwas(3) = Zeichnungen.IsChecked ) Then WarnLog "Zeichnungen state changed" - if ( irgendwas(4) = Feldnamen.IsChecked ) Then WarnLog "Feldnamen state changed" - if ( irgendwas(5) = Notizen.IsChecked ) Then WarnLog "Notizen state changed" + if ( bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "Grafiken state changed" + if ( bCheckboxStatus(3) = Zeichnungen.IsChecked ) Then WarnLog "Zeichnungen state changed" + if ( bCheckboxStatus(4) = Feldnamen.IsChecked ) Then WarnLog "Feldnamen state changed" + if ( bCheckboxStatus(5) = Notizen.IsChecked ) Then WarnLog "Notizen state changed" printlog ("'/// - all UnCheck -> o ///") GrafikenUndObjekte.UnCheck - Tabellen.UnCheck Zeichnungen.UnCheck Feldnamen.UnCheck Notizen.UnCheck @@ -115,15 +105,13 @@ testcase tToolsOptionsHTMLContent ToolsOptions hToolsOptions ( "HTML","View" ) - if GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte x" - if Tabellen.IsChecked Then WarnLog "Tabellen x" + if GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken x" if Zeichnungen.IsChecked Then WarnLog "Zeichnungen x" if Feldnamen.IsChecked Then WarnLog "Feldnamen x" if Notizen.IsChecked Then WarnLog "Notizen x" Printlog ("'/// - all Check -> x ///") GrafikenUndObjekte.Check - Tabellen.Check Zeichnungen.Check Feldnamen.Check Notizen.Check @@ -135,18 +123,16 @@ testcase tToolsOptionsHTMLContent ToolsOptions Call hToolsOptions ( "HTML","View" ) - if true <> GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte o" - if True <> Tabellen.IsChecked Then WarnLog "Tabellen o" + if true <> GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken o" if True <> Zeichnungen.IsChecked Then WarnLog "Zeichnungen o" if True <> Feldnamen.IsChecked Then WarnLog "Feldnamen o" if True <> Notizen.IsChecked Then WarnLog "Notizen o" printlog ("'/// - restore states ///") - if ( irgendwas(1) = TRUE ) Then GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck - if ( irgendwas(2) = TRUE ) Then Tabellen.Check Else Tabellen.UnCheck - if ( irgendwas(3) = TRUE ) Then Zeichnungen.Check Else Zeichnungen.UnCheck - if ( irgendwas(4) = TRUE ) Then Feldnamen.Check Else Feldnamen.UnCheck - if ( irgendwas(5) = TRUE ) Then Notizen.Check Else Notizen.UnCheck + if ( bCheckboxStatus(1) = TRUE ) Then GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck + if ( bCheckboxStatus(3) = TRUE ) Then Zeichnungen.Check Else Zeichnungen.UnCheck + if ( bCheckboxStatus(4) = TRUE ) Then Feldnamen.Check Else Feldnamen.UnCheck + if ( bCheckboxStatus(5) = TRUE ) Then Notizen.Check Else Notizen.UnCheck Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -158,7 +144,7 @@ endcase '------------------------------------------------------------------------------ testcase tToolsOptionsHTMLLayout - Dim irgendwas(11) as boolean + Dim bCheckboxStatus(11) as boolean Dim iMasseinheit(3) as integer Dim iTemp(3) as integer '///Open "writer\\optional\\input\\options\\options1.sxw /// @@ -169,15 +155,15 @@ testcase tToolsOptionsHTMLLayout ToolsOptions Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1) - irgendwas(1) = Hilfslinien.IsChecked - irgendwas(2) = FarbigeHandles.IsChecked - irgendwas(3) = GrosseHandles.IsChecked - irgendwas(4) = HorizontaleBildlaufleiste.IsChecked - irgendwas(5) = VertikaleBildlaufleiste.IsChecked - irgendwas(10) = Lineal.IsChecked - irgendwas(6) = HorizontalesLineal.IsChecked - irgendwas(7) = VertikalesLineal.IsChecked - irgendwas(8) = WeichesScrollen.IsChecked + bCheckboxStatus(1) = Hilfslinien.IsChecked + bCheckboxStatus(2) = FarbigeHandles.IsChecked + bCheckboxStatus(3) = GrosseHandles.IsChecked + bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked + bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked + bCheckboxStatus(10) = Lineal.IsChecked + bCheckboxStatus(6) = HorizontalesLineal.IsChecked + bCheckboxStatus(7) = VertikalesLineal.IsChecked + bCheckboxStatus(8) = WeichesScrollen.IsChecked iMasseinheit(2) = HorizontalesLinealMasseinheit.GetSelIndex iMasseinheit(3) = VertikalesLinealMasseinheit.GetSelIndex @@ -185,17 +171,17 @@ testcase tToolsOptionsHTMLLayout printlog ("'/// - all states inverting ///") 'this one has 2 places: ViewTextBoundaries - if irgendwas(1) Then Hilfslinien.UnCheck Else Hilfslinien.Check - if irgendwas(2) Then FarbigeHandles.UnCheck Else FarbigeHandles.Check - if irgendwas(3) Then GrosseHandles.UnCheck Else GrosseHandles.Check + if bCheckboxStatus(1) Then Hilfslinien.UnCheck Else Hilfslinien.Check + if bCheckboxStatus(2) Then FarbigeHandles.UnCheck Else FarbigeHandles.Check + if bCheckboxStatus(3) Then GrosseHandles.UnCheck Else GrosseHandles.Check 'this one has 2 places: ViewRuler - if irgendwas(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check - if irgendwas(5) Then VertikaleBildlaufleiste.UnCheck Else VertikaleBildlaufleiste.Check - if irgendwas(10) then Lineal.UnCheck Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler + if bCheckboxStatus(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check + if bCheckboxStatus(5) Then VertikaleBildlaufleiste.UnCheck Else VertikaleBildlaufleiste.Check + if bCheckboxStatus(10) then Lineal.UnCheck Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler if Lineal.IsChecked then - if irgendwas(6) Then HorizontalesLineal.UnCheck Else HorizontalesLineal.Check - if irgendwas(7) Then VertikalesLineal.UnCheck Else VertikalesLineal.Check + if bCheckboxStatus(6) Then HorizontalesLineal.UnCheck Else HorizontalesLineal.Check + if bCheckboxStatus(7) Then VertikalesLineal.UnCheck Else VertikalesLineal.Check if ( HorizontalesLinealMasseinheit.GetItemCount <> iMasseinheit(2) ) Then HorizontalesLinealMasseinheit.Select (HorizontalesLinealMasseinheit.GetItemCount) Else HorizontalesLinealMasseinheit.Select (1) if ( VertikalesLinealMasseinheit.GetItemCount <> iMasseinheit(3) ) Then VertikalesLinealMasseinheit.Select (VertikalesLinealMasseinheit.GetItemCount) Else VertikalesLinealMasseinheit.Select (1) iTemp(2) = HorizontalesLinealMasseinheit.GetSelIndex @@ -203,13 +189,13 @@ testcase tToolsOptionsHTMLLayout '/// if Asian Language enabled there has to be a checkbox 'Right-aligned' for 'Vertical-Ruler' /// if gAsianSup = True and VertikalesLineal.IsChecked = True then if RechtsAusgerichtet.IsVisible = True then - if irgendwas(9) Then RechtsAusgerichtet.Uncheck Else RechtsAusgerichtet.Check + if bCheckboxStatus(9) Then RechtsAusgerichtet.Uncheck Else RechtsAusgerichtet.Check else Warnlog "- Checkbox 'Right-aligned' is not visible !" end if end if end if - if irgendwas(8) Then WeichesScrollen.UnCheck Else WeichesScrollen.Check + if bCheckboxStatus(8) Then WeichesScrollen.UnCheck Else WeichesScrollen.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -222,22 +208,22 @@ testcase tToolsOptionsHTMLLayout ToolsOptions Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1) - if ( irgendwas(1) = Hilfslinien.IsChecked ) Then WarnLog "Hilfslinien state changed" - if ( irgendwas(2) = FarbigeHandles.IsChecked ) Then WarnLog "FarbigeHandles state changed" - if ( irgendwas(3) = GrosseHandles.IsChecked ) Then WarnLog "GrosseHandles state changed" - if ( irgendwas(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed" - if ( irgendwas(5) = VertikaleBildlaufleiste.IsChecked ) Then WarnLog "VertikaleBildlaufleiste state changed" - if ( irgendwas(8) = WeichesScrollen.IsChecked ) Then WarnLog "WeichesScrollen state changed" - if ( irgendwas(10) = Lineal.IsChecked ) Then + if ( bCheckboxStatus(1) = Hilfslinien.IsChecked ) Then WarnLog "Hilfslinien state changed" + if ( bCheckboxStatus(2) = FarbigeHandles.IsChecked ) Then WarnLog "FarbigeHandles state changed" + if ( bCheckboxStatus(3) = GrosseHandles.IsChecked ) Then WarnLog "GrosseHandles state changed" + if ( bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed" + if ( bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked ) Then WarnLog "VertikaleBildlaufleiste state changed" + if ( bCheckboxStatus(8) = WeichesScrollen.IsChecked ) Then WarnLog "WeichesScrollen state changed" + if ( bCheckboxStatus(10) = Lineal.IsChecked ) Then WarnLog "Ruler state changed" - if ( irgendwas(6) = HorizontalesLineal.IsChecked ) Then WarnLog "HorizontalesLineal state changed" - if ( irgendwas(7) = VertikalesLineal.IsChecked ) Then WarnLog "VertikalesLineal state changed" + if ( bCheckboxStatus(6) = HorizontalesLineal.IsChecked ) Then WarnLog "HorizontalesLineal state changed" + if ( bCheckboxStatus(7) = VertikalesLineal.IsChecked ) Then WarnLog "VertikalesLineal state changed" if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit state changed" if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit state changed" if gAsianSup = True and VertikalesLineal.IsChecked = True then if RechtsAusgerichtet.IsVisible = True then - if irgendwas(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed" + if bCheckboxStatus(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed" else Warnlog "- Checkbox 'Right-aligned' is not visible !" end if @@ -381,19 +367,19 @@ testcase tToolsOptionsHTMLLayout ToolsOptions Call hToolsOptions ( "HTML" , "VIEW" ) - if ( irgendwas(1) = TRUE ) Then Hilfslinien.Check Else Hilfslinien.UnCheck - if ( irgendwas(2) = TRUE ) Then FarbigeHandles.Check Else FarbigeHandles.UnCheck - if ( irgendwas(3) = TRUE ) Then GrosseHandles.Check Else GrosseHandles.UnCheck + if ( bCheckboxStatus(1) = TRUE ) Then Hilfslinien.Check Else Hilfslinien.UnCheck + if ( bCheckboxStatus(2) = TRUE ) Then FarbigeHandles.Check Else FarbigeHandles.UnCheck + if ( bCheckboxStatus(3) = TRUE ) Then GrosseHandles.Check Else GrosseHandles.UnCheck - if ( irgendwas(4) = TRUE ) Then HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck - if ( irgendwas(5) = TRUE ) Then VertikaleBildlaufleiste.Check Else VertikaleBildlaufleiste.UnCheck + if ( bCheckboxStatus(4) = TRUE ) Then HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck + if ( bCheckboxStatus(5) = TRUE ) Then VertikaleBildlaufleiste.Check Else VertikaleBildlaufleiste.UnCheck Lineal.Check - if ( irgendwas(6) = TRUE ) Then HorizontalesLineal.Check Else HorizontalesLineal.UnCheck - if ( irgendwas(7) = TRUE ) Then VertikalesLineal.Check Else VertikalesLineal.UnCheck + if ( bCheckboxStatus(6) = TRUE ) Then HorizontalesLineal.Check Else HorizontalesLineal.UnCheck + if ( bCheckboxStatus(7) = TRUE ) Then VertikalesLineal.Check Else VertikalesLineal.UnCheck HorizontalesLinealMasseinheit.Select (iMasseinheit(2)) VertikalesLinealMasseinheit.Select (iMasseinheit(3)) - if ( irgendwas(8) = TRUE ) Then WeichesScrollen.Check Else WeichesScrollen.UnCheck + if ( bCheckboxStatus(8) = TRUE ) Then WeichesScrollen.Check Else WeichesScrollen.UnCheck Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -406,7 +392,7 @@ endcase '------------------------------------------------------------------------------ testcase tToolsOptionsHTMLGrid - Dim irgendwas(3) as boolean + Dim bCheckboxStatus(3) as boolean Dim sMetricField(4) as string ' MetricField Dim sTempMetricField(4) as string @@ -422,9 +408,9 @@ testcase tToolsOptionsHTMLGrid printlog ("'///TabRaster all UnCheck ! ///") - irgendwas(1) = FangrasterBenutzen.IsChecked - irgendwas(2) = RasterSichtbar.IsChecked - irgendwas(3) = AchsenSynchronisieren.IsChecked + bCheckboxStatus(1) = FangrasterBenutzen.IsChecked + bCheckboxStatus(2) = RasterSichtbar.IsChecked + bCheckboxStatus(3) = AchsenSynchronisieren.IsChecked sMetricField(1) = RasterAufloesungXAchse.GetText sMetricField(2) = RasterAufloesungYAchse.GetText @@ -433,9 +419,9 @@ testcase tToolsOptionsHTMLGrid printlog ("'/// - all states inverting ///") - if irgendwas(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check - if irgendwas(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check - ' if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check + if bCheckboxStatus(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check + if bCheckboxStatus(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check + ' if bCheckboxStatus(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check ' this CheckBox interacts with the MetricBoxes: AchsenSynchronisieren.UnCheck @@ -467,8 +453,8 @@ testcase tToolsOptionsHTMLGrid ToolsOptions Call hToolsOptions ( "HTML","Grid" ) - if (irgendwas(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 " - if (irgendwas(2) = RasterSichtbar.IsChecked ) Then WarnLog "RasterSichtbar state changed" + if (bCheckboxStatus(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 " + if (bCheckboxStatus(2) = RasterSichtbar.IsChecked ) Then WarnLog "RasterSichtbar state changed" if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "AchsenSynchronisieren state changed" if ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse state changed" if ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse state changed" @@ -638,9 +624,9 @@ testcase tToolsOptionsHTMLGrid ToolsOptions Call hToolsOptions ( "HTML","Grid" ) - if ( irgendwas(1) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck - if ( irgendwas(2) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck - if ( irgendwas(3) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck + if ( bCheckboxStatus(1) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck + if ( bCheckboxStatus(2) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck + if ( bCheckboxStatus(3) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck RasterAufloesungXAchse.SetText (sMetricField(1)) RasterAufloesungYAchse.SetText (sMetricField(2)) RasterUnterteilungXAchse.SetText (sMetricField(3)) diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc index ca7c0a789349..8de477568577 100755 --- a/testautomation/writer/optional/includes/option/wh_o_2.inc +++ b/testautomation/writer/optional/includes/option/wh_o_2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wh_o_2.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:56 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -48,53 +42,28 @@ end sub '------------------------------------------------------------------------------ testcase tToolsOptionsHTMLPrint - dim irgendwas(12) as boolean ' Checkbox states + dim bCheckboxStatus(12) as boolean ' Checkbox states dim iListBox(1) as integer ' ListBox dim iTempListBox(1) as integer dim bRadioBut(4) as boolean ' RadioButtons dim bTempRadioBut(4) as boolean - ' sMetricField(i) and sTempMetricField(i) - '(1) = Grafiken - '(2) = Tabellen - '(3) = Zeichnungen - '(4) = Kontrollfelder - '(5) = Hintergrund - '(6) = SchwarzDrucken - ' - '(7) = LinkeSeiten - '(8) = RechteSeiten - '(9) = Umgekehrt - '(10)= Prospekt - ' - '(11)= EinzelneDruckauftraege - '(12)= AusDruckereinstellung - - ' bRadioBut(i) and bTempRadioBut(i) / RadioButton - '(1) = Keine - '(2) = NurNotizen - '(3) = Dokumentende - '(4) = Seitenende - Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\test.html" ) Call sMakeReadOnlyDocumentEditable - printlog "'///- Tools/Options/HTML: PrintHTML ///" + printlog "- Tools/Options/HTML: PrintHTML " - printlog ("'/// - save states ///") + printlog (" - save states ") ToolsOptions Call hToolsOptions ("HTML","PRINT") - irgendwas(1) = Grafiken.IsChecked - irgendwas(2) = Tabellen.IsChecked - irgendwas(4) = Kontrollfelder.IsChecked - irgendwas(5) = Hintergrund.IsChecked - irgendwas(6) = SchwarzDrucken.IsChecked + bCheckboxStatus(1) = Grafiken.IsChecked + bCheckboxStatus(2) = Kontrollfelder.IsChecked + bCheckboxStatus(3) = Hintergrund.IsChecked + bCheckboxStatus(4) = SchwarzDrucken.IsChecked - irgendwas(9) = Umgekehrt.IsChecked - irgendwas(10)= Prospekt.IsChecked + bCheckboxStatus(5)= Prospekt.IsChecked - irgendwas(11)= EinzelneDruckauftraege.IsChecked - irgendwas(12)= AusDruckereinstellung.IsChecked + bCheckboxStatus(6)= AusDruckereinstellung.IsChecked iListBox(1) = Fax.GetSelIndex @@ -103,19 +72,16 @@ testcase tToolsOptionsHTMLPrint bRadioBut(3) = Dokumentende.IsChecked bRadioBut(4) = Seitenende.IsChecked - printlog ("'/// - all states inverting ///") + printlog (" - all states inverting ") - if irgendwas(1) Then Grafiken.UnCheck Else Grafiken.Check - if irgendwas(2) Then Tabellen.UnCheck Else Tabellen.Check - if irgendwas(4) Then Kontrollfelder.UnCheck Else Kontrollfelder.Check - if irgendwas(5) Then Hintergrund.UnCheck Else Hintergrund.Check - if irgendwas(6) Then SchwarzDrucken.UnCheck Else SchwarzDrucken.Check + if bCheckboxStatus(1) Then Grafiken.UnCheck Else Grafiken.Check + if bCheckboxStatus(2) Then Kontrollfelder.UnCheck Else Kontrollfelder.Check + if bCheckboxStatus(3) Then Hintergrund.UnCheck Else Hintergrund.Check + if bCheckboxStatus(4) Then SchwarzDrucken.UnCheck Else SchwarzDrucken.Check - if irgendwas(9) Then Umgekehrt.UnCheck Else Umgekehrt.Check - if irgendwas(10) Then Prospekt.UnCheck Else Prospekt.Check + if bCheckboxStatus(5) Then Prospekt.UnCheck Else Prospekt.Check - if irgendwas(11) Then EinzelneDruckauftraege.UnCheck Else EinzelneDruckauftraege.Check - if irgendwas(12) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check + if bCheckboxStatus(6) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check if (Keine.IsChecked = True) Then NurNotizen.Check Else Keine.Check @@ -134,25 +100,22 @@ testcase tToolsOptionsHTMLPrint Call hFileSaveAsKill(gOfficepath + "user\work\printtest.html") Call hCloseDocument - printlog ("'/// - SO quit - start ///") + printlog (" - SO quit - start ") Call wOfficeRestart - printlog ("'/// - checking states ///") + printlog (" - checking states ") ToolsOptions Call hToolsOptions ( "HTML" , "PRINT" ) - if ( irgendwas(1) = Grafiken.IsChecked ) Then WarnLog "'Graphics' state changed" - if ( irgendwas(2) = Tabellen.IsChecked ) Then WarnLog "'Tables' state changed" - if ( irgendwas(4) = Kontrollfelder.IsChecked ) Then WarnLog "'Controls' state changed" - if ( irgendwas(5) = Hintergrund.IsChecked ) Then WarnLog "'Background' state changed" - if ( irgendwas(6) = SchwarzDrucken.IsChecked ) Then WarnLog "'Print black' state changed" + if ( bCheckboxStatus(1) = Grafiken.IsChecked ) Then WarnLog "#i108219#'Graphics' state changed" + if ( bCheckboxStatus(2) = Kontrollfelder.IsChecked ) Then WarnLog "'Controls' state changed" + if ( bCheckboxStatus(3) = Hintergrund.IsChecked ) Then WarnLog "'Background' state changed" + if ( bCheckboxStatus(4) = SchwarzDrucken.IsChecked ) Then WarnLog "'Print black' state changed" - if ( irgendwas(9) = Umgekehrt.IsChecked ) Then WarnLog "'Reversed' state changed" - if ( irgendwas(10)= Prospekt.IsChecked ) Then WarnLog "'Brochure' state changed" + if ( bCheckboxStatus(5)= Prospekt.IsChecked ) Then WarnLog "'Brochure' state changed" - if ( irgendwas(11)= EinzelneDruckauftraege.IsChecked ) Then WarnLog "'Create single print jobs' state changed" - if ( irgendwas(12)= AusDruckereinstellung.IsChecked ) Then WarnLog "'Paper tray from printer settings' state changed" + if ( bCheckboxStatus(6)= AusDruckereinstellung.IsChecked ) Then WarnLog "'Paper tray from printer settings' state changed" if ( bTempRadioBut(1) <> Keine.IsChecked ) Then WarnLog "'None' state changed (Bug#99202)" if ( bTempRadioBut(2) <> NurNotizen.IsChecked ) Then WarnLog "'Notes only' state changed (Bug#99202)" @@ -161,18 +124,15 @@ testcase tToolsOptionsHTMLPrint if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed" - printlog ("'/// - all UnCheck -> o ///") + printlog (" - all UnCheck -> o ") Grafiken.UnCheck - Tabellen.UnCheck Kontrollfelder.UnCheck Hintergrund.UnCheck SchwarzDrucken.UnCheck - Umgekehrt.UnCheck Prospekt.UnCheck - EinzelneDruckauftraege.UnCheck AusDruckereinstellung.UnCheck if (NurNotizen.IsChecked = True) Then Dokumentende.Check Else NurNotizen.Check @@ -187,20 +147,17 @@ testcase tToolsOptionsHTMLPrint Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all UnChecked ///") + printlog (" - check if all UnChecked ") ToolsOptions Call hToolsOptions ( "HTML" , "PRINT" ) if Grafiken.IsChecked Then WarnLog "'Graphics' x" - if Tabellen.IsChecked Then WarnLog "'Tables' x" if Kontrollfelder.IsChecked Then WarnLog "'Controls' x" if Hintergrund.IsChecked Then WarnLog "'Background' x" if SchwarzDrucken.IsChecked Then WarnLog "'Print black' x" - if Umgekehrt.IsChecked Then WarnLog "'Reversed' x" if Prospekt.IsChecked Then WarnLog "'Brochure' x" - if EinzelneDruckauftraege.IsChecked Then WarnLog "'Create single print jobs' x" if AusDruckereinstellung.IsChecked Then WarnLog "'Paper tray from printer settings' x" ' Is saved with document @@ -217,18 +174,15 @@ testcase tToolsOptionsHTMLPrint if ( Fax.GetSelIndex <> 1 ) Then WarnLog "Fax is not item 1" - Printlog ("'/// - all Check -> x ///") + Printlog (" - all Check -> x ") Grafiken.Check - Tabellen.Check Kontrollfelder.Check Hintergrund.Check SchwarzDrucken.Check - Umgekehrt.Check Prospekt.Check - EinzelneDruckauftraege.Check AusDruckereinstellung.Check if (Dokumentende.IsChecked = True) Then Seitenende.Check Else Dokumentende.Check @@ -243,20 +197,17 @@ testcase tToolsOptionsHTMLPrint Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all Checked ///") + printlog (" - check if all Checked ") ToolsOptions Call hToolsOptions ( "HTML" , "PRINT" ) if not Grafiken.IsChecked Then WarnLog "'Graphics' o" - if not Tabellen.IsChecked Then WarnLog "'Tables' o" if not Kontrollfelder.IsChecked Then WarnLog "'Controls' o" if not Hintergrund.IsChecked Then WarnLog "'Background' o" if not SchwarzDrucken.IsChecked Then WarnLog "'Print black' o" - if not Umgekehrt.IsChecked Then WarnLog "'Reversed' o" if not Prospekt.IsChecked Then WarnLog "'Brochure' o" - if not EinzelneDruckauftraege.IsChecked Then WarnLog "'Create single print jobs' o" if not AusDruckereinstellung.IsChecked Then WarnLog "'Paper tray from printer settings' o" if ( bTempRadioBut(1) <> Keine.IsChecked ) Then WarnLog "'None' state changed" @@ -269,21 +220,18 @@ testcase tToolsOptionsHTMLPrint Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Cancel - printlog ("'/// - restore states ///") + printlog (" - restore states ") ToolsOptions Call hToolsOptions ( "HTML" , "PRINT" ) - if ( irgendwas(1) = TRUE ) Then Grafiken.Check Else Grafiken.UnCheck - if ( irgendwas(2) = TRUE ) Then Tabellen.Check Else Tabellen.UnCheck - if ( irgendwas(4) = TRUE ) Then Kontrollfelder.Check Else Kontrollfelder.UnCheck - if ( irgendwas(5) = TRUE ) Then Hintergrund.Check Else Hintergrund.UnCheck - if ( irgendwas(6) = TRUE ) Then SchwarzDrucken.Check Else SchwarzDrucken.UnCheck + if ( bCheckboxStatus(1) = TRUE ) Then Grafiken.Check Else Grafiken.UnCheck + if ( bCheckboxStatus(2) = TRUE ) Then Kontrollfelder.Check Else Kontrollfelder.UnCheck + if ( bCheckboxStatus(3) = TRUE ) Then Hintergrund.Check Else Hintergrund.UnCheck + if ( bCheckboxStatus(4) = TRUE ) Then SchwarzDrucken.Check Else SchwarzDrucken.UnCheck - if ( irgendwas(9) = TRUE ) Then Umgekehrt.Check Else Umgekehrt.UnCheck - if ( irgendwas(10) = TRUE ) Then Prospekt.Check Else Prospekt.UnCheck + if ( bCheckboxStatus(5) = TRUE ) Then Prospekt.Check Else Prospekt.UnCheck - if ( irgendwas(11) = TRUE ) Then EinzelneDruckauftraege.Check Else EinzelneDruckauftraege.UnCheck - if ( irgendwas(12) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck + if ( bCheckboxStatus(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck try Fax.Select (iListBox(1)) @@ -332,9 +280,9 @@ testcase tToolsOptionsHTMLTable '(3) = Variabel Call hNewDocument - printlog ("'///- Tools/Options/HTML: Table ///") + printlog ("- Tools/Options/HTML: Table ") - printlog ("'/// - save states ///") + printlog (" - save states ") ToolsOptions Call hToolsOptions ("HTML","Table") @@ -349,7 +297,7 @@ testcase tToolsOptionsHTMLTable if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) Then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097") - printlog ("'/// - all states inverting ///") + printlog (" - all states inverting ") VerschiebenZeile.ToMax VerschiebenSpalte.ToMax @@ -373,11 +321,11 @@ testcase tToolsOptionsHTMLTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - SO quit - start ///") + printlog (" - SO quit - start ") Call wOfficeRestart - printlog ("'/// - checking states ///") + printlog (" - checking states ") ToolsOptions Call hToolsOptions ( "HTML" , "Table" ) @@ -393,7 +341,7 @@ testcase tToolsOptionsHTMLTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - all UnCheck -> o ///") + printlog (" - all UnCheck -> o ") ToolsOptions Call hToolsOptions ( "HTML" , "Table" ) @@ -405,7 +353,7 @@ testcase tToolsOptionsHTMLTable sTempMetricField(2) = VerschiebenSpalte.GetText sTempMetricField(3) = EinfuegenZeile.GetText sTempMetricField(4) = EinfuegenSpalte.GetText - printlog ("'/// More test ///'") + printlog (" More test ///'") VerschiebenZeile.More VerschiebenSpalte.More EinfuegenZeile.More @@ -428,7 +376,7 @@ testcase tToolsOptionsHTMLTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all UnChecked ///") + printlog (" - check if all UnChecked ") ToolsOptions Call hToolsOptions ( "HTML" , "Table" ) @@ -441,7 +389,7 @@ testcase tToolsOptionsHTMLTable if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed" if ( bTempRadioBut(3) <> Variabel.IsChecked ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed" - Printlog ("'/// - all Check -> x ///") + Printlog (" - all Check -> x ") VerschiebenZeile.ToMax VerschiebenSpalte.ToMax @@ -451,7 +399,7 @@ testcase tToolsOptionsHTMLTable sTempMetricField(2) = VerschiebenSpalte.GetText sTempMetricField(3) = EinfuegenZeile.GetText sTempMetricField(4) = EinfuegenSpalte.GetText - printlog ("'/// Less test ///'") + printlog (" Less test ///'") VerschiebenZeile.Less VerschiebenSpalte.Less EinfuegenZeile.Less @@ -474,7 +422,7 @@ testcase tToolsOptionsHTMLTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all Checked ///") + printlog (" - check if all Checked ") ToolsOptions Call hToolsOptions ( "HTML" , "Table" ) @@ -487,7 +435,7 @@ testcase tToolsOptionsHTMLTable if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed" if ( bTempRadioBut(3) <> Variabel.IsChecked ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed" - printlog ("'/// - restore states ///") + printlog (" - restore states ") VerschiebenZeile.SetText (sMetricField(1)) VerschiebenSpalte.SetText (sMetricField(2)) @@ -510,7 +458,7 @@ testcase tToolsOptionsHTMLTable1 '/// This testcase check for this bug /// Call hNewDocument - printlog ("'///- Tools/Options/Text document: Table ///") + printlog ("- Tools/Options/Text document: Table ") ToolsOptions Call hToolsOptions ("WRITER","Table") diff --git a/testautomation/writer/optional/includes/option/wh_o_3.inc b/testautomation/writer/optional/includes/option/wh_o_3.inc index 29709b3cab3f..922dfb32ec56 100755 --- a/testautomation/writer/optional/includes/option/wh_o_3.inc +++ b/testautomation/writer/optional/includes/option/wh_o_3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wh_o_3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:32:30 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/option/wr_o_1.inc b/testautomation/writer/optional/includes/option/wr_o_1.inc index e55ebbd73280..1cff619216a1 100755 --- a/testautomation/writer/optional/includes/option/wr_o_1.inc +++ b/testautomation/writer/optional/includes/option/wr_o_1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:32:44 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -441,18 +435,16 @@ testcase tToolsOptionsWriterView5 Call hToolsOptions ("WRITER","VIEW") option_value(1) = GrafikenUndObjekte.IsChecked - option_value(2) = Tabellen.IsChecked - option_value(3) = Zeichnungen.IsChecked - option_value(4) = Feldname.IsChecked - option_value(5) = Notizen.IsChecked + option_value(2) = Zeichnungen.IsChecked + option_value(3) = Feldname.IsChecked + option_value(4) = Notizen.IsChecked printlog ("'/// - all states inverting ///") if option_value(1) then GrafikenUndObjekte.UnCheck else GrafikenUndObjekte.Check - if option_value(2) then Tabellen.UnCheck else Tabellen.Check - if option_value(3) then Zeichnungen.UnCheck else Zeichnungen.Check - if option_value(4) then Feldname.UnCheck else Feldname.Check - if option_value(5) then Notizen.UnCheck else Notizen.Check + if option_value(2) then Zeichnungen.UnCheck else Zeichnungen.Check + if option_value(3) then Feldname.UnCheck else Feldname.Check + if option_value(4) then Notizen.UnCheck else Notizen.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -465,11 +457,10 @@ testcase tToolsOptionsWriterView5 ToolsOptions Call hToolsOptions ( "WRITER" , "VIEW" ) - if ( option_value(1) = GrafikenUndObjekte.IsChecked ) then WarnLog "GrafikenUndObjekte state changed" - if ( option_value(2) = Tabellen.IsChecked ) then WarnLog "Tabellen state changed" - if ( option_value(3) = Zeichnungen.IsChecked ) then WarnLog "Zeichnungen state changed" - if ( option_value(4) = Feldname.IsChecked ) then WarnLog "Feldname state changed" - if ( option_value(5) = Notizen.IsChecked ) then WarnLog "Notizen state changed" + if ( option_value(1) = GrafikenUndObjekte.IsChecked ) then WarnLog "Graphics and objects state changed" + if ( option_value(2) = Zeichnungen.IsChecked ) then WarnLog "Zeichnungen state changed" + if ( option_value(3) = Feldname.IsChecked ) then WarnLog "Feldname state changed" + if ( option_value(4) = Notizen.IsChecked ) then WarnLog "Notizen state changed" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -499,15 +490,13 @@ testcase tToolsOptionsWriterView6 Call hToolsOptions ("WRITER","VIEW") option_value(1) = GrafikenUndObjekte.IsChecked - option_value(2) = Tabellen.IsChecked - option_value(3) = Zeichnungen.IsChecked - option_value(4) = Feldname.IsChecked - option_value(5) = Notizen.IsChecked + option_value(2) = Zeichnungen.IsChecked + option_value(3) = Feldname.IsChecked + option_value(4) = Notizen.IsChecked printlog ("'/// - all states unchecked ///") GrafikenUndObjekte.UnCheck - Tabellen.UnCheck Zeichnungen.UnCheck Feldname.UnCheck Notizen.UnCheck @@ -523,18 +512,16 @@ testcase tToolsOptionsWriterView6 ToolsOptions Call hToolsOptions ( "WRITER" , "VIEW" ) - if GrafikenUndObjekte.IsChecked then WarnLog "GrafikenUndObjekte x" - if Tabellen.IsChecked then WarnLog "Tabellen x" + if GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects x" if Zeichnungen.IsChecked then WarnLog "Zeichnungen x" if Feldname.IsChecked then WarnLog "Feldname x" if Notizen.IsChecked then WarnLog "Notizen x" printlog ("'/// - restore states ///") if ( option_value(1) = TRUE ) Then GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck - if ( option_value(2) = TRUE ) Then Tabellen.Check Else Tabellen.UnCheck - if ( option_value(3) = TRUE ) Then Zeichnungen.Check Else Zeichnungen.UnCheck - if ( option_value(4) = TRUE ) Then Feldname.Check Else Feldname.UnCheck - if ( option_value(5) = TRUE ) Then Notizen.Check Else Notizen.UnCheck + if ( option_value(2) = TRUE ) Then Zeichnungen.Check Else Zeichnungen.UnCheck + if ( option_value(3) = TRUE ) Then Feldname.Check Else Feldname.UnCheck + if ( option_value(4) = TRUE ) Then Notizen.Check Else Notizen.UnCheck Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -564,15 +551,13 @@ testcase tToolsOptionsWriterView7 Call hToolsOptions ("WRITER","VIEW") option_value(1) = GrafikenUndObjekte.IsChecked - option_value(2) = Tabellen.IsChecked - option_value(3) = Zeichnungen.IsChecked - option_value(4) = Feldname.IsChecked - option_value(5) = Notizen.IsChecked + option_value(2) = Zeichnungen.IsChecked + option_value(3) = Feldname.IsChecked + option_value(4) = Notizen.IsChecked printlog ("'/// - all Check -> x ///") GrafikenUndObjekte.Check - Tabellen.Check Zeichnungen.Check Feldname.Check Notizen.Check @@ -588,8 +573,7 @@ testcase tToolsOptionsWriterView7 ToolsOptions hToolsOptions ( "WRITER" , "VIEW" ) - if true <> GrafikenUndObjekte.IsChecked then WarnLog "GrafikenUndObjekte o" - if true <> Tabellen.IsChecked then WarnLog "Tabellen." + if true <> GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects o" if true <> Zeichnungen.IsChecked then WarnLog "Zeichnungen o" if true <> Feldname.IsChecked then WarnLog "Feldname o" if true <> Notizen.IsChecked then WarnLog "Notizen o" diff --git a/testautomation/writer/optional/includes/option/wr_o_2.inc b/testautomation/writer/optional/includes/option/wr_o_2.inc index 78bff9f411ff..502b51a68224 100755 --- a/testautomation/writer/optional/includes/option/wr_o_2.inc +++ b/testautomation/writer/optional/includes/option/wr_o_2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:32:54 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -451,14 +445,12 @@ testcase tToolsOptionsWriterPrint1 ' sMetricField(i) and sTempMetricField(i) '(1) = Grafiken '(2) = Tabellen - '(3) = Zeichnungen '(4) = Kontrollfelder '(5) = Hintergrund '(6) = SchwarzDrucken ' '(7) = LinkeSeiten '(8) = RechteSeiten - '(9) = Umgekehrt '(10)= Prospekt ' '(11)= EinzelneDruckauftraege @@ -480,20 +472,18 @@ testcase tToolsOptionsWriterPrint1 Call hToolsOptions ("WRITER","PRINT") bCheckboxes(1) = Grafiken.IsChecked - bCheckboxes(2) = Tabellen.IsChecked - bCheckboxes(3) = Zeichnungen.IsChecked - bCheckboxes(4) = Kontrollfelder.IsChecked - bCheckboxes(5) = Hintergrund.IsChecked - bCheckboxes(6) = SchwarzDrucken.IsChecked + bCheckboxes(2) = Kontrollfelder.IsChecked + bCheckboxes(3) = Hintergrund.IsChecked + bCheckboxes(4) = SchwarzDrucken.IsChecked + bCheckboxes(5) = HiddenText.IsChecked + bCheckboxes(6) = TextPlaceholder.IsChecked bCheckboxes(7) = LinkeSeiten.IsChecked bCheckboxes(8) = RechteSeiten.IsChecked - bCheckboxes(9) = Umgekehrt.IsChecked - bCheckboxes(10)= Prospekt.IsChecked + bCheckboxes(9)= Prospekt.IsChecked - bCheckboxes(11)= EinzelneDruckauftraege.IsChecked - bCheckboxes(12)= AusDruckereinstellung.IsChecked - bCheckboxes(13)= LeereSeitenDrucken.IsChecked + bCheckboxes(10)= LeereSeitenDrucken.IsChecked + bCheckboxes(11)= AusDruckereinstellung.IsChecked iListBox(1) = Fax.GetSelText @@ -504,21 +494,19 @@ testcase tToolsOptionsWriterPrint1 printlog ("'/// - all states inverting ///") - if bCheckboxes(1) then Grafiken.UnCheck else Grafiken.Check - if bCheckboxes(2) then Tabellen.UnCheck else Tabellen.Check - if bCheckboxes(3) then Zeichnungen.UnCheck else Zeichnungen.Check - if bCheckboxes(4) then Kontrollfelder.UnCheck else Kontrollfelder.Check - if bCheckboxes(5) then Hintergrund.UnCheck else Hintergrund.Check - if bCheckboxes(6) then SchwarzDrucken.UnCheck else SchwarzDrucken.Check + if bCheckboxes(1) then Grafiken.UnCheck else Grafiken.Check + if bCheckboxes(2) then Kontrollfelder.UnCheck else Kontrollfelder.Check + if bCheckboxes(3) then Hintergrund.UnCheck else Hintergrund.Check + if bCheckboxes(4) then SchwarzDrucken.UnCheck else SchwarzDrucken.Check + if bCheckboxes(5) then HiddenText.UnCheck else HiddenText.Check + if bCheckboxes(6) then TextPlaceholder.UnCheck else TextPlaceholder.Check - if bCheckboxes(7) then LinkeSeiten.UnCheck else LinkeSeiten.Check - if bCheckboxes(8) then RechteSeiten.UnCheck else RechteSeiten.Check - if bCheckboxes(9) then Umgekehrt.UnCheck else Umgekehrt.Check - if bCheckboxes(10) then Prospekt.UnCheck else Prospekt.Check + if bCheckboxes(7) then LinkeSeiten.UnCheck else LinkeSeiten.Check + if bCheckboxes(8) then RechteSeiten.UnCheck else RechteSeiten.Check + if bCheckboxes(9) then Prospekt.UnCheck else Prospekt.Check - if bCheckboxes(11) then EinzelneDruckauftraege.UnCheck else EinzelneDruckauftraege.Check - if bCheckboxes(12) then AusDruckereinstellung.UnCheck else AusDruckereinstellung.Check - if bCheckboxes(13) then LeereSeitenDrucken.UnCheck else LeereSeitenDrucken.Check + if bCheckboxes(10) then LeereSeitenDrucken.UnCheck else LeereSeitenDrucken.Check + if bCheckboxes(11) then AusDruckereinstellung.UnCheck else AusDruckereinstellung.Check if (Keine.IsChecked = True) then NurNotizen.Check else Keine.Check @@ -574,21 +562,19 @@ testcase tToolsOptionsWriterPrint1 ToolsOptions Call hToolsOptions ( "WRITER" , "PRINT" ) - if ( bCheckboxes(1) = Grafiken.IsChecked ) then WarnLog "Grafiken state changed" - if ( bCheckboxes(2) = Tabellen.IsChecked ) then WarnLog "Tabellen state changed" - if ( bCheckboxes(3) = Zeichnungen.IsChecked ) then WarnLog "Zeichnungen state changed" - if ( bCheckboxes(4) = Kontrollfelder.IsChecked ) then WarnLog "Kontrollfelder state changed" - if ( bCheckboxes(5) = Hintergrund.IsChecked ) then WarnLog "Hintergrund state changed" - if ( bCheckboxes(6) = SchwarzDrucken.IsChecked ) then WarnLog "SchwarzDrucken state changed" + if ( bCheckboxes(1) = Grafiken.IsChecked ) then WarnLog "Grafiken state changed" + if ( bCheckboxes(2) = Kontrollfelder.IsChecked ) then WarnLog "Kontrollfelder state changed" + if ( bCheckboxes(3) = Hintergrund.IsChecked ) then WarnLog "Hintergrund state changed" + if ( bCheckboxes(4) = SchwarzDrucken.IsChecked ) then WarnLog "SchwarzDrucken state changed" + if ( bCheckboxes(5) = HiddenText.IsChecked ) then WarnLog "HiddenText state changed" + if ( bCheckboxes(6) = TextPlaceholder.IsChecked ) then WarnLog "TextPlaceholder state changed" if ( bCheckboxes(7) = LinkeSeiten.IsChecked ) then WarnLog "LinkeSeiten state changed" if ( bCheckboxes(8) = RechteSeiten.IsChecked ) then WarnLog "RechteSeiten state changed" - if ( bCheckboxes(9) = Umgekehrt.IsChecked ) then WarnLog "Umgekehrt state changed" - if ( bCheckboxes(10)= Prospekt.IsChecked ) then WarnLog "Prospekt state changed" + if ( bCheckboxes(9)= Prospekt.IsChecked ) then WarnLog "Prospekt state changed" - if ( bCheckboxes(11)= EinzelneDruckauftraege.IsChecked ) then WarnLog "EinzelneDruckauftraege state changed" - if ( bCheckboxes(12)= AusDruckereinstellung.IsChecked ) then WarnLog "AusDruckereinstellung state changed" - if ( bCheckboxes(13)= LeereSeitenDrucken.IsChecked ) then WarnLog "'Print automatically inserted blank pages' state changed" + if ( bCheckboxes(10)= LeereSeitenDrucken.IsChecked ) then WarnLog "'Print automatically inserted blank pages' state changed" + if ( bCheckboxes(11)= AusDruckereinstellung.IsChecked ) then WarnLog "AusDruckereinstellung state changed" if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed" @@ -613,18 +599,17 @@ testcase tToolsOptionsWriterPrint1 printlog ("'/// - all UnCheck -> o ///") Grafiken.UnCheck - Tabellen.UnCheck - Zeichnungen.UnCheck Kontrollfelder.UnCheck Hintergrund.UnCheck SchwarzDrucken.UnCheck + HiddenText.UnCheck + TextPlaceholder.UnCheck LinkeSeiten.UnCheck RechteSeiten.UnCheck - Umgekehrt.UnCheck Prospekt.UnCheck - EinzelneDruckauftraege.UnCheck + LeereSeitenDrucken.UnCheck AusDruckereinstellung.UnCheck if (NurNotizen.IsChecked = True) then Dokumentende.Check else NurNotizen.Check @@ -644,20 +629,19 @@ testcase tToolsOptionsWriterPrint1 ToolsOptions Call hToolsOptions ( "WRITER" , "PRINT" ) - if Grafiken.IsChecked then WarnLog "Grafiken x" - if Tabellen.IsChecked then WarnLog "Tabellen x" - if Zeichnungen.IsChecked then WarnLog "Zeichnungen x" - if Kontrollfelder.IsChecked then WarnLog "Kontrollfelder x" - if Hintergrund.IsChecked then WarnLog "Hintergrund x" - if SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken x" + if Grafiken.IsChecked then WarnLog "Grafiken is checked" + if Kontrollfelder.IsChecked then WarnLog "Kontrollfelder is checked" + if Hintergrund.IsChecked then WarnLog "Hintergrund is checked" + if SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken is checked" + if HiddenText.IsChecked then WarnLog "HiddenText is checked" + if TextPlaceholder.IsChecked then WarnLog "TextPlaceholder is checked" - if LinkeSeiten.IsChecked then WarnLog "LinkeSeiten x" - if RechteSeiten.IsChecked then WarnLog "RechteSeiten x" - if Umgekehrt.IsChecked then WarnLog "Umgekehrt x" - if Prospekt.IsChecked then WarnLog "Prospekt x" + if LinkeSeiten.IsChecked then WarnLog "LinkeSeiten is checked" + if RechteSeiten.IsChecked then WarnLog "RechteSeiten is checked" + if Prospekt.IsChecked then WarnLog "Prospekt is checked" - if EinzelneDruckauftraege.IsChecked then WarnLog "EinzelneDruckauftraege x" - if AusDruckereinstellung.IsChecked then WarnLog "AusDruckereinstellung x" + if LeereSeitenDrucken.IsChecked then WarnLog "LeereSeitenDrucken is checked" + if AusDruckereinstellung.IsChecked then WarnLog "AusDruckereinstellung is checked" if ( bTempRadioBut(1) <> Keine.IsChecked ) then WarnLog "Keine state changed" if ( bTempRadioBut(2) <> NurNotizen.IsChecked ) then WarnLog "NurNotizen state changed" @@ -669,18 +653,17 @@ testcase tToolsOptionsWriterPrint1 Printlog ("'/// - all Check -> x ///") Grafiken.Check - Tabellen.Check - Zeichnungen.Check Kontrollfelder.Check Hintergrund.Check SchwarzDrucken.Check + HiddenText.Check + TextPlaceholder.Check LinkeSeiten.Check RechteSeiten.Check - Umgekehrt.Check Prospekt.Check - EinzelneDruckauftraege.Check + LeereSeitenDrucken.Check AusDruckereinstellung.Check if (Dokumentende.IsChecked = True) then Seitenende.Check else Dokumentende.Check @@ -700,20 +683,19 @@ testcase tToolsOptionsWriterPrint1 ToolsOptions Call hToolsOptions ( "WRITER" , "PRINT" ) - if not Grafiken.IsChecked then WarnLog "Grafiken o" - if not Tabellen.IsChecked then WarnLog "Tabellen o" - if not Zeichnungen.IsChecked then WarnLog "Zeichnungen o" - if not Kontrollfelder.IsChecked then WarnLog "Kontrollfelder o" - if not Hintergrund.IsChecked then WarnLog "Hintergrund o" - if not SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken o" + if not Grafiken.IsChecked then WarnLog "Grafiken is unchecked" + if not Kontrollfelder.IsChecked then WarnLog "Kontrollfelder is unchecked" + if not Hintergrund.IsChecked then WarnLog "Hintergrund is unchecked" + if not SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken is unchecked" + if not HiddenText.IsChecked then WarnLog "HiddenText is unchecked " + if not TextPlaceholder.IsChecked then WarnLog "TextPlaceholder is unchecked" - if not LinkeSeiten.IsChecked then WarnLog "LinkeSeiten o" - if not RechteSeiten.IsChecked then WarnLog "RechteSeiten o" - if not Umgekehrt.IsChecked then WarnLog "Umgekehrt o" - if not Prospekt.IsChecked then WarnLog "Prospekt o" + if not LinkeSeiten.IsChecked then WarnLog "LinkeSeiten is unchecked" + if not RechteSeiten.IsChecked then WarnLog "RechteSeiten is unchecked" + if not Prospekt.IsChecked then WarnLog "Prospekt is unchecked" - if not EinzelneDruckauftraege.IsChecked then WarnLog "EinzelneDruckauftraege o" - if not AusDruckereinstellung.IsChecked then WarnLog "AusDruckereinstellung o" + if not LeereSeitenDrucken.IsChecked then WarnLog "LeereSeitenDrucken is unchecked" + if not AusDruckereinstellung.IsChecked then WarnLog "AusDruckereinstellung is unchecked" ' This state will be saved with the document if ( bTempRadioBut(1) <> Keine.IsChecked ) then WarnLog "Keine state changed" @@ -730,21 +712,19 @@ testcase tToolsOptionsWriterPrint1 ToolsOptions Call hToolsOptions ( "WRITER" , "PRINT" ) - if ( bCheckboxes(1) = TRUE ) then Grafiken.Check else Grafiken.UnCheck - if ( bCheckboxes(2) = TRUE ) then Tabellen.Check else Tabellen.UnCheck - if ( bCheckboxes(3) = TRUE ) then Zeichnungen.Check else Zeichnungen.UnCheck - if ( bCheckboxes(4) = TRUE ) then Kontrollfelder.Check else Kontrollfelder.UnCheck - if ( bCheckboxes(5) = TRUE ) then Hintergrund.Check else Hintergrund.UnCheck - if ( bCheckboxes(6) = TRUE ) then SchwarzDrucken.Check else SchwarzDrucken.UnCheck - - if ( bCheckboxes(7) = TRUE ) then LinkeSeiten.Check else LinkeSeiten.UnCheck - if ( bCheckboxes(8) = TRUE ) then RechteSeiten.Check else RechteSeiten.UnCheck - if ( bCheckboxes(9) = TRUE ) then Umgekehrt.Check else Umgekehrt.UnCheck - if ( bCheckboxes(10) = TRUE ) then Prospekt.Check else Prospekt.UnCheck - - if ( bCheckboxes(11) = TRUE ) then EinzelneDruckauftraege.Check else EinzelneDruckauftraege.UnCheck - if ( bCheckboxes(12) = TRUE ) then AusDruckereinstellung.Check else AusDruckereinstellung.UnCheck - if ( bCheckboxes(13) = TRUE ) then LeereSeitenDrucken.Check else LeereSeitenDrucken.UnCheck + if ( bCheckboxes(1) = TRUE ) then Grafiken.Check else Grafiken.Uncheck + if ( bCheckboxes(2) = TRUE ) then Kontrollfelder.Check else Kontrollfelder.UnCheck + if ( bCheckboxes(3) = TRUE ) then Hintergrund.Check else Hintergrund.Uncheck + if ( bCheckboxes(4) = TRUE ) then SchwarzDrucken.Check else SchwarzDrucken.UnCheck + if ( bCheckboxes(5) = TRUE ) then HiddenText.check else HiddenText.Uncheck + if ( bCheckboxes(6) = TRUE ) then TextPlaceholder.check else TextPlaceholder.Uncheck + + if ( bCheckboxes(7) = TRUE ) then LinkeSeiten.Check else LinkeSeiten.Uncheck + if ( bCheckboxes(8) = TRUE ) then RechteSeiten.Check else RechteSeiten.Uncheck + if ( bCheckboxes(9) = TRUE ) then Prospekt.Check else Prospekt.Uncheck + + if ( bCheckboxes(10) = TRUE ) then LeereSeitenDrucken.Check else LeereSeitenDrucken.UnCheck + if ( bCheckboxes(11) = TRUE ) then AusDruckereinstellung.Check else AusDruckereinstellung.UnCheck try Fax.Select (iListBox(1)) diff --git a/testautomation/writer/optional/includes/option/wr_o_3.inc b/testautomation/writer/optional/includes/option/wr_o_3.inc index 6c5537eed48b..a1c47415ada0 100755 --- a/testautomation/writer/optional/includes/option/wr_o_3.inc +++ b/testautomation/writer/optional/includes/option/wr_o_3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:33:06 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -935,9 +929,17 @@ testcase tToolsOptionsWriterCompatibility1 Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok - '/// restart the office + printlog "- save document" + Call hFileSaveAsKill (gOfficePath + "user\work\tToolsOptionsWriterCompatibility1.odt") + Call hCloseDocument + + printlog "- restart the office" Call wOfficeRestart + printlog "- load previously saved document" + Call hNewDocument + Call hFileOpen (gOfficePath + "user\work\tToolsOptionsWriterCompatibility1.odt") + Printlog "check state of all checkboxes and uncheck all checkboxes" ToolsOptions Call hToolsOptions("WRITER","COMPATIBILITY") @@ -960,6 +962,8 @@ testcase tToolsOptionsWriterCompatibility1 Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok + Call hCloseDocument + '/// restart the office Call wOfficeRestart WaitSlot (2) diff --git a/testautomation/writer/optional/includes/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc index deb98f579ce1..f32f039e30be 100755 --- a/testautomation/writer/optional/includes/option/wr_o_4.inc +++ b/testautomation/writer/optional/includes/option/wr_o_4.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_4.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:33:17 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -78,9 +72,9 @@ testcase tToolsOptionsWriterOther '- !!! -Current Document only- ist bei office beenden zu beachten!!! Call hNewDocument - printlog ("'///- Tools/Options/Writer: General ///") + printlog ("- Tools/Options/Writer: General ") - printlog ("'/// - save states ///") + printlog (" - save states ") ToolsOptions Call hToolsOptions ("WRITER","GENERAL") @@ -94,7 +88,7 @@ testcase tToolsOptionsWriterOther iMasseinheit = Masseinheit.GetSelIndex sTabAbstand = Tabulatorenabstand.GetText - printlog ("'/// - all states inverting ///") + printlog ("- all states inverting ") if irgendwas(2) Then Feldbefehle.UnCheck Else Feldbefehle.Check if Feldbefehle.IsChecked Then if irgendwas(3) Then Diagramme.UnCheck Else Diagramme.Check @@ -124,11 +118,11 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - SO quit - start ///") + printlog ("- SO quit - start ") Call wOfficeRestart - printlog ("'/// - checking states ///") + printlog ("- checking states ") ToolsOptions Call hToolsOptions ( "WRITER" , "GENERAL" ) @@ -144,7 +138,7 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - all UnCheck -> o ///") + printlog ("- all UnCheck -> o ") ToolsOptions Call hToolsOptions ( "WRITER" , "GENERAL" ) @@ -159,7 +153,7 @@ testcase tToolsOptionsWriterOther Masseinheit.Select (1) Tabulatorenabstand.ToMin sTemp = Tabulatorenabstand.GetText - printlog ("'/// More test ///'") + printlog ("More test ///'") Tabulatorenabstand.More if ( sTemp = Tabulatorenabstand.GetText ) Then WarnLog "Tabulatorenabstand More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorenabstand.GetText sTemp = Tabulatorenabstand.GetText @@ -167,7 +161,7 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all UnChecked ///") + printlog ("- check if all UnChecked ") ToolsOptions Call hToolsOptions ( "WRITER" , "GENERAL" ) @@ -186,7 +180,7 @@ testcase tToolsOptionsWriterOther '--------------------------------------------------------------------------------- - printlog ("'/// check if tab stops get saved in document ///") + printlog ("- check if tab stops get saved in document ") Call hNewDocument ' set Default Tab Stop to 2,5cm @@ -240,7 +234,7 @@ testcase tToolsOptionsWriterOther Call hCloseDocument '--------------------------------------------------------------------------------- - Printlog ("'/// - all Check -> x ///") + Printlog ("- all Check -> x ") ToolsOptions Call hToolsOptions ("WRITER","GENERAL") @@ -264,7 +258,7 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - check if all Checked ///") + printlog ("- check if all Checked ") ToolsOptions Call hToolsOptions ( "WRITER" , "GENERAL" ) @@ -280,7 +274,7 @@ testcase tToolsOptionsWriterOther if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand is not " + sTemp + " it's: " + Tabulatorenabstand.GetText - printlog ("'/// - restore states ///") + printlog ("- restore states ") ' if ( irgendwas(1) = TRUE ) Then NurFuerAktuellesDokument.Check Else NurFuerAktuellesDokument.UnCheck if ( irgendwas(2) = TRUE ) Then Feldbefehle.Check Else Feldbefehle.UnCheck @@ -327,7 +321,7 @@ sub hGetAllOptionsWriterGeneralCaption fHoleTabPage2 = ConvertPath(gOfficePath + "user\work\opt2_" + iSprache + "." + gPlatGroup) '------------------------ - Printlog "'///(1/3) Get all items before selecting smth. ///" + Printlog "(1/3) Get all items before selecting smth. " ' put them in lsHoleTabPage and write them to 'user\work\opt__...' Call hNewDocument @@ -355,7 +349,7 @@ sub hGetAllOptionsWriterGeneralCaption ' ------------------------ - Printlog "'///(2/3) Select every ListItem & exit with OK ///" + Printlog "(2/3) Select every ListItem & exit with OK " ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") Kontext "TabAutoCaption" @@ -381,7 +375,7 @@ sub hGetAllOptionsWriterGeneralCaption ExtrasOptionenDlg.OK '------------------------ - Printlog "'///(3/3) Get all items after selecting all ///" + Printlog "(3/3) Get all items after selecting all " ' put them in lsHoleTabPage2 and write them to 'user\work\opt2_...' ToolsOptions @@ -429,9 +423,9 @@ testcase tToolsOptionsWriterAutoCaption '/// !no more Listentries than 9, you have to update the allocation for the var's! ///' Call hNewDocument - printlog "'///- Tools/Options/Writer: AutoCaption ///" + printlog "- Tools/Options/Writer: AutoCaption " - printlog ("'/// - save states ///") + printlog ("- save states ") ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") Kontext "TabAutoCaption" @@ -463,7 +457,7 @@ testcase tToolsOptionsWriterAutoCaption next i '-- just checking the checkboxes of 'ObjectList' - printlog ("'/// - uncheck all object - checkboxes ///") + printlog ("- uncheck all object - checkboxes ") for i=1 to NumberOfObjects ObjectList.Select (i) ObjectList.UnCheck @@ -471,7 +465,7 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - verify if all unchecked and check all ///") + printlog ("- verify if all unchecked and check all ") ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") Kontext "TabAutoCaption" @@ -486,7 +480,7 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - verify all checkboxes are checked ///") + printlog ("- verify all checkboxes are checked ") ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") Kontext "TabAutoCaption" @@ -498,10 +492,11 @@ testcase tToolsOptionsWriterAutoCaption end if next i - printlog ("'/// - change states ///") + printlog ("- change states ") '/// look if properties get saved for each list item for i=1 to NumberOfObjects ObjectList.Select (i) + printlog " - " & ObjectList.GetText if ObjectList.IsChecked Then if i <= 7 then Numbering.Select i CaptionSeparator.Settext "Caption Separator " & cstr(i) @@ -520,16 +515,12 @@ testcase tToolsOptionsWriterAutoCaption ApplyBorderAndShadow.Check case 4: Category.Select 5 - Position.Select 2 case 5: Category.Select 2 - Position.Select 1 case 6: Category.Select 3 - Position.Select 2 case 7: Category.Select 4 - Position.Select 1 case 8: Category.Select 5 if Numbering.GetItemCount > 7 then @@ -537,7 +528,6 @@ testcase tToolsOptionsWriterAutoCaption else Numbering.Select 4 end if - Position.Select 2 case 9: Category.Select 2 if Numbering.GetItemCount > 7 then @@ -545,7 +535,6 @@ testcase tToolsOptionsWriterAutoCaption else Numbering.Select 5 end if - Position.Select 1 end select vCategoryTmp(i) = Category.GetSelText @@ -556,17 +545,17 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - SO quit - start ///") + printlog ("- SO quit - start") Call wOfficeRestart - printlog ("'/// - checking states ///") + printlog ("- checking states ") ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") Kontext "TabAutoCaption" for i=1 to NumberOfObjects - printlog "- checking: " & ObjectList.Gettext ObjectList.Select (i) + printlog " - " & ObjectList.GetText wait 500 if ObjectList.IsChecked Then if i <= 7 then @@ -632,31 +621,31 @@ testcase tToolsOptionsWriterAutoCaption end if case 4: - if Position.GetSelIndex <> 2 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if case 5: - if Position.GetSelIndex <> 1 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if case 6: - if Position.GetSelIndex <> 2 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if case 7: - if Position.GetSelIndex <> 1 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if case 8: @@ -674,10 +663,10 @@ testcase tToolsOptionsWriterAutoCaption end if end if - if Position.GetSelIndex <> 2 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if case 9: @@ -695,10 +684,10 @@ testcase tToolsOptionsWriterAutoCaption end if end if - if Position.GetSelIndex <> 1 then - Warnlog "- 'Position' changed after restart" + if Position.IsEnabled = true then + Warnlog "- 'Position' should be disabled" else - printlog "- 'Position' => ok" + printlog "- 'Position' disabled => ok" end if end select @@ -710,7 +699,7 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - restore states ///") + printlog ("- restore states ") ToolsOptions Call hToolsOptions ("WRITER","AutoCaption") @@ -765,10 +754,10 @@ testcase tToolsOptionsWriterGeneral ' State is saved with document. Thats why I use 3 docs Call hNewDocument - printlog "'///- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren ///" + printlog "- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren " ToolsOptions Call hToolsOptions("WRITER","GENERAL") - printlog "'///- Update links when loading -> always ///" + printlog "- Update links when loading -> always " Immer.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -796,7 +785,7 @@ testcase tToolsOptionsWriterGeneral ToolsOptions Call hToolsOptions("WRITER","GENERAL") if not Immer.IsChecked then Warnlog "Option 'always' has not been changed" - printlog "'///- Update links when loading -> On request ///" + printlog "- Update links when loading -> On request " AufNachfrage.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -820,7 +809,7 @@ testcase tToolsOptionsWriterGeneral ToolsOptions Call hToolsOptions("WRITER","GENERAL") if not AufNachfrage.IsChecked then Warnlog "Option 'On request' has been changed" - printlog "'///- Update links when loading -> Never ///" + printlog "- Update links when loading -> Never " Nie.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -873,7 +862,7 @@ endcase testcase tToolsOptionsWriterMailMerge Call hNewDocument - printlog ("'///- Tools/Options/Writer: Mail Merge ///") + printlog ("- Tools/Options/Writer: Mail Merge ") Kontext "Navigator" if Navigator.Exists then ViewNavigator ToolsOptions diff --git a/testautomation/writer/optional/includes/option/wr_o_5.inc b/testautomation/writer/optional/includes/option/wr_o_5.inc index 3437c7c52213..ca402cae09cb 100755 --- a/testautomation/writer/optional/includes/option/wr_o_5.inc +++ b/testautomation/writer/optional/includes/option/wr_o_5.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_5.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:33:29 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/option/wr_o_a.inc b/testautomation/writer/optional/includes/option/wr_o_a.inc index 2f917d4961c1..08e8cac6d8b0 100755 --- a/testautomation/writer/optional/includes/option/wr_o_a.inc +++ b/testautomation/writer/optional/includes/option/wr_o_a.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: wr_o_a.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:33:41 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -59,15 +53,11 @@ testcase tToolsOptionsWriterPrint Call hToolsOptions("WRITER","PRINT") Grafiken.Check - Tabellen.Check - Zeichnungen.Check Kontrollfelder.Check Hintergrund.Check SchwarzDrucken.Check LinkeSeiten.Check RechteSeiten.Check - Umgekehrt.Check - Prospekt.UnCheck Seitenende.Check @@ -97,14 +87,11 @@ testcase tToolsOptionsWriterPrint Printlog " - uncheck everything" Grafiken.UnCheck - Tabellen.UnCheck - Zeichnungen.UnCheck Kontrollfelder.UnCheck Hintergrund.UnCheck SchwarzDrucken.UnCheck LinkeSeiten.Check ' that's so, otherwise there will be no printing RechteSeiten.Check ' that's so, otherwise there will be no printing - Umgekehrt.UnCheck Prospekt.UnCheck Keine.Check AusDruckereinstellung.UnCheck diff --git a/testautomation/writer/optional/includes/redlining/w_redlining1.inc b/testautomation/writer/optional/includes/redlining/w_redlining1.inc index 8cdbbeddf467..05c579b6b4e3 100755 --- a/testautomation/writer/optional/includes/redlining/w_redlining1.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_redlining1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:33:53 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/redlining/w_redlining2.inc b/testautomation/writer/optional/includes/redlining/w_redlining2.inc index 72ec4d484132..b7d4bda1bf2b 100755 --- a/testautomation/writer/optional/includes/redlining/w_redlining2.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_redlining2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:34:05 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/regexp/regular.inc b/testautomation/writer/optional/includes/regexp/regular.inc index 5d9fc0ce5a3e..4abfc2268d18 100755 --- a/testautomation/writer/optional/includes/regexp/regular.inc +++ b/testautomation/writer/optional/includes/regexp/regular.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: regular.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:34:19 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/regexp/search.inc b/testautomation/writer/optional/includes/regexp/search.inc index a450d6922742..d1017a64aef1 100755 --- a/testautomation/writer/optional/includes/regexp/search.inc +++ b/testautomation/writer/optional/includes/regexp/search.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: search.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:34:31 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc index 9a7c142d0b1d..6adfe4f9f164 100755 --- a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc +++ b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_issuezilla_regression.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:34:41 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -451,6 +445,7 @@ testcase i103265 Call hNewDocument printlog "- Open test document" Call hFileOpen ( gTesttoolPath + "writer\optional\input\regression\issuezilla\i103265.odt" ) + Call sMakeReadOnlyDocumentEditable printlog "- Update TOC" ToolsUpdateAllIndexes @@ -483,7 +478,7 @@ testcase i103265 printlog "- Save as HTML" gApplication = "HTML" - Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html", "HTML" ) + Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html", "HTML (StarWriter)" ) Call hCloseDocument printlog "- Reload" diff --git a/testautomation/writer/optional/includes/section/w_section_1.inc b/testautomation/writer/optional/includes/section/w_section_1.inc index 36dd0ca4b24b..b72d6451c37d 100755 --- a/testautomation/writer/optional/includes/section/w_section_1.inc +++ b/testautomation/writer/optional/includes/section/w_section_1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section_1.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:34:52 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/section/w_section_2.inc b/testautomation/writer/optional/includes/section/w_section_2.inc index 66548905a0f1..2f25c9452449 100755 --- a/testautomation/writer/optional/includes/section/w_section_2.inc +++ b/testautomation/writer/optional/includes/section/w_section_2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section_2.inc,v $ -'* -'* $Revision: 1.5 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:35:05 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/section/w_section_3.inc b/testautomation/writer/optional/includes/section/w_section_3.inc index 6f2a8cf45731..72a554a01660 100755 --- a/testautomation/writer/optional/includes/section/w_section_3.inc +++ b/testautomation/writer/optional/includes/section/w_section_3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section_3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:35:16 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/section/w_section_4.inc b/testautomation/writer/optional/includes/section/w_section_4.inc index 64b91832a41d..fde6ab07020e 100755 --- a/testautomation/writer/optional/includes/section/w_section_4.inc +++ b/testautomation/writer/optional/includes/section/w_section_4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section_4.inc,v $ -'* -'* $Revision: 1.4 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:35:27 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/section/w_section_tools.inc b/testautomation/writer/optional/includes/section/w_section_tools.inc index 5bff35fe3c3c..4c02b9edae70 100755 --- a/testautomation/writer/optional/includes/section/w_section_tools.inc +++ b/testautomation/writer/optional/includes/section/w_section_tools.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section_tools.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:58 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc index c065d384fd58..5b2beef7a2ee 100755 --- a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc +++ b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_shortcuts.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:35:39 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/sorting/w_sorting1.inc b/testautomation/writer/optional/includes/sorting/w_sorting1.inc index a1bd6af1e450..9567827272a4 100755 --- a/testautomation/writer/optional/includes/sorting/w_sorting1.inc +++ b/testautomation/writer/optional/includes/sorting/w_sorting1.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_sorting1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:35:51 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/sorting/w_sorting2.inc b/testautomation/writer/optional/includes/sorting/w_sorting2.inc index bf5868eba22f..bb5a3c96b579 100755 --- a/testautomation/writer/optional/includes/sorting/w_sorting2.inc +++ b/testautomation/writer/optional/includes/sorting/w_sorting2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_sorting2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:36:02 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc index f455d37e6c8a..0fca110debe7 100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_spellcheck.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:20:07 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc index 6e9971ac1ae6..51278a906527 100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_spellcheck1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:36:27 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/stylist/w_stylist.inc b/testautomation/writer/optional/includes/stylist/w_stylist.inc index a3a2e4147247..f3373b4f439b 100755 --- a/testautomation/writer/optional/includes/stylist/w_stylist.inc +++ b/testautomation/writer/optional/includes/stylist/w_stylist.inc @@ -1,1022 +1,1016 @@ -'encoding UTF-8 Do not remove or change this line!
-'**************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'*
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: w_stylist.inc,v $
-'*
-'* $Revision: 1.2 $
-'*
-'* last change: $Author: vg $ $Date: 2008-08-18 12:36:39 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org. If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/************************************************************************
-'*
-'* owner : helge.delfs@sun.com
-'*
-'* short description : Test common stylist functions and assigning styles
-'*
-'************************************************************************
-'*
-' #1 tFormatStylist1
-' #1 tFormatStylist2
-' #1 tFormatStylist3
-' #1 tFormatStylist4
-' #1 tFormatStylist5
-' #1 tFormatStylist6
-' #1 tFormatStylist7
-' #1 tAssigningStyles1
-' #1 tAssigningStyles2
-' #1 tAssigningStyles3
-' #1 tAssigningStyles4
-' #1 tAssigningStyles5
-' #1 tAssigningStyles6
-' #1 tAssigningStyles7
-' #1 tKeyboardShortcutToStyles
-'*
-'\***********************************************************************
-
-sub w_stylist
- printLog Chr(13) + "--------- Level 1 - Format / Stylist ----------"
-
- Call tFormatStylist1 ' all methods on stylist
- Call tFormatStylist2 ' interacting between documents
- Call tFormatStylist3 ' show all templates
- Call tFormatStylist4 ' search/create templates
- Call tFormatStylist5 ' select templet in stylist
- Call tFormatStylist6 ' new template from selection
- Call tFormatStylist7 ' new template from selection, modified via ContextMenu.
- Call tAssigningStyles1
- Call tAssigningStyles2
- Call tAssigningStyles3
- Call tAssigningStyles4
- Call tAssigningStyles5
- Call tAssigningStyles6
- Call tAssigningStyles7
- Call tKeyboardShortcutToStyles
-
-end sub
-
-' **********************************************************************
-
-testcase tFormatStylist1
- Dim xPos as long
- Dim yPos as long
- Dim xSize%
- Dim ySize%
-
- printlog "- Format / Stylist : all methods with Navigator as window"
- printlog "New writerdocument"
- Call hNewDocument
- printlog " - Call Stylist with F11"
- printlog "Call stylist with <F11> aand proof all windowmethods at stylist"
- Call wTypeKeys "<F11>"
- Kontext "Stylist"
- if Stylist.NotExists then
- Warnlog "No Stylist with <F11>"
- FormatStylist
- end if
- xPos = Stylist.GetPosX
- yPos = Stylist.GetPosY
- xSize% = Stylist.GetSizeX
- ySize% = Stylist.GetSizeY
-
- printlog " - move Stylist"
- Stylist.Move 10, 10
- Sleep 1
- Stylist.Move 300, 400
- Sleep 1
- Stylist.Move 590, 790
- Sleep 1
- Stylist.Move xPos, yPos
- Sleep 1
-
- printlog " - size Stylist"
- try
- Stylist.Size 300, 400
- catch
- Warnlog "Sizen Stylist doesn't work.. see #i32449"
- endcatch
- Sleep 1
- try
- Stylist.Size xSize%, ySize%
- catch
- Warnlog "Sizen Stylist doesn't work.. see #i32449"
- endcatch
- Sleep 1
-
- printlog " - close Stylist and reopen ( has to be the same size )"
- xPos = Stylist.GetPosX
- yPos = Stylist.GetPosY
- xSize% = Stylist.GetSizeX
- ySize% = Stylist.GetSizeY
- FormatStylist
- Sleep 1
- FormatStylist
- if xPos <> Stylist.GetPosX then Warnlog "x-Pos. has been changed : Not -> "+ xPos + " but -> "+ Stylist.GetPosX
- if yPos <> Stylist.GetPosY then Warnlog "y-Pos. has been changed : Not -> "+ yPos + " but -> "+ Stylist.GetPosY
- if xSize% <> Stylist.GetSizeX then Warnlog "x-Size has been changed : Not -> "+ xSize% + " but -> "+ Stylist.GetSizeX
- if ySize% <> Stylist.GetSizeY then Warnlog "y-Size has been changed : Not -> "+ ySize% + " but -> "+ Stylist.GetSizeY
-
- printlog " - dock Stylist"
- Stylist.Dock
- Sleep 1
- if NOT Stylist.IsDocked then Warnlog "Stylist has not been docked in"
- Stylist.Undock
- Sleep 1
-
- Stylist.Close
- printlog "Close document"
- Call hCloseDocument
-
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist2
- Dim xPos%
- Dim yPos%
- Dim xSize%
- Dim ySize%
-
- printlog "- Format/Stylist : Methods from Stylist as Window between more than one document"
- printlog " New document"
- Call hNewDocument
- printlog "check all methods of Stylist as Window between more than one document"
- Call wTypeKeys "Test the stylist functions"
- printlog " - Call Stylist in first document and check in a second document"
- Sleep 2
- Kontext "Stylist"
- If Not Stylist.Exists then FormatStylist
- Sleep 2
- Call hNewDocument
- Call wTypeKeys "Test the stylist functions"
- Sleep 2
- Kontext "Stylist"
- if Stylist.NotExists then Warnlog "No Stylist in new document"
-
- printlog " - Close all documents and reopen"
- Sleep 2
- Call hCloseDocument
- Sleep 2
- Call hCloseDocument
- Sleep 2
- Call hNewDocument
- Sleep 2
- Call wTypeKeys "Test the stylist functions"
- Kontext "Stylist"
- if Stylist.NotExists then Warnlog "No Stylist in a new document"
-
- printlog " - Dock Stylist in first document and check in a new if docked"
- Sleep 2
- Stylist.Dock
- Sleep 1
- Call hNewDocument
- Call wTypeKeys "Test the stylist functions"
- Kontext "Stylist"
- if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
-
- printlog " - Close all documents, reopen one and check docked Stylist"
- Call hCloseDocument
- Sleep 2
- Call hCloseDocument
- Sleep 2
- Call hNewDocument
- Kontext "Stylist"
- if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
-
- printlog " - Close Stylist with <F11>"
- Stylist.Undock
- Sleep 1
- Call wTypeKeys "<F11>"
- Kontext "Stylist"
- if NOT Stylist.NotExists then
- Warnlog "Stylist is still open"
- Stylist.Close
- end if
- printlog "Close document"
- Call hCloseDocument
-
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist3
- Dim i as Integer
- Dim AllStyles as integer
- Dim j as integer
- Dim RemString as string
- printlog "- Format / Stylist : select all Style properties"
-
- Call hNewDocument
- printlog " New writerdocument"
- FormatStylist
- printlog "Select all style properties in stylist"
- Kontext "Stylist"
- if Stylist.NotExists then FormatStylist
- printlog " - Paragraph Styles"
- Absatzvorlagen.Click
-
- for i=1 to Gruppenliste.GetItemCount
- Gruppenliste.Select i
- wait 500
- if i = 2 then ' All Styles
- Vorlagenliste.TypeKeys "<Home>"
- AllStyles = 1
- For j = 1 to 200
- RemString = Vorlagenliste.Gettext
- 'Include this, if you want to see the styles in writerdocument
- 'SetClipboard Vorlagenliste.Gettext
- 'Kontext "DocumentWriter"
- 'DocumentWriter.TypeKeys GetClipboardtext + "<Return>"
- 'Kontext "Stylist"
- Vorlagenliste.TypeKeys "<Down>"
- if Vorlagenliste.Gettext <> RemString then
- AllStyles = AllStyles + 1
- else
- j = 202
- if AllStyles <> "122" then
- Select Case iSprache
- Case 07
- warnlog "Double styles in stylist"
- Case 55
- warnlog "Missing Style in Stylist"
- Case 31
- warnlog "Missing Style in Stylist"
- Case else
- Warnlog "There are " + AllStyles + " styles in this category and not 122!"
- end select
- else
- printlog "There are " + AllStyles + " styles in this category!"
- end if
- end if
- next j
- end if
- Sleep 1
- next i
-
- Zeichenvorlagen.Click
- Sleep 2
- printlog " - Chapter Styles"
- for i=1 to Gruppenliste.GetItemCount
- Gruppenliste.Select i
- AllStyles = AllStyles + 1
- Sleep 1
- next i
-
- Rahmenvorlagen.Click
- Sleep 2
- printlog " - Frame Styles"
- for i=1 to Gruppenliste.GetItemCount
- Gruppenliste.Select i
- AllStyles = AllStyles + 1
- Sleep 1
- next i
-
- Seitenvorlagen.Click
- Sleep 2
- printlog " - Page Styles"
- for i=1 to Gruppenliste.GetItemCount
- Gruppenliste.Select i
- AllStyles = AllStyles + 1
- Sleep 1
- next i
- Stylist.Close
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist4
- Dim i as Integer
- Dim AlterWert$
- Dim NeuerWert$
-
- printlog "- Format / Stylist : check created Styles"
- printlog "New writerdocument"
- Call hNewDocument
- printlog " - create Paragraph Style in Stylist"
- Call wStyleCreate ( "ATesttool", "Paragraph", true )
- Kontext "Stylist"
- printlog "Check if Style has been added in stylist"
- if wStyleSelect ( "ATesttool", "Paragraph" ) = false then Warnlog "Paragraph Style has not been found"
-
- printlog " - Create Character Style in Stylist"
- Call wStyleCreate ( "BTesttool", "Character", true )
- if wStyleSelect ( "BTesttool", "Character" ) = false then Warnlog "Character Style has not been found!"
- printlog " - Create Frame Style in Stylist"
- Call wStyleCreate ( "CTesttool", "Frame", true )
- if wStyleSelect ( "CTesttool", "Frame" ) = false then Warnlog "Frame Style has not been found!"
-
- printlog " - Create Page Style in Stylist"
- Call wStyleCreate ( "DTesttool", "Page", true )
- if wStyleSelect ( "DTesttool", "Page" ) = false then Warnlog "Page Style has not been found"
-
- printlog " - creating Styles should not have been affecting to new documents"
- ' To avoid focus problems on unix first close stylist
- Kontext "Stylist"
- if Stylist.Exists then FormatStylist
- Call hNewDocument
- Kontext "Stylist"
- if Not Stylist.Exists then FormatStylist
-
- if wStyleSelect ( "ATesttool", "Paragraph" ) = true then Warnlog "Paragraph Style has been found in new document"
- if wStyleSelect ( "BTesttool", "Character" ) = true then Warnlog "Character Style has been found in new document"
- 'if wStyleSelect ( "CTesttool", "Frame" ) = true then Warnlog "Frame Style has been found in new document"
- if wStyleSelect ( "DTesttool", "Page" ) = true then Warnlog "Page Style has been found in new document"
-
- Call hCloseDocument
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist5
- Dim SuchMal as string, i as integer
- Dim bStyleFound as boolean
-
- printlog "- Format / Stylist : select Style"
- printlog "New writerdocument"
- if bAsianLan = True then
- printlog "- Not in Asian languages!"
- goto endsub
- end if
- Call hNewDocument
- Call wTypeKeys "Dies ist ein formatierter Text <Shift Home>"
- printlog " - format Text"
- FormatCharacter
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- StrikeThrough.Select 2
- Outline.Check
- TabFontEffects.OK
-
- printlog " - adjust to Standard-Format through the Stylist"
- printlog "adjust to Standard-Format through the Stylist"
- FormatStylist
- Kontext "Stylist"
- if Stylist.NotExists then FormatStylist
- 'Get name for 'default' template
- Kontext "TextObjectbar"
- SuchMal = Vorlage.GetSelText
- printlog "Using " & SuchMal & " as 'default'"
- Kontext "Stylist"
-
- Vorlagenliste.TypeKeys "<Home>"
- bStyleFound = false
- for i=1 to Vorlagenliste.GetItemCount
- Vorlagenliste.Select i
- if Vorlagenliste.GetText = Suchmal then
- Vorlagenliste.TypeKeys "<Return>"
- bStyleFound = true
- exit for
- end if
- next i
- Stylist.Close
-
- if bStyleFound = false then
- Warnlog "Style: " & Suchmal & " has not been found in Stylist"
- Call hCloseDocument
- goto endsub
- end if
-
- printlog " - check format"
- FormatCharacter
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry selected in StrikeThrough"
- if Outline.IsChecked then Warnlog "Format Outline is still checked"
- TabFontEffects.OK
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist6
- Dim i as integer
-
- printlog "- Format / Stylist : new Style from selection"
- printlog "New writerdocument"
- Call hNewDocument
- Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
- printlog "create a new style from selection"
- FormatCharacter
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- Shadow.Check
- StrikeThrough.Select 2
- Overline.Select 2
- OverlineColor.Select 6
- Outline.Check
- Effects.Select 3
- Blinking.Check
- Kontext
- Active.Setpage TabHyperlinkZeichen
- Kontext "TabHyperlinkZeichen"
- URLName.SetText "www.mikeportnoy.com"
- TabHyperlinkZeichen.OK
-
- printlog " - Create Character Style from selection"
- Kontext "Stylist"
- if not Stylist.Exists then FormatStylist
- Kontext "Stylist"
- TBGestalter.Click ZeichenVorlagen
- Sleep 1
-
- AusSelektion.OpenMenu
- Sleep 1
- hMenuSelectNr(1)
- Sleep 1
-
- Kontext "VorlageErzeugen"
- if VorlageErzeugen.Exists then
- VorlagenName.SetText "Testtool"
- VorlageErzeugen.OK
- else
- Warnlog "Creating Style did not work. Dialog not up!"
- end if
-
- printlog " - assign new Character Style to a new text"
- wTypeKeys "<Home><Down>",3
- wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
- Kontext "Stylist"
- TBGestalter.Click ZeichenVorlagen
- if Vorlagenliste.GetSeltext <> "Testtool" then 'Go find the entry.
- Vorlagenliste.TypeKeys "<Home>"
- For i = 1 to 100
- Vorlagenliste.TypeKeys "<Down>"
- if Vorlagenliste.GetSeltext = "Testtool" then 'Found it!
- i = 102
- end if
- next i
- end if
- Vorlagenliste.TypeKeys "<Return>" 'Assign to text.
- Stylist.Close
- if i = 101 then
- Warnlog "Created Style could not be found in Stylist!"
- else
- Printlog " - check Style"
- FormatCharacter
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
- if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
- if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
- if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
- if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
- if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
- if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
- Kontext
- Active.Setpage TabHyperlinkZeichen
- Kontext "TabHyperlinkZeichen"
- if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#TabHyperlink: URL is wrong " + URLName.Gettext
- TabHyperlinkZeichen.OK
- end if
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist7
- Dim i as integer
-
- printlog "- Format / Stylist : new Style from selection, then modified via the ContextMenu."
- printlog "New writerdocument"
- Call hNewDocument
- Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
- printlog "create a new style from selection"
-
- printlog " - Create Character Style from selection"
- Kontext "Stylist"
- if not Stylist.Exists then FormatStylist
- Kontext "Stylist"
- TBGestalter.Click ZeichenVorlagen
- Sleep 1
-
- AusSelektion.OpenMenu
- Sleep 1
- hMenuSelectNr(1)
- Sleep 1
-
- Kontext "VorlageErzeugen"
- if VorlageErzeugen.Exists then
- VorlagenName.SetText "Testtool"
- VorlageErzeugen.OK
- else
- Warnlog "Creating Style did not work. Dialog not up!"
- end if
-
- printlog " Open ContextMenu over the 'Testtool' Style."
- Kontext "Stylist"
- if not Stylist.Exists then FormatStylist
- Kontext "Stylist"
- TBGestalter.Click ZeichenVorlagen
- if Vorlagenliste.GetSeltext <> "Testtool" then
- Vorlagenliste.TypeKeys "<Home>"
- For i = 1 to 100
- Vorlagenliste.TypeKeys "<Down>"
- if Vorlagenliste.GetSeltext = "Testtool" then
- i = 102
- end if
- next i
- if i = 101 then
- warnlog "No Testtool -Stylist found. Check if new stylists can be created. Test ends."
- goto endsub
- end if
- end if
- Vorlagenliste.TypeKeys "<SHIFT F10>" 'Open ContextMenu
- Sleep 1
- printlog " Select 'Modify'"
- Call hMenuSelectNr(2) 'Modify
- Sleep 1
-
- printlog " Goto Tabpage 'Font Effects' and change some settings."
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- Shadow.Check
- StrikeThrough.Select 2
- Overline.Select 2
- OverlineColor.Select 6
- Outline.Check
- Effects.Select 3
- Blinking.Check
- TabFontEffects.OK
-
- printlog " - assign new Character Style to a new text"
- wTypeKeys "<Home><Down>",3
- wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
- Kontext "Stylist"
- TBGestalter.Click ZeichenVorlagen
-
- if Vorlagenliste.GetSeltext <> "Testtool" then
- Vorlagenliste.TypeKeys "<Home>"
- For i = 1 to 100
- Vorlagenliste.TypeKeys "<Down>"
- if Vorlagenliste.GetSeltext = "Testtool" then 'Found it!
- i = 102
- end if
- next i
- end if
- Vorlagenliste.TypeKeys "<Return>" 'Assign Style to Text.
- Stylist.Close
- if i = 101 then
- Warnlog "Created Style could not be found in Stylist!"
- else
- Printlog " - check Style"
- FormatCharacter
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
- if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
- if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
- if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
- if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
- if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
- if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
- TabFontEffects.OK
- end if
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles1
- Dim i as integer
- Dim sStyles() as string
- Dim sTemp as string
- Dim j as integer
- Dim bStyleInList as boolean
-
- printlog "UI and Strings check"
- Call hNewDocument
- printlog "Open a new writerdocument"
- printlog "Check if the following strings and only those strings are present:"
- printlog "Clear formatting"
- printlog "Heading 1"
- printlog "Heading 2"
- printlog "Heading 3"
- printlog "Default"
- printlog "Text body"
- printlog "More..."
- Select Case iSprache
- Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...")
- Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "Основной текст", "Дополнительно...")
- Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...")
- Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...")
- Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...")
- Case 36 : sStyles = Array("Formázás törlése", "Alapértelmezett", "Címsor 1", "Címsor 2", "Címsor 3", "Szövegtörzs", "További...")
- Case 39 : sStyles = Array("Cancella formattazione", "Corpo testo", "Intestazione 1", "Intestazione 2", "Intestazione 3", "Standard", "Extra...")
- Case 46 : sStyles = Array("Radera formatering", "Brödtext", "Överskrift 1", "Överskrift 2", "Överskrift 3", "Standard", "Mer...")
- Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...")
- Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...")
- Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...")
- Case 81 : sStyles = Array("書式設定の解除", "本文", "標準", "見出し 1", "見出し 2", "見出し 3", "詳細...")
- Case 82 : sStyles = Array("서식 지우기", "기본값", "제목 1", "제목 2", "제목 3", "텍스트 본문", "자세히...")
- Case 86 : sStyles = Array("清除格式", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...")
- Case 88 : sStyles = Array("清除格式", "內文", "標題 1", "標題 2", "標題 3", "預設", "更多...")
- Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...")
- Case else : Warnlog "Current language not supported. Please add styles to list!"
- Kontext "Textobjectbar"
- printlog "- Current Styles: "
- For i = 1 to Vorlage.GetItemCount
- Vorlage.Select i
- printlog Vorlage.GetSelText
- next i
- Call hCloseDocument
- exit sub
- end select
-
- 'Check number of entrys....have to be seven
- Kontext "Textobjectbar"
- if Vorlage.GetItemCount <> 7 then
- Select case iSprache
- case 82 : warnlog "Korean: Number of styles in styleslistbox wrong"
- case else : Warnlog "Not 7 entrys in Styles & Formatting combobox but: " & Vorlage.GetItemCount
- end select
- end if
-
- For i = 1 to Vorlage.GetItemCount
- Vorlage.Select i
- sTemp = Vorlage.GetSelText
- printlog "- check style: " & sTemp
- bStyleInList = false
- For j = 0 to 6
- if sStyles(j) = sTemp then
- bStyleInList = true
- end if
- next j
-
- if bStyleInList = true then
- printlog "- style " & sTemp & " found in list"
- else
- if iSprache <> 82 then Warnlog "- style " & sTemp & " wasn't found in list!"
- end if
- next i
-
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles2
- Dim i as integer
- Dim sTemp as string
-
- printlog "- Apply Style"
- printlog "New writerdocument"
- Call hNewDocument
- printlog "Insert dummytext"
- if wBlindtextEinfuegen = false then
- Call hCloseDocument
- exit sub
- end if
-
- printlog "Select whole dummytext"
- Call wTypeKeys "<Mod1 A>"
- printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
- Kontext "Textobjectbar"
- for i = 1 to Vorlage.GetItemCount
- Vorlage.Select i
- sTemp = Vorlage.GetSelText
- if Instr(sTemp, "1") then
- Vorlage.TypeKeys "<Return>"
- exit for
- end if
- next i
-
- printlog "Check if style has been applied to paragraph"
- Call wTypeKeys "<Mod1 Home><End>"
- Call wTypeKeys "<Left>", 2
-
- Kontext "Textobjectbar"
- if Vorlage.GetSeltext <> sTemp then
- Warnlog "Seems style has not been completely applied to paragraph!"
- end if
-
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles3
-
- printlog "- Create a new style"
- printlog "Open a new writerdocument"
- Call hNewDocument
- printlog "Insert a dummy text"
- if wBlindtextEinfuegen = false then
- Call hCloseDocument
- exit sub
- end if
-
- printlog "Select the whole dummy text"
- Call wTypeKeys "<Mod1 A>"
- printlog "Format / Character"
- FormatCharacter
- Kontext
- Active.Setpage TabFont
- Kontext "TabFont"
- printlog "Apply first font in list and select 2nd Typeface"
- if gAsianSup = True then
- FontWest.Select 1
- StyleWest.Select 2
- else
- Font.Select 1
- Style.Select 1
- end if
- TabFont.Ok
-
- printlog "Enter 'MyStyle' in Stylelistbox"
- Kontext "Textobjectbar"
- Vorlage.TypeKeys "<Mod1 A>"
- Vorlage.TypeKeys "MyStyle<Return>"
-
- printlog "Check if style has been applied to the combobox"
- Call wTypeKeys "<Mod1 End>"
-
- wait 500
- Kontext "Textobjectbar"
- try
- Vorlage.Select "MyStyle"
- catch
- Warnlog "Seems style has not been applied to combobox"
- endcatch
-
- printlog "Check if style has been applied to paragraph"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Right>", 2
-
- Kontext "Textobjectbar"
- if Vorlage.GetSelText <> "MyStyle" then
- Warnlog "Seems style has not been applied to paragraph"
- end if
-
- printlog "Close Document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles4
- Dim i as integer
- Dim sTemp as string
- Dim sStyle as integer
-
- printlog "- Clear formatting: whole paragraph"
- printlog "Open a new writer document"
- Call hNewDocument
- printlog "Insert a dummytext"
- if wBlindtextEinfuegen = false then
- Call hCloseDocument
- exit sub
- end if
-
- printlog "Select whole dummytext"
- Call wTypeKeys "<Mod1 A>"
- printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
- Kontext "Textobjectbar"
- ' remeber default style
- sStyle = Vorlage.GetSelIndex
- for i = 1 to Vorlage.GetItemCount
- Vorlage.Select i
- sTemp = Vorlage.GetSelText
- if Instr(sTemp, "1") then
- Vorlage.TypeKeys "<Return>"
- exit for
- end if
- next i
-
- printlog "choose 'Clear formatting' in combobox"
- Kontext "Textobjectbar"
- Vorlage.Select 1
- Vorlage.TypeKeys "<Return>"
- wait 500
- printlog "Check if style has been set to default"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Right>", 3
-
- wait 500
- Kontext "Textobjectbar"
- if Vorlage.GetSelIndex <> sStyle then
- warnlog "Seems paragraph has not been set to default! " & Vorlage.GetSelText & "(" & Vorlage.GetSelIndex & ")"
- end if
-
- printlog "Close Document"
- Call hCloseDocument
-
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles5
-
- printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
- printlog " - 1. Cursor outside of hard formatted string"
- printlog "Open a new writer document"
- Call hNewDocument
- printlog "Insert a dummytext"
- if wBlindtextEinfuegen = false then
- Call hCloseDocument
- exit sub
- end if
-
- printlog "Highlight first line in dummy text"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Shift End>"
-
- printlog "Format / Bold"
- Kontext "TextObjectbar"
- if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
- Fett.Click
- Wait 500
-
- printlog "Set cursor outside of bold formatted text"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Down><Right>"
-
- printlog "Select 'Clear Formatting' in Style-Listbox"
- Kontext "Textobjectbar"
- Vorlage.Select 1
- Vorlage.TypeKeys "<Return>"
- wait 500
-
- printlog "Check that first line is still bold and has not been reset"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Right>"
-
- Kontext "TextObjectbar"
- if Fett.Getstate(2) = 0 then
- Warnlog "Style 'Bold' has been reset!"
- end if
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles6
-
- Dim iStandard as integer
-
- printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
- printlog " - 2. Cursor inside of hard formatted string"
- printlog "Open a new writer document"
- Call hNewDocument
- printlog "Insert a dummytext"
- if wBlindtextEinfuegen = false then
- Call hCloseDocument
- exit sub
- end if
-
- printlog "Highlight first line in dummy text"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Shift End>"
-
- printlog "Format / Bold"
- Kontext "TextObjectbar"
- if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
- Fett.Click
- Wait 500
-
- printlog "Point cursor to first highlighted word of bold formatted text"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Right>"
-
- printlog "Select 'Format / Default Formatting' in Style-Listbox"
- FormatDefaultWriter
- wait 500
-
- printlog "first highlighted word should be set to 'Standard'"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<Right>"
- Kontext "TextObjectbar"
- if Fett.Getstate(2) = 1 then
- Warnlog "Style 'Bold' has not been reset!"
- end if
-
- printlog "Check that rest of first line is still bold and has not been reset"
- Call wTypeKeys "<Mod1 Home>"
- Call wTypeKeys "<End><Left>"
-
- Kontext "TextObjectbar"
- if Fett.Getstate(2) = 1 then
- Warnlog "Style 'Bold' has not been reset!"
- end if
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles7
-
- printlog "More ..."
- printlog "Open a new writer document"
- Call hNewDocument
-
- printlog "Select 'More...' in Style-Listbox"
- Kontext "Textobjectbar"
- Vorlage.Select Vorlage.GetItemCount
- Vorlage.TypeKeys "<Return>"
- wait 500
-
- printlog "The Stylist should have been opened"
- Kontext "Stylist"
- if Not Stylist.Exists then
- Warnlog "'Styles and Formatting' doesn't open if 'More...' is selected in Style-Listbox"
- else
- printlog "In Style group listbox 'Automatic' should be selected"
- if Gruppenliste.GetSelIndex <> 5 then
- Warnlog "Seems 'Automatic' is not selected per default in 'Styles and Formatting'"
- end if
- Stylist.Close
- end if
-
- printlog "Close document"
- Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tKeyboardShortcutToStyles()
- dim sTempa as string
- dim sTempb as string
- dim sTempc as string
- dim i as integer
- dim x as integer
-
- printlog "open new application document"
- call hNewDocument()
-
- printlog "get current default style from TextObjectBar"
- kontext "TextObjectBar"
- sTempa = Vorlage.getSelText
- sTempc = sTempa
- for i = 3 to 0 step -1
- printlog "Perform the Keycombination <CTRL>+3 (2,1,0) and check, if Style in TextObjectBar changed"
- printlog "- <Ctrl>+<"+i+"> -> Heading "+i+" style"
- Call hTypeKeys("<Mod1 "+i+">")
- sleep 1
- kontext "TextObjectBar"
- sTempb = sTempa
- sTempa = Vorlage.getSelText
- if (sTempa <> sTempb) then
- printlog "OK: Heading changed: '" + sTempa + "'"
- else
- warnlog "Heading didn't change: '" + sTempa + "'"
- end if
- next i
- kontext "DocumentWriter"
- DocumentWriter.TypeKeys("<MOD1 SHIFT 0>")
- sleep (2)
- kontext "TextObjectBar"
- sTempa = Vorlage.getSelText
-
- printlog "should now be the default from the beginning"
- if (uCase(gApplication)<>"HTML") then
- if (sTempa = sTempc) then
- printlog "OK: Heading changed to default: '" + sTempa + "'"
- else
- warnlog "Heading didn't change to default. Should have been: '" + sTempc + "' but was: '" + sTempa + "'"
- end if
- end if
-
- printlog "close document"
- call hCloseDocument()
-endcase
-
+'encoding UTF-8 Do not remove or change this line! +'************************************************************************** + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * +'/************************************************************************ +'* +'* owner : helge.delfs@sun.com +'* +'* short description : Test common stylist functions and assigning styles +'* +'************************************************************************ +'* +' #1 tFormatStylist1 +' #1 tFormatStylist2 +' #1 tFormatStylist3 +' #1 tFormatStylist4 +' #1 tFormatStylist5 +' #1 tFormatStylist6 +' #1 tFormatStylist7 +' #1 tAssigningStyles1 +' #1 tAssigningStyles2 +' #1 tAssigningStyles3 +' #1 tAssigningStyles4 +' #1 tAssigningStyles5 +' #1 tAssigningStyles6 +' #1 tAssigningStyles7 +' #1 tKeyboardShortcutToStyles +'* +'\*********************************************************************** + +sub w_stylist + printLog Chr(13) + "--------- Level 1 - Format / Stylist ----------" + + Call tFormatStylist1 ' all methods on stylist + Call tFormatStylist2 ' interacting between documents + Call tFormatStylist3 ' show all templates + Call tFormatStylist4 ' search/create templates + Call tFormatStylist5 ' select templet in stylist + Call tFormatStylist6 ' new template from selection + Call tFormatStylist7 ' new template from selection, modified via ContextMenu. + Call tAssigningStyles1 + Call tAssigningStyles2 + Call tAssigningStyles3 + Call tAssigningStyles4 + Call tAssigningStyles5 + Call tAssigningStyles6 + Call tAssigningStyles7 + Call tKeyboardShortcutToStyles + +end sub + +' ********************************************************************** + +testcase tFormatStylist1 + Dim xPos as long + Dim yPos as long + Dim xSize% + Dim ySize% + + printlog "- Format / Stylist : all methods with Navigator as window" + printlog "New writerdocument" + Call hNewDocument + printlog " - Call Stylist with F11" + printlog "Call stylist with <F11> aand proof all windowmethods at stylist" + Call wTypeKeys "<F11>" + Kontext "Stylist" + if Stylist.NotExists then + Warnlog "No Stylist with <F11>" + FormatStylist + end if + xPos = Stylist.GetPosX + yPos = Stylist.GetPosY + xSize% = Stylist.GetSizeX + ySize% = Stylist.GetSizeY + + printlog " - move Stylist" + Stylist.Move 10, 10 + Sleep 1 + Stylist.Move 300, 400 + Sleep 1 + Stylist.Move 590, 790 + Sleep 1 + Stylist.Move xPos, yPos + Sleep 1 + + printlog " - size Stylist" + try + Stylist.Size 300, 400 + catch + Warnlog "Sizen Stylist doesn't work.. see #i32449" + endcatch + Sleep 1 + try + Stylist.Size xSize%, ySize% + catch + Warnlog "Sizen Stylist doesn't work.. see #i32449" + endcatch + Sleep 1 + + printlog " - close Stylist and reopen ( has to be the same size )" + xPos = Stylist.GetPosX + yPos = Stylist.GetPosY + xSize% = Stylist.GetSizeX + ySize% = Stylist.GetSizeY + FormatStylist + Sleep 1 + FormatStylist + if xPos <> Stylist.GetPosX then Warnlog "x-Pos. has been changed : Not -> "+ xPos + " but -> "+ Stylist.GetPosX + if yPos <> Stylist.GetPosY then Warnlog "y-Pos. has been changed : Not -> "+ yPos + " but -> "+ Stylist.GetPosY + if xSize% <> Stylist.GetSizeX then Warnlog "x-Size has been changed : Not -> "+ xSize% + " but -> "+ Stylist.GetSizeX + if ySize% <> Stylist.GetSizeY then Warnlog "y-Size has been changed : Not -> "+ ySize% + " but -> "+ Stylist.GetSizeY + + printlog " - dock Stylist" + Stylist.Dock + Sleep 1 + if NOT Stylist.IsDocked then Warnlog "Stylist has not been docked in" + Stylist.Undock + Sleep 1 + + Stylist.Close + printlog "Close document" + Call hCloseDocument + +endcase + +' ********************************************************************** + +testcase tFormatStylist2 + Dim xPos% + Dim yPos% + Dim xSize% + Dim ySize% + + printlog "- Format/Stylist : Methods from Stylist as Window between more than one document" + printlog " New document" + Call hNewDocument + printlog "check all methods of Stylist as Window between more than one document" + Call wTypeKeys "Test the stylist functions" + printlog " - Call Stylist in first document and check in a second document" + Sleep 2 + Kontext "Stylist" + If Not Stylist.Exists then FormatStylist + Sleep 2 + Call hNewDocument + Call wTypeKeys "Test the stylist functions" + Sleep 2 + Kontext "Stylist" + if Stylist.NotExists then Warnlog "No Stylist in new document" + + printlog " - Close all documents and reopen" + Sleep 2 + Call hCloseDocument + Sleep 2 + Call hCloseDocument + Sleep 2 + Call hNewDocument + Sleep 2 + Call wTypeKeys "Test the stylist functions" + Kontext "Stylist" + if Stylist.NotExists then Warnlog "No Stylist in a new document" + + printlog " - Dock Stylist in first document and check in a new if docked" + Sleep 2 + Stylist.Dock + Sleep 1 + Call hNewDocument + Call wTypeKeys "Test the stylist functions" + Kontext "Stylist" + if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document" + + printlog " - Close all documents, reopen one and check docked Stylist" + Call hCloseDocument + Sleep 2 + Call hCloseDocument + Sleep 2 + Call hNewDocument + Kontext "Stylist" + if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document" + + printlog " - Close Stylist with <F11>" + Stylist.Undock + Sleep 1 + Call wTypeKeys "<F11>" + Kontext "Stylist" + if NOT Stylist.NotExists then + Warnlog "Stylist is still open" + Stylist.Close + end if + printlog "Close document" + Call hCloseDocument + +endcase + +' ********************************************************************** + +testcase tFormatStylist3 + Dim i as Integer + Dim AllStyles as integer + Dim j as integer + Dim RemString as string + printlog "- Format / Stylist : select all Style properties" + + Call hNewDocument + printlog " New writerdocument" + FormatStylist + printlog "Select all style properties in stylist" + Kontext "Stylist" + if Stylist.NotExists then FormatStylist + printlog " - Paragraph Styles" + Absatzvorlagen.Click + + for i=1 to Gruppenliste.GetItemCount + Gruppenliste.Select i + wait 500 + if i = 2 then ' All Styles + Vorlagenliste.TypeKeys "<Home>" + AllStyles = 1 + For j = 1 to 200 + RemString = Vorlagenliste.Gettext + 'Include this, if you want to see the styles in writerdocument + 'SetClipboard Vorlagenliste.Gettext + 'Kontext "DocumentWriter" + 'DocumentWriter.TypeKeys GetClipboardtext + "<Return>" + 'Kontext "Stylist" + Vorlagenliste.TypeKeys "<Down>" + if Vorlagenliste.Gettext <> RemString then + AllStyles = AllStyles + 1 + else + j = 202 + if AllStyles <> "122" then + Select Case iSprache + Case 07 + warnlog "Double styles in stylist" + Case 55 + warnlog "Missing Style in Stylist" + Case 31 + warnlog "Missing Style in Stylist" + Case else + Warnlog "There are " + AllStyles + " styles in this category and not 122!" + end select + else + printlog "There are " + AllStyles + " styles in this category!" + end if + end if + next j + end if + Sleep 1 + next i + + Zeichenvorlagen.Click + Sleep 2 + printlog " - Chapter Styles" + for i=1 to Gruppenliste.GetItemCount + Gruppenliste.Select i + AllStyles = AllStyles + 1 + Sleep 1 + next i + + Rahmenvorlagen.Click + Sleep 2 + printlog " - Frame Styles" + for i=1 to Gruppenliste.GetItemCount + Gruppenliste.Select i + AllStyles = AllStyles + 1 + Sleep 1 + next i + + Seitenvorlagen.Click + Sleep 2 + printlog " - Page Styles" + for i=1 to Gruppenliste.GetItemCount + Gruppenliste.Select i + AllStyles = AllStyles + 1 + Sleep 1 + next i + Stylist.Close + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tFormatStylist4 + Dim i as Integer + Dim AlterWert$ + Dim NeuerWert$ + + printlog "- Format / Stylist : check created Styles" + printlog "New writerdocument" + Call hNewDocument + printlog " - create Paragraph Style in Stylist" + Call wStyleCreate ( "ATesttool", "Paragraph", true ) + Kontext "Stylist" + printlog "Check if Style has been added in stylist" + if wStyleSelect ( "ATesttool", "Paragraph" ) = false then Warnlog "Paragraph Style has not been found" + + printlog " - Create Character Style in Stylist" + Call wStyleCreate ( "BTesttool", "Character", true ) + if wStyleSelect ( "BTesttool", "Character" ) = false then Warnlog "Character Style has not been found!" + printlog " - Create Frame Style in Stylist" + Call wStyleCreate ( "CTesttool", "Frame", true ) + if wStyleSelect ( "CTesttool", "Frame" ) = false then Warnlog "Frame Style has not been found!" + + printlog " - Create Page Style in Stylist" + Call wStyleCreate ( "DTesttool", "Page", true ) + if wStyleSelect ( "DTesttool", "Page" ) = false then Warnlog "Page Style has not been found" + + printlog " - creating Styles should not have been affecting to new documents" + ' To avoid focus problems on unix first close stylist + Kontext "Stylist" + if Stylist.Exists then FormatStylist + Call hNewDocument + Kontext "Stylist" + if Not Stylist.Exists then FormatStylist + + if wStyleSelect ( "ATesttool", "Paragraph" ) = true then Warnlog "Paragraph Style has been found in new document" + if wStyleSelect ( "BTesttool", "Character" ) = true then Warnlog "Character Style has been found in new document" + 'if wStyleSelect ( "CTesttool", "Frame" ) = true then Warnlog "Frame Style has been found in new document" + if wStyleSelect ( "DTesttool", "Page" ) = true then Warnlog "Page Style has been found in new document" + + Call hCloseDocument + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tFormatStylist5 + Dim SuchMal as string, i as integer + Dim bStyleFound as boolean + + printlog "- Format / Stylist : select Style" + printlog "New writerdocument" + if bAsianLan = True then + printlog "- Not in Asian languages!" + goto endsub + end if + Call hNewDocument + Call wTypeKeys "Dies ist ein formatierter Text <Shift Home>" + printlog " - format Text" + FormatCharacter + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + StrikeThrough.Select 2 + Outline.Check + TabFontEffects.OK + + printlog " - adjust to Standard-Format through the Stylist" + printlog "adjust to Standard-Format through the Stylist" + FormatStylist + Kontext "Stylist" + if Stylist.NotExists then FormatStylist + 'Get name for 'default' template + Kontext "TextObjectbar" + SuchMal = Vorlage.GetSelText + printlog "Using " & SuchMal & " as 'default'" + Kontext "Stylist" + + Vorlagenliste.TypeKeys "<Home>" + bStyleFound = false + for i=1 to Vorlagenliste.GetItemCount + Vorlagenliste.Select i + if Vorlagenliste.GetText = Suchmal then + Vorlagenliste.TypeKeys "<Return>" + bStyleFound = true + exit for + end if + next i + Stylist.Close + + if bStyleFound = false then + Warnlog "Style: " & Suchmal & " has not been found in Stylist" + Call hCloseDocument + goto endsub + end if + + printlog " - check format" + FormatCharacter + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry selected in StrikeThrough" + if Outline.IsChecked then Warnlog "Format Outline is still checked" + TabFontEffects.OK + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tFormatStylist6 + Dim i as integer + + printlog "- Format / Stylist : new Style from selection" + printlog "New writerdocument" + Call hNewDocument + Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>" + printlog "create a new style from selection" + FormatCharacter + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + Shadow.Check + StrikeThrough.Select 2 + Overline.Select 2 + OverlineColor.Select 6 + Outline.Check + Effects.Select 3 + Blinking.Check + Kontext + Active.Setpage TabHyperlinkZeichen + Kontext "TabHyperlinkZeichen" + URLName.SetText "www.mikeportnoy.com" + TabHyperlinkZeichen.OK + + printlog " - Create Character Style from selection" + Kontext "Stylist" + if not Stylist.Exists then FormatStylist + Kontext "Stylist" + TBGestalter.Click ZeichenVorlagen + Sleep 1 + + AusSelektion.OpenMenu + Sleep 1 + hMenuSelectNr(1) + Sleep 1 + + Kontext "VorlageErzeugen" + if VorlageErzeugen.Exists then + VorlagenName.SetText "Testtool" + VorlageErzeugen.OK + else + Warnlog "Creating Style did not work. Dialog not up!" + end if + + printlog " - assign new Character Style to a new text" + wTypeKeys "<Home><Down>",3 + wTypeKeys "This is some new text <Return><Up><Up><Shift End>" + Kontext "Stylist" + TBGestalter.Click ZeichenVorlagen + if Vorlagenliste.GetSeltext <> "Testtool" then 'Go find the entry. + Vorlagenliste.TypeKeys "<Home>" + For i = 1 to 100 + Vorlagenliste.TypeKeys "<Down>" + if Vorlagenliste.GetSeltext = "Testtool" then 'Found it! + i = 102 + end if + next i + end if + Vorlagenliste.TypeKeys "<Return>" 'Assign to text. + Stylist.Close + if i = 101 then + Warnlog "Created Style could not be found in Stylist!" + else + Printlog " - check Style" + FormatCharacter + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore" + if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough" + if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore" + if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected" + if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore" + if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected" + if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore" + Kontext + Active.Setpage TabHyperlinkZeichen + Kontext "TabHyperlinkZeichen" + if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#TabHyperlink: URL is wrong " + URLName.Gettext + TabHyperlinkZeichen.OK + end if + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tFormatStylist7 + Dim i as integer + + printlog "- Format / Stylist : new Style from selection, then modified via the ContextMenu." + printlog "New writerdocument" + Call hNewDocument + Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>" + printlog "create a new style from selection" + + printlog " - Create Character Style from selection" + Kontext "Stylist" + if not Stylist.Exists then FormatStylist + Kontext "Stylist" + TBGestalter.Click ZeichenVorlagen + Sleep 1 + + AusSelektion.OpenMenu + Sleep 1 + hMenuSelectNr(1) + Sleep 1 + + Kontext "VorlageErzeugen" + if VorlageErzeugen.Exists then + VorlagenName.SetText "Testtool" + VorlageErzeugen.OK + else + Warnlog "Creating Style did not work. Dialog not up!" + end if + + printlog " Open ContextMenu over the 'Testtool' Style." + Kontext "Stylist" + if not Stylist.Exists then FormatStylist + Kontext "Stylist" + TBGestalter.Click ZeichenVorlagen + if Vorlagenliste.GetSeltext <> "Testtool" then + Vorlagenliste.TypeKeys "<Home>" + For i = 1 to 100 + Vorlagenliste.TypeKeys "<Down>" + if Vorlagenliste.GetSeltext = "Testtool" then + i = 102 + end if + next i + if i = 101 then + warnlog "No Testtool -Stylist found. Check if new stylists can be created. Test ends." + goto endsub + end if + end if + Vorlagenliste.TypeKeys "<SHIFT F10>" 'Open ContextMenu + Sleep 1 + printlog " Select 'Modify'" + Call hMenuSelectNr(2) 'Modify + Sleep 1 + + printlog " Goto Tabpage 'Font Effects' and change some settings." + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + Shadow.Check + StrikeThrough.Select 2 + Overline.Select 2 + OverlineColor.Select 6 + Outline.Check + Effects.Select 3 + Blinking.Check + TabFontEffects.OK + + printlog " - assign new Character Style to a new text" + wTypeKeys "<Home><Down>",3 + wTypeKeys "This is some new text <Return><Up><Up><Shift End>" + Kontext "Stylist" + TBGestalter.Click ZeichenVorlagen + + if Vorlagenliste.GetSeltext <> "Testtool" then + Vorlagenliste.TypeKeys "<Home>" + For i = 1 to 100 + Vorlagenliste.TypeKeys "<Down>" + if Vorlagenliste.GetSeltext = "Testtool" then 'Found it! + i = 102 + end if + next i + end if + Vorlagenliste.TypeKeys "<Return>" 'Assign Style to Text. + Stylist.Close + if i = 101 then + Warnlog "Created Style could not be found in Stylist!" + else + Printlog " - check Style" + FormatCharacter + Kontext + Active.SetPage TabFontEffects + Kontext "TabFontEffects" + if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore" + if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough" + if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore" + if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected" + if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore" + if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected" + if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore" + TabFontEffects.OK + end if + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles1 + Dim i as integer + Dim sStyles() as string + Dim sTemp as string + Dim j as integer + Dim bStyleInList as boolean + + printlog "UI and Strings check" + Call hNewDocument + printlog "Open a new writerdocument" + printlog "Check if the following strings and only those strings are present:" + printlog "Clear formatting" + printlog "Heading 1" + printlog "Heading 2" + printlog "Heading 3" + printlog "Default" + printlog "Text body" + printlog "More..." + Select Case iSprache + Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...") + Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "Основной текст", "Дополнительно...") + Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...") + Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...") + Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...") + Case 36 : sStyles = Array("Formázás törlése", "Alapértelmezett", "Címsor 1", "Címsor 2", "Címsor 3", "Szövegtörzs", "További...") + Case 39 : sStyles = Array("Cancella formattazione", "Corpo testo", "Intestazione 1", "Intestazione 2", "Intestazione 3", "Standard", "Extra...") + Case 46 : sStyles = Array("Radera formatering", "Brödtext", "Överskrift 1", "Överskrift 2", "Överskrift 3", "Standard", "Mer...") + Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...") + Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...") + Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...") + Case 81 : sStyles = Array("書式設定の解除", "本文", "標準", "見出し 1", "見出し 2", "見出し 3", "詳細...") + Case 82 : sStyles = Array("서식 지우기", "기본값", "제목 1", "제목 2", "제목 3", "텍스트 본문", "자세히...") + Case 86 : sStyles = Array("清除格式", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...") + Case 88 : sStyles = Array("清除格式", "內文", "標題 1", "標題 2", "標題 3", "預設", "更多...") + Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...") + Case else : Warnlog "Current language not supported. Please add styles to list!" + Kontext "Textobjectbar" + printlog "- Current Styles: " + For i = 1 to Vorlage.GetItemCount + Vorlage.Select i + printlog Vorlage.GetSelText + next i + Call hCloseDocument + exit sub + end select + + 'Check number of entrys....have to be seven + Kontext "Textobjectbar" + if Vorlage.GetItemCount <> 7 then + Select case iSprache + case 82 : warnlog "Korean: Number of styles in styleslistbox wrong" + case else : Warnlog "Not 7 entrys in Styles & Formatting combobox but: " & Vorlage.GetItemCount + end select + end if + + For i = 1 to Vorlage.GetItemCount + Vorlage.Select i + sTemp = Vorlage.GetSelText + printlog "- check style: " & sTemp + bStyleInList = false + For j = 0 to 6 + if sStyles(j) = sTemp then + bStyleInList = true + end if + next j + + if bStyleInList = true then + printlog "- style " & sTemp & " found in list" + else + if iSprache <> 82 then Warnlog "- style " & sTemp & " wasn't found in list!" + end if + next i + + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles2 + Dim i as integer + Dim sTemp as string + + printlog "- Apply Style" + printlog "New writerdocument" + Call hNewDocument + printlog "Insert dummytext" + if wBlindtextEinfuegen = false then + Call hCloseDocument + exit sub + end if + + printlog "Select whole dummytext" + Call wTypeKeys "<Mod1 A>" + printlog "Apply style 'Heading 1' through Styles & Formatting combobox" + Kontext "Textobjectbar" + for i = 1 to Vorlage.GetItemCount + Vorlage.Select i + sTemp = Vorlage.GetSelText + if Instr(sTemp, "1") then + Vorlage.TypeKeys "<Return>" + exit for + end if + next i + + printlog "Check if style has been applied to paragraph" + Call wTypeKeys "<Mod1 Home><End>" + Call wTypeKeys "<Left>", 2 + + Kontext "Textobjectbar" + if Vorlage.GetSeltext <> sTemp then + Warnlog "Seems style has not been completely applied to paragraph!" + end if + + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles3 + + printlog "- Create a new style" + printlog "Open a new writerdocument" + Call hNewDocument + printlog "Insert a dummy text" + if wBlindtextEinfuegen = false then + Call hCloseDocument + exit sub + end if + + printlog "Select the whole dummy text" + Call wTypeKeys "<Mod1 A>" + printlog "Format / Character" + FormatCharacter + Kontext + Active.Setpage TabFont + Kontext "TabFont" + printlog "Apply first font in list and select 2nd Typeface" + if gAsianSup = True then + FontWest.Select 1 + StyleWest.Select 2 + else + Font.Select 1 + Style.Select 1 + end if + TabFont.Ok + + printlog "Enter 'MyStyle' in Stylelistbox" + Kontext "Textobjectbar" + Vorlage.TypeKeys "<Mod1 A>" + Vorlage.TypeKeys "MyStyle<Return>" + + printlog "Check if style has been applied to the combobox" + Call wTypeKeys "<Mod1 End>" + + wait 500 + Kontext "Textobjectbar" + try + Vorlage.Select "MyStyle" + catch + Warnlog "Seems style has not been applied to combobox" + endcatch + + printlog "Check if style has been applied to paragraph" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Right>", 2 + + Kontext "Textobjectbar" + if Vorlage.GetSelText <> "MyStyle" then + Warnlog "Seems style has not been applied to paragraph" + end if + + printlog "Close Document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles4 + Dim i as integer + Dim sTemp as string + Dim sStyle as integer + + printlog "- Clear formatting: whole paragraph" + printlog "Open a new writer document" + Call hNewDocument + printlog "Insert a dummytext" + if wBlindtextEinfuegen = false then + Call hCloseDocument + exit sub + end if + + printlog "Select whole dummytext" + Call wTypeKeys "<Mod1 A>" + printlog "Apply style 'Heading 1' through Styles & Formatting combobox" + Kontext "Textobjectbar" + ' remeber default style + sStyle = Vorlage.GetSelIndex + for i = 1 to Vorlage.GetItemCount + Vorlage.Select i + sTemp = Vorlage.GetSelText + if Instr(sTemp, "1") then + Vorlage.TypeKeys "<Return>" + exit for + end if + next i + + printlog "choose 'Clear formatting' in combobox" + Kontext "Textobjectbar" + Vorlage.Select 1 + Vorlage.TypeKeys "<Return>" + wait 500 + printlog "Check if style has been set to default" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Right>", 3 + + wait 500 + Kontext "Textobjectbar" + if Vorlage.GetSelIndex <> sStyle then + warnlog "Seems paragraph has not been set to default! " & Vorlage.GetSelText & "(" & Vorlage.GetSelIndex & ")" + end if + + printlog "Close Document" + Call hCloseDocument + +endcase + +' ********************************************************************** + +testcase tAssigningStyles5 + + printlog "- Clear formatting: whole paragraph with hard formatting of some characters" + printlog " - 1. Cursor outside of hard formatted string" + printlog "Open a new writer document" + Call hNewDocument + printlog "Insert a dummytext" + if wBlindtextEinfuegen = false then + Call hCloseDocument + exit sub + end if + + printlog "Highlight first line in dummy text" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Shift End>" + + printlog "Format / Bold" + Kontext "TextObjectbar" + if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) + Fett.Click + Wait 500 + + printlog "Set cursor outside of bold formatted text" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Down><Right>" + + printlog "Select 'Clear Formatting' in Style-Listbox" + Kontext "Textobjectbar" + Vorlage.Select 1 + Vorlage.TypeKeys "<Return>" + wait 500 + + printlog "Check that first line is still bold and has not been reset" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Right>" + + Kontext "TextObjectbar" + if Fett.Getstate(2) = 0 then + Warnlog "Style 'Bold' has been reset!" + end if + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles6 + + Dim iStandard as integer + + printlog "- Clear formatting: whole paragraph with hard formatting of some characters" + printlog " - 2. Cursor inside of hard formatted string" + printlog "Open a new writer document" + Call hNewDocument + printlog "Insert a dummytext" + if wBlindtextEinfuegen = false then + Call hCloseDocument + exit sub + end if + + printlog "Highlight first line in dummy text" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Shift End>" + + printlog "Format / Bold" + Kontext "TextObjectbar" + if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) + Fett.Click + Wait 500 + + printlog "Point cursor to first highlighted word of bold formatted text" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Right>" + + printlog "Select 'Format / Default Formatting' in Style-Listbox" + FormatDefaultWriter + wait 500 + + printlog "first highlighted word should be set to 'Standard'" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Right>" + Kontext "TextObjectbar" + if Fett.Getstate(2) = 1 then + Warnlog "Style 'Bold' has not been reset!" + end if + + printlog "Check that rest of first line is still bold and has not been reset" + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<End><Left>" + + Kontext "TextObjectbar" + if Fett.Getstate(2) = 1 then + Warnlog "Style 'Bold' has not been reset!" + end if + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tAssigningStyles7 + + printlog "More ..." + printlog "Open a new writer document" + Call hNewDocument + + printlog "Select 'More...' in Style-Listbox" + Kontext "Textobjectbar" + Vorlage.Select Vorlage.GetItemCount + Vorlage.TypeKeys "<Return>" + wait 500 + + printlog "The Stylist should have been opened" + Kontext "Stylist" + if Not Stylist.Exists then + Warnlog "'Styles and Formatting' doesn't open if 'More...' is selected in Style-Listbox" + else + printlog "In Style group listbox 'Automatic' should be selected" + if Gruppenliste.GetSelIndex <> 5 then + Warnlog "Seems 'Automatic' is not selected per default in 'Styles and Formatting'" + end if + Stylist.Close + end if + + printlog "Close document" + Call hCloseDocument +endcase + +' ********************************************************************** + +testcase tKeyboardShortcutToStyles() + dim sTempa as string + dim sTempb as string + dim sTempc as string + dim i as integer + dim x as integer + + printlog "open new application document" + call hNewDocument() + + printlog "get current default style from TextObjectBar" + kontext "TextObjectBar" + sTempa = Vorlage.getSelText + sTempc = sTempa + for i = 3 to 0 step -1 + printlog "Perform the Keycombination <CTRL>+3 (2,1,0) and check, if Style in TextObjectBar changed" + printlog "- <Ctrl>+<"+i+"> -> Heading "+i+" style" + Call hTypeKeys("<Mod1 "+i+">") + sleep 1 + kontext "TextObjectBar" + sTempb = sTempa + sTempa = Vorlage.getSelText + if (sTempa <> sTempb) then + printlog "OK: Heading changed: '" + sTempa + "'" + else + warnlog "Heading didn't change: '" + sTempa + "'" + end if + next i + kontext "DocumentWriter" + DocumentWriter.TypeKeys("<MOD1 SHIFT 0>") + sleep (2) + kontext "TextObjectBar" + sTempa = Vorlage.getSelText + + printlog "should now be the default from the beginning" + if (uCase(gApplication)<>"HTML") then + if (sTempa = sTempc) then + printlog "OK: Heading changed to default: '" + sTempa + "'" + else + warnlog "Heading didn't change to default. Should have been: '" + sTempc + "' but was: '" + sTempa + "'" + end if + end if + + printlog "close document" + call hCloseDocument() +endcase + diff --git a/testautomation/writer/optional/includes/table/w_204_.inc b/testautomation/writer/optional/includes/table/w_204_.inc index 9bc3f38498d5..eb881ae1ebea 100755 --- a/testautomation/writer/optional/includes/table/w_204_.inc +++ b/testautomation/writer/optional/includes/table/w_204_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_204_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:36:50 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/table/w_204a_.inc b/testautomation/writer/optional/includes/table/w_204a_.inc index 4b18bb064fe2..6682107be21f 100755 --- a/testautomation/writer/optional/includes/table/w_204a_.inc +++ b/testautomation/writer/optional/includes/table/w_204a_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_204a_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:37:02 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -355,19 +349,13 @@ testcase sTableMergeCell Call hNewDocument - ' set marks to find - Call wTypeKeys "NULL<return>" - Call wTypeKeys "Start<return>" - Call wTypeKeys "End<return>" - Call wTypeKeys "NULL<return><up><up>" - temp (1) = "Table1" - '/// Insert a table with 10 columns and 7 rows + printlog "Insert a table with 10 columns and 7 rows" Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7") ' insert table + printlog "Point cursor out of the table" Call wTypeKeys "<MOD1 END>", 2 - Call wTypeKeys "<up><up>" - '/// Insert a table with 10 columns and 10 rows + printlog "Insert a table with 10 columns and 10 rows" temp (1) = "Table2" Call TBOhTabelleEinfuegen (temp (1) ,0,0,1,1,"10",tHeight:="10") ' insert table @@ -383,49 +371,21 @@ testcase sTableMergeCell Call wTypeKeys "<down><shift down>" ' 2 vertical (1,2) & (1,3) TableMergeCells : inc ac : dec fc Call wTypeKeys "<down><up><shift down><shift up>" ' merge again - 'Warnlog "Merge cells will crash when only one cell is selected (#i33394)" TableMergeCells - ' go to top of table, move to end & count + printlog "Go to top of table" Call wTypeKeys "<mod1 home>" - for i=1 to fc - Call wTypeKeys "<right>" - next i - Call wTypeKeys "<down>" - Call wTypeKeys "<shift end>" ' right after/outside the table -> - try - EditCopy - catch - Warnlog "Test didn't find the end of the table, stops here!" - Call hCloseDocument - goto endsub - endcatch - if (GetClipboardText <> "End") then - Warnlog "Test didn't find the end of the table, stops here! Found:" & GetClipboardtext - Call hCloseDocument - goto endsub - end if - ' undo & check where we are + printlog "Undo all cell mergers (3 times)" for i=1 to ac - EditUndo + try + EditUndo + wait 500 + catch + Warnlog "Edit / Undo disabled on Undo step: " & i + endcatch next i - - sleep (3) - temp (2) = hGetTableName() - if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2) - EditUndo ' go one step further - EditUndo ' go one step further - Call wTypeKeys "<up><shift end>" - EditCopy - temp(2) = GetClipboardText - Call wTypeKeys "<down><shift home>" - EditCopy - temp(3) = GetClipboardText - if ((temp(2) <> "Start") AND (temp(3) <> "End")) then - warnlog "there is smth. wrong with the undo stuff !!! is:"+temp(3) +" and:"+temp(2)+" should:End Start" - end if - '/// Close document + printlog "Close document" Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/table/w_204b_.inc b/testautomation/writer/optional/includes/table/w_204b_.inc index 11cdfdb867b7..785197a6365f 100755 --- a/testautomation/writer/optional/includes/table/w_204b_.inc +++ b/testautomation/writer/optional/includes/table/w_204b_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_204b_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:37:14 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/textframes/w_textframes1.inc b/testautomation/writer/optional/includes/textframes/w_textframes1.inc index 523962591593..da1f499e7107 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes1.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:37:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/textframes/w_textframes2.inc b/testautomation/writer/optional/includes/textframes/w_textframes2.inc index 4f869d3a23e6..2255fe9f25ae 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes2.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:37:37 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/textframes/w_textframes3.inc b/testautomation/writer/optional/includes/textframes/w_textframes3.inc index 17efcd286940..fb91e8770ea4 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes3.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:37:48 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/textframes/w_textframes4.inc b/testautomation/writer/optional/includes/textframes/w_textframes4.inc index b179543918de..6d487bd3abee 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes4.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes4.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:38:00 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/textframes/w_textframes5.inc b/testautomation/writer/optional/includes/textframes/w_textframes5.inc index 349dc5032a62..9a2b170ea964 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes5.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes5.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes5.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:38:10 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc index 4c0231a4fa16..4ce4e436ad05 100755 --- a/testautomation/writer/optional/includes/tools/tools1.inc +++ b/testautomation/writer/optional/includes/tools/tools1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: tools1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:38:22 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -319,7 +313,7 @@ function fToolsAutocorrect(Options as string) case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionenAutokorrektur" : active.SetPage TabOptionenAutokorrektur - case "TabTypografisch" : active.SetPage TabTypografisch + case "TabLocalizedOptions" : active.SetPage TabLocalizedOptions case "TabWortergaenzung" : active.SetPage TabWortergaenzung end Select diff --git a/testautomation/writer/optional/includes/tools/tools2.inc b/testautomation/writer/optional/includes/tools/tools2.inc index 8cee5aa8ea4f..d0db89620953 100755 --- a/testautomation/writer/optional/includes/tools/tools2.inc +++ b/testautomation/writer/optional/includes/tools/tools2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: tools2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:38:33 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/undo/w_undo1.inc b/testautomation/writer/optional/includes/undo/w_undo1.inc index bd03aa085ab8..2d75f833a963 100755 --- a/testautomation/writer/optional/includes/undo/w_undo1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo1.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:38:44 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc index 6bf354d89b89..1d09c41c0952 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo_history_1.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:20:19 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc index bd0b3880c093..8dc87169e781 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo_history_2.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:20:32 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc index 0edd49e1f4a2..8266a406bad4 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo_history_3.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:20:44 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc index f2ace5a1016f..390aca6c00b5 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo_history_4.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:20:57 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/input/autocorrection/01-01.odt b/testautomation/writer/optional/input/autocorrection/01-01.odt Binary files differnew file mode 100644 index 000000000000..584bf749eaa9 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01-01.odt diff --git a/testautomation/writer/optional/input/autocorrection/01.odt b/testautomation/writer/optional/input/autocorrection/01.odt Binary files differnew file mode 100644 index 000000000000..97e76c18a1f1 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01.odt diff --git a/testautomation/writer/optional/input/filter/sa_actua_36.txt b/testautomation/writer/optional/input/filter/sa_actua_36.txt index d148e0c962a4..71b7493fc857 100755 --- a/testautomation/writer/optional/input/filter/sa_actua_36.txt +++ b/testautomation/writer/optional/input/filter/sa_actua_36.txt @@ -1,82 +1,82 @@ -OpenDocument-szöveg (.odt)
-OpenDocument-szövegsablon (.ott)
-StarOffice 6.0/7-szövegesdokumentum (.sxw)
-StarOffice 6.0/7-szövegesdokumentumsablon (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0-sablon (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0-sablon (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0-sablon (.vor)
-Szöveg (.txt)
-Kódolt szöveg (.txt)
-HTML-dokumentum (StarOffice Writer) (.html)
-AportisDoc (Palm) (.pdb)
-DocBook (.xml)
-Microsoft Word 2003 XML (.xml)
-Pocket Word (.psw)
-OpenDocument-munkafüzet (.ods)
-OpenDocument-munkafüzetsablon (.ots)
-StarOffice 6.0/7-munkafüzet (.sxc)
-StarOffice 6.0/7-munkafüzetsablon (.stc)
-Data Interchange Format (.dif)
-dBASE (.dbf)
-Microsoft Excel 97/2000/XP (.xls)
-Microsoft Excel 97/2000/XP-sablon (.xlt)
-Microsoft Excel 95 (.xls)
-Microsoft Excel 95-sablon (.xlt)
-Microsoft Excel 5.0 (.xls)
-Microsoft Excel 5.0-sablon (.xlt)
-StarCalc 5.0 (.sdc)
-StarCalc 5.0-sablon (.vor)
-StarCalc 4.0 (.sdc)
-StarCalc 4.0-sablon (.vor)
-StarCalc 3.0 (.sdc)
-StarCalc 3.0-sablon (.vor)
-SYLK (.slk)
-Strukturált szöveg (CSV) (.csv)
-HTML-dokumentum (StarOffice Calc) (.html)
-Microsoft Excel 2003 XML (.xml)
-Pocket Excel (.pxl)
-OpenDocument-bemutató (.odp)
-OpenDocument-bemutatósablon (.otp)
-StarOffice 6.0/7-bemutató (.sxi)
-StarOffice 6.0/7-bemutatósablon (.sti)
-Microsoft PowerPoint 97/2000/XP (.ppt)
-Microsoft PowerPoint 97/2000/XP-sablon (.pot)
-StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd)
-StarDraw 5.0 (StarOffice Impress) (.sda)
-StarDraw 3.0 (StarOffice Impress) (.sdd)
-StarImpress 5.0 (.sdd)
-StarImpress 5.0-sablon (.vor)
-StarImpress 4.0 (.sdd)
-StarImpress 4.0-sablon (.vor)
-OpenDocument-rajz (Impress) (.odg)
-OpenDocument-rajz (.odg)
-OpenDocument-rajzsablon (.otg)
-StarOffice 6.0/7-rajz (.sxd)
-StarOffice 6.0/7-rajzsablon (.std)
-StarDraw 5.0 (.sda)
-StarDraw 5.0-sablon (.vor)
-StarDraw 3.0 (.sdd)
-StarDraw 3.0-sablon (.vor)
-OpenDocument-fődokumentum (.odm)
-StarOffice 6.0/7-fődokumentum (.sxg)
-StarWriter 5.0-fődokumentum (.sgl)
-StarWriter 4.0-fődokumentum (.sgl)
-Kódolt szöveg (StarOffice-fődokumentum) (.txt)
-OpenDocument-képlet (.odf)
-StarOffice 6.0/7-képlet (.sxm)
-StarMath 5.0 (.smf)
-MathML 1.01 (.mml)
-HTML-dokumentum (.html)
-StarOffice 6.0/7 HTML-sablon (.stw)
-StarWriter/Web 5.0-sablon (.vor)
-StarWriter/Web 4.0-sablon (.vor)
-Szöveg (StarOffice Writer/Web) (.txt)
-Kódolt szöveg (StarOffice Writer/Web) (.txt)
-HTML-dokumentumsablon (.oth)
+OpenDocument-szöveg (.odt) +OpenDocument-szövegsablon (.ott) +StarOffice 6.0/7-szövegesdokumentum (.sxw) +StarOffice 6.0/7-szövegesdokumentumsablon (.stw) +Microsoft Word 97/2000/XP (.doc) +Microsoft Word 95 (.doc) +Microsoft Word 6.0 (.doc) +Rich Text Format (.rtf) +StarWriter 5.0 (.sdw) +StarWriter 5.0-sablon (.vor) +StarWriter 4.0 (.sdw) +StarWriter 4.0-sablon (.vor) +StarWriter 3.0 (.sdw) +StarWriter 3.0-sablon (.vor) +Szöveg (.txt) +Kódolt szöveg (.txt) +HTML-dokumentum (StarOffice Writer) (.html) +AportisDoc (Palm) (.pdb) +DocBook (.xml) +Microsoft Word 2003 XML (.xml) +Pocket Word (.psw) +OpenDocument-munkafüzet (.ods) +OpenDocument-munkafüzetsablon (.ots) +StarOffice 6.0/7-munkafüzet (.sxc) +StarOffice 6.0/7-munkafüzetsablon (.stc) +Data Interchange Format (.dif) +dBASE (.dbf) +Microsoft Excel 97/2000/XP (.xls) +Microsoft Excel 97/2000/XP-sablon (.xlt) +Microsoft Excel 95 (.xls) +Microsoft Excel 95-sablon (.xlt) +Microsoft Excel 5.0 (.xls) +Microsoft Excel 5.0-sablon (.xlt) +StarCalc 5.0 (.sdc) +StarCalc 5.0-sablon (.vor) +StarCalc 4.0 (.sdc) +StarCalc 4.0-sablon (.vor) +StarCalc 3.0 (.sdc) +StarCalc 3.0-sablon (.vor) +SYLK (.slk) +Strukturált szöveg (CSV) (.csv) +HTML-dokumentum (StarOffice Calc) (.html) +Microsoft Excel 2003 XML (.xml) +Pocket Excel (.pxl) +OpenDocument-bemutató (.odp) +OpenDocument-bemutatósablon (.otp) +StarOffice 6.0/7-bemutató (.sxi) +StarOffice 6.0/7-bemutatósablon (.sti) +Microsoft PowerPoint 97/2000/XP (.ppt) +Microsoft PowerPoint 97/2000/XP-sablon (.pot) +StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd) +StarDraw 5.0 (StarOffice Impress) (.sda) +StarDraw 3.0 (StarOffice Impress) (.sdd) +StarImpress 5.0 (.sdd) +StarImpress 5.0-sablon (.vor) +StarImpress 4.0 (.sdd) +StarImpress 4.0-sablon (.vor) +OpenDocument-rajz (Impress) (.odg) +OpenDocument-rajz (.odg) +OpenDocument-rajzsablon (.otg) +StarOffice 6.0/7-rajz (.sxd) +StarOffice 6.0/7-rajzsablon (.std) +StarDraw 5.0 (.sda) +StarDraw 5.0-sablon (.vor) +StarDraw 3.0 (.sdd) +StarDraw 3.0-sablon (.vor) +OpenDocument-fődokumentum (.odm) +StarOffice 6.0/7-fődokumentum (.sxg) +StarWriter 5.0-fődokumentum (.sgl) +StarWriter 4.0-fődokumentum (.sgl) +Kódolt szöveg (StarOffice-fődokumentum) (.txt) +OpenDocument-képlet (.odf) +StarOffice 6.0/7-képlet (.sxm) +StarMath 5.0 (.smf) +MathML 1.01 (.mml) +HTML-dokumentum (.html) +StarOffice 6.0/7 HTML-sablon (.stw) +StarWriter/Web 5.0-sablon (.vor) +StarWriter/Web 4.0-sablon (.vor) +Szöveg (StarOffice Writer/Web) (.txt) +Kódolt szöveg (StarOffice Writer/Web) (.txt) +HTML-dokumentumsablon (.oth) diff --git a/testautomation/writer/optional/input/filter/sa_sorte_36.txt b/testautomation/writer/optional/input/filter/sa_sorte_36.txt index 04ca48c69f1c..5245912e78fe 100755 --- a/testautomation/writer/optional/input/filter/sa_sorte_36.txt +++ b/testautomation/writer/optional/input/filter/sa_sorte_36.txt @@ -1,82 +1,82 @@ -AportisDoc (Palm) (.pdb)
-Data Interchange Format (.dif)
-dBASE (.dbf)
-DocBook (.xml)
-HTML-dokumentum (.html)
-HTML-dokumentum (StarOffice Calc) (.html)
-HTML-dokumentum (StarOffice Writer) (.html)
-HTML-dokumentumsablon (.oth)
-Kódolt szöveg (.txt)
-Kódolt szöveg (StarOffice Writer/Web) (.txt)
-Kódolt szöveg (StarOffice-fődokumentum) (.txt)
-MathML 1.01 (.mml)
-Microsoft Excel 2003 XML (.xml)
-Microsoft Excel 5.0 (.xls)
-Microsoft Excel 5.0-sablon (.xlt)
-Microsoft Excel 95 (.xls)
-Microsoft Excel 95-sablon (.xlt)
-Microsoft Excel 97/2000/XP (.xls)
-Microsoft Excel 97/2000/XP-sablon (.xlt)
-Microsoft PowerPoint 97/2000/XP (.ppt)
-Microsoft PowerPoint 97/2000/XP-sablon (.pot)
-Microsoft Word 2003 XML (.xml)
-Microsoft Word 6.0 (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 97/2000/XP (.doc)
-OpenDocument-bemutató (.odp)
-OpenDocument-bemutatósablon (.otp)
-OpenDocument-fődokumentum (.odm)
-OpenDocument-képlet (.odf)
-OpenDocument-munkafüzet (.ods)
-OpenDocument-munkafüzetsablon (.ots)
-OpenDocument-rajz (.odg)
-OpenDocument-rajz (Impress) (.odg)
-OpenDocument-rajzsablon (.otg)
-OpenDocument-szöveg (.odt)
-OpenDocument-szövegsablon (.ott)
-Pocket Excel (.pxl)
-Pocket Word (.psw)
-Rich Text Format (.rtf)
-StarCalc 3.0 (.sdc)
-StarCalc 3.0-sablon (.vor)
-StarCalc 4.0 (.sdc)
-StarCalc 4.0-sablon (.vor)
-StarCalc 5.0 (.sdc)
-StarCalc 5.0-sablon (.vor)
-StarDraw 3.0 (.sdd)
-StarDraw 3.0 (StarOffice Impress) (.sdd)
-StarDraw 3.0-sablon (.vor)
-StarDraw 5.0 (.sda)
-StarDraw 5.0 (StarOffice Impress) (.sda)
-StarDraw 5.0-sablon (.vor)
-StarImpress 4.0 (.sdd)
-StarImpress 4.0-sablon (.vor)
-StarImpress 5.0 (.sdd)
-StarImpress 5.0-sablon (.vor)
-StarMath 5.0 (.smf)
-StarOffice 6.0/7 HTML-sablon (.stw)
-StarOffice 6.0/7-bemutató (.sxi)
-StarOffice 6.0/7-bemutatósablon (.sti)
-StarOffice 6.0/7-fődokumentum (.sxg)
-StarOffice 6.0/7-képlet (.sxm)
-StarOffice 6.0/7-munkafüzet (.sxc)
-StarOffice 6.0/7-munkafüzetsablon (.stc)
-StarOffice 6.0/7-rajz (.sxd)
-StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd)
-StarOffice 6.0/7-rajzsablon (.std)
-StarOffice 6.0/7-szövegesdokumentum (.sxw)
-StarOffice 6.0/7-szövegesdokumentumsablon (.stw)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0-sablon (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0-fődokumentum (.sgl)
-StarWriter 4.0-sablon (.vor)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0-fődokumentum (.sgl)
-StarWriter 5.0-sablon (.vor)
-StarWriter/Web 4.0-sablon (.vor)
-StarWriter/Web 5.0-sablon (.vor)
-Strukturált szöveg (CSV) (.csv)
-SYLK (.slk)
-Szöveg (.txt)
-Szöveg (StarOffice Writer/Web) (.txt)
+AportisDoc (Palm) (.pdb) +Data Interchange Format (.dif) +dBASE (.dbf) +DocBook (.xml) +HTML-dokumentum (.html) +HTML-dokumentum (StarOffice Calc) (.html) +HTML-dokumentum (StarOffice Writer) (.html) +HTML-dokumentumsablon (.oth) +Kódolt szöveg (.txt) +Kódolt szöveg (StarOffice Writer/Web) (.txt) +Kódolt szöveg (StarOffice-fődokumentum) (.txt) +MathML 1.01 (.mml) +Microsoft Excel 2003 XML (.xml) +Microsoft Excel 5.0 (.xls) +Microsoft Excel 5.0-sablon (.xlt) +Microsoft Excel 95 (.xls) +Microsoft Excel 95-sablon (.xlt) +Microsoft Excel 97/2000/XP (.xls) +Microsoft Excel 97/2000/XP-sablon (.xlt) +Microsoft PowerPoint 97/2000/XP (.ppt) +Microsoft PowerPoint 97/2000/XP-sablon (.pot) +Microsoft Word 2003 XML (.xml) +Microsoft Word 6.0 (.doc) +Microsoft Word 95 (.doc) +Microsoft Word 97/2000/XP (.doc) +OpenDocument-bemutató (.odp) +OpenDocument-bemutatósablon (.otp) +OpenDocument-fődokumentum (.odm) +OpenDocument-képlet (.odf) +OpenDocument-munkafüzet (.ods) +OpenDocument-munkafüzetsablon (.ots) +OpenDocument-rajz (.odg) +OpenDocument-rajz (Impress) (.odg) +OpenDocument-rajzsablon (.otg) +OpenDocument-szöveg (.odt) +OpenDocument-szövegsablon (.ott) +Pocket Excel (.pxl) +Pocket Word (.psw) +Rich Text Format (.rtf) +StarCalc 3.0 (.sdc) +StarCalc 3.0-sablon (.vor) +StarCalc 4.0 (.sdc) +StarCalc 4.0-sablon (.vor) +StarCalc 5.0 (.sdc) +StarCalc 5.0-sablon (.vor) +StarDraw 3.0 (.sdd) +StarDraw 3.0 (StarOffice Impress) (.sdd) +StarDraw 3.0-sablon (.vor) +StarDraw 5.0 (.sda) +StarDraw 5.0 (StarOffice Impress) (.sda) +StarDraw 5.0-sablon (.vor) +StarImpress 4.0 (.sdd) +StarImpress 4.0-sablon (.vor) +StarImpress 5.0 (.sdd) +StarImpress 5.0-sablon (.vor) +StarMath 5.0 (.smf) +StarOffice 6.0/7 HTML-sablon (.stw) +StarOffice 6.0/7-bemutató (.sxi) +StarOffice 6.0/7-bemutatósablon (.sti) +StarOffice 6.0/7-fődokumentum (.sxg) +StarOffice 6.0/7-képlet (.sxm) +StarOffice 6.0/7-munkafüzet (.sxc) +StarOffice 6.0/7-munkafüzetsablon (.stc) +StarOffice 6.0/7-rajz (.sxd) +StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd) +StarOffice 6.0/7-rajzsablon (.std) +StarOffice 6.0/7-szövegesdokumentum (.sxw) +StarOffice 6.0/7-szövegesdokumentumsablon (.stw) +StarWriter 3.0 (.sdw) +StarWriter 3.0-sablon (.vor) +StarWriter 4.0 (.sdw) +StarWriter 4.0-fődokumentum (.sgl) +StarWriter 4.0-sablon (.vor) +StarWriter 5.0 (.sdw) +StarWriter 5.0-fődokumentum (.sgl) +StarWriter 5.0-sablon (.vor) +StarWriter/Web 4.0-sablon (.vor) +StarWriter/Web 5.0-sablon (.vor) +Strukturált szöveg (CSV) (.csv) +SYLK (.slk) +Szöveg (.txt) +Szöveg (StarOffice Writer/Web) (.txt) diff --git a/testautomation/writer/optional/input/hyphenation/tHyphenation.odt b/testautomation/writer/optional/input/hyphenation/tHyphenation.odt Binary files differindex 8854a645a9d7..b2b0494cd4e7 100755 --- a/testautomation/writer/optional/input/hyphenation/tHyphenation.odt +++ b/testautomation/writer/optional/input/hyphenation/tHyphenation.odt diff --git a/testautomation/writer/optional/input/import/swdos.txt b/testautomation/writer/optional/input/import/swdos.txt index c98a0c477742..b23df9eba2f9 100755 --- a/testautomation/writer/optional/input/import/swdos.txt +++ b/testautomation/writer/optional/input/import/swdos.txt @@ -1,225 +1,225 @@ -.\\\ WRITER 6 \\\
-C:\SW70\VORLAGEN\STANDARD.LAY
-C:\SW70\TREIBER\FM$65011.GPM
-12
-00000
-00010
-00109
-00001
-00001
-00001
-00002
-00002
-00000
-00006
-00000
-00000
-Blumentritt
-
-
-
-
-
-
-
-
-
-0
-17280
-11520
-0
-0
-JA
-3
-75
-0
-20
-0
-0
-0
-0
-0
-0
-0
-NEIN
-
-
-
-0
-2
-1
-Grund - Absatzlayout
-GA
-0
-0
-0
-0
-0
-1
-24
-0
-1
-0
-1
-NEIN
-NEIN
-NEIN
-240
-0
-0
-20
-0
-0
-0
-0
-0
-1
-0
-NEIN
-
-1
-566
-0
-0
-Einrckung links
-EL
-0
-566
-0
-0
-0
-1
-24
-0
-1
-0
-1
-NEIN
-NEIN
-NEIN
-240
-0
-0
-20
-0
-0
-0
-0
-0
-0
-0
-NEIN
-
-1
-566
-0
-0
-Grund - Seitenlayout
-GS
-480
-720
-269
-1133
-1680
-1680
-0
-0
-1
-NEIN
-0
-0
-
-
-
-
-
-
-
-
-0
-
-0
-
-
-
-
-
-
-
-KABAAB
-
-
-
-
-
-
-
-
-S t e f a n B r e u e r
-
-
-G e s e l l s c h a f t d e s V e r s c h w i n d e n s
-
-
-
-
-
- PA
-
-
-Inhalt
-
-S
-S
-S
-S
-SVorwort
-S
-S
-S
-SDie Entwicklungskurve der Zivilisation.
-SEine Auseinandersetzung mit Norbert Elias
-S
-S
-S
+.\\\ WRITER 6 \\\ +C:\SW70\VORLAGEN\STANDARD.LAY +C:\SW70\TREIBER\FM$65011.GPM +12 +00000 +00010 +00109 +00001 +00001 +00001 +00002 +00002 +00000 +00006 +00000 +00000 +Blumentritt + + + + + + + + + +0 +17280 +11520 +0 +0 +JA +3 +75 +0 +20 +0 +0 +0 +0 +0 +0 +0 +NEIN + + + +0 +2 +1 +Grund - Absatzlayout +GA +0 +0 +0 +0 +0 +1 +24 +0 +1 +0 +1 +NEIN +NEIN +NEIN +240 +0 +0 +20 +0 +0 +0 +0 +0 +1 +0 +NEIN + +1 +566 +0 +0 +Einrckung links +EL +0 +566 +0 +0 +0 +1 +24 +0 +1 +0 +1 +NEIN +NEIN +NEIN +240 +0 +0 +20 +0 +0 +0 +0 +0 +0 +0 +NEIN + +1 +566 +0 +0 +Grund - Seitenlayout +GS +480 +720 +269 +1133 +1680 +1680 +0 +0 +1 +NEIN +0 +0 + + + + + + + + +0 + +0 + + + + + + + +KABAAB + + + + + + + + +S t e f a n B r e u e r + + +G e s e l l s c h a f t d e s V e r s c h w i n d e n s + + + + + + PA + + +Inhalt + +S +S +S +S +SVorwort +S +S +S +SDie Entwicklungskurve der Zivilisation. +SEine Auseinandersetzung mit Norbert Elias +S +S +S SProduktive Disziplin. Foucaults Theorie der -Disziplinargesellschaft
-S
-S
-S
+Disziplinargesellschaft +S +S +S SAdorno, Luhmann: Die moderne Gesellschaft zwischen -Selbstreferenz und Selbstdestruktion
-S
-S
-S
-S'Nicht der Anfang, das Ende trgt die Last'.
-SFriedrich Georg Jnger und die Perfektion der Technik
-S
-S
-S
-SDer Nihilismus der Geschwindigkeit.
-SZum Werk Paul Virilios
-S
-S
-S
-STechnik und Wissenschaft als Hierophanie
-S
-S
-S
-SGtterdmmerung
-S
- SPA
-SVorwort
-S
-S
-S
-S
-S
-S
-S... Wir ordnens. Es zerfllt.
-S Wir ordnens wieder und zerfallen selbst.
-S Rilke, Duineser Elegien
-S
+Selbstreferenz und Selbstdestruktion +S +S +S +S'Nicht der Anfang, das Ende trgt die Last'. +SFriedrich Georg Jnger und die Perfektion der Technik +S +S +S +SDer Nihilismus der Geschwindigkeit. +SZum Werk Paul Virilios +S +S +S +STechnik und Wissenschaft als Hierophanie +S +S +S +SGtterdmmerung +S + SPA +SVorwort +S +S +S +S +S +S +S... Wir ordnens. Es zerfllt. +S Wir ordnens wieder und zerfallen selbst. +S Rilke, Duineser Elegien +S SDie Gegenwart, so versichert man uns seit einiger Zeit, stehe im Zeichen eines groen Verschwindens. Die Metaerzhlungen, welche die Spielregeln des modernen Wissens legitimierten, lsten sich @@ -239,8 +239,8 @@ Mathesis universalis zerbreche. Auflsung des Ganzen, Ende der Einheit, Obsoletheit der Totalitt: "Absolutheit ist nur noch eine Idee, ein archimedischer Punkt ist undenkbar, das Operieren ohne letztes Fundament wird zur Grundsituation" (Welsch 1988, -187).
-S
+187). +S SDem Verschwinden der Totalitt, heit es weiter, korrespondiert das Erscheinen der Pluralitt, dem 'Koma der Moderne' (Matthieu) die Geburt der Postmoderne. Wo der szientifische Diskurs der @@ -265,8 +265,8 @@ Entwicklungslogik des Wissens, sondern auch die der Gesellschaft fr sich haben (Welsch 1988, 218, 4). Das Verschwinden des Ganzen sei nicht mehr aufzuhalten, die Freisetzung der Teile unvermeidlich. "Die Postmoderne beginnt dort, wo das Ganze -aufhrt" (ebd. 39).
- S
+aufhrt" (ebd. 39). + S SNun gibt es wenig Grnde, die Moderne vor der Kritik zu schtzen. Die meisten der gegen sie vorgetragenen Gravamina bestehen zu Recht. Es gibt aber auch keinen Grund, sich einem @@ -287,8 +287,8 @@ unberwindliche Hindernis fr die hegemonialen Tendenzen des konomischen Diskurses liege in der Heterogenitt der Satz- Regelsysteme, deutet jedoch genau in diese Richtung. Wer der zerstrerischen Gewalt der Moderne nur Stze entgegenzusetzen -hat, hat ihr schon nichts mehr entgegenzusetzen.
-S
+hat, hat ihr schon nichts mehr entgegenzusetzen. +S SSchlielich sind auch die Bundesgenossen, auf die sich der Postmodernismus glaubt sttzen zu knnen, alles andere als vertrauenerweckend. Es mag ja sein, da mit den Innovationen von @@ -303,8 +303,8 @@ Monopolanspruchs der Wissenschaft" oder als Anzeichen fr eine Beendigung der "Hegemonie szientifischer Orientierung" nehmen (Welsch 1988, 188, 222). Die Flexibilisierung der Wissenschaft und die Erweiterung ihres Methodenarsenals begrnden ihre -Expansion, nicht ihre Selbstlimitation.
-S
+Expansion, nicht ihre Selbstlimitation. +S SWie die Postmodernisten ihre eigenen Strke berschtzen, so unterschtzen sie die des Gegners. Die Rede von den groen Erzhlungen suggeriert, da Totalitt nichts weiter sei als eine @@ -340,8 +340,8 @@ herrschende Orientierung aus. Er sollte aber nicht die Illusion verbreiten, es handle sich um mehr als den Genu von Henkersmahlzeiten. Das Ende der Moderne wird nicht der Aufgang der Postmoderne sein, sondern das Ende der Welt, genauer: der -bewohnbaren Welt.
-S
+bewohnbaren Welt. +S SSo jedenfalls legt es die dialektische Denkbewegung nahe, die das Verhltnis von Erscheinen und Verschwinden ganz anders fat als der Postmodernismus. Whrend der letztere das Signum der @@ -373,8 +373,8 @@ Verwirklichungsform des Abstrakt-Allgemeinen (...). Diese Verkehrung, wodurch das Sinnlich-Konkrete nur als Erscheinungsform des Abstrakt-Allgemeinen, nicht das Abstrakt- Allgemeine umgekehrt als Eigenschaft des Konkreten gilt, -charakterisiert den Wertausdruck" (Marx 1867, 771).
-S
+charakterisiert den Wertausdruck" (Marx 1867, 771). +S SDiese Konzeption ist festzuhalten, weil sich nur mit ihrer Hilfe Einsicht in die komplizierte Architektur der modernen Gesellschaft gewinnen lt. Sie ist aber zugleich zu @@ -412,8 +412,8 @@ Ordnungen fhrte - und zwar deshalb, weil sich hinter dem Wesen 'Kapital' noch ein weit umfassenderes Wesen befand: die Menschheit. Was immer die Althusser-Schule an Gegenargumenten gebracht hat: Marx hat, soweit er Revolutionstheoretiker sein -wollte, den anthropologischen Diskurs niemals verlassen.
-S
+wollte, den anthropologischen Diskurs niemals verlassen. +S SDer anthropologische Diskurs aber macht blind. Er zwingt dazu, die Bewegung des Scheins als eine Scheinbewegung anzusehen und die mit ihr verbundenen Zerstrungen in Fortschritte umzudeuten. @@ -436,8 +436,8 @@ ist, knnte aber vielleicht dazu beitragen, das Tempo des Erscheinens (und damit auch: des Verschwindens) zu verlangsamen. Die Transformation der Anthropologie in Entropologie, wie sie Claude Lvi-Strauss schon vor langer Zeit gefordert hat, wre -dazu ein erster Schritt:
-S
+dazu ein erster Schritt: +S S"Die Welt hat ohne den Menschen begonnen und wird ohne ihn enden. Die Institutionen, die Sitten und Gebruche, die ich mein Leben lang gesammelt und zu verstehen versucht habe, sind die vergnglichen Blten einer Schpfung, im Verhltnis zu der sie keinen Sinn besitzen; sie erlauben bestenfalls der Menschheit, ihre Rolle im Rahmen dieser @@ -449,8 +449,8 @@ Tages endgltig sein wird. Seitdem der Mensch zu atmen und sich zu erhalten bego Feuers bis zur Erfindung der atomaren Vorrichtungen, hat er - auer wenn er sich fortgepflanzt hat - nichts anderes getan als Millionen von Strukturen zerstrt, die niemals mehr integriert werden knnen ... Statt Anthropologie sollte es Entropologie heien, der Name einer Disziplin, die sich damit beschftigt, den Proze der Desintegration in seinen -hchsten Erscheinungsformen zu untersuchen" (Lvi-Strauss 1970, 366f.).
-S
+hchsten Erscheinungsformen zu untersuchen" (Lvi-Strauss 1970, 366f.). +S SDie in diesem Band gesammelten Studien suchen die Mglickeit einer solchen dialektischen Entropologie auszuloten. Dies geschieht in einem eher indirekten Verfahren, das den neuerdings @@ -467,8 +467,8 @@ Wachstum und mehr Kommunikation mit dem Bruder Regenwurm: vom Erhabenen zum Lcherlichen, man wei es, ist nur ein Schritt. Die Kritische Theorie hatte gute Grnde, als sie sich weigerte, positiv zu werden und statt dessen darauf bestand, das Gemeinte -nur indirekt, auf dem Wege der Kritik, zur Sprache zu bringen.
-S
+nur indirekt, auf dem Wege der Kritik, zur Sprache zu bringen. +S SDie Kritik ist doppelgleisig angelegt. Auf der einen Seite verteidigt sie die Idee einer Gesellschaft des Verschwindens gegenber Konzeptionen, die den Proze der Modernisierung @@ -484,17 +484,17 @@ Entropie in Zusammenhang gebracht hat und deshalb als der bezeichnet worden ist - Friedrich Georg Jnger. Das Zentrum, um das die verschiedenen Studien kreisen, erschliet sich am leichtesten ber den Essay 'Technik und Wissenschaft als -Hierophanie'.
-S
- SPA
-SDie Entwicklungskurve der Zivilisation.
-SEine Auseinandersetzung mit Norbert Elias
-S
-S
-S
-S
-S
-S
+Hierophanie'. +S + SPA +SDie Entwicklungskurve der Zivilisation. +SEine Auseinandersetzung mit Norbert Elias +S +S +S +S +S +S SDa der historische Proze nicht blo aus isolierten Ereignissen und Bruchstcken besteht, sondern einen bergreifenden Sinn zur Erscheinung bringt, gehrt zu den ides directrices des @@ -526,8 +526,8 @@ capital" zu sprechen und als dessen Hauptmerkmal die Umwandlung der Produktion in ein "System der allgemeinen Ntzlichkeit" herauszustellen, "als dessen Trger die Wissenschaft selbst so gut erscheint wie alle physischen und geistigen Eigenschaften" -(MEW 42, 323).
-S
+(MEW 42, 323). +S SIm 20. Jh. ist der Chor der Skeptiker, die diese Selbstbeglckwnschung der Moderne nicht mehr akzeptieren, immer lauter geworden. Die Bedenken richten sich, wie in anderen @@ -559,8 +559,8 @@ der Hflichkeit, die selber eine gespielte Aufnahme, einen Ersatz der primitiven Gastfreundschaft darstellte, uert sich heute in einer virilen Form von Kontakt, die man 'Offenheit' nennt, und mag letzten Endes zum gewohnheitsmigen Austausch -schlechter Behandlung fhren" (Virilio 1978, 37).
-S
+schlechter Behandlung fhren" (Virilio 1978, 37). +S SOb diese Diagnosen richtig sind, wird sich sicher nur in sorgfltigen empirischen Untersuchungen erweisen lassen. Bis dahin aber, und vielleicht als Vorbereitung dazu, mag es @@ -573,16 +573,16 @@ Einwnde vorstellen, die sich heute, ein halbes Jahrhundert nach Erscheinen der ersten Auflage, aufdrngen. Abschlieend mchte ich die Frage errtern, ob der Zivilisationsbegriff in der ihm von Elias verliehenen Fassung ein Konzept ist, in dem sich die -Problemlage der modernen Gesellschaft reflektieren lt.
-S
-S
-S
-S
-S
-S
-AABI
-S
-S
+Problemlage der modernen Gesellschaft reflektieren lt. +S +S +S +S +S +S +AABI +S +S SElias' Untersuchung beginnt mit begriffsgeschichtlichen Erwgungen. Zivilisation, so der erste Befund, bedeutet im deutschen Sprachraum etwas anderes als in Westeuropa, namentlich @@ -600,8 +600,8 @@ unterschiedliche Dimensionen, die sich zuweilen zum antithetischen Gegensatz verschrfen. Der Westen, lautet ein wichtiger Glaubenssatz der deutschen Ideologie bis hin zu den 'Ideen von 1914', habe nur Zivilisation, wohingegen es die -Deutschen bis zur Kultur gebracht htten.
-S
+Deutschen bis zur Kultur gebracht htten. +S SDa Elias sich dafr entscheidet, die deutsche Version als Ausnahme zu behandeln und nicht weiter zu verfolgen, hngt mit seinen Vorstellungen ber die in der gesellschaftlichen @@ -626,8 +626,8 @@ stark auf die Integrationsebene, auf die Entstehung und Entwicklung jener Institutionen, die ber ein besonders hohes Steuerungspotential verfgen - die politischen Zentralorgane bzw., wie Elias mit Weber formuliert: die Monopolorganisationen -physischer Gewaltsamkeit.
-S
+physischer Gewaltsamkeit. +S SIn dieser Vorentscheidung auf analytischer Ebene liegt die Wurzel der regulativen Idee von Elias' Zivilisationstheorie, der "Vermutung..., da der Aufbau des 'zivilisierten' Verhaltens @@ -645,8 +645,8 @@ im Ausbau seiner zentralstaatlichen Institutionen mehr erlebte, ist aus diesem Grund fr die Untersuchung des Zivilisationsprozesses weniger geeignet als etwa Frankreich, in dem diese Institutionen eine kontinuierliche Verstrkung -erfuhren3.
-S
+erfuhren3. +S SDen Ausbau des Zentralstaates in Frankreich unterteilt Elias in drei Etappen. Die erste Etappe fllt zusammen mit der Bildung ritterlicher Hfe zu Beginn des Hochmittelalters, welche die bis @@ -665,8 +665,8 @@ ermglicht. Die funktionale Differenzierung beschleunigt sich und lt neue, auf Beruf und produktiver Leistung beruhende Eliten entstehen, die ihrerseits nach Partizipation an den Entscheidungen des obersten Koordinations- und -Regulierungsorgans streben.
-S
+Regulierungsorgans streben. +S SAus dieser Entwicklung geht - nach der Zwischenstufe einer 'erweiterten hfischen Gesellschaft', in der hfisch- aristokratische und hfisch-brgerliche Kreise miteinander @@ -681,14 +681,14 @@ und wird "zu einer Funktion des interdependenten Menschengeflechts als eines Ganzen", zu einem "ffentlichen" Monopol (II, 157). Darber hinaus zeichnen sich bereits Anstze zu einer vierten, endgltig letzten Phase der Gesamtentwicklung -ab:
-S
+ab: +S S"Man sieht die ersten Umrisse eines erdumfassenden Spannungssystems von Staatenbnden, von berstaatlichen Einheiten verschiedener Art, Vorspiele von Ausscheidungs- und Vormachtkmpfen ber die ganze Erde hin, Voraussetzung fr die Bildung eines irdischen Gewaltmonopols, eines politischen -Zentralinstituts der Erde und damit auch fr deren Pazifizierung" (II, 452).
-S
+Zentralinstituts der Erde und damit auch fr deren Pazifizierung" (II, 452). +S SDen hier nur knapp skizzierten Stadien der Zentralisierung ordnet Elias nun verschiedene Verhaltensmodelle oder -schemata zu, die gleichsam den subjektiven Niederschlag dieses Prozesses @@ -702,8 +702,8 @@ Ausbildung hfischer Manieren, die das gesellige Verhalten bei Tisch, beim Spiel oder im Turnier regeln, die Orientierung an ritterlichen Tugenden, wie sie vor allem von der Kirche (miles christianus-Ideal), aber auch von der weltlichen Dichtung -propagiert werden (Artusepik)4.
-S
+propagiert werden (Artusepik)4. +S SWhrend dieses Schema den Individuen jedoch noch uerlich bleibt und auerhalb des Interaktionszentrums 'Hof' rasch seine Wirkung verliert, verdichtet sich die soziale Kontrolle mit dem @@ -730,8 +730,8 @@ knnen; Takt, Delikatesse und Stil zu Formen, von denen das soziale berleben abhngen kann. Selbst- und Fremdbeobachtung erreichen eine bis dahin unbekannte Intensitt, die psychologische Kriegfhrung wird zur unentbehrlichen Waffe in -der Prestigekonkurrenz.
-S
+der Prestigekonkurrenz. +S SAuch dieses neue, im Vergleich zur courtoisie ungleich strengere Schema der Affektmodellierung ist jedoch nach Elias in der Psychostruktur noch nicht sehr fest verankert. Die Tabus und Rituale des hfischen Lebens treten dem einzelnen wohl als klar umrissene Imperative entgegen, die ihn zu einer permanenten berwachung seiner Affekte und Triebregungen @@ -747,8 +747,8 @@ bewuter aus gesellschaftlichen Grnden, Triebverzicht und Zurckhaltung auf. Un Ma entsprechen hier der sozialen Stellung dessen oder derer, denen gegenber er sie sich auferlegt" (I, 186). Im Stadium der civilit ist die gesellschaftliche Verflechtung schon so stark, um die einzelnen zur Anpassung zu zwingen, aber noch nicht stark genug, um die Einzelheit als solche zu negieren und in einen 'Verkehrsknotenpunkt des -Allgemeinen' (Horkheimer/Adorno) zu verwandeln.
-S
+Allgemeinen' (Horkheimer/Adorno) zu verwandeln. +S SWesentlich weiter in dieser Richtung geht das Schema der civilisation, das in der zweiten Hlfte des 18. Jhs. die civilit ablst (I, 47ff.). Getragen von den Reformgruppen des @@ -766,8 +766,8 @@ Nationen die auereuropische Welt unterworfen und okzidentalen Denk- und Verhaltensmustern assimiliert htten, seien zuvor im Abendland selbst die Unter- und Mittelschichten den Standards der Oberschichten unterworfen und assimiliert worden (II, 341, -346, 350, 420f.)
-S
+346, 350, 420f.) +S SDie Stabilisierung impliziert die Verfestigung der zivilisierten Verhaltensformen zu einem 'Panzer', der die ganze Persnlichkeit und jede ihrer uerungen umschliet (I, 332). Dies wird durch @@ -782,8 +782,8 @@ ein Teil der zurckgehaltenen Triebregungen und Neigungen ihm berhaupt nicht mehr unmittelbar zum Bewutsein kommt" (II, 329). In diesem Sinne erfllt das ber-Ich in der brgerlichen Gesellschaft die Steuerungsfunktionen, die in der hfischen -Gesellschaft noch dem Ich vorbehalten waren.
-S
+Gesellschaft noch dem Ich vorbehalten waren. +S SElias bersieht nicht die Unterschiede zwischen diesen beiden Formen der Steuerung. Im Rahmen seiner Konstruktion eines kontinuierlich verlaufenden Zivilisationsprozesses interpretiert @@ -805,13 +805,13 @@ erinnernde Schlupassage des Zivilisationsbuches, kann sich die Regelung der sozialen Beziehungen auf das rein sachlich Notwendige beschrnken, und knnen sich die Spannungen und Widersprche auch in den Menschen selbst mildern. Dann erst -braucht es nicht mehr die Ausnahme, sondern
-S
+braucht es nicht mehr die Ausnahme, sondern +S S"kann es die Regel sein, da der einzelne Mensch jenes optimale Gleichgewicht seiner Seele findet, das wir so oft mit groen Worten, wie 'Glck' und 'Freiheit' beschwren: ein dauerhaftes Gleichgewicht oder gar den Einklang zwischen seinen gesellschaftlichen Aufgaben, zwischen den gesamten Anforderungen seiner sozialen Existenz auf der einen Seite -und seinen persnlichen Neigungen und Bedrfnissen auf der anderen" (II, 454. Hervorh. i.O. gestr.).
-S
+und seinen persnlichen Neigungen und Bedrfnissen auf der anderen" (II, 454. Hervorh. i.O. gestr.). +S SDie groe Linie ist damit klar. Zivilisation ist fr Elias ein Proze, in dessen Verlauf sich immer strengere Schemata der Selbstkontrolle herausbilden und sowohl immer weitere @@ -829,38 +829,38 @@ Insgesamt sieht er aber diese Kosten mehr als aufgewogen durch die Distanzierungs- und Steuerungsgewinne, die dem einzelnen sowohl als der Gesellschaft in diesem Proze zuwachsen. Etwas vereinfacht lt sich dieser Proze in dem folgenden Schema -darstellen:
-S
-S
-S
-S
- AABSoziogenese Ritterlich Hfisch- Brgerlich ' Welt'-
- hfische absolu- indu- gesell-
- Gesell- tistische strielle schaft
- schaft Gesell- Gesell-
- schaft schaft
-
-
-
-Steuerungs- Feudalhof Absoluti- National- Weltstaat
-Zentrum stischer Staat
- Staat
-
-
-Verhaltens- courtoisie civilit civilisa- Weltzivi-
-Code tion lisation
-
-
-Psychogenese Es/Ich Ich-Domi- ber-Ich- Gleichge-
- (undiffe- nanz Dominanz wicht von
- ziert) Ich, Es,
- ber-Ich
-
-
- PA
-II
-S
-S
+darstellen: +S +S +S +S + AABSoziogenese Ritterlich Hfisch- Brgerlich ' Welt'- + hfische absolu- indu- gesell- + Gesell- tistische strielle schaft + schaft Gesell- Gesell- + schaft schaft + + + +Steuerungs- Feudalhof Absoluti- National- Weltstaat +Zentrum stischer Staat + Staat + + +Verhaltens- courtoisie civilit civilisa- Weltzivi- +Code tion lisation + + +Psychogenese Es/Ich Ich-Domi- ber-Ich- Gleichge- + (undiffe- nanz Dominanz wicht von + ziert) Ich, Es, + ber-Ich + + + PA +II +S +S AAF 1. Auch der voreingenommene Betrachter wird zugestehen, da Elias' Rekonstruktion des Zivilisationsprozesses groe Strken hat. Der figurationssoziologische Ansatz trgt politischen, konomischen und @@ -875,12 +875,12 @@ Glanzstcken des Buches gehrt die Herausarbeitung des Parallelismus von Soziogenese und Psychogenese, mit der gleichsam eine Brcke zwischen der Herrschaftssoziologie Webers, der Differenzierungstheorie in der Tradition Durkheims und Spencers und der Freudschen -Psychoanalyse geschlagen wird.
-
+Psychoanalyse geschlagen wird. + Dennoch drngen sich bei einer genaueren Betrachtung drei Einwnde auf, die zwar aus unterschiedlichen theoretischen Zusammenhngen -stammen, gleichwohl miteinander kompatibel sind6.
-
+stammen, gleichwohl miteinander kompatibel sind6. + Der erste Einwand ergibt sich aus der dialektischen Theorie und richtet sich gegen den soziogenetischen Strang der Zivilisationstheorie. Elias, so erscheint es aus dieser Sicht, hat nur @@ -896,14 +896,14 @@ gesteuert wird. Das, was ihre Arbeiten gesellschaftlich gelten, erfahren die - individuellen oder korporativen - Produzenten immer nur post festum, in der Besttigung ihrer Produkte als Wertgren, die erst nach Abschlu der Produktion, im Austausch, mglich ist. Hier -jedoch gilt,
-
+jedoch gilt, + "da die unabhngig voneinander betriebenen, aber als naturwchsige Glieder der gesellschaftlichen Teilung der Arbeit allseitig voneinander abhngigen Privatarbeiten fortwhrend auf ihr gesellschaftlich proportionelles Ma reduziert werden, weil sich in den zuflligen und stets schwankenden Austauschverhltnissen ihrer Produkte die zu deren Produktion gesellschaftlich notwendige Arbeitszeit als regelndes Naturgesetz gewaltsam durchsetzt, wie etwa das Gesetz der Schwere, wenn einem das Haus -ber dem Kopf zusammenpurzelt" (Marx, MEW 23, 89).
-AAF
+ber dem Kopf zusammenpurzelt" (Marx, MEW 23, 89). +AAF Unter diesen Umstnden ist es eine sehr verkrzte Betrachtungsweise, wenn man, wie Elias, Unberechenbarkeit und Willkr primr in der physischen Gewaltsamkeit lokalisiert und aus der @@ -925,8 +925,8 @@ vergit jedoch hinzuzufgen, da sich dieser Naturzustand unter brgerlichen Produktionsbedingungen in anderer Form wiederherstellt: gewhrleistet doch die Konkurrenz die Existenz der Individuen nur auf die Weise, "wie auch im Tierreich das bellum omnium contra omnes die -Existenzbedingungen aller Arten mehr oder minder erhlt" (ebd. 377).
-
+Existenzbedingungen aller Arten mehr oder minder erhlt" (ebd. 377). + Diese berlegung zwingt dazu, einen der Eckpfeiler von Elias' Konstruktion zu problematisieren: die Idee eines Kontinuums der Vergesellschaftung, das sich von der ritterlich-hfischen ber die @@ -950,8 +950,8 @@ Vereinzelungsproze in einer historisch ebenfalls beispiellosen Weise voran. Markt, das kann man nicht nachdrcklich genug hervorheben, aggregiert nicht nur, er disaggregiert auch; schafft nicht nur neue Verflechtungen, sondern negiert immer auch die Verflechtungen, die er -selbst erzeugt hat.
-
+selbst erzeugt hat. + Das lt sich bereits am Schicksal der kleinsten sozialen Einheit zeigen, in der Elias mit Recht das Konditionierungsinstrument der brgerlichen Gesellschaft par excellence sieht: der Kleinfamilie. @@ -972,17 +972,17 @@ Interessen ausfechten mssen. Die Fragmentierung und Atomisierung ergreift damit unwiderruflich auch jenen Bereich, der noch dem frhen, puritanischen Brgertum als ein so sicheres Fundament gegolten hatte, da es von ihm her die gesamte Gesellschaft erneuern zu knnen -geglaubt hatte.
-
+geglaubt hatte. + "In dem zu Ende gedachten Marktmodell der Moderne wird die familien- und ehelose Gesellschaft unterstellt. Jeder mu selbstndig, frei fr die Erfordernisse des Marktes sein, um seine konomische Existenz zu sichern. Das Marktsubjekt ist in letzter Konsequenz das alleinstehende, nicht partnerschafts-, ehe- oder familien'behinderte' Individuum. Entsprechend ist die durchgesetzte Marktgesellschaft auch eine kinderlose Gesellschaft - es sei denn, die Kinder wachsen bei mobilen, -alleinerziehenden Vtern und Mttern auf" (Beck 1986, 191).
-AAF
+alleinerziehenden Vtern und Mttern auf" (Beck 1986, 191). +AAF Man mu nur einen Blick auf die Geburtenrate in der Bundesrepublik -werfen, um sich vom Realittsgehalt dieser berlegungen zu berzeugen.
-
+werfen, um sich vom Realittsgehalt dieser berlegungen zu berzeugen. + hnliche Dekompositionserscheinungen zeigen sich auch an komplexeren sozialen Aggregaten, die einmal die Struktur der brgerlichen Industriegesellschaft prgten. Insbesondere der @@ -1011,8 +1011,8 @@ Individuen in zunehmendem Mae auf sich selbst zurckgeworfen werden. Soziale Klassen, urteilt Luhmann zutreffend, sind heute Schichten, "die darauf verzichten mssen, Interaktion zu regulieren" (Luhmann 1985c, 131; zur Diskussion ber den Klassenbegriff vgl. auch Ritsert -1987).
-
+1987). + Vielleicht mu man noch einen Schritt weitergehen und von einer Erosion der fr die soziale Identittsbildung konstitutiven Sphre der ffentlichkeit schlechthin sprechen. Fr Elias steht eine derartige @@ -1051,8 +1051,8 @@ wenn Sennetts Ursachenerforschung mit dem Hinweis auf Erscheinungen wie Skularismus und Symbolismus etwas bla ausfllt und in ihren historischen Partien nicht durchweg zu berzeugen vermag, sollte die Erfahrung mit den Massenbewegungen dieses Jahrhunderts Anla genug -sein, seine Hypothesen nicht auf die leichte Schulter zu nehmen8.
-
+sein, seine Hypothesen nicht auf die leichte Schulter zu nehmen8. + Die Entwicklung der modernen Gesellschaft, dies kann als Resmee des 'dialektischen' Einwands gegen die Zivilisationstheorie festgehalten werden, lt sich nicht einfach unter dem Gesichtspunkt @@ -1084,10 +1084,10 @@ der funktionalen Differenzierung nie ganz aus dem Blickfeld geriet. Bedenkt man, da 'ber den Proze der Zivilisation' in unmittelbarer Zeitgenossenschaft mit der grten Krise der modernen Weltwirtschaftsordnung entstand, kann man sich ber diesen -Reflexionsverlust nicht genug wundern.
-
-
-
+Reflexionsverlust nicht genug wundern. + + + 2. Diese Kritik wird durch den zweiten Einwand erhrtet, der sich aus dem Gang der psychoanalytischen Theoriebildung ableiten lt. Die Integration Freudscher Begriffe, insbesondere des Strukturmodells des @@ -1105,8 +1105,8 @@ auch deutlich zu machen, zu welch neuartigem Ergebnis diese Vernderungen fhren: einem Sozialcharakter, der durch eine bisher nicht dagewesene Differenzierung zwischen Ich- und ber-Ich-Funktionen auf der einen und Triebfunktionen auf der anderen Seite gekennzeichnet -ist (vgl. II, 390f.; 1987, 85).
-
+ist (vgl. II, 390f.; 1987, 85). + Diese Einsichten fhren Elias jedoch nicht zu einer Revision seiner These vom zivilisatorischen Kontinuum. Im Gegenteil. Wie der brgerliche Nationalstaat ihm nur als Steigerungsform der mit dem @@ -1129,8 +1129,8 @@ aristokratischen Charakter in nuce bereits angelegt waren. Und er besitzt dieses Mehr hauptschlich deshalb, weil die brgerliche, familial vermittelte Erziehung einen erfolgreichen Weg gefunden hat, um die soziale Kontrolle in das Individuum hineinzuverlagern: die -Verinnerlichung.
-
+Verinnerlichung. + Aus psychoanalytischer Sicht kann man diese Auffassung nur als sehr selektiv bezeichnen (Lasch 1985, 712ff.). Da die Verinnerlichung ein bedeutendes Mittel der zivilisatorischen bzw. kulturellen @@ -1154,8 +1154,8 @@ Libidoschicksale des Es. Durch seine Aufrichtung hat sich das Ich des dipuskomplexes bemchtigt und gleichzeitig sich selbst dem Es unterworfen. Whrend das Ich wesentlich Reprsentant der Auenwelt, der Realitt ist, tritt ihm das ber-Ich als Anwalt der Innenwelt, des -Es gegenber" (Freud III, 3O3).
-
+Es gegenber" (Freud III, 3O3). + Diese Aussage bedarf einer kurzen Erluterung. Freud teilt mit Elias die Auffassung, da das ber-Ich im einzelnen die gesellschaftliche Allgemeinheit vertritt und damit als Conditio sine @@ -1179,8 +1179,8 @@ Energien, namentlich die Kastrations- und Todeswnsche gegen den Komponenten des ber-Ichs (Freud III, 304). Die sozialisierende Leistung des ber-Ichs ruht somit triebkonomisch gesehen auf einem asozialen, ja antisozialen Fundament: der Aggression, die gleichsam -nur von auen nach innen umgelenkt wird.
-
+nur von auen nach innen umgelenkt wird. + Diese Zusammenzwingung zweier entgegengesetzter Tendenzen fhrt nach Freud zu einer uerst labilen Konstellation. Schon in 'Das Ich und das Es' notiert er, da je mehr ein Mensch seine Aggression nach @@ -1206,8 +1206,8 @@ und der Druck des Verdrngten auf das Ich (vgl. Freud IX, 258f.). Da der Mensch jemals jenes "optimale Gleichgewicht seiner Seele" finden knnte, wie Elias dies fr den vollendeten Zivilisationsproze in Aussicht stellt, mu nach Freud als eine naive Utopie angesehen -werden.
-
+werden. + Es ist bekannt, da Freud trotz dieser dsteren Perspektive dem Ich noch gengend Kraft zutraute, um - notfalls mit Untersttzung der Psychoanalyse - der Wiederkehr des Verdrngten standzuhalten. Und es @@ -1220,8 +1220,8 @@ des Sozialen, so kann man zugespitzt formulieren, erfolgt im Freudschen Modell auf einer Stufe, auf der das Ich bereits eine solche Strke erreicht hat, da es seine unterschiedlichen Phantasien, Wnsche und Objektbeziehungen zu einem kohrenten Funktionssystem zu -integrieren vermag (vgl. Jacobson 1978, 136ff.)
-
+integrieren vermag (vgl. Jacobson 1978, 136ff.) + Dieses Modell ist durch den Fortschritt der psychoanalytischen Erkenntnis nach Freud sowohl auf individual- wie auf sozialpsychologischer Ebene relativiert worden. Auf @@ -1246,8 +1246,8 @@ der narzitischen Energien von archaischen Objekten wie dem Gren- Selbst und den idealisierten Eltern-Imagines (Kohut 1976; Kernberg 1978). Freuds Vorstellungen erwiesen sich vor diesem Hintergrund nicht als falsch, wohl aber als zu stark auf die vterliche Intervention in -der dipalen Phase fixiert.
-
+der dipalen Phase fixiert. + Noch weiter relativiert wurden diese Vorstellungen durch die psychoanalytisch orientierte Sozialpsychologie, die mit plausiblen Argumenten auf den Klassencharakter und die Historizitt der von Freud @@ -1259,8 +1259,8 @@ die Zwnge der brgerlichen Kleinfamilie mit ihrer scharfen Rollentrennung. Historizitt: denn dieser Familientypus kann angesichts vernderter Arbeitsbedingungen und Geschlechtsrollenzuweisungen als kulturell nicht mehr so bestimmend -wie noch zu Freuds Zeiten angesehen werden.
-
+wie noch zu Freuds Zeiten angesehen werden. + Dafr sind viele Ursachen verantwortlich, die hier nur angedeutet werden knnen: die 'Entwertung all der Eigenschaften, die einmal die Vaterkultur getragen haben' (Mitscherlich), in erster Linie der @@ -1278,8 +1278,8 @@ Person vollzog, scheint vorber zu sein. "Die unterdrckende Trieborganisation scheint kollektiv, und das Ich durch ein ganzes System extrafamilialer Einrichtungen und deren Vertreter vorzeitig sozialisiert zu sein" (Marcuse 1967, 98; vgl. Mitscherlich 1968, -185ff., 310ff.; Lasch 1986, 179ff.).
-
+185ff., 310ff.; Lasch 1986, 179ff.). + Da Marcuse hier von vorzeitiger Sozialisierung spricht, meint nicht mehr und nicht weniger, als da der Zugriff des Ganzen auf das Individuum zu einem Zeitpunkt erfolgt, in dem der psychosexuelle @@ -1292,14 +1292,14 @@ und ber-Ich-Strukturen nur ein vermindertes Quantum zur Verfgung steht. Die Folge ist, da die frhkindliche Entwicklung gar nicht mehr bis zum entscheidenden dipalen Konflikt gelangt, was wiederum zugleich bedeutet, da die prdipalen, archaischen Anteile des ber- -Ichs gegenber den dipalen ein bergewicht erlangen.
-
+Ichs gegenber den dipalen ein bergewicht erlangen. + "So haben wir heute das folgende Problem: die hemmende, kontrollierende und leitende Funktion des berichs, die heute weitgehend mit der des Ichs zusammenfllt, ist durch die Schwche der Eltern, die nachgiebige Erziehung und das gesellschaftliche Klima abgeschwcht. Die sexuellen und aggressiven Triebe halten sich immer weniger an Regeln. Aber wir haben immer noch das strengere berich aus der frhen Kindheit, das in der Tiefe des Individuums fortlebt. Daraus resultieren Unruhe, -Unbehagen, depressive Verstimmungen und Sucht nach Ersatzbefriedigungen"10.
-AAF
+Unbehagen, depressive Verstimmungen und Sucht nach Ersatzbefriedigungen"10. +AAF Auch fr die Psyche gilt damit, was wir bereits fr die soziogenetische Ebene festgestellt haben: da Vergesellschaftung unter Marktbedingungen ein hchst paradoxer Vorgang ist. Verglichen mit @@ -1323,10 +1323,10 @@ entsprang, schlgt damit in ihr Gegenteil um: in die Wiedererzeugung des Archaischen "in der Zivilisation durch die Zivilisation selbst" (Adorno 1971, 42). Es spricht gegen die Zivilisationstheorie von Elias, da sie noch nicht einmal die Mglichkeit einer derartigen -Entwicklung errtert11.
-
-
-
+Entwicklung errtert11. + + + 3. Der letzte hier zu diskutierende Einwand stammt aus der Systemtheorie und besagt, da Elias dem Unterschied zwischen Interaktions-, Organisations- und Gesellschaftssystemen nicht gengend @@ -1353,8 +1353,8 @@ auch interaktionsfreie Handlungen wie z.B. schriftliche Kommunikation ein, grenzt das Soziale vom Nichtsozialen ab und ermglicht die Ausdifferenzierung von Subsystemen, die auf bestimmte, nur ihnen zurechenbare Funktionen spezialisiert sind (Luhmann 1974, 143; 1982, -11f.).
-
+11f.). + Mit dieser Unterscheidung verbindet Luhmann eine evolutionre Perspektive. Obwohl keine Gesellschaft jemals ganz in Interaktionen aufgeht, gilt doch fr archaische Gesellschaften, in denen die @@ -1367,8 +1367,8 @@ dem diese Gesellschaften gegliedert sind, hat zur Folge, da die Gesellschaft als Ganze durch das Kontaktnetz der Oberschicht reprsentiert und symbolisiert wird. Oberschichteninteraktion kann deshalb als Integrationmodus stratifizierter Gesellschaften angesehen -werden (Luhmann 1980, 84).
-
+werden (Luhmann 1980, 84). + In der modernen Gesellschaft dagegen, die auf voll durchgefhrter funktionaler Differenzierung beruht, kommt dem Interaktionssystem keine integrative Aufgabe mehr zu. Wohl bleibt Interaktion eine @@ -1378,16 +1378,16 @@ Delegation grundlegender Funktionen an Subsysteme, mit der Entstehung ausgedehnter Organisationssysteme und nicht zuletzt mit der Erweiterung zur Weltgesellschaft so komplex und berpersnlich geworden, da sie sich durch Interaktion nicht mehr reprsentieren, -geschweige denn bewltigen lt.
-
+geschweige denn bewltigen lt. + "Die Gesellschaft ist, obwohl weitgehend aus Interaktionen bestehend, fr Interaktion unzugnglich geworden. Keine Interaktion, wie immer hochgestellt die beteiligten Personen sein mgen, kann in Anspruch nehmen, reprsentativ zu sein fr Gesellschaft. Es gibt infolgedessen keine 'gute Gesellschaft' mehr. Die in der Interaktion zugnglichen Erfahrungsrume vermitteln nicht mehr das gesellschaftlich notwendige Wissen, sie fhren wohlmglich systematisch in die Irre. Auch die Interaktionsfelder, die sich unter irgendwelchen Gesichtspunkten zusammenfgen und aggregieren lassen, lenken die Aufmerksamkeit uerstenfalls auf Funktionssysteme, vielleicht auch auf regionale Abgrenzungen (Nationen), nicht aber auf das umfassende System -gesellschaftlicher Kommunikation" (Luhmann 1985, 585).
-AAF
+gesellschaftlicher Kommunikation" (Luhmann 1985, 585). +AAF Im gleichen Mae, wie die Interaktion an gesamtgesellschaftlicher Relevanz verliert, schiebt sich die Organisation in den Vordergrund. Dieselben Prozesse, die zur Auseinanderziehung der Systemebenen von @@ -1402,8 +1402,8 @@ Besonderheiten: der Engfhrung von Kommunikation auf Entscheidungen und Verknpfungen von Entscheidungen; der Bindung an Weisungsketten, mterhierarchien und Kontrollmechanismen; der Unterwerfung unter programmierte Ziele und Strategien; der Entlastung von moralischen -Erwgungen und gesamtgesellschaftlichen Reflexionen.
-
+Erwgungen und gesamtgesellschaftlichen Reflexionen. + Allerdings bedeutet diese unbestreitbare Expansion von Organisationen und organisationsspezifischen Verhaltensmustern nicht, da sich die Gesellschaft in ein einheitliches Organisationssystem @@ -1420,8 +1420,8 @@ Organisierte Sozialsysteme mgen der Rahmen sein, in dem sich ein groer, wenn nicht der grte Teil des sozialen Alltagshandelns vollzieht. Zu einer Megaorganisation, in der die Unterscheidung von Gesellschaftssystem und Organisationssystem hinfllig wrde, fgen sie -sich nicht.
-
+sich nicht. + Im Lichte dieser Unterscheidungen liegt der Grundmangel der Zivilisationstheorie in der Totalisierung von Verhaltensformen, die fr Interaktionssysteme typisch sind. Diese Totalisierung ist @@ -1442,8 +1442,8 @@ haben (II, 416; 1975, 144f., 172ff.). Der Proze der Zivilisation, lautet eine mehrfach wiederholte Kernthese, vollzieht sich "ohne Bruch", "in einer immer intensiveren Ausbreitungsbewegung", die mit der Bildung eines hfischen Sozialcharakters beginnt und - vorerst - -mit einem von diesem abgeleiteten Nationalcharakter endet (I, 43f.).
-
+mit einem von diesem abgeleiteten Nationalcharakter endet (I, 43f.). + Die Behauptung aber, da die "hfisch-aristokratische Menschenmodellierung (...) in dieser oder jener Form in die berufsbrgerliche ein(mndet) und (...) in ihr aufgehoben @@ -1460,8 +1460,8 @@ Aneignung des kulturellen Erbes gefhrt, sondern auch dessen Verbindlichkeit aufgelst und dessen Homogenitt zerstrt12, und so resultiert denn auch die Aufhebung des Privilegs nicht in der Verallgemeinerung der in der Oberschicht geltenden Codes, sondern -allenfalls in deren Musealisierung.
-
+allenfalls in deren Musealisierung. + Luhmann zufolge ist diese Entwicklung unausweichlich, denn erstens verliert die Oberschichteninteraktion mit zunehmender Ausdifferenzierung von Subsystemen ihren Reprsentationscharakter - @@ -1481,8 +1481,8 @@ konzentrieren, in denen sich Rang und Ehre, Achtung oder Miachtung dokumentierten. Wenn Zivilisation darin besteht, da man dem Umweg vor der Abkrzung, der indirekten Aktion vor der direkten den Vorzug gibt, so setzt sie eine Ordnung voraus, die wenigstens ber ein Gut im -berflu verfgt: Zeit.
-
+berflu verfgt: Zeit. + Organisierte Sozialsysteme indes, wie sie in der berufsbrgerlichen Gesellschaft dominieren, beruhen auf der systematischen Verknappung von Zeit. In ihnen geht es, wie man nicht @@ -1506,8 +1506,8 @@ Geselligkeit und galante Konversation, Zivilisierung der Gesten und der Sprache, Takt und Respekt, alle diese Formen erweisen sich heute als Oberschichtenphnomene, die "nach der Auflsung der stratifizierten Gesellschaftsordnung jedenfalls nicht als -Kultiviertheitserwartung fortgesetzt werden"14.
-
+Kultiviertheitserwartung fortgesetzt werden"14. + Nicht da sie vllig verschwnden. Distinktionsstrategien spielen auch heute noch eine wichtige Rolle im gesellschaftlichen Leben, vom ehemaligen Adel ber die Bildungseliten bis hinab zur Unterwelt @@ -1519,16 +1519,16 @@ jener zeitgenssischen Architektur angleicht, die das Ornament zum Verbrechen erklrte (A.Loos). Zeitkonomie und Zivilisation schlieen einander aus. Wer diesen Gegensatz verleugnet und auch fr die Gegenwart noch am Zivilisationsbegriff festhalten will, mu daraus -alle Inhalte tilgen, die einmal mit Zivilisiertheit verbunden waren.
- - - - - - - - - +alle Inhalte tilgen, die einmal mit Zivilisiertheit verbunden waren. + + + + + + + + + Anhngern nicht gnzlich entgangen. Besonders Cas Wouters hat sich ihnen gestellt und einen Trend zur Informalisierung diagnostiziert, @@ -1570,16 +1570,16 @@ dort, wo es auf keine Schranken mehr stt, den Impulsen seiner jeweiligen emotionalen Befindlichkeit folgt (Gerhards 1988, 237f.). Wie dnn dabei die Linie ist, die die psychische von der physischen Inkontinenz trennt, wei jeder, der die ffentlichen Verkehrsmittel in -Grostdten benutzt.
- - - - - - - - - +Grostdten benutzt. + + + + + + + + + eine hfische Zivilisation im Abendland gab und da Norbert Elias ihr Theoretiker ist. Ich bezweifle auch nicht, da diese hfische @@ -1598,8 +1598,8 @@ vordringenden Schichten aber mit zweifachem Besitzstand die Gesellschaft reprsentieren werden" (Kraus 1916, 7). Schlielich ist auch unbestritten, da es in der Neuzeit eine weitausgreifende Affektmodellierung gegeben hat, in die immer weitere Schichten -einbezogen wurden.
- +einbezogen wurden. + "evolutionr wirkende Kontinuitt des Zivilisationsbegriffs" behauptet und die Geschichte der hfischen Affektmodellierung zur "Vorgeschichte @@ -1630,16 +1630,16 @@ kontrolle, die fr diese Schichten mageblich sind, resultieren aus den Zwngen dieser Welt, nicht aus den Vorgaben der Oberschichtenkommunikation; Zivilisierung ist keine Bewegung von oben nach unten, die immer noch andauert, sondern eine Bewegung, die die -Kluft zwischen oben und unten zu zementieren trachtet:
- +Kluft zwischen oben und unten zu zementieren trachtet: + Mechanismus zur Nivellierung der Unterschiede. Er bringt im Gegenteil verschiedenartige Wesen hervor, die auf verschiedenen Stufen der soziokulturellen Hierarchie angesiedelt sind. Diese Menschen - das gilt selbst noch fr das Ende des Ancien Rgime - sind durchaus nicht aus einem Stck gemacht, sondern fgen sich in Gesellschaftsschichten ein, die unterschiedliche Verhaltensstrnge und gegenstzliche konomische Entwicklungen beerben. Mit anderen Worten, nichts wre verfehlter, als die Entwicklung der Mentalitten vom ausgehenden Mittelalter bis zur Revolution als eine Art unbestimmten Gesamtfortschritt darzustellen, dem sich die -einzelnen Gruppen dann mehr oder weniger vollkommen anpaten" (Muchembled 1990, 184).
- +einzelnen Gruppen dann mehr oder weniger vollkommen anpaten" (Muchembled 1990, 184). + Rhythmus durch die Ausdifferenzierung neuer, eigengesetzlicher Funktionssysteme und Organisationen bestimmt wird. Jeder dieser Schbe @@ -1663,8 +1663,8 @@ Selbstkontrolle, Takt, 'taking the role of the other', das Spiel mit dem Schein und nicht zuletzt auch die Technik der Simulation, die dem protestantischen Kleinbrger als Unaufrichtigkeit erscheinen mag, in Wirklichkeit aber die Fhigkeit bedeutet, die anderen mit der Last des -eigenen Selbst zu verschonen (Sennett 1983, 299).
- +eigenen Selbst zu verschonen (Sennett 1983, 299). + der Zivilisation. Sie verallgemeinert keineswegs die Formen, die in der hfischen Zivilisation auf einen kleinen Kreis von Privilegierten @@ -1706,8 +1706,8 @@ Partylrm damit rechnen mu, erschossen, erstochen oder zusammengeschlagen zu werden, ist von der Zivilisation noch immer genau so weit entfernt wie der von Hobbes beschriebene Kriegszustand, "which is worst of all, continual fear, and danger of violent death; -and the life of man, solitary, poor, nasty, brutish, and short"15.
- +and the life of man, solitary, poor, nasty, brutish, and short"15. + Leitbegriff der Zivilisationstheorie zu revidieren. Anstatt in ihm nach dem Vorbild der franzsischen Aufklrung zwei nur zufllig- @@ -1723,20 +1723,20 @@ solche Eingrenzung htte jedenfalls den Vorzug, da sie uns deutlicher als Elias die Vergnglichkeit der Bedingungen vor Augen fhrte, an die Zivilisation nun einmal gebunden ist, und sie knnte es vielleicht ermglichen, die Theorie der Zivilisierung durch die lngst -berfllige Theorie der Entzivilisierung zu ergnzen.
- +berfllige Theorie der Entzivilisierung zu ergnzen. + keine Rcksicht halten, auch als bloe Spiel-Form nicht. - Und ebenso schrumpft in einer Welt, die uns um Mue und die anderen - Bedingungen des Privaten betrgt, die Subtilitt unseres seelischen Privatlebens" (Anders 1986, 13).
- - - - - - - - - + Bedingungen des Privaten betrgt, die Subtilitt unseres seelischen Privatlebens" (Anders 1986, 13). + + + + + + + + + Zivilisation, so wre dazu kaum etwas geeigneter als das Konzept der Disziplinargesellschaft, das Michel Foucault in den siebziger Jahren @@ -1757,8 +1757,8 @@ nietzscheanisches Credo, "schreitet nicht langsam von Kampf zu Kampf bis zu einer universellen Gegenseitigkeit fort, worin die Regeln sich fr immer dem Krieg substituieren; sie verankert alle ihre Gewaltsamkeiten in Regelsystemen und bewegt sich von Herrschaft zu -Herrschaft" (1974, 95).
- +Herrschaft" (1974, 95). + nicht mehr zu berblicken. Vieles davon ist Einfhrung oder Paraphrase und wird so schnell vergessen werden, wie es geschrieben wurde17 . @@ -1768,16 +1768,16 @@ formuliert haben, da sich dessen einfache Fortschreibung oder Kanonisierung verbietet. Ich werde zunchst Foucaults Grundgedanken knapp skizzieren, danach die wichtigsten Gegenargumente prsentieren und anschlieend errtern, inwieweit die Theorie der -Disziplinargesellschaft noch zu halten ist.
- - - - - - - - - +Disziplinargesellschaft noch zu halten ist. + + + + + + + + + Genealogie der Disziplin religisen Faktoren ein erhebliches Gewicht zu. Schon der vorchristliche, vor allem aber der christliche Orient @@ -1793,8 +1793,8 @@ habe, sei jene doppelte Bedeutung von 'Subjektivierung' entsprungen, die seither das Abendland bestimmt habe: Subjektivierung im Sinne einer Unterwerfung unter Kontrolle und Abhngigkeit und Subjektivierung im Sinne einer Bindung an die eigene Identitt qua -Bewutsein und Selbsterkenntnis (1987, 247f.)
- +Bewutsein und Selbsterkenntnis (1987, 247f.) + nur geringe Aufmerksamkeit. Weitaus intensiver befat er sich dagegen mit dem eigentlichen Formierungsstadium, das er auf das 17. und 18. @@ -1817,8 +1817,8 @@ Produktionsapparate und dem demographischen Wachstumsschub des 18. Jhs. verbreitern und vervielfachen sich die Konfliktlinien und lassen dadurch die klassische, auf der Veranstaltung exemplarischer Straffeste beruhende Souvernitts- und Abschreckungsmacht zunehmend -unwirksam werden (1976, 110, 280).
- +unwirksam werden (1976, 110, 280). + engen Rahmen herauswchst, in den sie durch die Institutionen der Monarchie gebannt war, ist die Zeit, in der neue Verfahren und @@ -1827,8 +1827,8 @@ dem Recht, sondern mit der Technik arbeiten, nicht mit dem Gesetz, sondern mit der Normalisierung, nicht mit der Strafe, sondern mit der Kontrolle, und die sich auf Ebenen und in Formen vollziehen, die ber den Staat und seine Apparate hinausgehen" (1977, 110f.). Welche -Verfahren sind hier gemeint?
- +Verfahren sind hier gemeint? + Ancien Rgime beginnen sich Forderungen der Aufklrer nach Humanisierung des Strafrechts und konomisierung der Strafgewalt in @@ -1850,8 +1850,8 @@ perfekteres System der sozialen Kontrolle. Richter und Anklger, eingeschlossen, dessen Sinn nicht in der schreckenerregenden Wiederherstellung der Souvernitt, sondern in der Wiederinkraftsetzung des Strafgesetzbuches bestehen soll (1976, 113, -141).
- +141). + Definition schuldig bleibt, meint im wesentlichen folgendes: Auf der einen Seite haben wir es mit einer Kodifizierung und Rationalisierung @@ -1871,8 +1871,8 @@ Korrelierung dokumentierbar wird. Durch die vielfltigen Praktiken der berwachung und Kontrolle, der Einstufung und der Zuordnung bildet sich, was Foucault als die andere, "dunkle" Seite des Rechtssubjekts bezeichnet: das "Disziplinarindividuum", das von den neuen -Machttechniken fabriziert wird (1976, 396).
- +Machttechniken fabriziert wird (1976, 396). + Strafjustiz. Foucault sprt sie auf in der neuen Einstellung der Gesellschaft gegenber dem Wahnsinn, welcher ausgegrenzt, interniert @@ -1892,8 +1892,8 @@ Verdichtung der Diskurse und Identifikationsmechanismen, die allesamt nur das eine Ziel haben: die Herstellung des durchschaubaren und damit kontrollierbaren Individuums. "Die 'Aufklrung', welche die Freiheiten entdeckt hat", schreibt Foucault, "hat auch die Disziplinen erfunden" -(1976, 285).
- +(1976, 285). + eng aufgefat werden. Sie darf, erstens, nicht allein auf die Implementierung eines bestimmten Diskurstyps reduziert werden, denn @@ -1920,8 +1920,8 @@ Wirkungen der Macht immer negativ zu beschreiben, als ob sie nur 'abstrahieren', 'maskieren', 'verschleiern' wrde. In Wirklichkeit ist die Macht produktiv; und sie produziert Gegenstandsbereiche und Wahrheitsrituale: das Individuum und seine Erkenntnis sind Ergebnisse -dieser Produktion" (1976, 250).
- +dieser Produktion" (1976, 250). + Macht in der modernen Form des Gefngnisses, wie sie seit 1830 unter dem Einflu von Benthams 'Panopticon' (1787) Gestalt gewinnt. Als eine @@ -1945,8 +1945,8 @@ Foucault zufolge um 1840, dem Erffnungsjahr der Jugendstrafanstalt von Mettray, vollstndig ausgebildet ist, enthlt in gebndelter und konzentrierter Form all jene Mechanismen der Normalisierung und Disziplinierung, die seither zu Strukturmerkmalen der -Disziplinargesellschaft geworden sind.
- +Disziplinargesellschaft geworden sind. + Ausdehnung und Erweiterung: vom 'Kerker-System' der Gefngnisse und geschlossenen Anstalten zu dem, was Foucault den 'Kerker-Archipel' @@ -1970,15 +1970,15 @@ Formen der Regulierung ber, deren Hauptziel in einer Steigerung der Funktionen liegt; und dieses Ziel wird zunehmend nicht nur mittels der rigiden Anpassung der Individuen an die Norm erreicht, sondern ebensosehr durch Anpassung der Norm an die individuellen Bedingungen -durch die Verfahren der modernen Humanwissenschaften:
- +durch die Verfahren der modernen Humanwissenschaften: + Beziehungen ihre Vollendung: Diese verluft von der Teilung der Welt zur Herstellung der Welt; diese wiederum vom Traum einer mechanischen Imitation der Welt (durch Gesetze) zu dem einer Erzeugung von Organismen, von der Objektivierung der Welt auf die Individuierung der Menschen. Der Akzent der Individuierung selbst wird dabei von der objektivierenden Kontrolle der Einzelnen zur subjektivierenden Selbststeuerung und zur Manipulation von Gruppen verlagert. Der Vernderung der Gegenstandsbereiche -entspricht die der Machttechniken, die Entwicklung von der Gewaltrationalitt zur Testwissenschaft" (Dauk 1989, 131).
- +entspricht die der Machttechniken, die Entwicklung von der Gewaltrationalitt zur Testwissenschaft" (Dauk 1989, 131). + Subsumtion der Gesellschaft oder eines Teils derselben unter ein vorab feststehendes Schema, sondern weit eher der Zirkel von Manipulation @@ -1993,16 +1993,16 @@ gegenber Kant, wenn auch unter ganz anderen Voraussetzungen, vollzogen hat. Wie wir sehen werden, rhren die Schwchen der Theorie der Disziplinargesellschaft zu einem nicht geringen Teil aus der Weigerung Foucaults, daraus die ntigen kategorialen Konsequenzen zu -ziehen.
- - - - - - - - - +ziehen. + + + + + + + + + hervorgerufen hat, empfiehlt es sich, noch fr einen Augenblick bei den Beziehungen zu verweilen, die sich zu hnlich gelagerten @@ -2016,8 +2016,8 @@ Behandlung der Manufaktur, Berhrungspunkte zu Marx auf, ferner zu Elias, zu Oestreichs Theorie der 'Sozialdisziplinierung' und nicht zuletzt zum kritischen Marxismus von Lukcs bis Adorno, dessen Zentralthema die Beziehung zwischen Warenform, Rationalisierung und -Disziplinierung war18.
- +Disziplinierung war18. + teils schlicht aus Unkenntnis, wie er selbstkritisch mit Bezug auf die Kritische Theorie gesteht (1983), teils in bewuter Abgrenzung von @@ -2037,8 +2037,8 @@ antithetische Fixierung auf diesen Subjektivismus, da er die Mglichkeit einer nichtsubjektivistischen, um eine Theorie der gesellschaftlichen Synthesis zentrierten 'globalen Geschichte', wie sie in den oben erwhnten Arbeiten durchaus angelegt ist, an keiner -Stelle in Erwgung zieht.
- +Stelle in Erwgung zieht. + zu fllen. Macht, im Nietzscheschen Sinne eines lebensphilosophisch- ontologisch verstandenen 'Willens zur Macht', avanciert fr ihn zum @@ -2068,8 +2068,8 @@ Gegenkrften; und in erstarrter, blockierter Form, in der sich die Macht zur 'Herrschaft' verfestigt hat (ebd. 38; 1985, 11). Man fhlt sich an die Metaphysik Heraklits erinnert - freilich an eine Version, in der der Logos nicht lnger Harmonie stiftet, sondern selbst zu -einer Funktion des Kampfes geworden ist.
- +einer Funktion des Kampfes geworden ist. + Konzept der Disziplinargesellschaft angreifbar gemacht. Die Kritik richtet sich vor allem gegen den Reduktionismus, der dieses Konzept @@ -2100,8 +2100,8 @@ dargelegt (Habermas 1985, 327; Fink-Eitel 1980, 67f.; Bambach 1984; Taylor 1984). Weder fr die Eigenart normativer noch fr diejenige kognitiver Mechanismen, so lt sich die Kritik resmieren, hat die Machttheorie einen angemessenen Raum. Sie ist deshalb ungeeignet, die -Komplexitt moderner Gesellschaften zu erfassen.
- +Komplexitt moderner Gesellschaften zu erfassen. + Mechanismen zuerst zu sprechen, so ist Foucault zwar zuzugeben, da eine ganze Reihe von Diskursen in der frhen Neuzeit mit politischen @@ -2118,8 +2118,8 @@ und namentlich in einigen kontinental-europischen Lndern zu einer weitreichenden Militarisierung und Brokratisierung fhrte, aus der der well-ordered police state des 17. und 18. Jhs. mit seiner Politik der Sozialdisziplinierung hervorging (Raeff 1983; Rassem 1983; Schulze -1987).
- +1987). + vermittelte politische Rationalisierung und deren Ausgreifen auf die unterschiedlichsten Lebensbereiche beschreibt, ist ihm nicht zu @@ -2140,8 +2140,8 @@ Mitteln", als eine Form "kriegerischer Herrschaft " und als Marx es ausgedrckt hat, eine Welt der sachlichen Abhngigkeitsverhltnisse im Gegensatz zu den persnlichen ist, eine Welt, in der die Individuen "von Abstraktionen beherrscht werden, -whrend sie frher voneinander abhingen" (Marx 1974, 81f.).
- +whrend sie frher voneinander abhingen" (Marx 1974, 81f.). + Gesellschaft, der sich nach Marx bekanntlich so sehr anonymisiert, da selbst der Kapitalist im Zuge der Entwicklung zum Aktienkapital als @@ -2164,8 +2164,8 @@ solches Verstndnis schliet nicht aus, die Autopoiesis von Wissenschaft und Technik ihrerseits als gesellschaftlich produziert und durch die herrschende gesellschaftliche Struktur vermittelt zu begreifen; wohl aber, sie wie Foucault auf ein bloes Machtspiel zu -reduzieren.
- +reduzieren. + Hinblick auf normative Mechanismen. Zwar fehlt der Begriff der 'Norm' durchaus nicht in Foucaults Arbeiten, wie dies ja auch bei @@ -2183,8 +2183,8 @@ zwanghaft fixierter Verhaltensschemata unterwerfen und dadurch Stabilitt und Homogenitt des Herrschaftsgefges sichern. "Disziplinarische Normalisierung", sagt Foucault, "ist der Entwurf eines optimalen Modelles, die Operation der Disziplin besteht darin, -die Leute an dieses Modell anzupassen" (1982, 8).
- +die Leute an dieses Modell anzupassen" (1982, 8). + einfngt, die in den herkmmlichen Ideen- und Rechtsgeschichten notorisch unterbelichtet bleiben; der Stellenwert, der ihnen in einer @@ -2214,8 +2214,8 @@ Mensch soll nicht blo zu allerlei Zwecken geschickt sein, sondern auch die Gesinnung bekommen, da er nur lauter gute Zwecke erwhle. Gute Zwecke sind diejenigen, die notwendigerweise von jedermann gebilligt werden; und die auch zu gleicher Zeit jedermanns Zwecke sein -knnen" (Kant 1968, XII, 707).
- +knnen" (Kant 1968, XII, 707). + anschlieen: einmal, weil die Ethik, auf der sie beruht, die Sozialisation in eine abstrakte Gesellschaft zum Telos hat (Adorno, GS @@ -2247,16 +2247,16 @@ Naturzustands, weil allein sie in jene inneren Reservate vorzudringen vermag, die sowohl der Disziplinierung als auch der Kultivierung und Zivilisierung als blo uerlichen Konditionierungsweisen unzugnglich bleiben. Kant hat daher in der Moralisierung das hchste und zugleich -am schwersten erreichbare Ziel der Erziehung gesehen:
- +am schwersten erreichbare Ziel der Erziehung gesehen: + Artigkeit und Anstndigkeit. Aber, uns fr schon moralisiert zu halten, daran fehlt noch sehr viel. Denn die Idee der Moralitt gehrt noch zur Kultur; der Gebrauch dieser Idee aber, welcher nur auf das Sittenhnliche in der Ehrliebe und der ueren Anstndigkeit hinausluft, macht blo die Zivilisierung aus. So lange aber Staaten alle ihre Krfte auf ihre eiteln und gewaltsamen Erweiterungsabsichten verwenden, und so die langsame Bemhung der inneren Bildung der Denkungsart ihrer Brger unaufhrlich hemmen, ihnen selbst auch alle Untersttzung in dieser Absicht entziehen, ist nichts von dieser Art zu erwarten; weil dazu eine lange -innere Bearbeitung des gemeinen Wesens zur Bildung seiner Brger erfordert wird" (Kant 1968, XI, 44f.).
- +innere Bearbeitung des gemeinen Wesens zur Bildung seiner Brger erfordert wird" (Kant 1968, XI, 44f.). + pauschalisierender Rede von Normierung/Normalisierung besteht darin, da es eine ganze Reihe von Forschungen zu integrieren vermag, von @@ -2297,8 +2297,8 @@ empirisch entschieden werden kann. Da sie berhaupt aufgestellt und mit plausiblen Argumenten untermauert werden kann, ist allerdings ein Indiz fr die Notwendigkeit, den kategorialen Rahmen nicht dadurch von vornherein einzuschrnken, da man Moralisierung auf eine Variante der -Disziplinierung reduziert24.
- +Disziplinierung reduziert24. + mu, sieht nicht gnstig aus. Die Machttheorie, die das Konzept der Disziplinargesellschaft tragen soll, vermag diese Aufgabe nicht zu @@ -2310,16 +2310,16 @@ und Handlung zurckfhrt. Sie verspricht eine neue, nichttotalisierende Geschichte und totalisiert doch selbst, nur sehr viel schlechter als etwa Marx oder Hegel, indem sie alle Differenzen in den allgemeinen Nebel der 'Macht' auflst. Auf dieser Grundlage ist - das Projekt einer Theorie der Disziplinargesellschaft undurchfhrbar.
- - - - - - - - - + das Projekt einer Theorie der Disziplinargesellschaft undurchfhrbar. + + + + + + + + + in diese Richtung. Habermas, der sich gleichwohl von Foucaults Analysen der kapillarischen Wirkungen der Disziplin fasziniert zeigt, @@ -2334,8 +2334,8 @@ von Foucault entworfene "Zwangsmodell gesellschaftlicher Ordnung", das im Ergebnis auf verblffende Weise mit Adornos Vision der verwalteten Welt bereinstimme, sei unbrauchbar, weil in ihm die "normativen und kulturellen Orientierungen der vergesellschafteten Subjekte" keinen -Anteil an der sozialen Integration htten25.
- +Anteil an der sozialen Integration htten25. + Disziplinargesellschaft so aktuell macht. Wie realittsnah Foucaults Untersuchungen trotz ihrer theoretischen Schwchen sind, zeigt sich @@ -2363,8 +2363,8 @@ Sozialitt gerinnen" (ebda; 455). Als deskriptiver Begriff ist das Konzept der Disziplinargesellschaft also offenbar doch nicht vllig unbrauchbar; und es gewinnt noch an berzeugungskraft, wenn man sieht, wie bla und leer der von Habermas als Konterkategorie eingefhrte -Begriff der Lebenswelt letztlich bleibt.
- +Begriff der Lebenswelt letztlich bleibt. + ist zu negieren, soweit es sich zur Totalitt aufspreizt und sich als Aussage ber das Ganze der modernen Gesellschaft prsentiert, wie dies @@ -2395,8 +2395,8 @@ Essens auf das Niveau von fast food und die der Erotik auf dasjenige von quickies herabgedrckt hat. Wie weiter oben gezeigt, gewinnen denn auch seit einiger Zeit Theorien an Plausibilitt, die die Epoche in geradem Gegensatz zu Elias im Zeichen einer skularen Entzivilisierung -sehen.
- +sehen. + ab. Nicht da moralische Codierungen an Prominenz verlren oder keinen Einflu auf Interaktionen und Entscheidungen mehr ausbten. Ganz im @@ -2409,8 +2409,8 @@ auf die sich pltzlich die Aufmerksamkeit richtet, immer wieder eine neue Dummheit irgendwelcher Exekutiven, an der sich die Flamme der Emprung entznden kann. Im Zeitalter des Satellitenfunks wchst die Zahl der Ungerechtigkeiten mit den im Einsatz befindlichen -Nachrichtenjgern und fhrt dem Dauerprotest immer neue Motive zu.
- +Nachrichtenjgern und fhrt dem Dauerprotest immer neue Motive zu. + auch der brgerlichen Pdagogik des 19. Jhs. vorschwebte, mssen diese Erscheinungsformen strikt getrennt werden. Die brgerlich- @@ -2422,8 +2422,8 @@ Erziehungsmodell war jener von Riesman treffend beschriebene innengeleitete Charakter, der sich an die Signale eines frhzeitig internalisierten seelischen Kreiselkompasses gebunden fhlte und dergestalt individuelle Autonomie mit gesellschaftlicher, -prinzipiengesteuerter Orientierung verband.
- +prinzipiengesteuerter Orientierung verband. + die Grundlage entzogen. Schon Freud registrierte, da nur eine Minderheit ber ein steuerndes und lenkendes Gewissen verfgte, @@ -2455,8 +2455,8 @@ Differenzierung, wenn und soweit sie sich als Formprinzip der Gesellschaft durchsetzt, die Moral evolutionr abhngt und ideologisch wie motivational disprivilegiert"27. Das Ende der Moral ist damit nicht erreicht. Wohl aber jener Moralisierung, von der noch Kant -trumte.
- +trumte. + aus, die 'dunkle Kehrseite' der Moralisierung und Zivilisierung - die Disziplin. Zu den klassischen totalen Institutionen - Kloster und @@ -2498,8 +2498,8 @@ Organisationen abwickelt, ist Disziplin - die pauschale Anerkennung und automatische Befolgung der Mitgliedschaftsregeln - zur Conditio sine qua non geworden. Mit seiner berhmten Metapher vom 'stahlharten Gehuse' hat Max Weber diese Entwicklung vor mehr als achtzig Jahren -antizipiert.
- +antizipiert. + oder 'strategischen Spielen' (Foucault) zu tun, sondern ist eine Folge von Systemprozessen, die sich jeder interaktionistischen Deutung @@ -2514,8 +2514,8 @@ Stoffwechsel mit der Natur von der Vermittlung durch die Zirkulation von Waren abhngig machte; anstelle der direkten, familial, politisch- herrschaftlich und religis begrndeten Bindungen eine indirekte Synthese, in der die einzelnen ihre Verklammerung in das bergreifende -Verflechtungsnetz erst auf dem Markt erfuhren.
- +Verflechtungsnetz erst auf dem Markt erfuhren. + berzeugende Weise dargestellt. Er hat gezeigt, wie die Verdichtung von funktionaler Differenzierung und Marktvergesellschaftung dazu @@ -2543,8 +2543,8 @@ zirkulationsbegrndeten Formen von Wissen, Kommunikation und Organisation; dagegen Formalisierung und Entwertung aller 'naturwchsig'-spontanen Kompetenzen, Denk- und Erfahrungsmuster. "konomie der Zeit, darein lst sich schlielich alle konomie auf" -(Marx 1974, 89).
- +(Marx 1974, 89). + Foucault beschriebenen Verallgemeinerung der Disziplin zu suchen. Natrlich beginnt die Geschichte der Disziplin nicht erst mit der @@ -2586,16 +2586,16 @@ und sichert sich ihre Kontrolle und ihre Ausnutzung" (1976, 206). In Wirklichkeit verhlt es sich genau umgekehrt: die Zeit wird nicht zu einer Funktion der Macht, sondern die zur Systemzeit gewordene Zeit produziert asymmetrische Handlungs- und Befehlsketten und generiert -damit Machtrelationen, die das Verhalten der einzelnen determinieren.
- - - - - - - - - +damit Machtrelationen, die das Verhalten der einzelnen determinieren. + + + + + + + + + Einwand erhoben, sie stelle zu einseitig die Aspekte der Herrschaftssicherung und Verdinglichung heraus und verfehle damit die @@ -2632,8 +2632,8 @@ hierin eine Strke der handlungs- gegenber den systemtheoretischen Komponenten von Foucaults Analysen sieht, mchte ich allerdings die These vertreten, da die Bercksichtigung der Subjektivitt in organisierten Sozialsystemen nur zu einer Flexibilisierung, nicht aber -zu einer Sprengung des Begriffs der Disziplinargesellschaft fhrt.
- +zu einer Sprengung des Begriffs der Disziplinargesellschaft fhrt. + Komplexitt nicht mehr den gleichen Erklrungswert beanspruchen kann wie zu Beginn des Jahrhunderts, als Weber seine Brokratietheorie und @@ -2689,8 +2689,8 @@ eine mglichst weitgehend sozialem und technischem Reglement zu unterwerfende, weil fr die organisatorische Ordnung gefhrliche Strgre; sondern Subjektivitt ist eine wesentliche Konstitutionsbedingung organisatorischer Ordnung gerade auch in -hochtechnisierten Produktionsorganisationen" (1986, 86).
- +hochtechnisierten Produktionsorganisationen" (1986, 86). + Abschnitt skizzierten Argumentation erforderlich, stellen sie jedoch nicht grundstzlich in Frage. Auch wenn die Bedienung der zunehmend @@ -2733,8 +2733,8 @@ besteht allenfalls darin, da sich nunmehr nicht blo die Wissenschaftler und Ingenieure, sondern Teile der Arbeiterschaft selbst in wissenschaftlicher Weise auf die Erfahrung bzw. die Produktion beziehen und damit gleichsam von der passiven auf die -aktive Seite des Abstraktifizierungsprozesses rcken.
- +aktive Seite des Abstraktifizierungsprozesses rcken. + Unzulnglichkeiten seiner Machttheorie, auch nicht sehen knnen. Er hat aber immerhin etwas davon geahnt, wenn er von der "Ersetzung eines @@ -2750,8 +2750,8 @@ gedrngt wrde. Sondern genau umgekehrt: weil es, flexibler und gleichsam dialektischer geworden, mit den Beitrgen der Subjekte selbst rechnen kann, die, vom wissenschaftlichen Code geprgt, die permanente Optimierung des Systems zu ihre eigenen Sache gemacht -haben30.
- +haben30. + Entwicklung sein, die Foucault unbeachtet gelassen hat, auf die ich jedoch zum Schlu wenigstens hinweisen mchte, weil eine Theorie der @@ -2800,16 +2800,16 @@ Disziplin, ihre Abkehr von einer bloen 'Gewaltrationalitt' (Dauk 1989, 131), nicht der Anfang eines Prozesses sein knnte, in dessen Verlauf die Disziplinargesellschaft ihre eigenen Voraussetzungen zerstrt. Allein mit den von Foucault bereitgestellten Kategorien wird -diese Frage nicht zu beantworten sein.
- - - - - - - - - +diese Frage nicht zu beantworten sein. + + + + + + + + + der Auseinandersetzung mit Elias und Foucault deutlich, erfassen wichtige Aspekte der modernen Gesellschaft. Fr eine Gesamtdiagnose @@ -2817,8 +2817,8 @@ indes ist ihr Instrumentarium zu grob, ihr begrifflicher Zuschnitt zu eng. Es ist deshalb an der Zeit, den Fokus zu erweitern und jene beiden Theorien in den Blick zu nehmen, von denen wir uns in der Kritik an Elias und Foucault vielfach leiten lieen: die Kritische -Theorie und die Systemtheorie.
- +Theorie und die Systemtheorie. + geschrieben worden: ber die unterschiedliche Auffassung von Handeln und Kommunikation, von Wahrheit und Rationalitt. Nur selten aber, und @@ -2828,8 +2828,8 @@ die moderne Gesellschaft und ihre Entwicklungstendenzen. Dabei ist kein Feld von so zentraler Bedeutung wie dieses - stimmen doch beide Theorien darin berein, da die Zukunft der Soziologie wesentlich davon abhngt, ob es ihr gelingt, einen Begriff ihres Gegenstandes - -der Gesellschaft - zu entwickeln.
- +der Gesellschaft - zu entwickeln. + Berhrungsangst zu sprechen. Vordringlicher ist es, sie zu durchbrechen, indem man den Gegenstand selbst in den Mittelpunkt der @@ -2846,17 +2846,17 @@ Lernprozesse beider Theorien im Horizont einer sich anbahnenden Konvergenz von Kritik und Affirmation. Der Vergleich wird sich auf Adorno und Luhmann als die beiden Autoren beschrnken, bei denen die Kritische Theorie und die Systemtheorie in ihrer 'Vollstufe' -entwickelt sind.
- - - - - - - - - - +entwickelt sind. + + + + + + + + + + AAF 1. Jeder Anfang ist eine Vorentscheidung. Nach der Systemtheorie ist mit Differenz zu beginnen, nach dialektischer Auffassung mit Einheit. Folgte man der ersten Position, so wre man in diesem Fall @@ -2870,8 +2870,8 @@ vom Ganzen als dem Unwahren sowie Adornos 'Generalverdacht gegen Kommunikation' auf (Mrchen 1981, 231). "Alles, was heutzutage Kommunikation heit, ausnahmslos, ist nur der Lrm, der die Stummheit der Gebannten bertnt" (GS 6, 341). Der Dialog wre zuende, ehe er -berhaupt eingesetzt htte.
-
+berhaupt eingesetzt htte. + Wir mssen also nach Art der Dialektik beginnen, mit Einheit statt mit Differenz. Das ist weniger gewaltsam, als es nach dem ersten Vorgeplnkel den Anschein haben knnte, bestimmen doch Adorno wie @@ -2883,21 +2883,21 @@ Sozialsystem, das die letzterreichbare Form funktionaler Differenzierung institutionalisiert" (1971, 15). "Modern society, then, has to be described as a functionally differentiated system. This is its main characteristic, the principle which generates its -structures" (1984, 64).
-
+structures" (1984, 64). + Nicht anders sieht es Adorno. Gesellschaft, so verkndet er, sei "ein Funktions- und kein Substanzbegriff" (GS 8, 349), Soziologie die "Wissenschaft von den gesellschaftlichen Funktionen" (Adorno 1956, 23). Whrend sich archaische Gesellschaften nicht zuletzt durch ihre nur geringe Arbeitsteilung auszeichneten, habe sich die moderne Gesellschaft zu einem gigantischen Interdependenzzusammenhang -entfaltet.
-
+entfaltet. + "Mit Gesellschaft im prgnanten Sinn meint man eine Art Gefge zwischen Menschen, in dem alles und alle von allen abhngen; in dem das Ganze sich erhlt nur durch die Einheit der von smtlichen Mitgliedern erfllten Funktionen, und in dem jedem Einzelnen grundstzlich eine solche Funktion zufllt, whrend zugleich jeder Einzelne durch seine Zugehrigkeit zu dem -totalen Gefge in weitem Mae bestimmt wird" (ebd. 22; vgl. GS 8,10).
-AAF
+totalen Gefge in weitem Mae bestimmt wird" (ebd. 22; vgl. GS 8,10). +AAF Fr Adorno ist mit dieser Bestimmung allerdings nur erst ein Aspekt der modernen Gesellschaft getroffen. Der zweite fr ihn wichtige Aspekt ist, da Gesellschaft ebensosehr eine Relations-, ja @@ -2919,8 +2919,8 @@ Althusser sogar das Prinzip der Determinierung in letzter Instanz durch die konomie. Typisch aber ist, da in all diesen Konzeptionen (von deren Unterschieden hier abgesehen werden kann) die Beziehung uerlicher Natur ist, eine bloe Wechselwirkung zwischen ansonsten -getrennten und nach eigengesetzlichen Regeln prozessierenden Sphren.
-
+getrennten und nach eigengesetzlichen Regeln prozessierenden Sphren. + Adorno bestreitet keineswegs die Existenz solcher autonomer Sphren. Die bliche Formel, mit der er Bereiche wie Kunst oder Wissenschaft charakterisiert, lautet, sie seien autonom und fait @@ -2931,15 +2931,15 @@ durch die konstitutive Struktur der Gesellschaft, ihre objektive 'Wesensgleichheit' (Adorno 1973, 25), die in den Teilsystemen erscheint und sie ipso facto als Schein, als Reflexionsbestimmung durchschaubar macht. Was Adorno fr die Kunst notiert, gilt mutatis -mutandis auch fr die brigen Bereiche des gesellschaftlichen Ganzen:
-
+mutandis auch fr die brigen Bereiche des gesellschaftlichen Ganzen: + "Die Frage nach der Vermittlung von Geist und Gesellschaft reicht weit ber die Musik hinaus, wo man sie allzu leicht auf die nach dem Verhltnis von Produktion und Rezeption einengt. Gelten drfte, da jene Vermittlung nicht uerlich, in einem dritten Medium zwischen Sache und Gesellschaft stattfinde, sondern innerhalb der Sache. Und zwar nach ihrer objektiven und subjektiven Seite. Die gesellschaftliche Totalitt hat in der Gestalt des Problems und der Einheit der knstlerischen Lsungen sich sedimentiert, ist darin verschwunden. Weil in ihr Gesellschaft sich verkapselt hat, folgt sie, indem sie autonom sich entfaltet, auch der -gesellschaftlichen Dynamik, ohne auf sie hinzublicken, ohne direkt mit ihr zu kommunizieren" (GS 14, 409).
-AAF
+gesellschaftlichen Dynamik, ohne auf sie hinzublicken, ohne direkt mit ihr zu kommunizieren" (GS 14, 409). +AAF In der Bestimmung dieser Wesensgesetzlichkeit, die in den Teilsystemen erscheint und diese dadurch als vermittelte konstituiert, knpft Adorno an die klassische dialektische Theorie an, die die @@ -2961,8 +2961,8 @@ durch ihre Arbeit das Leben der Gattung reproduzierenden Subjekte" ist und daher primr als "Totalitt der Arbeit" konzipiert werden mu (GS 5, 267, 269). "Soweit die Welt ein System bildet, wird sie dazu eben durch die geschlossene Universalitt von gesellschaftlicher Arbeit" -(ebd. 272).
-
+(ebd. 272). + Von entscheidender Bedeutung ist nun allerdings, da sich dieser Primat der Produktion unter brgerlichen Produktionsbedingungen auf eine hchst paradoxe Weise uert: als Abstraktion der Produktion von @@ -2976,8 +2976,8 @@ Adorno, "nicht erst in der wissenschaftlichen Reflexion, wird objektiv abstrahiert; wird abgesehen von der qualitativen Beschaffenheit der Produzierenden und Konsumierenden, vom Modus der Produktion, sogar vom Bedrfnis, das der gesellschaftliche Mechanismus beiher, als - Sekundres befriedigt" (GS 8, 13).
-
+ Sekundres befriedigt" (GS 8, 13). + 'Tausch' in diesem Sinne meint mehr als eine konomische Transaktion, meint mehr als den bloen Besitzwechsel konkret- ntzlicher Gegenstnde. Der Begriff steht fr eine Gesamtverfassung, @@ -3002,15 +3002,15 @@ Philosophie als 'Geist' bezeichnet wurde - eine Welt des Symbolischen, der Stellvertretung, der Substitution, die alle Erscheinungsformen des Sozialen, von der Zirkulation ber Recht und Staat bis zu den subtileren Gestalten der Kunst, der Philosophie und der Wissenschaft, -strukturiert.
-
+strukturiert. + "Den Vorwurf des Idealismus", schreibt Adorno, "hat nicht ein jeder zu frchten, der Begriffliches der gesellschaftlichen Realitt zurechnet...Mag man, gegenber der leibhaften Realitt und allen handfesten Daten, dies begriffliche Wesen Schein nennen, weil es beim quivalententausch mit rechten Dingen und doch nicht mit rechten Dingen zugeht: es ist doch kein Schein, zu dem organisierende Wissenschaft die Realitt sublimierte, sondern dieser immanent...Der Tauschwert, gegenber dem Gebrauchswert ein blo Gedachtes, herrscht ber das menschliche Bedrfnis und an seiner Stelle; der Schein ber die Wirklichkeit" -(GS 8, 209).
-AAF
+(GS 8, 209). +AAF Diese Hervorhebung des Tauschverhltnisses ist von der marxistischen Orthodoxie hufig als Rckfall in brgerliches Denken kritisiert worden, als Unfhigkeit, ber den Standpunkt der @@ -3041,8 +3041,8 @@ er Marx nher als alle postmarxschen Arbeitsmythologien, die die Rede vom Scheincharakter der Zirkulation allzu wrtlich, nmlich brgerlich-aufklrerisch nehmen. Die Einheit der brgerlichen Gesellschaft ist keine Einheit der Arbeit, sondern eine des Wertes, -der Abstraktion von der Arbeit.
-
+der Abstraktion von der Arbeit. + Diese Einheit aber, und damit kehren wir zum Ausgangspunkt zurck, existiert nicht unmittelbar, sondern nur als Proze, als "eine Einheit, die sich durch den Trennungs-, durch den @@ -3062,8 +3062,8 @@ seinen einfachsten und abstraktesten Ausdruck gebracht. Der hier von Adorno anvisierte Theorietypus liee sich am angemessensten als eine 'strukturalistische Systemtheorie' charakterisieren, die die Einsichten des Strukturalismus und der Systemtheorie aufnimmt, sie -aber dialektisiert und dadurch ihre Einseitigkeiten vermeidet.
-
+aber dialektisiert und dadurch ihre Einseitigkeiten vermeidet. + Es ist nur scheinbar ein Widerspruch hierzu, wenn Adorno an anderer Stelle davon spricht, da sich das dialektische Denken zunehmend von der Systemform entfernen msse, oder wenn er die @@ -3093,20 +3093,20 @@ nur auf dem Boden des dialektischen Begriffs, auch wenn sie darauf verzichtet, diesen im Einzelfall zu explizieren. Bei aller Kritik, die Adorno an Hegels Identifikation des Systems mit dem absoluten Subjekt gebt hat, hat er doch an der Notwendigkeit und Angemessenheit des -Systembegriffs zu keiner Zeit einen Zweifel gelassen:
-
+Systembegriffs zu keiner Zeit einen Zweifel gelassen: + "Ist jenes Subjekt-Objekt, zu dem seine (scil. Hegels) Philosophie sich entwickelt, kein System des vershnten absoluten Geistes, so erfhrt der Geist doch die Welt als System. Sein Name trifft den unerbittlichen Zusammenschlu aller Teilmomente und Teilakte der brgerlichen Gesellschaft durch das Tauschprinzip zu einem Ganzen genauer als irrationalere wie der des Lebens, selbst wenn dieser der Irrationalitt der Welt, ihrer Unvershntheit mit den vernnftigen Interessen einer ihrer selbst bewuten Menschheit, besser anstnde. Nur ist die Vernunft jenes Zusammenschlusses zur Totalitt selber die Unvernunft, die Totalitt des -Negativen" (GS 5, 324): eben die des Tauschs, der die Einzelnen einem ihnen fremden Gesetz unterwirft.
-AAF
+Negativen" (GS 5, 324): eben die des Tauschs, der die Einzelnen einem ihnen fremden Gesetz unterwirft. +AAF Da diese Negativitt das System, das sie konstituiert, zugleich -in den Untergang treibt, wird weiter unten darzustellen sein.
-
-
-
+in den Untergang treibt, wird weiter unten darzustellen sein. + + + 2. Der zentrale Stellenwert, den die dialektische Theorie dem Systembegriff zuweist, hat ihr wenig Anerkennung bei derjenigen Theorie eingetragen, die sich diesen Begriff fr ihre @@ -3122,8 +3122,8 @@ entledigen sollte. Zwar konzediert Luhmann diesem Theorietypus das gleichzeitig "die eigentmliche Schmalspurigkeit, die zu geringe und zu unbestimmte Komplexitt, die Fixierung auf wenige Gesichtspunkte, an die man mit vermeintlich eindeutigen Effekten Negationen anknpfen -kann" (1982, 193).
-
+kann" (1982, 193). + Die Grnde fr diese abschtzig-distanzierende Haltung sind rasch benannt. Die Theorie der brgerlichen Gesellschaft, sowohl in ihrer affirmativen als auch in ihrer kritischen Gestalt, ist nach Luhmann @@ -3157,8 +3157,8 @@ Apologeten der brgerlichen Gesellschaft zu erwarten noch von deren Kritikern. Gefordert ist vielmehr eine grundlegende Neuorientierung, die die Gesellschaftstheorie von anthropologischen und humanistischen Prmissen abkoppelt und auf ein anderes, die Eigenstndigkeit und -Eigenlogik des Sozialen bercksichtigendes Fundament stellt.
-
+Eigenlogik des Sozialen bercksichtigendes Fundament stellt. + Nun ist sicher nicht zu bestreiten, da ontologische Motive in dem von Luhmann inkriminierten Sinne eine wichtige Rolle in der materialistischen Dialektik spielen: nicht blo in den kruden @@ -3179,8 +3179,8 @@ hochkomplexen Gefge verdinglichter und subjektivierter Bestimmungen entfalten. Da Luhmann dies im brigen nicht ganz fremd ist, zeigt sich an solchen Stellen, an denen er auf Marxsche Analysen (wie etwa die des Geldes) rekurriert und ihnen "ihr volles Recht" bescheinigt -(1980, 253f.).
-
+(1980, 253f.). + Luhmanns Vorschlag, die Gesellschaft unter Absehung von allen empirisch-materiellen Elementen zu definieren, kann man unter diesen Umstnden wohl kaum als die kopernikanische Revolution begreifen, als @@ -3200,18 +3200,18 @@ ist Kommunikation und nichts als Kommunikation. Sie konstituiert sich zwar aus den Erwartungen und Kommunikationen psychischer Systeme, geht aber in dieser ihrer Genesis nicht auf, bildet "eine freischwebend konsolidierte Realitt, ein sich selbst grndendes Unternehmen" (ebd. -173), eben 'reine' Kommunikation.
-
+173), eben 'reine' Kommunikation. + "Ganz grob kann man das System der Gesellschaft charakterisieren als Gesamtheit der freinander zugnglichen, -kommunikativ erreichbaren Erlebnisse und Handlungen. Kommunikation verwebt die Gesellschaft zur Einheit" (1981, 309).
-AAF
+kommunikativ erreichbaren Erlebnisse und Handlungen. Kommunikation verwebt die Gesellschaft zur Einheit" (1981, 309). +AAF Ersetzt man Kommunikation durch Zirkulation, so hat man exakt die Marxsche These, nach der die brgerliche Gesellschaft ihre Einheit und ihren Selbstbezug allein vermge der Ausdifferenzierung einer eigenstndigen Sphre der abstrakten Allgemeinheit neben und auer der empirisch-materiellen Dimension der Produktion und des Konsums -herzustellen vermag.
-
+herzustellen vermag. + Die eigentliche Differenz zwischen Systemtheorie und Dialektik liegt deshalb nicht darin, da die erstere Gesellschaft auf Kommunikation reduziert und alle nichtkommunikativen Elemente, die mit @@ -3236,12 +3236,12 @@ zugestehen; fr die moderne Gesellschaft dagegen erscheint ihm die Struktur, von dieser Prmisse her durchaus konsequent, als gegenber der Funktion von zweitrangiger Bedeutung. Die Einheit der modernen Gesellschaft, so konstatiert er, existiere nur in der Differenz der -Funktionssysteme:
-
+Funktionssysteme: + "sie ist nichts anderes als deren wechselseitige Autonomie und Unsubstituierbarkeit. Sie ist nichts anderes als die Umsetzung dieser Struktur in ein Miteinander von hochgetriebener Unabhngigkeit und Abhngigkeit. Sie ist, mit anderen Worten, die dadurch -entstandene, evolutionr hchst unwahrscheinliche Komplexitt" (1986, 216f.).
-AAF
+entstandene, evolutionr hchst unwahrscheinliche Komplexitt" (1986, 216f.). +AAF Diese Auffassung darf nun nicht so verstanden werden, als gebe es nach Luhmann kein Gesamtsystem, als sei die Gesellschaft nichts weiter als die Summe der von den Teilsystemen erfllten Funktionen. Auch @@ -3263,8 +3263,8 @@ Kosten anderer Teilsysteme totalisiert: z.B. durch Einbau von Beschrnkungen in die Reflexionsstruktur der Teilsysteme (1977, 245). Insofern kann auch Luhmann von der "Einheit der Gesellschaft" sprechen und Dimensionen angeben, in denen diese Einheit sich zeigt (vgl. 1974, -147, 149; 1985, 37f.; 1986, 202, 205).
-
+147, 149; 1985, 37f.; 1986, 202, 205). + Der Unterschied zur dialektischen Theorie liegt darin, da diese Einheit den Phnomenen uerlich bleibt, mit ihnen nicht vermittelt ist. Gelangt fr Adorno die gesellschaftliche Determinierung in den @@ -3281,8 +3281,8 @@ nicht in ihnen selbst, sondern nur in ihrer Umwelt, in der Mannigfaltigkeit innergesellschaftlicher System-Umwelt-Differenzen. Von hier aus wird die eigenwillige, der Auffassung Adornos kontrr entgegengesetzte Deutung verstndlich, die Luhmann dem -traditionsreichen Begriff der Integration verleiht:
-
+traditionsreichen Begriff der Integration verleiht: + "Mit dem bergang von segmentrer zu schichtenmiger und von schichtenmiger zu funktionaler Primrdifferenzierung des Gesellschaftssystems ndert sich die Zugriffsform des gesamtgesellschaftlichen Systems auf die Teilsysteme; sie verlagert sich von den Strukturen der Teilsysteme auf ihre innergesellschaftliche Umwelt. Die Gesellschaft kann bei zunehmender Komplexitt @@ -3290,8 +3290,8 @@ immer weniger garantieren, da alle Teilsysteme unter gleichen Strukturen gleich nicht bermig belasten. Integration mu vielmehr dadurch vermittelt werden, da alle Teilsysteme freinander innergesellschaftliche Umwelt sind. Ein Teilsystem gehrt dann weniger dadurch der Gesellschaft an, da es in seiner Strukturwahl sich nach den Erfordernissen, Werten oder gar Normen richtet, die fr alle Systeme gelten, sondern dadurch, da es sich an einer -nichtbeliebig geordneten, als Gesellschaft garantierten und vorstrukturierten Umwelt auszurichten hat" (1977, 243f.).
-AAF
+nichtbeliebig geordneten, als Gesellschaft garantierten und vorstrukturierten Umwelt auszurichten hat" (1977, 243f.). +AAF Gegenber diesem Ansatz sind unterschiedliche Reaktionsformen mglich. Man kann ihn in toto zurckweisen und von auen her, etwa vom Standpunkt einer dialektisch-materialistischen Konzeption, monieren, @@ -3310,5 +3310,5 @@ beredte Autor an dieser 'theoriebautechnisch' so wichtigen Scharnierstelle in Schweigen hllt. Jedenfalls hat Luhmann bemerkenswert wenig Energie daran gesetzt, den "Leerplatz" zu fllen, den er schon 1970 an der Stelle einer den heutigen Verhltnissen -angemessenen Theorie des Gesellschaftssystems entdeckte (1974, 152).
+angemessenen Theorie des Gesellschaftssystems entdeckte (1974, 152).
\ No newline at end of file diff --git a/testautomation/writer/optional/w_CJKCTLDependency.bas b/testautomation/writer/optional/w_CJKCTLDependency.bas index 33ae2041860d..0b488aa0ffa9 100644..100755 --- a/testautomation/writer/optional/w_CJKCTLDependency.bas +++ b/testautomation/writer/optional/w_CJKCTLDependency.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_CJKCTLDependency.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_alternative_text.bas b/testautomation/writer/optional/w_alternative_text.bas index 86cf50a6bd5c..1fd3ade0df1c 100644..100755 --- a/testautomation/writer/optional/w_alternative_text.bas +++ b/testautomation/writer/optional/w_alternative_text.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_alternative_text.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: hde $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas new file mode 100644 index 000000000000..a8549293f681 --- /dev/null +++ b/testautomation/writer/optional/w_autocorrection.bas @@ -0,0 +1,78 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: w_drawing_tools.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* owner : helge.delfs@sun.com +'* +'* short description : Tools / Autocorrection test +'* +'\******************************************************************* + +global gSeperator as String +global gMeasurementUnit as String + +sub main + Dim StartZeit + StartZeit = Now() + + use "writer\tools\includes\w_tools.inc" + use "writer\tools\includes\w_tool3.inc" + use "writer\tools\includes\w_tools_autocorrection.inc" + use "writer\optional\includes\autocorrection\w_autocorrect1.inc" + use "writer\optional\includes\autocorrection\w_autocorrect2.inc" + + printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit ) + printlog Chr(13) + "******* Writer - Autocorrection - Test *******" + 'Getting the decimal seperator from global function + gSeperator = GetDecimalSeperator() + 'Setting the measurement unit to centimeters. + gMeasurementUnit = fSetMeasurementToCM() + + Call hStatusIn ( "writer" , "w_autocorrection.bas" ) + + Call w_autocorrect1 + Call w_autocorrect2 + + Call hStatusOut + + Printlog Chr(13) + "End of Autocorrect - Test :" + Printlog "Duration: "+ WieLange ( StartZeit ) + Printlog "Date: " + Date + " Time: " + Time + +end sub + +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles + gApplication = "WRITER" +end sub diff --git a/testautomation/writer/optional/w_autotext.bas b/testautomation/writer/optional/w_autotext.bas index d9d51528ed20..71ebab149aa9 100644..100755 --- a/testautomation/writer/optional/w_autotext.bas +++ b/testautomation/writer/optional/w_autotext.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_autotext.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_calculate.bas b/testautomation/writer/optional/w_calculate.bas index 1e600ff0d6fc..71b7a7ef3043 100644..100755 --- a/testautomation/writer/optional/w_calculate.bas +++ b/testautomation/writer/optional/w_calculate.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_calculate.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_chinesetranslate.bas b/testautomation/writer/optional/w_chinesetranslate.bas index 65fbc3f3c171..4e35abbd7a19 100644..100755 --- a/testautomation/writer/optional/w_chinesetranslate.bas +++ b/testautomation/writer/optional/w_chinesetranslate.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_chinesetranslate.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_clipbrd.bas b/testautomation/writer/optional/w_clipbrd.bas index 2c17d77c63f6..22a3f0147cd8 100644..100755 --- a/testautomation/writer/optional/w_clipbrd.bas +++ b/testautomation/writer/optional/w_clipbrd.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_clipbrd.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_contextmenu.bas b/testautomation/writer/optional/w_contextmenu.bas index 8d7aacf27549..1e9d47485283 100755 --- a/testautomation/writer/optional/w_contextmenu.bas +++ b/testautomation/writer/optional/w_contextmenu.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_contextmenu.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_drawing_tools.bas b/testautomation/writer/optional/w_drawing_tools.bas index b97298bab04f..4c826ca46c40 100644..100755 --- a/testautomation/writer/optional/w_drawing_tools.bas +++ b/testautomation/writer/optional/w_drawing_tools.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_drawing_tools.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_dropdownLB.bas b/testautomation/writer/optional/w_dropdownLB.bas index 0169c16ecc32..f22b88745463 100644..100755 --- a/testautomation/writer/optional/w_dropdownLB.bas +++ b/testautomation/writer/optional/w_dropdownLB.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_dropdownLB.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_fields.bas b/testautomation/writer/optional/w_fields.bas index 9d2240321158..8c51c5f5ee94 100644..100755 --- a/testautomation/writer/optional/w_fields.bas +++ b/testautomation/writer/optional/w_fields.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fields.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -93,7 +87,8 @@ end sub sub LoadIncludeFiles use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles gApplication = "WRITER" end Sub diff --git a/testautomation/writer/optional/w_filter.bas b/testautomation/writer/optional/w_filter.bas index 5dbec42261bd..446c7d8242c9 100755 --- a/testautomation/writer/optional/w_filter.bas +++ b/testautomation/writer/optional/w_filter.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_filter.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_fontwork.bas b/testautomation/writer/optional/w_fontwork.bas index c19425faf0a3..10b2ee98d172 100644..100755 --- a/testautomation/writer/optional/w_fontwork.bas +++ b/testautomation/writer/optional/w_fontwork.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_fontwork.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_formatcharacter.bas b/testautomation/writer/optional/w_formatcharacter.bas index c208a25203e5..2a0eae6ee542 100755 --- a/testautomation/writer/optional/w_formatcharacter.bas +++ b/testautomation/writer/optional/w_formatcharacter.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatcharacter.bas,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: jsk $ $Date: 2008-06-20 08:03:54 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_formatpage.bas b/testautomation/writer/optional/w_formatpage.bas index a1b469a5f389..1910ac7c95e2 100644..100755 --- a/testautomation/writer/optional/w_formatpage.bas +++ b/testautomation/writer/optional/w_formatpage.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatpage.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_formatparagraph.bas b/testautomation/writer/optional/w_formatparagraph.bas index 6b445f26c6a5..728feb6c07db 100644..100755 --- a/testautomation/writer/optional/w_formatparagraph.bas +++ b/testautomation/writer/optional/w_formatparagraph.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_formatparagraph.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_hhConversion.bas b/testautomation/writer/optional/w_hhConversion.bas index a61224d1962e..8f062e8f57e9 100644..100755 --- a/testautomation/writer/optional/w_hhConversion.bas +++ b/testautomation/writer/optional/w_hhConversion.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_hhConversion.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_hyphenation.bas b/testautomation/writer/optional/w_hyphenation.bas index e71c1ad8a978..126b904b6aad 100644..100755 --- a/testautomation/writer/optional/w_hyphenation.bas +++ b/testautomation/writer/optional/w_hyphenation.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_hyphenation.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -41,15 +35,17 @@ sub main use "writer\tools\includes\w_tools.inc" use "writer\tools\includes\w_tool4.inc" + use "writer\tools\includes\w_tools_hyphenation.inc" use "writer\optional\includes\hyphenation\w_hyphenation.inc" printlog Chr(13) + "******* Writer - Hyphenation - Test *******" Call hStatusIn ( "writer" , "w_hyphenation.bas" ) Call wEnableHyphenation(true) - Call tHyphenation_1 'Test Hyphenation using ctrl and "-" - Call tHyphenation_2 'Test Hyphenation using Tools/Hyphenation ,test like fol-lowing - Call tHyphenation_3 'Test Hyphenation using Tools/Hyphenation ,test like follow-ing + Call tHyphenation_1 + Call tHyphenation_2 + Call tHyphenation_3 + Call tHyphenation_4 Call wEnableHyphenation(false) Call hStatusOut diff --git a/testautomation/writer/optional/w_insertgraphic.bas b/testautomation/writer/optional/w_insertgraphic.bas index 84402564098a..f6707185b895 100644..100755 --- a/testautomation/writer/optional/w_insertgraphic.bas +++ b/testautomation/writer/optional/w_insertgraphic.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_insertgraphic.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -131,6 +125,7 @@ end sub sub LoadIncludeFiles use "global\system\includes\master.inc" use "global\system\includes\gvariabl.inc" + Call GetUseFiles gApplication = "WRITER" end sub diff --git a/testautomation/writer/optional/w_issuezilla_regression.bas b/testautomation/writer/optional/w_issuezilla_regression.bas index 80daf1fdd4d7..f515ef94359e 100755 --- a/testautomation/writer/optional/w_issuezilla_regression.bas +++ b/testautomation/writer/optional/w_issuezilla_regression.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_issuezilla_regression.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_loadsave.bas b/testautomation/writer/optional/w_loadsave.bas index 04829bf5cbac..bef58505d3c0 100644..100755 --- a/testautomation/writer/optional/w_loadsave.bas +++ b/testautomation/writer/optional/w_loadsave.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_loadsave.bas,v $ -'* -'* $Revision: 1.1.2.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008/10/07 15:50:16 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_navigator.bas b/testautomation/writer/optional/w_navigator.bas index fef8e7471a31..82bbc7d34fcd 100644..100755 --- a/testautomation/writer/optional/w_navigator.bas +++ b/testautomation/writer/optional/w_navigator.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_navigator.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_numbering.bas b/testautomation/writer/optional/w_numbering.bas index 471bf65ca609..1711122d74e1 100755 --- a/testautomation/writer/optional/w_numbering.bas +++ b/testautomation/writer/optional/w_numbering.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_numbering.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_opt.bas b/testautomation/writer/optional/w_opt.bas index 9be49b6e28e5..b776c84c0cea 100755 --- a/testautomation/writer/optional/w_opt.bas +++ b/testautomation/writer/optional/w_opt.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_opt.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_redlining.bas b/testautomation/writer/optional/w_redlining.bas index cc1e404c7c09..7dddecc9ef36 100644..100755 --- a/testautomation/writer/optional/w_redlining.bas +++ b/testautomation/writer/optional/w_redlining.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_redlining.bas,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 20:00:34 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_search.bas b/testautomation/writer/optional/w_search.bas index 5720d69efa9c..0e8f4ebc7097 100755 --- a/testautomation/writer/optional/w_search.bas +++ b/testautomation/writer/optional/w_search.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_search.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_section.bas b/testautomation/writer/optional/w_section.bas index 658c4cd5148b..2643435285c8 100644..100755 --- a/testautomation/writer/optional/w_section.bas +++ b/testautomation/writer/optional/w_section.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_section.bas,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 20:00:35 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_shortcuts.bas b/testautomation/writer/optional/w_shortcuts.bas index 93848305a5fb..7fa6596d276e 100755 --- a/testautomation/writer/optional/w_shortcuts.bas +++ b/testautomation/writer/optional/w_shortcuts.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_shortcuts.bas,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-26 08:18:21 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_sorting.bas b/testautomation/writer/optional/w_sorting.bas index cce659a2a696..5667adce63b9 100644..100755 --- a/testautomation/writer/optional/w_sorting.bas +++ b/testautomation/writer/optional/w_sorting.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_sorting.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_spellcheck.bas b/testautomation/writer/optional/w_spellcheck.bas index aa22b8f6d274..87288fbb5e8b 100644..100755 --- a/testautomation/writer/optional/w_spellcheck.bas +++ b/testautomation/writer/optional/w_spellcheck.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_spellcheck.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_stylist.bas b/testautomation/writer/optional/w_stylist.bas index cd6c7a5307f5..c8368308766a 100644..100755 --- a/testautomation/writer/optional/w_stylist.bas +++ b/testautomation/writer/optional/w_stylist.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_stylist.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_table.bas b/testautomation/writer/optional/w_table.bas index 4a953f09c222..3e800cec8d10 100755 --- a/testautomation/writer/optional/w_table.bas +++ b/testautomation/writer/optional/w_table.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_table.bas,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:22:57 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_textframes.bas b/testautomation/writer/optional/w_textframes.bas index c9ae666e766b..9e9072348b40 100644..100755 --- a/testautomation/writer/optional/w_textframes.bas +++ b/testautomation/writer/optional/w_textframes.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_textframes.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/w_undo.bas b/testautomation/writer/optional/w_undo.bas index f301256abe9b..a852f44739b9 100644..100755 --- a/testautomation/writer/optional/w_undo.bas +++ b/testautomation/writer/optional/w_undo.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_undo.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/optional/ww_opt.bas b/testautomation/writer/optional/ww_opt.bas index 7bf7781e4f4d..511759bccbc3 100755 --- a/testautomation/writer/optional/ww_opt.bas +++ b/testautomation/writer/optional/ww_opt.bas @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: ww_opt.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:27 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.coms diff --git a/testautomation/writer/required/includes/w_001_.inc b/testautomation/writer/required/includes/w_001_.inc index 6be95be73fd7..d77adfe1374a 100755 --- a/testautomation/writer/required/includes/w_001_.inc +++ b/testautomation/writer/required/includes/w_001_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_001_.inc,v $ -'* -'* $Revision: 1.5 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:26:17 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc index cbfd5de23047..4151d095cd94 100644..100755 --- a/testautomation/writer/required/includes/w_001a_.inc +++ b/testautomation/writer/required/includes/w_001a_.inc @@ -1,33 +1,28 @@ +'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_001a_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:40:41 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -49,7 +44,11 @@ sub w_001a_ Call tFileTemplatesEdit Call tFilePagePreview - Call tFilePrint + Call tPrintCommon() + Call tPrintGeneral() + Call tPrintApplication() + Call tPrintLayout() + Call tPrintOptions() Call tFilePrinterSetup 'Writer Master Document @@ -360,22 +359,14 @@ testcase tFilePagePreview QAErrorlog "No default printer!" Active.ok Sleep 1 - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel + Kontext "Printing" + if Printing.Exists then Printing.Cancel else printlog " Close 'Print' dialog with cancel" - Kontext "DruckenDlg" - DruckenDlg.Cancel + Kontext "Printing" + Printing.Cancel end if - printlog " Click 'Print options page preview' in toolbar" - Kontext "PreviewObjectbar" - Skalierung.Click - printlog " Close 'Print Options' dialog with cancel" - Kontext "DruckOptionen" - Call DialogTest ( DruckOptionen ) - DruckOptionen.Cancel - printlog " Close Page Preview with button 'Close Preview' in toolbar" Kontext "PreviewObjectbar" SeitenansichtSchliessen.Click @@ -389,97 +380,6 @@ endcase '----------------------------------------------------------- -testcase tFilePrint - PrintLog " Open new document" - Call hNewDocument - - PrintLog " File / Print" - FilePrint - - Kontext "Active" - WaitSlot(1000) - if Active.Exists then - if Active.GetRT = 304 then - QAErrorlog "No Default Printer!" - Active.Ok - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel - Call hCloseDocument - goto endsub - end if - end if - Kontext "DruckenDlg" - if DruckenDlg.Exists then - PrintLog " In printer dialog click 'Options'" - Zusaetze.Click - Sleep 1 - - Kontext "DruckerZusaetzeWriter" - PrintLog " Close 'Print options' with 'Cancel'" - DruckerZusaetzeWriter.Cancel - Kontext "DruckenDlg" - - if gPlatGroup = "unx" then - if NOT Eigenschaften.IsEnabled AND gPlatform = "osx" then - QAErrorlog "#i81545#-macport File -> Print|Printer Settings: Properties button disabled" - Kontext "DruckenDlg" - DruckenDlg.Cancel - Call hCloseDocument - goto endsub - end if - PrintLog " On Unix-Platforms select 'Properties" - Eigenschaften.Click - sleep (3) - Kontext "TabSPAPaper" - if NOT TabSPAPaper.Exists then - Kontext "TabSPADevice" - if NOT TabSPADevice.Exists then - Warnlog "#i88799# - Non functional options-button in Print-dialog." - else - Kontext - Active.Setpage TabSPAPaper - Kontext "TabSPAPaper" - Call DialogTest ( TabSPAPaper ) - - printlog( "ALLES WIRD GUT!" ) - Kontext - Active.Setpage TabSPADevice - Kontext "TabSPADevice" - Call DialogTest ( TabSPADevice ) - - PrintLog " Cancel Printer Properties' (only unix)" - TabSPADevice.Cancel - end if - else - Kontext - Active.Setpage TabSPAPaper - Kontext "TabSPAPaper" - Call DialogTest ( TabSPAPaper ) - - printlog( "ALLES WIRD GUT!" ) - Kontext - Active.Setpage TabSPADevice - Kontext "TabSPADevice" - Call DialogTest ( TabSPADevice ) - - PrintLog " Cancel Printer Properties' (only unix)" - TabSPADevice.Cancel - end if - end if - Kontext "DruckenDlg" - Call DialogTest ( DruckenDlg ) - PrintLog " Close 'Print' dialog" - DruckenDlg.Cancel - else - Warnlog "Print dialog is not up !" - end if - - PrintLog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - testcase tFilePrinterSetup PrintLog " Open new document" Call hNewDocument @@ -552,22 +452,14 @@ testcase tMasterDocFilePagePreview QAErrorlog "No default printer!" Active.ok Sleep 1 - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel + Kontext "Printing" + if Printing.Exists then Printing.Cancel else printlog " Close 'Print' dialog with cancel" - Kontext "DruckenDlg" - DruckenDlg.Cancel + Kontext "Printing" + Printing.Cancel end if - printlog " Click 'Print options page preview' in toolbar" - Kontext "PreviewObjectbar" - Skalierung.Click - printlog " Close 'Print Options' dialog with cancel" - Kontext "DruckOptionen" - Call DialogTest ( DruckOptionen ) - DruckOptionen.Cancel - printlog " Close Page Preview with button 'Close Preview' in toolbar" Kontext "PreviewObjectbar" SeitenansichtSchliessen.Click diff --git a/testautomation/writer/required/includes/w_001b_.inc b/testautomation/writer/required/includes/w_001b_.inc index a17189aea1d0..ea3cfbb64b62 100644..100755 --- a/testautomation/writer/required/includes/w_001b_.inc +++ b/testautomation/writer/required/includes/w_001b_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_001_.inc,v $ -'* -'* $Revision: 1.5 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:26:17 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_002_.inc b/testautomation/writer/required/includes/w_002_.inc index 1665b9aed268..a4f0405dd8c4 100755 --- a/testautomation/writer/required/includes/w_002_.inc +++ b/testautomation/writer/required/includes/w_002_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_002_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:21:21 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* ** '* owner : helge.delfs@sun.com ** diff --git a/testautomation/writer/required/includes/w_003_.inc b/testautomation/writer/required/includes/w_003_.inc index b44e45445975..01edd1b4b422 100755 --- a/testautomation/writer/required/includes/w_003_.inc +++ b/testautomation/writer/required/includes/w_003_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_003_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:21:34 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_004_.inc b/testautomation/writer/required/includes/w_004_.inc index 88322855a484..a206529da428 100755 --- a/testautomation/writer/required/includes/w_004_.inc +++ b/testautomation/writer/required/includes/w_004_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_004_.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:21:45 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_005_.inc b/testautomation/writer/required/includes/w_005_.inc index fd8197ab8aa5..9d4bdf24e83f 100755 --- a/testautomation/writer/required/includes/w_005_.inc +++ b/testautomation/writer/required/includes/w_005_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_005_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:41:15 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_005b_.inc b/testautomation/writer/required/includes/w_005b_.inc index ce7ce264e3b1..dc0c0dc98595 100755 --- a/testautomation/writer/required/includes/w_005b_.inc +++ b/testautomation/writer/required/includes/w_005b_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_005b_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:41:25 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_006_.inc b/testautomation/writer/required/includes/w_006_.inc index 4837a0737627..96953defcd38 100755 --- a/testautomation/writer/required/includes/w_006_.inc +++ b/testautomation/writer/required/includes/w_006_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_006_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:41:36 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc index d19c4bcc3dc2..a50e9838f0f4 100755 --- a/testautomation/writer/required/includes/w_007_.inc +++ b/testautomation/writer/required/includes/w_007_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_007_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:41:47 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -488,8 +482,8 @@ testcase tToolsAutocorrectAutoformat Kontext "TabOptionenAutokorrektur" Call DialogTest ( TabOptionenAutokorrektur ) printlog " Step through all options in list" - printlog " Tabpage Options: With entry 11 button 'Edit' should be enabled" - Einstellungen.TypeKeys "<Down>",11 + printlog " Tabpage Options: With entry 10 button 'Edit' should be enabled" + Einstellungen.TypeKeys "<Down>",9 Wait 500 if Bearbeiten.IsEnabled then Bearbeiten.Click @@ -497,11 +491,11 @@ testcase tToolsAutocorrectAutoformat DialogTest (Sonderzeichen) Sonderzeichen.Cancel else - Warnlog "- Button 'Edit' on Entry 11 disabled!" + Warnlog "- Button 'Edit' on Entry 10 disabled!" end if Kontext "TabOptionenAutokorrektur" - printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled" + printlog " Tabpage Options: With entry 16 button 'Edit' should be enabled" Einstellungen.TypeKeys "<Down>",6 Wait 500 if Bearbeiten.IsEnabled then @@ -514,8 +508,8 @@ testcase tToolsAutocorrectAutoformat end if Kontext "TabOptionenAutokorrektur" - printlog " Tabpage Options: With entry 19 button 'Edit' should be enabled" - Einstellungen.TypeKeys "<Down>",2 + printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled" + Einstellungen.TypeKeys "<Down>",1 Wait 500 if Bearbeiten.IsEnabled then Bearbeiten.Click @@ -524,40 +518,40 @@ testcase tToolsAutocorrectAutoformat Zusammenfassen.Cancel Kontext "TabOptionenAutokorrektur" else - Warnlog "- Button 'Edit' on Entry 18 disabled!" + Warnlog "- Button 'Edit' on Entry 17 disabled!" end if Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" - EinfachWortAnfang.Click + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - EinfachWortEnde.Click + Kontext "TabLocalizedOptions" + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - EinfachStandard.Click + Kontext "TabLocalizedOptions" + SingleQuotesDefault.Click - Kontext "TabTypografisch" - DoppeltWortAnfang.Click + Kontext "TabLocalizedOptions" + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - DoppeltWortEnde.Click + Kontext "TabLocalizedOptions" + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - DoppeltStandard.Click + Kontext "TabLocalizedOptions" + DoubleQuotesDefault.Click Kontext Active.Setpage TabWortergaenzung @@ -1302,7 +1296,7 @@ testcase tMasterDocToolsHyphenation Kontext "Silbentrennung" printlog " Close upcoming 'Hyphenation' dialog" - if ( Silbentrennung.Exists() ) then + if ( Silbentrennung.Exists( 2 ) ) then Call DialogTest ( Silbentrennung ) Silbentrennung.Cancel else diff --git a/testautomation/writer/required/includes/w_008_.inc b/testautomation/writer/required/includes/w_008_.inc index e806d84f92f1..774337e64616 100755 --- a/testautomation/writer/required/includes/w_008_.inc +++ b/testautomation/writer/required/includes/w_008_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_008_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:42:00 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_009_.inc b/testautomation/writer/required/includes/w_009_.inc index a136724d32ed..50c8b0916313 100755 --- a/testautomation/writer/required/includes/w_009_.inc +++ b/testautomation/writer/required/includes/w_009_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_009_.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:26:31 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* ** '* owner : helge.delfs@sun.com ** diff --git a/testautomation/writer/required/includes/w_010_.inc b/testautomation/writer/required/includes/w_010_.inc index bada828349ea..cb9f71d072df 100755 --- a/testautomation/writer/required/includes/w_010_.inc +++ b/testautomation/writer/required/includes/w_010_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_010_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:42:11 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_010_1.inc b/testautomation/writer/required/includes/w_010_1.inc index 7a98c313f4a1..bcfcb1e7cff3 100644..100755 --- a/testautomation/writer/required/includes/w_010_1.inc +++ b/testautomation/writer/required/includes/w_010_1.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_010_1.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:26:31 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/required/includes/w_011_.inc b/testautomation/writer/required/includes/w_011_.inc index d08875f48541..8fbcfad354e1 100755 --- a/testautomation/writer/required/includes/w_011_.inc +++ b/testautomation/writer/required/includes/w_011_.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_011_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:42:23 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -458,7 +452,7 @@ testcase tZORest Call hNewDocument printlog "Insert a draw object ( rectangle )" Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 ) - Call gMouseClick ( 25, 25 ) + Call gMouseClick ( 50, 25 ) printlog "Select drawing object with shortcut 'Shift F4'" Call wTypeKeys ( "<Shift F4>" ) diff --git a/testautomation/writer/required/includes/w_020_.inc b/testautomation/writer/required/includes/w_020_.inc index 62bffb9b8018..72d2de755e00 100755 --- a/testautomation/writer/required/includes/w_020_.inc +++ b/testautomation/writer/required/includes/w_020_.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_020_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:42:36 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -417,7 +411,7 @@ testcase t_TB_Form Call sMenufunktionen("-Checkbox-") Kontext "FormControls" - if Ucase(gApplication) <> "HTML" then + if gApplication <> "HTML" then wait 500 Label.Click printlog " Insert a textbox from toolbox" diff --git a/testautomation/writer/required/w_updt.bas b/testautomation/writer/required/w_updt.bas index 77c8d5350e00..498826f83e8d 100755 --- a/testautomation/writer/required/w_updt.bas +++ b/testautomation/writer/required/w_updt.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_updt.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:16:45 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -58,9 +52,11 @@ sub main use "writer\required\includes\w_010_1.inc" use "writer\required\includes\w_011_.inc" use "writer\required\includes\w_020_.inc" - + Printlog "******* Ressource-Test Writer Document *******" + Call wChangeDefaultView() + Call hStatusIn ( "writer", "w_updt.bas" ) Call w_001_ ' Menu File Call w_001a_ ' Menu File @@ -87,7 +83,10 @@ sub LoadIncludeFiles use "global\system\includes\gvariabl.inc" use "global\required\includes\g_001.inc" use "global\required\includes\g_option.inc" ' global subroutines for Tools / Options + use "global\required\includes\g_printing.inc" use "global\tools\includes\optional\t_xml_filter1.inc" ' global routines for XML-functionality + use "global\tools\includes\optional\t_docfuncs.inc" + use "global\tools\includes\optional\t_control_objects.inc" gApplication = "WRITER" GetUseFiles () diff --git a/testautomation/writer/tools/includes/w_get_locale_strings.inc b/testautomation/writer/tools/includes/w_get_locale_strings.inc index 2aa8dd16fd2c..3a2f59f60bb5 100644..100755 --- a/testautomation/writer/tools/includes/w_get_locale_strings.inc +++ b/testautomation/writer/tools/includes/w_get_locale_strings.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_get_locale_strings.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:42:49 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_locale_strings2.inc b/testautomation/writer/tools/includes/w_locale_strings2.inc index 409ed5bd6f38..65a350f08e67 100755 --- a/testautomation/writer/tools/includes/w_locale_strings2.inc +++ b/testautomation/writer/tools/includes/w_locale_strings2.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_locale_strings2.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:36:08 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/*********************************************************************** '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc index 19ef41a711de..bc7651870a62 100755 --- a/testautomation/writer/tools/includes/w_tool1.inc +++ b/testautomation/writer/tools/includes/w_tool1.inc @@ -1,33 +1,27 @@ '******************************************************************************* -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool1.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:43:01 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/****************************************************************************** '* '* owner : helge.delfs@sun.com @@ -343,17 +337,20 @@ sub sMenufunktionen(Fuer_Was as string) Kontext try - FormatControl - Sleep 1 + FormatControl + WaitSlot() + Kontext "ControlPropertiesDialog" - if ControlPropertiesDialog.Exists then + if ControlPropertiesDialog.Exists( 2 ) then ControlPropertiesDialog.Close + ControlPropertiesDialog.notExists( 2 ) else FormatControl Wait 500 Kontext "ControlPropertiesDialog" - if ControlPropertiesDialog.Exists then + if ControlPropertiesDialog.Exists( 2 ) then ControlPropertiesDialog.Close + ControlPropertiesDialog.notExists( 2 ) else Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!" end if diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 280d18b51677..2a9ff8c754e2 100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool2.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:43:13 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* ** '* owner : helge.delfs@sun.com ** @@ -64,7 +58,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" @@ -409,3 +403,21 @@ function wDeleteAutotext(vAutotextName as string) as boolean next ik end function + + +sub wChangeDefaultView() + + ' #i107038: This code forces the writer to display one page only which is + ' zoomed to pagewidth, filling the entire - previously maximized - window. + ' This is required because the VCL Testtool might eventually draw objects + ' outside the document window depending on display size + + Call hNewDocument + ViewZoom + Kontext "Massstab" + Vergroesserung100.check + Singlepage.check + Massstab.Ok + Call hCloseDocument + +end sub
\ No newline at end of file diff --git a/testautomation/writer/tools/includes/w_tool3.inc b/testautomation/writer/tools/includes/w_tool3.inc index 9453d9c671f4..81647979e9ec 100755 --- a/testautomation/writer/tools/includes/w_tool3.inc +++ b/testautomation/writer/tools/includes/w_tool3.inc @@ -1,33 +1,27 @@ '******************************************************************************* -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool3.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:43:26 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/****************************************************************************** '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tool4.inc b/testautomation/writer/tools/includes/w_tool4.inc index c14ab5c33649..3a243aaab587 100755 --- a/testautomation/writer/tools/includes/w_tool4.inc +++ b/testautomation/writer/tools/includes/w_tool4.inc @@ -1,33 +1,27 @@ '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool4.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:43:40 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* ** '* owner : helge.delfs@sun.com ** diff --git a/testautomation/writer/tools/includes/w_tool5.inc b/testautomation/writer/tools/includes/w_tool5.inc index f9ddfcf065d8..aea72b6865bf 100644..100755 --- a/testautomation/writer/tools/includes/w_tool5.inc +++ b/testautomation/writer/tools/includes/w_tool5.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '******************************************************************************* -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool5.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:43:52 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/****************************************************************************** '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tool6.inc b/testautomation/writer/tools/includes/w_tool6.inc index 860cfb45c5c0..8631bf15272d 100755 --- a/testautomation/writer/tools/includes/w_tool6.inc +++ b/testautomation/writer/tools/includes/w_tool6.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '******************************************************************************* -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool6.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:44:06 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/****************************************************************************** '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tool7.inc b/testautomation/writer/tools/includes/w_tool7.inc index e0b4d0d99a62..329516410911 100644..100755 --- a/testautomation/writer/tools/includes/w_tool7.inc +++ b/testautomation/writer/tools/includes/w_tool7.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tool7.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:03:05 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tools.inc b/testautomation/writer/tools/includes/w_tools.inc index 63e7e3a8ef7d..0cb838e1898b 100755 --- a/testautomation/writer/tools/includes/w_tools.inc +++ b/testautomation/writer/tools/includes/w_tools.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '******************************************************************************* -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tools.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:44:20 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/****************************************************************************** '* '* owner : helge.delfs@sun.com @@ -917,7 +911,6 @@ sub wOptionsUndo ( sOption$ ) WeichesScrollen.Uncheck ' Display GrafikenUndObjekte.Check - Tabellen.Check Zeichnungen.Check Feldname.Uncheck Notizen.Check @@ -981,20 +974,17 @@ sub wOptionsUndo ( sOption$ ) Call hToolsOptions("WRITER","Print") ' Contents Grafiken.Check - Tabellen.Check - Zeichnungen.Check Kontrollfelder.Check Hintergrund.Check SchwarzDrucken.Uncheck ' Pages LinkeSeiten.Check RechteSeiten.Check - Umgekehrt.Uncheck Prospekt.Uncheck ' Notes Keine.Check ' Other - EinzelneDruckauftraege.Uncheck + LeereSeitenDrucken.Check AusDruckereinstellung.Uncheck Fax.SetNoSelection end if diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc index f259ce1dde51..d1b71d2b27cc 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc +++ b/testautomation/writer/tools/includes/w_tools_autocorrection.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tools_autocorrection.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:44:33 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com @@ -41,42 +35,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 diff --git a/testautomation/writer/tools/includes/w_tools_drawing.inc b/testautomation/writer/tools/includes/w_tools_drawing.inc index 9e165efd5fdf..66ddd2cca895 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_drawing.inc +++ b/testautomation/writer/tools/includes/w_tools_drawing.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tools_drawing.inc,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:36:09 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/includes/w_tools_hyphenation.inc b/testautomation/writer/tools/includes/w_tools_hyphenation.inc new file mode 100755 index 000000000000..8229c2a21910 --- /dev/null +++ b/testautomation/writer/tools/includes/w_tools_hyphenation.inc @@ -0,0 +1,79 @@ +'************************************************************************** + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * +'/****************************************************************** +'* ** +'* owner : helge.delfs@sun.com ** +'* ** +'* short description : Misc tools for writer hyphenation tests ** +'* ** +'\****************************************************************** + + + +function fPrepareHyphenationDocument(testWord as string) + + Dim SpaceTickCount as integer + + SpaceTickCount = 1 + Do + Call wTypeKeys "<Mod1 Home>" + Call wTypeKeys "<Down>" + Call wTypeKeys "<Mod1 Shift Right>" + try + EditCopy + catch + endcatch + if trim(GetClipboardText) <> testWord then + EditSearchAndReplace + Kontext "FindAndReplace" + SearchFor.SetText testWord + SearchNow.Click + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + active.Yes + catch + Warnlog Active.Gettext + Active.ok + endcatch + end if + end if + Kontext "FindAndReplace" + FindAndReplace.Close + Call wTypeKeys "<Mod1 Left>" + Call wTypeKeys "<Space>" + inc SpaceTickCount + if SpaceTickCount >= 30 then + fPrepareHyphenationDocument = false + exit do + end if + else + fPrepareHyphenationDocument = true + exit do + end if + Loop + +end function diff --git a/testautomation/writer/tools/includes/w_tools_undo.inc b/testautomation/writer/tools/includes/w_tools_undo.inc index 11b4756bb6eb..bce7223c2a3e 100644..100755 --- a/testautomation/writer/tools/includes/w_tools_undo.inc +++ b/testautomation/writer/tools/includes/w_tools_undo.inc @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_tools_undo.inc,v $ -'* -'* $Revision: 1.3 $ -'* -'* last change: $Author: rt $ $Date: 2008-09-04 09:21:57 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * '/************************************************************************ '* '* owner : helge.delfs@sun.com diff --git a/testautomation/writer/tools/w_get_locale_strings.bas b/testautomation/writer/tools/w_get_locale_strings.bas index 0c8da3bd502a..f0dbe5c4ae25 100755 --- a/testautomation/writer/tools/w_get_locale_strings.bas +++ b/testautomation/writer/tools/w_get_locale_strings.bas @@ -1,34 +1,28 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_get_locale_strings.bas,v $ -'* -'* $Revision: 1.1 $ -'* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:49:36 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' '/************************************************************************ '* '* owner : helge.delfs@sun.com |