1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 '* Copyright 2008 by Sun Microsystems, Inc.
7 '* OpenOffice.org - a multi-platform office productivity suite
9 '* $RCSfile: w_010_.inc,v $
13 '* last change: $Author: vg $ $Date: 2008-08-18 12:42:11 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/************************************************************************
34 '* owner : helge.delfs@sun.com
36 '* short description : Testcases for the Objectbars.
38 '\******************************************************************
42 printLog Chr(13) + "--------- Objectbars (w_010_.inc) ----------"
43 gApplication = "WRITER"
49 Call tIndentIncreaseDecrease
51 ' ** Objectbar Numbering / Aufzaehlung
54 Call tNumSubpointsUpDown
55 Call tNumMoveUpMoveDown
56 Call tNumSubpointsMoveUpMoveDown
57 Call tNumUnnumberedEntry
58 Call tNumRestartNumbering
60 Call tNumNumberingEnumerating
63 Call tUpSubpointsUpDown
64 Call tUpMoveUpMoveDown
65 Call tUpSubpointsMoveUpMoveDown
66 Call tUpUnnumberedEntry
67 Call tUpRestartNumbering
69 Call tUpNumberingEnumerating
73 Call tHtmlDocFormatting
74 gApplication = "MASTERDOCUMENT"
75 Call tMasterDocFormatting
76 gApplication = "WRITER"
80 '-----------------------------------------------------------
83 printlog "- Objectbar ( normal ) : Formatting"
85 printlog " Open new document"
86 Call wTypeKeys ("Formatting <Shift Home>")
87 Kontext "TextObjectbar"
88 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
94 Warnlog "Style could not be changed in TextObjectbar"
96 printlog " Choose first 'style' in object bar"
99 printlog " Select 5th 'Font' in object bar"
103 Warnlog "Unable to select font in object bar"
105 Schriftart.TypeKeys "<Return>"
107 printlog " - Font Size"
108 printlog " Select 10th 'Font Size' in object bar"
110 Schriftgroesse.Select 10
111 Schriftgroesse.TypeKeys "<Return>"
113 Warnlog "Uanble to change font size in toolbar"
117 printlog " Select 'Bold' in object bar"
121 printlog " Select 'Italic' in object bar"
124 printlog " - Underline"
125 printlog " Select 'Underline' in object bar"
128 printlog " - Align Left"
129 printlog " Select 'Align Left' in object bar"
132 printlog " - Align Right"
133 printlog " Select 'Align Right' in object bar"
136 printlog " - Centered"
137 printlog " Select 'Centered' in object bar"
140 if gApplication <> "HTML" then
141 printlog " - Justify"
142 printlog " Select 'Justify' in object bar (not in HTML)"
146 printlog " - Font color"
147 printlog " Select 'Font color' in object bar"
150 printlog " - Highlighting"
151 printlog " Select 'Highlighting' in object bar"
152 Zeichenhintergrund.Click
155 printlog " Close active document"
158 '-----------------------------------------------------------
161 printlog "- Objectbar ( normal ) : Insert Numbering"
163 printlog " Open new document"
164 Kontext "TextObjectbar"
165 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
166 printlog " Select 'Numbering' in object bar"
168 Call wTypeKeys ("Numbering <Return>", 2)
169 printlog " Enter word 'Numbering' and '<Return>' two times"
171 printlog " Close active document"
174 '-----------------------------------------------------------
176 testcase tEnumerating
177 printlog "- Objectbar ( normal ) : Insert Bullets"
179 printlog " Open new document"
180 Kontext "TextObjectbar"
181 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
182 printlog " In object bar click 'Bullets'"
184 Call wTypeKeys ("Bullets <Return>", 2)
185 printlog " Enter word 'Bullets' and '<Return>' two times"
187 printlog " Close active document"
190 '-----------------------------------------------------------
192 testcase tIndentIncreaseDecrease
195 printlog "- Objectbar ( normal ) : Increase Indent with numbering"
197 printlog " Open new document"
198 Kontext "TextObjectbar"
199 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
200 printlog " Click 'Numbering' in object bar"
205 printlog " Select 'Increase Indent' in object bar (if not possible switch toolbar)"
207 Warnlog "Unable to select function in Toolbar"
214 if EinzugErhoehen.IsEnabled then
215 printlog " Select 'Increase Indent' 7 times"
218 if i = 1 then Warnlog "Increase Indent is disabled !"
223 printlog "- Objectbar ( normal ) : Decrease Indent with numbering"
225 printlog " Select 'Decrease Indent' 8 times"
226 if EinzugVermindern.IsEnabled then
227 EinzugVermindern.Click
229 if i = 1 then Warnlog "Decrease Indent is disabled !"
233 printlog " Enter '<Return>' 2 times"
234 Call wTypeKeys ("<Return>", 2)
237 printlog "- Objectbar ( normal ) : Increase Indent with Bullets"
238 Kontext "TextObjectbar"
239 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
240 printlog " Select 'Bullets' in object bar"
244 printlog " Select 'Increase Indent' 8 times"
245 if EinzugErhoehen.IsEnabled then
248 if i = 1 then Warnlog "Increase Indent is disabled !"
253 printlog "- Objectbar ( normal ) : Decrease Indent with Bullets"
255 printlog " Select 'Decrease Indent' 8 times"
256 if EinzugVermindern.IsEnabled then
257 EinzugVermindern.Click
259 if i = 1 then Warnlog "Decrease Indent is disabled !"
264 Call wTypeKeys ("<Return>", 2)
265 printlog " Enter '<Return>' 2 times"
267 printlog " Close active document"
270 '-----------------------------------------------------------
272 testcase tNumFormatting
273 printlog "- Objectbar Numbering : Numbering => Style, Font and Size"
275 printlog " Open new document"
276 Kontext "TextObjectbar"
277 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
278 printlog " Select 'Numbering' in object bar"
281 Call wTypeKeys ("Objectbar Numbering : Numbering => Style, Font and Size <Shift Home>")
282 printlog " Enter some text in document and select it"
283 Kontext "TextObjectbar"
285 printlog " Change 'Style' in object bar'"
289 Warnlog "Unable to select function in Toolbar"
295 printlog " Change 'Font Style' in object bar'"
298 Schriftart.TypeKeys "<Return>"
300 Warnlog "Unable to select 'Font Style' in object bar"
303 printlog " - Font Size"
304 printlog " Change 'Font Size' in object bar'"
306 Schriftgroesse.Select 10
307 Schriftgroesse.TypeKeys "<Return>"
309 Warnlog "Unable to select 'Font Sitze' in object bar"
312 printlog " Enter '<Return>'"
313 Call wTypeKeys ("<Return>")
316 printlog " Close active document"
319 '-----------------------------------------------------------
321 testcase tNumLevelUpDown
324 printlog "- Objectbar Numbering : Numbering Level-Up and Down"
326 printlog " Open new document"
327 Kontext "TextObjectbar"
328 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
329 printlog " Select 'Numbering' in object bar"
333 Kontext "NumObjectbar"
334 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
335 printlog " - 11 times level down"
336 Kontext "NumObjectbar"
337 printlog " Select 11 times 'Level down' in object bar"
341 Warnlog "Unable to select function in Toolbar"
347 if Hinunterstufen.IsEnabled = True then
350 if i = 1 then Warnlog "Level down is disabled!"
355 printlog " - 11 times level up"
356 printlog " Select 11 times 'Level up' in object bar"
358 if Hochstufen.IsEnabled then
361 if i = 1 then Warnlog "Level up is disabled! (#i28550)"
367 printlog " Close active document"
370 '-----------------------------------------------------------
372 testcase tNumSubpointsUpDown
375 printlog "- Objectbar Numbering : Numbering with subpoints up and down"
377 printlog " Open new document"
378 Kontext "TextObjectbar"
379 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
381 printlog " Click 'Numbering' in Object bar"
382 Call wTypeKeys ("Numbering <Return><Tab>", 2)
383 Call wTypeKeys ("<Tab>Numbering<Up><Up><Up>")
385 Kontext "NumObjectbar"
386 if ( NumObjectbar.Exists( 1 ) ) then
389 Call hToolbarSelect("BULLETSANDNUMBERING", true)
392 printlog " - 6 times subpoints down"
393 printlog " click 6 times subpoints down in object bar"
394 if HinunterstufenMitUnterpunkten.IsEnabled then
395 HinunterstufenMitUnterpunkten.Click
397 if i = 1 then Warnlog "Move up with subpoints is disabled! (#i28550)"
402 if HinunterstufenMitUnterpunkten.IsEnabled then
403 HinunterstufenMitUnterpunkten.Click
405 if i = 1 then Warnlog "Move down with subpoints is disabled!"
410 if HinunterstufenMitUnterpunkten.IsEnabled then
411 Warnlog "Move down with subpoints is enabled though on Level 10"
415 printlog " - 6 times subpoints up"
416 printlog " click 6 times subpoints up in object bar"
418 if HochstufenMitUnterpunkten.IsEnabled then
419 HochstufenMitUnterpunkten.Click
421 if i = 1 then Warnlog "Move up with subpoints is disabled!"
426 if HochstufenMitUnterpunkten.IsEnabled then
427 Warnlog "Move up with subpoints is enabled!"
431 printlog " Close active document"
434 '-----------------------------------------------------------
436 testcase tNumMoveUpMoveDown
439 printlog "- Objectbar Numbering : Move Numbering up and down"
441 printlog " Open new document"
442 Kontext "TextObjectbar"
443 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
445 printlog " Click 'Numbering' in object bar"
446 Call wTypeKeys ("Numbering up <Return><Tab>", 3)
447 Call wTypeKeys ("<Tab>Hallo<Return>")
448 Call wTypeKeys ("<Shift Tab>", 5)
449 Call wTypeKeys ("Numbering down <Up><Up>")
452 printlog " - 3 times move up"
453 printlog " click 3 times move up in object bar"
454 Kontext "NumObjectbar"
455 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
459 Warnlog "Unable to select function in Toolbar"
465 printlog " - 4 times move down"
466 printlog " click 4 times move down in object bar"
468 Hinunterschieben.Click
473 printlog " Close active document"
476 '-----------------------------------------------------------
478 testcase tNumSubpointsMoveUpMoveDown
481 printlog "- Objectbar Numbering : Move Numbering with subpoints up and down"
483 printlog " Open new document"
484 Kontext "TextObjectbar"
485 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
487 printlog " Click 'Numbering' in object bar"
488 Call wTypeKeys ("hallo <Return><Tab>", 3)
489 Call wTypeKeys ("<Tab>Hallo<Return>")
490 Call wTypeKeys ("<Shift Tab>", 5)
491 Call wTypeKeys ("Hallo <Up><Up>")
494 printlog " - move up 3 times"
495 printlog " click 3 times move up in object bar"
496 Kontext "NumObjectbar"
497 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
499 HochschiebenMitUnterpunkten.Click
501 Warnlog "Unable to select function in Toolbar"
505 HochschiebenMitUnterpunkten.Click
507 printlog " - move down 3 times"
508 if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
509 QAErrorlog "Loop when moving numbered list up and down with subpoints"
511 printlog " click 3 times move down in object bar"
513 HinunterschiebenMitUnterpunkten.Click
519 printlog " Close active document"
522 '-----------------------------------------------------------
524 testcase tNumUnnumberedEntry
525 printlog "- Objectbar Numbering: Paragraph without Numbering"
528 printlog " Open new document"
529 Kontext "TextObjectbar"
530 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
532 printlog " Click 'Numbering' in object bar"
533 Call wTypeKeys ("Paragraph without numbering")
534 Kontext "NumObjectbar"
535 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
537 printlog " Click 'Insert Unnumbered Entry'"
540 Warnlog "Unable to select function in Toolbar"
544 printlog " Close active document"
547 '-----------------------------------------------------------
549 testcase tNumRestartNumbering
550 printlog "- Objectbar Numbering: Restart numbering"
552 printlog " Open new document"
553 Kontext "TextObjectbar"
554 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
555 printlog " Click 'Numbering' in object bar"
557 Call wTypeKeys ("Restart numbering<Return>", 3)
558 printlog " Enter Text and hit <Return> 3 times"
559 Kontext "NumObjectbar"
560 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
562 printlog " Click 'Restart Numbering' in object bar"
565 Warnlog "Unable to select function in Toolbar"
568 Call wTypeKeys ("Restart Numbering<Return>", 3)
570 printlog " Close active document"
573 '-----------------------------------------------------------
575 testcase tNumNumberingOff
576 printlog "- Objectbar Numbering: Numbering off"
578 printlog " Open new document"
579 Kontext "TextObjectbar"
580 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
581 printlog " Click 'Numbering' in object bar"
583 Call wTypeKeys ("Numbering Off<Return>", 3)
584 printlog " Enter Text and hit <Return> 3 times"
585 Kontext "NumObjectbar"
586 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
588 printlog " Click 'Numbering off' in objectbar"
591 Warnlog "Unable to select function in Toolbar"
594 Call wTypeKeys ("Numbering Off<Return>", 3)
595 printlog " Enter Text and hit <Return> 3 times"
597 printlog " Close active document"
600 '-----------------------------------------------------------
602 testcase tNumNumberingEnumerating
603 printlog "- Objectbar Numbering: Numbering within a Numbering"
605 printlog " Open new document"
606 Kontext "TextObjectbar"
607 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
608 printlog " Click 'Numbering' in object bar"
612 Active.Setpage TabBullet
614 Warnlog "For some unknown reason the Numbering/Bullets dialog has been opened!"
618 Call wTypeKeys ("Numbering within a Numbering<Return>")
619 printlog " Enter text and hit <Return>"
621 Kontext "NumObjectbar"
622 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
623 if NumObjectBar.IsDocked then NumObjectbar.Undock
625 printlog " Click 'Edit Numbering' in object bar"
626 NumerierungAufzaehlung.Click
631 Active.Setpage TabBullet
633 Warnlog "For some unknown reason the Numbering/Bullets dialog is already opened!"
635 Warnlog "Unable to select function in Toolbar"
642 printlog " Step through all tabpages in 'Numbering/Bullets' dialog"
643 Active.SetPage TabBullet
645 Call DialogTest ( TabBullet )
649 Active.SetPage TabNumerierungsart
650 Kontext "TabNumerierungsart"
651 Call DialogTest ( TabNumerierungsart )
655 Active.SetPage TabNumerierung
656 Kontext "TabNumerierung"
657 Call DialogTest ( TabNumerierung )
661 Active.SetPage TabGrafiken
662 Kontext "TabGrafiken"
663 Call DialogTest ( TabGrafiken )
667 Active.SetPage TabPositionNumerierung
668 Kontext "TabPositionNumerierung"
669 Call DialogTest ( TabPositionNumerierung )
673 Active.SetPage TabOptionenNumerierung
674 Kontext "TabOptionenNumerierung"
675 Call DialogTest ( TabOptionenNumerierung )
677 printlog " Close 'Numbering/Bullets' dialog"
678 TabOptionenNumerierung.Cancel
681 printlog " Close active document"
684 '-----------------------------------------------------------
686 testcase tUpFormatting
687 printlog "- Objectbar Numbering : Bullets => Style, Font and -Size"
689 printlog " Open new document"
690 Kontext "TextObjectbar"
691 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
692 printlog " Click 'Bullets on/off' in object bar"
695 printlog " Enter some text and select it"
696 Call wTypeKeys ("Bullets => Style, Font and -Size <Shift Home>")
697 Kontext "TextObjectbar"
702 Warnlog "Unable to select style in Toolbar"
706 printlog " Select 1st entry in 'Apply Style'"
709 printlog " Select 5th 'Font Name'"
713 Warnlog "Unable to select font in object bar"
715 Schriftart.TypeKeys "<Return>"
717 printlog " - Font Size"
718 printlog " Select 10th 'Font Size'"
719 Schriftgroesse.Select 10
720 Schriftgroesse.TypeKeys "<Return>"
722 printlog " Hit <Return> in document"
723 Call wTypeKeys ("<Return>")
726 printlog " Close active document"
729 '-----------------------------------------------------------
731 testcase tUpLevelUpDown
734 printlog "- Objectbar Numbering : Bullets level up and down"
736 printlog " Open new document"
737 Kontext "TextObjectbar"
738 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
739 printlog " Click 'Bullets on/off' in object bar"
742 Kontext "NumObjectbar"
743 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
745 printlog " - 11 times level down"
749 Warnlog "Unable to select function in Toolbar"
755 printlog " Click 'Down One Level' in object bar 11 times"
756 if Hinunterstufen.IsEnabled then
759 if i = 1 then Warnlog "Level down is disabled !"
764 printlog " - 11 times level up"
765 printlog " Click 'Up One Level' in object bar 11 times"
767 if Hochstufen.IsEnabled then
770 if i = 1 then Warnlog "Level up is disabled ! (#i28550)"
776 printlog " Close active document"
779 '-----------------------------------------------------------
781 testcase tUpSubpointsUpDown
784 printlog "- Objectbar Numbering : Bullets with Subpoints up and down"
786 printlog " Open new document"
787 Kontext "TextObjectbar"
788 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
789 printlog " Click 'Bullets on/off' in object bar"
791 printlog " Enter some text, hit 'Return' and 'Tab' 2 times"
792 Call wTypeKeys ("Bullets with Subpoints <Return><Tab>", 2)
793 printlog " Hit 'Tab', enter some text, and hit 'Cursor Up' 3 times"
794 Call wTypeKeys ("<Tab>up and down<Up><Up><Up>")
797 printlog " - down 6 times"
798 printlog " Click 'Move Down with Subpoints' 11 times "
799 Kontext "NumObjectbar"
800 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
802 HinunterstufenMitUnterpunkten.Click
804 Warnlog "Unable to select function in Toolbar"
811 if HinunterstufenMitUnterpunkten.IsEnabled then
812 HinunterstufenMitUnterpunkten.Click
814 if i = 1 then Warnlog "Move with Subpoints down is disabled!"
818 if HinunterstufenMitUnterpunkten.IsEnabled then
819 Warnlog "Move with Subpoints down is enabled though on level 10!"
822 printlog " - up 6 times"
824 printlog " Click 'Move Up with Subpoints' 11 times "
825 if HochstufenMitUnterpunkten.IsEnabled then
826 HochstufenMitUnterpunkten.Click
828 if i = 1 then Warnlog "Move with Subpoints up is disabled! (#i28550)"
832 if HochstufenMitUnterpunkten.IsEnabled then
833 Warnlog "Move with Subpoints up is enabled though on level 1!"
837 printlog " Close active document"
840 '-----------------------------------------------------------
842 testcase tUpMoveUpMoveDown
845 printlog "- Objectbar Numbering : move bullets up and down"
847 printlog " Open new document"
848 Kontext "TextObjectbar"
849 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
851 printlog " Click 'Bullets on/off' in object bar"
852 Call wTypeKeys ("move bullets <Return><Tab>", 3)
853 printlog " enter some text hit <Return> and <Tab> 3 Times"
854 Call wTypeKeys ("<Tab>up<Return>")
855 printlog " Enter one word"
856 Call wTypeKeys ("<Shift Tab>", 5)
857 printlog " Hit <Tab> 5 Times"
858 Call wTypeKeys ("and down <Up><Up>")
859 printlog " enter text and hit <Cursor Up> 2 times"
861 Kontext "NumObjectbar"
862 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
863 printlog " - 3 times up"
867 Warnlog "Unable to select function in Toolbar"
873 printlog " Click 'Move Up' in object bar 3 times"
878 printlog " - 4 times down"
880 printlog " Click 'Move Down' in object bar 4 times"
886 printlog " Close active document"
889 '-----------------------------------------------------------
891 testcase tUpSubpointsMoveUpMoveDown
894 printlog "- Objectbar Numbering : Move up and down bullets with subpoints"
896 printlog " Open new document"
897 Kontext "TextObjectbar"
898 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
900 printlog " Click 'Bullets on/off' in object bar"
901 Call wTypeKeys ("move bullets <Return><Tab>", 3)
902 printlog " enter some text hit <Return> and <Tab> 3 Times"
903 Call wTypeKeys ("<Tab>up and down<Return>")
904 printlog " Enter one word"
905 Call wTypeKeys ("<Shift Tab>", 5)
906 printlog " Hit <Tab> 5 Times"
907 Call wTypeKeys ("with subpoints <Up><Up>")
908 printlog " enter text and hit <Cursor Up> 2 times"
910 printlog " - move up 3 times"
911 Kontext "NumObjectbar"
912 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
914 HochschiebenMitUnterpunkten.Click
916 Warnlog "Unable to select function in Toolbar"
921 printlog " Click 'Move Up with subpoints' 3 times"
922 HochschiebenMitUnterpunkten.Click
924 if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
925 QAErrorlog "Loop when moving numbered list up and down with subpoints"
927 printlog " - move down 3 times"
929 printlog " Click 'Move Down with subpoints' 3 times"
930 HinunterschiebenMitUnterpunkten.Click
936 printlog " Close active document"
939 '-----------------------------------------------------------
941 testcase tUpUnnumberedEntry
942 printlog "- Objectbar Numbering: Paragraph without Bullets"
945 printlog " Open new document"
946 Kontext "TextObjectbar"
947 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
949 printlog " Click 'Bullets on/off' in object bar"
950 Call wTypeKeys ("Paragraph without Bullets")
951 Kontext "NumObjectbar"
952 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
955 printlog " Click 'Insert Unnumbered Entry' in object bar"
958 Warnlog "Unable to select function in Toolbar"
961 printlog " Close active document"
964 '-----------------------------------------------------------
966 testcase tUpRestartNumbering
967 printlog "- Objectbar Numbering: restart Numbering"
969 printlog " Open new document"
970 Kontext "TextObjectbar"
971 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
973 printlog " Click 'Bullets on/off' in object bar"
974 Call wTypeKeys ("restart Numbering<Return>", 3)
975 printlog " enter Text and hit <Return> 3 Times"
976 Kontext "NumObjectbar"
977 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
979 printlog " Click 'Restart Numbering' in object bar"
982 Warnlog "Unable to select function in Toolbar"
985 Call wTypeKeys ("restart Numbering<Return>", 3)
986 printlog " enter Text and hit <Return> 3 Times"
988 printlog " Close active document"
991 '-----------------------------------------------------------
993 testcase tUpNumberingOff
994 printlog "- Objectbar Numbering: Numbering off"
996 printlog " Open new document"
997 Kontext "TextObjectbar"
998 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1000 printlog " Click 'Bullets on/off' in object bar"
1001 Call wTypeKeys ("Numbering off<Return>", 3)
1002 printlog " enter Text and hit <Return> 3 Times"
1003 Kontext "NumObjectbar"
1004 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
1006 printlog " Click 'Numbering off' in object bar"
1009 Warnlog "Unable to select function in Toolbar"
1012 Call wTypeKeys ("Numbering off<Return>", 3)
1013 printlog " enter Text and hit <Return> 3 Times"
1015 printlog " Close active document"
1018 '-----------------------------------------------------------
1020 testcase tUpNumberingEnumerating
1021 printlog "- Objectbar Numbering: Numbering and Bullets within numbering"
1023 printlog " Open new document"
1024 Kontext "TextObjectbar"
1025 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1027 printlog " Click 'Numbering on/off' in object bar"
1028 Call wTypeKeys ("Numbering and Bullets within numbering<Return>")
1029 printlog " enter Text and hit <Return>"
1030 Kontext "NumObjectbar"
1031 if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
1033 printlog " Click ' Edit Numbering' in object bar"
1034 NumerierungAufzaehlung.Click
1036 Warnlog "Unable to select function in Toolbar"
1042 printlog " In 'Numbering/Bullets' dialog step through all tabpages"
1044 Active.SetPage TabBullet
1046 Call DialogTest ( TabBullet )
1049 Active.SetPage TabNumerierungsart
1050 Kontext "TabNumerierungsart"
1051 Call DialogTest ( TabNumerierungsart )
1054 Active.SetPage TabNumerierung
1055 Kontext "TabNumerierung"
1056 Call DialogTest ( TabNumerierung )
1059 Active.SetPage TabGrafiken
1060 Kontext "TabGrafiken"
1061 Call DialogTest ( TabGrafiken )
1064 Active.SetPage TabPositionNumerierung
1065 Kontext "TabPositionNumerierung"
1066 Call DialogTest ( TabPositionNumerierung )
1069 Active.SetPage TabOptionenNumerierung
1070 Kontext "TabOptionenNumerierung"
1071 Call DialogTest ( TabOptionenNumerierung )
1073 printlog " Close 'Numbering/Bullets' dialog"
1074 TabOptionenNumerierung.Cancel
1076 printlog " Close active document"
1079 '-----------------------------------------------------------
1081 testcase tHtmlDocFormatting
1082 printlog "- Objectbar ( normal ) : Formatting"
1083 gApplication = "HTML"
1085 printlog " Open new document"
1087 Call wTypeKeys ("Formatting <Shift Home>")
1088 Kontext "TextObjectbar"
1089 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1095 Warnlog "Style could not be changed in TextObjectbar"
1097 printlog " Choose first 'style' in object bar"
1100 printlog " Select 5th 'Font' in object bar"
1104 Warnlog "Unable to select font in object bar"
1106 Schriftart.TypeKeys "<Return>"
1108 printlog " - Font Size"
1109 printlog " Select 10th 'Font Size' in object bar"
1111 Schriftgroesse.Select 10
1112 Schriftgroesse.TypeKeys "<Return>"
1114 Warnlog "Uanble to change font size in toolbar"
1118 printlog " Select 'Bold' in object bar"
1121 printlog " - Italic"
1122 printlog " Select 'Italic' in object bar"
1125 printlog " - Underline"
1126 printlog " Select 'Underline' in object bar"
1129 printlog " - Align Left"
1130 printlog " Select 'Align Left' in object bar"
1133 printlog " - Align Right"
1134 printlog " Select 'Align Right' in object bar"
1137 printlog " - Centered"
1138 printlog " Select 'Centered' in object bar"
1141 printlog " - Font color"
1142 printlog " Select 'Font color' in object bar"
1145 printlog " - Highlighting"
1146 printlog " Select 'Highlighting' in object bar"
1147 Zeichenhintergrund.Click
1149 printlog " Close active document"
1151 gApplication = "WRITER"
1154 '-----------------------------------------------------------
1156 testcase tMasterDocFormatting
1157 printlog "- Objectbar ( normal ) : Formatting"
1158 gApplication = "MASTERDOCUMENT"
1160 printlog " Open new document"
1162 Call wTypeKeys ("Formatting <Shift Home>")
1163 Kontext "TextObjectbar"
1164 if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1170 Warnlog "Style could not be changed in TextObjectbar"
1172 printlog " Choose first 'style' in object bar"
1175 printlog " Select 5th 'Font' in object bar"
1179 Warnlog "Unable to select font in object bar"
1181 Schriftart.TypeKeys "<Return>"
1183 printlog " - Font Size"
1184 printlog " Select 10th 'Font Size' in object bar"
1186 Schriftgroesse.Select 10
1187 Schriftgroesse.TypeKeys "<Return>"
1189 Warnlog "Uanble to change font size in toolbar"
1193 printlog " Select 'Bold' in object bar"
1196 printlog " - Italic"
1197 printlog " Select 'Italic' in object bar"
1200 printlog " - Underline"
1201 printlog " Select 'Underline' in object bar"
1204 printlog " - Align Left"
1205 printlog " Select 'Align Left' in object bar"
1208 printlog " - Align Right"
1209 printlog " Select 'Align Right' in object bar"
1212 printlog " - Centered"
1213 printlog " Select 'Centered' in object bar"
1216 printlog " - Justify"
1217 printlog " Select 'Justify' in object bar (not in HTML)"
1220 printlog " - Font color"
1221 printlog " Select 'Font color' in object bar"
1224 printlog " - Highlighting"
1225 printlog " Select 'Highlighting' in object bar"
1226 Zeichenhintergrund.Click
1228 printlog " Close active document"
1230 gApplication = "WRITER"
1233 '-----------------------------------------------------------