testautomation/writer/optional/includes/number/w_205a_.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_205a_.inc,v $
   9 '*
  10 '* $Revision: 1.3 $
  11 '*
  12 '* last change: $Author: rt $ $Date: 2008-09-04 09:19:26 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description :
  36 '*
  37 '\***********************************************************************
  38
  39 sub w_205a_
  40     printLog Chr(13) + "---------   Level 1 - Tools - Menu (3)   ----------"
  41
  42     Call tToolsOutlineNumbering1                ' Numerierungtabpage f�r Kapitelnumerierung
  43     Call tToolsOutlineNumbering2                ' Positionstabpage f�r Kapitelnumerierung
  44     Call tToolsOutlineNumbering3                ' Gesamtes f�r Kapitelnumerierung
  45     Call tToolsFootnoteEndnote                  ' Fu�- + Endnoten formatieren
  46
  47 end sub
  48
  49 ' *******************************************************************
  50
  51 testcase tToolsOutlineNumbering1
  52     Dim VorlagenLst(11) as String : Dim Zaehler as Integer
  53     Dim i as integer
  54     PrintLog "- Tools / Outline Numbering: Part 1 - Numbering"
  55
  56     Call hFileOpen ( gTesttoolPath + "writer\optional\input\number\numbering1.sxw" )
  57     Call sMakeReadOnlyDocumentEditable
  58
  59     ToolsOutlineNumbering
  60     Kontext
  61     Active.SetPage TabKapitelnumerierung
  62     Kontext "TabKapitelnumerierung"
  63
  64     PrintLog "   - adjust level"
  65     Ebene.Select 1
  66     ' I need to know the name of entry (none), depends on language, for checking the results
  67     Absatzvorlage.Select 1
  68     VorlagenLst(11)= Absatzvorlage.GetSelText
  69     Sleep 2
  70     ' Select next paragraph style
  71     Absatzvorlage.Select 2
  72     Nummer.Select 1
  73     if Vollstaendig.IsEnabled then Warnlog "On 1. Level 'Show Sublevels' is active -> Bug"
  74     BeginBei.SetText "7"
  75     Davor.SetText "Ha "
  76     Dahinter.SetText " aH"
  77
  78     Ebene.Select 2
  79     Absatzvorlage.Select 3
  80     Nummer.Select 2
  81     Vollstaendig.SetText "0"
  82     BeginBei.SetText "4"
  83     Davor.SetText "Q "
  84     Dahinter.SetText " Q"
  85
  86     Ebene.Select 3
  87     Absatzvorlage.Select 4
  88     Nummer.Select 3
  89     Vollstaendig.SetText "3"
  90     BeginBei.SetText "2"
  91     Davor.SetText "A "
  92     Dahinter.SetText " s"
  93
  94     Ebene.Select 4
  95     Absatzvorlage.Select 5
  96     Nummer.Select 4
  97     Vollstaendig.SetText "1"
  98     Davor.SetText "Ups "
  99     Dahinter.SetText " spU"
 100
 101     Ebene.Select 5
 102     Absatzvorlage.Select 6
 103     Nummer.Select 5
 104     Vollstaendig.SetText "0"
 105     Davor.SetText "*. "
 106     Dahinter.SetText " @�"
 107
 108     Ebene.Select 6
 109     Absatzvorlage.Select 7
 110     Nummer.Select 6
 111     Vollstaendig.SetText "5"
 112     Davor.SetText "    "
 113     Sleep 1
 114
 115     Ebene.Select 7
 116     Absatzvorlage.Select 8
 117     Nummer.Select 5
 118     Vollstaendig.SetText "9"
 119     Sleep 1
 120
 121     Ebene.Select 8
 122     Absatzvorlage.Select 9
 123     Nummer.Select 4
 124     Vollstaendig.SetText "9"
 125     Sleep 1
 126
 127     Ebene.Select 9
 128     Absatzvorlage.Select 10
 129     Nummer.Select 3
 130     Vollstaendig.SetText "9"
 131     Dahinter.SetText "Hallo dies ist ein langer Text"
 132     Sleep 1
 133
 134     Ebene.Select 10
 135     Absatzvorlage.Select 11
 136     Nummer.Select 3
 137     Vollstaendig.SetText "9"
 138     Davor.SetText "Hallo dies ist ein langer Text"
 139     Sleep 1
 140
 141     ' remember the paragraph style
 142     For i = 1 to 10
 143         Ebene.Select i
 144         VorlagenLst(i) = Absatzvorlage.GetSelText
 145     next i
 146
 147     TabKapitelnumerierung.Ok
 148
 149     printlog "- format document"
 150     call wTypeKeys "<Up>", 25
 151
 152     for Zaehler = 1 to 10
 153         call wTypeKeys "<Shift End>"
 154         if wStyleSet ( VorlagenLst(Zaehler) ) = false then
 155             Warnlog "- Style '" & VorlagenLst(Zaehler) & "' could not be set!"
 156         end if
 157         call wTypeKeys "<Down>", 8
 158         call wTypeKeys "<Home>"
 159         wait 500
 160     next Zaehler
 161
 162     printlog "- check properties"
 163     ToolsOutlineNumbering
 164     Kontext
 165     Active.SetPage TabKapitelnumerierung
 166     Kontext "TabKapitelnumerierung"
 167     Ebene.Select 1
 168     if Absatzvorlage.GetSelText <> VorlagenLst(1) then Warnlog "Level 1: wrong Paragraph Style"
 169     if Nummer.GetSelIndex <> 1 then Warnlog "Level 1: wrong Character Style -> " + Nummer.GetSeltext + "instead of 1 !"
 170     if BeginBei.GetText <> "7" then Warnlog "7 is not selected at 'Start at' but " + BeginBei.Gettext
 171     if Davor.GetText <> "Ha " then Warnlog "Level 1: Seperator before not 'Ha ' but " + Davor.Gettext
 172     if Dahinter.GetText <> " aH" then Warnlog "Level 1: Seperator after not ' aH' but " + Dahinter.Gettext
 173
 174     Ebene.Select 2
 175     if Absatzvorlage.GetSelText <> VorlagenLst(2) then Warnlog "Level 2: Paragraph Style not " + VorlagenLst(2) + " but " + Absatzvorlage.GetSelText
 176     if Nummer.GetSelIndex <> 2 then Warnlog "Level 2: wrong Character Style"
 177     if Vollstaendig.GetText <> "1" then Warnlog "Level 2: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 178     if Davor.GetText <> "Q " then Warnlog "Level 2: Seperator before is wrong"
 179     if Dahinter.GetText <> " Q" then Warnlog "Level 2: Seperator after is wrong"
 180
 181     Ebene.Select 3
 182     if Absatzvorlage.GetSelText <> VorlagenLst(3) then Warnlog "Level 3: Paragraph Style" + VorlagenLst(3) + " but " + Absatzvorlage.GetSelText
 183     if Nummer.GetSelIndex <> 3 then Warnlog "Level 3: wrong Character Style"
 184     if Vollstaendig.GetText <> "3" then Warnlog "Level 3: 'Show Sublevels' is not 3 but " + Vollstaendig.GetText
 185     if Davor.GetText <> "A " then Warnlog "Level 3: Seperator before is wrong"
 186     if Dahinter.GetText <> " s" then Warnlog "Level 3: Seperator after is wrong"
 187
 188     Ebene.Select 4
 189     if Absatzvorlage.GetSelText <> VorlagenLst(4) then Warnlog "Level 4: Paragraph Style" + VorlagenLst(4) + " but " + Absatzvorlage.GetSelText
 190     if Nummer.GetSelIndex <> 4 then Warnlog "Level 4: wrong Character Style"
 191     if Vollstaendig.GetText <> "1" then Warnlog "Level 4: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 192     if Davor.GetText <> "Ups " then Warnlog "Level 4: Seperator before is wrong"
 193     if Dahinter.GetText <> " spU" then Warnlog "Level 4: Seperator after is wrong"
 194
 195     Ebene.Select 5
 196     if Absatzvorlage.GetSelText <> VorlagenLst(5) then Warnlog "Level 5: Paragraph Style" + VorlagenLst(5) + " but " + Absatzvorlage.GetSelText
 197     if Nummer.GetSelIndex <> 5 then Warnlog "Level 5: wrong Character Style"
 198     if Vollstaendig.GetText <> "1" then Warnlog "Level 5: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 199     if Davor.GetText <> "*. " then Warnlog "Level 5: Seperator before is wrong"
 200     if Dahinter.GetText <> " @�" then Warnlog "Level 5: Seperator after is wrong"
 201
 202     Ebene.Select 6
 203     if Absatzvorlage.GetSelText <> VorlagenLst(6) then Warnlog "Level 6: Paragraph Style" + VorlagenLst(6) + " but " + Absatzvorlage.GetSelText
 204     if Nummer.GetSelIndex <> 6 then Warnlog "Level 6: wrong Character Style"
 205     if Vollstaendig.GetText <> "5" then Warnlog "Level 6: 'Show Sublevels' is not 5 but " + Vollstaendig.GetText
 206     if Davor.GetText <> "    " then Warnlog "Level 6: Seperator before is wrong"
 207
 208     Ebene.Select 7
 209     if Absatzvorlage.GetSelText <> VorlagenLst(7) then Warnlog "Level 7: Paragraph Style" + VorlagenLst(7) + " but " + Absatzvorlage.GetSelText
 210     if Nummer.GetSelIndex <> 5 then Warnlog "Level 7: wrong Character Style"
 211     if Vollstaendig.GetText <> "7" then Warnlog "Level 7: 'Show Sublevels' is not 7 but " + Vollstaendig.GetText
 212
 213     Ebene.Select 8
 214     if Absatzvorlage.GetSelText <> VorlagenLst(8) then Warnlog "Level 8: Paragraph Style" + VorlagenLst(8) + " but " + Absatzvorlage.GetSelText
 215     if Nummer.GetSelIndex <> 4 then Warnlog "Level 8: wrong Character Style"
 216     if Vollstaendig.GetText <> "8" then Warnlog "Level 8: 'Show Sublevels' is not 8 but " + Vollstaendig.GetText
 217
 218     Ebene.Select 9
 219     if Absatzvorlage.GetSelText <> VorlagenLst(9) then Warnlog "Level 9: Paragraph Style not " + VorlagenLst(9) + " but " + Absatzvorlage.GetSelText
 220     if Nummer.GetSelIndex <> 3 then Warnlog "Level 9: wrong Character Style"
 221     if Vollstaendig.GetText <> "9" then Warnlog "Level 9: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
 222     if Dahinter.GetText <> "Hallo dies ist ein langer Text" then Warnlog "Level 9: Seperator after is wrong"
 223
 224     Ebene.Select 10
 225     if Absatzvorlage.GetSelText <> VorlagenLst(10) then
 226         QAErrorlog "#125998#Level 10: Paragraph Style not " + VorlagenLst(10) + " but " + Absatzvorlage.GetSelText
 227     end if
 228     if Nummer.GetSelIndex <> 3 then Warnlog "Level 10: wrong Character Style"
 229     if Vollstaendig.GetText <> "9" then Warnlog "Level 10: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
 230     if Davor.GetText <> "Hallo dies ist ein langer Text" then Warnlog "Level 10: Seperator before is wrong"
 231     TabKapitelnumerierung.Ok
 232
 233     for i = 1 to 2
 234         Select Case i
 235             Case 1
 236                 printlog "- Save as sxw"
 237                 Call hFileSaveAsKill ( gOfficePath + "user\work\tToolsOutlineNumbering1.sxw" )
 238             Case 2
 239                 printlog "- Save as odt"
 240                 Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering1.odt", "writer8")
 241         end select
 242     next i
 243     Call hCloseDocument
 244
 245     for i = 1 to 2
 246         Select Case i
 247             Case 1
 248                 printlog "- Load sxw and check formattings"
 249                 Call hFileOpen ( gOfficePath + "user\work\tToolsOutlineNumbering1.sxw" )
 250             Case 2
 251                 printlog "- Load odt and check formattings"
 252                 Call hFileOpen ( gOfficePath + "user\work\tToolsOutlineNumbering1.odt" )
 253         end select
 254         call wTypeKeys "<PageUp>", 8
 255         call wTypeKeys "<Up>", 10
 256
 257         for Zaehler = 1 to 10
 258             call wTypeKeys "<Shift End>"
 259             if wStyleGet(VorlagenLst(Zaehler)) = false then Warnlog "Wrong Style for Outline Numbering " + Zaehler
 260             call wTypeKeys "<Down>", 8
 261             call wTypeKeys "<Home>"
 262         next Zaehler
 263
 264         printlog "   - check saved properties"
 265         ToolsOutlineNumbering
 266         Kontext
 267         Active.SetPage TabKapitelnumerierung
 268         Kontext "TabKapitelnumerierung"
 269         Ebene.Select 1
 270         if Absatzvorlage.GetSelText <> VorlagenLst(1) then Warnlog "   - Level 1: wrong Paragraph Style"
 271         if Nummer.GetSelIndex <> 1 then Warnlog "   - Level 1: wrong Character Style -> " + Nummer.GetSeltext + "instead of 1 !"
 272         if BeginBei.GetText <> "7" then Warnlog "   - 7 is not selected at 'Start at' but " + BeginBei.Gettext
 273         if Davor.GetText <> "Ha " then Warnlog "   - Level 1: Seperator before not 'Ha ' but " + Davor.Gettext
 274         if Dahinter.GetText <> " aH" then Warnlog "   - Level 1: Seperator after not ' aH' but " + Dahinter.Gettext
 275
 276         Ebene.Select 2
 277         if Absatzvorlage.GetSelText <> VorlagenLst(2) then Warnlog "   - Level 2: Paragraph Style not " + VorlagenLst(2) + " but " + Absatzvorlage.GetSelText
 278         if Nummer.GetSelIndex <> 2 then Warnlog "   - Level 2: wrong Character Style"
 279         if Vollstaendig.GetText <> "1" then Warnlog "   - Level 2: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 280         if Davor.GetText <> "Q " then Warnlog "   - Level 2: Seperator before is wrong"
 281         if Dahinter.GetText <> " Q" then Warnlog "   - Level 2: Seperator after is wrong"
 282
 283         Ebene.Select 3
 284         if Absatzvorlage.GetSelText <> VorlagenLst(3) then
 285             QAErrorlog "   - #125998#Level 3: Paragraph Style not " + VorlagenLst(3) + " but " + Absatzvorlage.GetSelText
 286         end if
 287         if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 3: wrong Character Style"
 288         if Vollstaendig.GetText <> "3" then Warnlog "   - Level 3: 'Show Sublevels' is not 3 but " + Vollstaendig.GetText
 289         if Davor.GetText <> "A " then Warnlog "   - Level 3: Seperator before is wrong"
 290         if Dahinter.GetText <> " s" then Warnlog "   - Level 3: Seperator after is wrong"
 291
 292         Ebene.Select 4
 293         if Absatzvorlage.GetSelText <> VorlagenLst(4) then Warnlog "   - Level 4: Paragraph Style not " + VorlagenLst(4) + " but " + Absatzvorlage.GetSelText
 294         if Nummer.GetSelIndex <> 4 then Warnlog "   - Level 4: wrong Character Style"
 295         if Vollstaendig.GetText <> "1" then Warnlog "   - Level 4: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 296         if Davor.GetText <> "Ups " then Warnlog "   - Level 4: Seperator before is wrong"
 297         if Dahinter.GetText <> " spU" then Warnlog "   - Level 4: Seperator after is wrong"
 298
 299         Ebene.Select 5
 300         if Absatzvorlage.GetSelText <> VorlagenLst(5) then Warnlog "   - Level 5: Paragraph Style not " + VorlagenLst(5) + " but " + Absatzvorlage.GetSelText
 301         if Nummer.GetSelIndex <> 5 then Warnlog "   - Level 5: wrong Character Style"
 302         if Vollstaendig.GetText <> "1" then Warnlog "   - Level 5: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
 303         if Davor.GetText <> "*. " then Warnlog "   - Level 5: Seperator before is wrong"
 304         if Dahinter.GetText <> " @�" then Warnlog "   - Level 5: Seperator after is wrong"
 305
 306         Ebene.Select 6
 307         if Absatzvorlage.GetSelText <> VorlagenLst(6) then Warnlog "   - Level 6: Paragraph Style not " + VorlagenLst(6) + " but " + Absatzvorlage.GetSelText
 308         if Nummer.GetSelIndex <> 6 then Warnlog "   - Level 6: wrong Character Style"
 309         if Vollstaendig.GetText <> "5" then Warnlog "   - Level 6: 'Show Sublevels' is not 5 but " + Vollstaendig.GetText
 310         if Davor.GetText <> "    " then Warnlog "   - Level 6: Seperator before is wrong"
 311
 312         Ebene.Select 7
 313         if Absatzvorlage.GetSelText <> VorlagenLst(7) then Warnlog "   - Level 7: Paragraph Style not " + VorlagenLst(7) + " but " + Absatzvorlage.GetSelText
 314         if Nummer.GetSelIndex <> 5 then Warnlog "   - Level 7: wrong Character Style"
 315         if Vollstaendig.GetText <> "7" then Warnlog "   - Level 7: 'Show Sublevels' is not 7 but " + Vollstaendig.GetText
 316
 317         Ebene.Select 8
 318         if Absatzvorlage.GetSelText <> VorlagenLst(8) then Warnlog "   - Level 8: Paragraph Style not " + VorlagenLst(8) + " but " + Absatzvorlage.GetSelText
 319         if Nummer.GetSelIndex <> 4 then Warnlog "   - Level 8: wrong Character Style"
 320         if Vollstaendig.GetText <> "8" then Warnlog "   - Level 8: 'Show Sublevels' is not 8 but " + Vollstaendig.GetText
 321
 322         Ebene.Select 9
 323         if Absatzvorlage.GetSelText <> VorlagenLst(9) then Warnlog "   - Level 9: Paragraph Style not " + VorlagenLst(9) + " but " + Absatzvorlage.GetSelText
 324         if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 9: wrong Character Style"
 325         if Vollstaendig.GetText <> "9" then Warnlog "   - Level 9: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
 326         if Dahinter.GetText <> "Hallo dies ist ein langer Text" then Warnlog "   - Level 9: Seperator after is wrong"
 327
 328         Ebene.Select 10
 329         if Absatzvorlage.GetSelText <> VorlagenLst(10) then
 330             QAErrorlog "   - #125998#Level 10: Paragraph Style not " + VorlagenLst(10) + " but " + Absatzvorlage.GetSelText
 331         end if
 332         if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 10: wrong Character Style"
 333         if Vollstaendig.GetText <> "9" then Warnlog "   - Level 10: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
 334         if Davor.GetText <> "Hallo dies ist ein langer Text" then Warnlog "   - Level 10: Seperator before is wrong"
 335         TabKapitelnumerierung.Cancel
 336
 337         Call hCloseDocument
 338     next i
 339
 340 endcase
 341
 342 '--------------------------------------------------
 343
 344 testcase tToolsOutlineNumbering2
 345     Dim i as Integer
 346     Dim VorlagenLst (11) as String
 347     Dim V1 : Dim V2 :  Dim V3 : Dim V4 :  Dim V5 : Dim V6 :  Dim V7 : Dim V8 : Dim V9 : Dim V10
 348     Dim V11 : Dim V12 :  Dim V13 : Dim V14 :  Dim V15 : Dim V16
 349
 350     PrintLog "- Tools / Outline Numbering: Part 2 - Tabpage Position"
 351
 352     Call hFileOpen ( gTesttoolPath + "writer\optional\input\number\numbering1.sxw" )
 353     Call sMakeReadOnlyDocumentEditable
 354
 355     ToolsOutlineNumbering
 356     Kontext
 357     Active.SetPage TabKapitelnumerierung
 358     Kontext "TabKapitelnumerierung"
 359     for i=1 to 10
 360         if iSprache = 01 then
 361             VorlagenLst (i) = Absatzvorlage.GetItemText ( i+1 )
 362         else
 363             VorlagenLst (i) = Absatzvorlage.GetItemText ( i+2 )
 364         end if
 365     next i
 366     Kontext
 367     Active.SetPage TabPositionKapitelnumerierung
 368     Kontext "TabPositionKapitelnumerierung"
 369
 370     Level.Select 1
 371     NumberAlignment.Select 2
 372     if relativ.IsEnabled then Warnlog "'Relative' is enabled when selecting 'Level 1' -> Bug"
 373     IndentAt.More 5
 374     V1 = IndentAt.GetText
 375     AlignedAt.More 1
 376     V2 = AlignedAt.GetText
 377
 378     Level.Select 3
 379     NumberAlignment.Select 3
 380     Relativ.Check
 381     IndentAt.Less 5
 382     V3 = IndentAt.GetText
 383     AbstandTextNumerierung.More 2
 384     V4 = AbstandTextNumerierung.GetText
 385
 386     Level.Select 4
 387     NumberAlignment.Select 1
 388     Relativ.Check
 389     V5 = IndentAt.GetText
 390     V6 = AbstandTextNumerierung.GetText
 391     V7 = AlignedAt.GetText
 392
 393     Level.Select 6
 394     NumberAlignment.Select 3
 395     Relativ.Check
 396     IndentAt.More 4
 397     V8 = IndentAt.GetText
 398     AbstandTextNumerierung.Less 3
 399     V9 = AbstandTextNumerierung.GetText
 400     AlignedAt.Less 3
 401     V10 = AlignedAt.GetText
 402
 403     Level.Select 9
 404     NumberAlignment.Select 1
 405     Relativ.Check
 406     IndentAt.Less 2
 407     V11 = IndentAt.GetText
 408     AbstandTextNumerierung.More 2
 409     V12 = AbstandTextNumerierung.GetText
 410     AlignedAt.More 3
 411     V13 = AlignedAt.GetText
 412
 413     Level.Select 10
 414     NumberAlignment.Select 3
 415     Relativ.Check
 416     IndentAt.More 4
 417     V14 = IndentAt.GetText
 418     AbstandTextNumerierung.Less 3
 419     V15 = AbstandTextNumerierung.GetText
 420     AlignedAt.Less 3
 421     V16 = AlignedAt.GetText
 422     TabPositionKapitelnumerierung.OK
 423
 424     printlog "  - create Numbering"
 425     for i = 1 to 10
 426         call wTypeKeys "<Shift End>"
 427         if wStyleSet ( VorlagenLst(i) ) = false then
 428             Warnlog "- Style '" & VorlagenLst(i) & "' could not be set!"
 429         end if
 430         call wTypeKeys "<Down>", 8
 431         call wTypeKeys "<Home>"
 432     next i
 433
 434     printlog "  - check Numbering-Position"
 435     ToolsOutlineNumbering
 436     Kontext
 437     Active.SetPage TabPositionKapitelnumerierung
 438     Kontext "TabPositionKapitelnumerierung"
 439     Level.Select 1
 440     if NumberAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberAlignment.GetSelIndex
 441     if V1 <> IndentAt.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ IndentAt.GetText
 442     if V2 <> AlignedAt.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ AlignedAt.GetText
 443     Level.Select 3
 444     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 445     if V3 <> IndentAt.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ IndentAt.GetText
 446     if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Minimum Space numbering <> Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung.GetText
 447     Level.Select 4
 448     if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
 449     if V5 <> IndentAt.GetText then Warnlog "Level 4: Wrong Indent:  Not = "+ V5+ "  But = "+ IndentAt.GetText
 450     if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Minimum Space numbering <> Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung.GetText
 451     if V7 <> AlignedAt.GetText then Warnlog "Level 4: Space to Text  Not = "+ V7+ "  But = "+ AlignedAt.GetText
 452     Level.Select 6
 453     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 454     if V8 <> IndentAt.GetText then Warnlog "Level 6: Wrong Indent:  Not = "+ V8+ "  But = "+ IndentAt.GetText
 455     if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Minimum Space numbering <> Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung.GetText
 456     if V10 <> AlignedAt.GetText then Warnlog "Level 6: Space to Text  Not = "+ V10+ "  But = "+ AlignedAt.GetText
 457     Level.Select 9
 458     if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
 459     if V11 <> IndentAt.GetText then Warnlog "Level 9: Wrong Indent:  Not = "+ V11+ "  But = "+ IndentAt.GetText
 460     if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Minimum Space numbering <> Text  Not = "+ V12+ "  But = "+ AbstandTextNumerierung.GetText
 461     if V13 <> AlignedAt.GetText then Warnlog "Level 9: Space to Text  Not = "+ V13+ "  But = "+ AlignedAt.GetText
 462     Level.Select 10
 463     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 464     if V14 <> IndentAt.GetText then Warnlog "Level 10: Wrong Indent:  Not = "+ V14+ "  But = "+ IndentAt.GetText
 465     if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Minimum Space numbering <> Text  Not = "+ V15+ "  But = "+ AbstandTextNumerierung.GetText
 466     if V16 <> AlignedAt.GetText then Warnlog "Level 10: Space to Text  Not = "+ V16+ "  But = "+ AlignedAt.GetText
 467     TabPositionKapitelnumerierung.Cancel
 468
 469     printlog "  - check saved Numbering"
 470     Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering2.odt", "writer8" )
 471     Call hCloseDocument
 472     Call hFileOpen ( gOfficePath + "user\work\tToolsOutlineNumbering2.odt" )
 473
 474     ToolsOutlineNumbering
 475     Kontext
 476     Active.SetPage TabPositionKapitelnumerierung
 477     Kontext "TabPositionKapitelnumerierung"
 478     Level.Select 1
 479     if NumberAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberAlignment.GetSelIndex
 480     if V1 <> IndentAt.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ IndentAt.GetText
 481     if V2 <> AlignedAt.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ AlignedAt.GetText
 482     Level.Select 3
 483     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 484     if V3 <> IndentAt.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ IndentAt.GetText
 485     if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Minimum Space numbering <> Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung.GetText
 486     Level.Select 4
 487     if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
 488     if V5 <> IndentAt.GetText then Warnlog "Level 4: Wrong Indent:  Not = "+ V5+ "  But = "+ IndentAt.GetText
 489     if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Minimum Space numbering <> Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung.GetText
 490     if V7 <> AlignedAt.GetText then Warnlog "Level 4: Space to Text  Not = "+ V7+ "  But = "+ AlignedAt.GetText
 491     Level.Select 6
 492     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 493     if V8 <> IndentAt.GetText then Warnlog "Level 6: Wrong Indent:  Not = "+ V8+ "  But = "+ IndentAt.GetText
 494     if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Minimum Space numbering <> Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung.GetText
 495     if V10 <> AlignedAt.GetText then Warnlog "Level 6: Space to Text  Not = "+ V10+ "  But = "+ AlignedAt.GetText
 496     Level.Select 9
 497     if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
 498     if V11 <> IndentAt.GetText then Warnlog "Level 9: Wrong Indent:  Not = "+ V11+ "  But = "+ IndentAt.GetText
 499     if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Minimum Space numbering <> Text  Not = "+ V12+ "  But = "+ AbstandTextNumerierung.GetText
 500     if V13 <> AlignedAt.GetText then Warnlog "Level 9: Space to Text  Not = "+ V13+ "  But = "+ AlignedAt.GetText
 501     Level.Select 10
 502     if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
 503     if V14 <> IndentAt.GetText then Warnlog "Level 10: Wrong Indent:  Not = "+ V14+ "  But = "+ IndentAt.GetText
 504     if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Minimum Space numbering <> Text  Not = "+ V15+ "  But = "+ AbstandTextNumerierung.GetText
 505     if V16 <> AlignedAt.GetText then Warnlog "Level 10: Space to Text  Not = "+ V16+ "  But = "+ AlignedAt.GetText
 506     TabPositionKapitelnumerierung.Cancel
 507
 508     Call hCloseDocument
 509 endcase
 510
 511 ' *******************************************************************
 512
 513 testcase tToolsOutlineNumbering3
 514     Dim V1 : Dim V2 : Dim V3 : Dim V4 : Dim V5 : Dim V6 : Dim V7 : Dim V8 : Dim V9 : Dim V10
 515
 516     PrintLog "- Tools / Outline Numbering: Part 3 - Total"
 517
 518     Call hNewDocument
 519     ToolsOutlineNumbering
 520     Kontext
 521     Active.SetPage TabKapitelnumerierung
 522     Kontext "TabKapitelnumerierung"
 523
 524     PrintLog "   - Same Formatting from 1-10"
 525     Ebene.Select 11
 526     if Absatzvorlage.IsEnabled then Warnlog "Able to adjust Paragraph Style for all Levels -> Bug"
 527     Nummer.Select 4
 528     Davor.SetText "HoHo "
 529     Dahinter.SetText " HiHi "
 530     BeginBei.SetText "4"
 531
 532     Ebene.Select 1
 533     Nummer.Select 3
 534     Davor.SetText "Anders 1 "
 535     Dahinter.SetText " 1 Anders"
 536     BeginBei.SetText "1"
 537
 538     Ebene.Select 5
 539     Nummer.Select 2
 540     Davor.SetText "Anders 5 "
 541     Dahinter.SetText " 5 Anders"
 542     BeginBei.SetText "2"
 543
 544     Kontext
 545     Active.SetPage TabPositionKapitelnumerierung
 546     Kontext "TabPositionKapitelnumerierung"
 547
 548     Level.Select 1
 549     NumberingAlignment.Select 2
 550     if relativ.IsEnabled then Warnlog "Relative is enabled when selecting Level 1 -> Bug!"
 551     AlignedAt2.More 5
 552     V1 = AlignedAt2.GetText
 553     IndentAt2.More 1
 554     V2 = IndentAt2.GetText
 555
 556     Level.Select 3
 557     NumberingAlignment.Select 3
 558     AlignedAt2.More 5
 559     V3 = AlignedAt2.GetText
 560     AbstandTextNumerierung2.More 2
 561     V4 = AbstandTextNumerierung2.GetText
 562
 563     Level.Select 7
 564     NumberingAlignment.Select 1
 565     IndentAt2.More 4
 566     Sleep 1
 567     V5 = AlignedAt2.GetText
 568     V6 = AbstandTextNumerierung2.GetText
 569     V7 = IndentAt2.GetText
 570
 571     Level.Select 8
 572     NumberingAlignment.Select 3
 573     AlignedAt2.More 1
 574     AbstandTextNumerierung2.Less 4
 575     IndentAt2.More 4
 576     V8 = AlignedAt2.GetText
 577     V9 = AbstandTextNumerierung2.GetText
 578     V10 = IndentAt2.GetText
 579
 580     TabPositionKapitelnumerierung.OK
 581     Sleep 1
 582
 583     PrintLog "   - check the Levels"
 584     ToolsOutlineNumbering
 585     Kontext
 586     Active.SetPage TabKapitelnumerierung
 587     Kontext "TabKapitelnumerierung"
 588     printlog "        - Tabpage Numbering"
 589     Ebene.Select 1
 590     if Nummer.GetSelIndex <> 3 then Warnlog "Level 1: Wrong number selected, not  3 but " + Nummer.GetSelIndex
 591     if Davor.GetText <> "Anders 1 " then Warnlog "Level 1:Seperator before is wrong.. Not 'Anders 1 '   But " + Davor.GetText
 592     if Dahinter.GetText <> " 1 Anders" then Warnlog "Level 1: Seperator after text is wrong. Not ' Anders 1'   But " + Dahinter.GetText
 593     if BeginBei.GetText <> "1" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
 594
 595     Ebene.Select 2
 596     if Nummer.GetSelIndex <> 4 then Warnlog "Level 2: Wrong number selected, not  4 but " + Nummer.GetSelIndex
 597     if Davor.GetText <> "HoHo " then Warnlog "Level 2:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
 598     if Dahinter.GetText <> " HiHi " then Warnlog "Level 2: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
 599     if BeginBei.GetText <> "4" then Warnlog "Level 2: Start at is not 4 but " + BeginnBei.GetText
 600
 601     Ebene.Select 5
 602     if Nummer.GetSelIndex <> 2 then Warnlog "Level 5: Wrong number selected, not  2 but " + Nummer.GetSelIndex
 603     if Davor.GetText <> "Anders 5 " then Warnlog "Level 5:Seperator before is wrong.. Not 'Anders 5 '   But " + Davor.GetText
 604     if Dahinter.GetText <> " 5 Anders" then Warnlog "Level 5: Seperator after text is wrong. Not ' 5 Anders'   But " + Dahinter.GetText
 605     if BeginBei.GetText <> "2" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
 606
 607     Ebene.Select 7
 608     if Nummer.GetSelIndex <> 4 then Warnlog "Level 7: Wrong number selected, not  4 but " + Nummer.GetSelIndex
 609     if Davor.GetText <> "HoHo " then Warnlog "Level 7:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
 610     if Dahinter.GetText <> " HiHi " then Warnlog "Level 7: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
 611     if BeginBei.GetText <> "4" then Warnlog "Level 7: Start at is not 4 but " + BeginnBei.GetText
 612
 613     Ebene.Select 11
 614     if Nummer.GetSelIndex <> 0 then Warnlog "Level 1-10: Setting for 'Number' is not 'keine Selektion' but  " + Nummer.GetSelIndex
 615     if Davor.GetText <> "" then Warnlog "Level 1-10: Seperator before is not 'keine Selektion' but " + Davor.GetText
 616     if Dahinter.GetText <> "" then Warnlog "Level 1-10: Seperator after is not 'keine Selektion' but " + Dahinter.GetText
 617     if BeginBei.GetText <> "" then Warnlog "Level 1-10: Start at is not 'keine Selektion' but " + BeginBei.GetText
 618
 619     Kontext
 620     Active.SetPage TabPositionKapitelnumerierung
 621     Kontext "TabPositionKapitelnumerierung"
 622     printlog "        - Tabpage Position"
 623     Level.Select 1
 624     if NumberingAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberingAlignment.GetSelIndex
 625     if V1 <> AlignedAt2.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ AlignedAt2.GetText
 626     if V2 <> IndentAt2.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ IndentAt2.GetText
 627     Level.Select 3
 628     if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
 629     if V3 <> AlignedAt2.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ AlignedAt2.GetText
 630     if V4 <> AbstandTextNumerierung2.GetText then Warnlog "Level 3: Space to Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung2.GetText
 631     Level.Select 7
 632     if NumberingAlignment.GetSelIndex <> 1 then Warnlog "Level 7: Wrong Numbering Alignment:  Not = 1   But = "+ NumberingAlignment.GetSelIndex
 633     if V5 <> AlignedAt2.GetText then Warnlog "Level 7: Wrong Indent:  Not = "+ V5+ "  But = "+ AlignedAt2.GetText
 634     if V6 <> AbstandTextNumerierung2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung2.GetText
 635     if V7 <> IndentAt2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V7+ "  But = "+ IndentAt2.GetText
 636     Level.Select 8
 637     if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 8: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
 638     if V8 <> AlignedAt2.GetText then Warnlog "Level 8: Wrong Indent:  Not = "+ V8+ "  But = "+ AlignedAt2.GetText
 639     if V9 <> AbstandTextNumerierung2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung2.GetText
 640     if V10 <> IndentAt2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V10+ "  But = "+ IndentAt2.GetText
 641
 642     TabPositionKapitelnumerierung.Cancel
 643
 644     printlog "  - check saved Numbering"
 645     Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering3.odt", "writer8" )
 646     Call hCloseDocument
 647     Call hFileOpen ( gOfficePath + "user\work\tToolsOutlineNumbering3.odt" )
 648     ToolsOutlineNumbering
 649     Kontext
 650     Active.SetPage TabKapitelnumerierung
 651     Kontext "TabKapitelnumerierung"
 652     printlog "        - Tabpage Numbering"
 653     Ebene.Select 1
 654     if Nummer.GetSelIndex <> 3 then Warnlog "Level 1: Wrong number selected, not  3 but " + Nummer.GetSelIndex
 655     if Davor.GetText <> "Anders 1 " then Warnlog "Level 1:Seperator before is wrong.. Not 'Anders 1 '   But " + Davor.GetText
 656     if Dahinter.GetText <> " 1 Anders" then Warnlog "Level 1: Seperator after text is wrong. Not ' Anders 1'   But " + Dahinter.GetText
 657     if BeginBei.GetText <> "1" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
 658
 659     Ebene.Select 2
 660     if Nummer.GetSelIndex <> 4 then Warnlog "Level 2: Wrong number selected, not  4 but " + Nummer.GetSelIndex
 661     if Davor.GetText <> "HoHo " then Warnlog "Level 2:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
 662     if Dahinter.GetText <> " HiHi " then Warnlog "Level 2: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
 663     if BeginBei.GetText <> "4" then Warnlog "Level 2: Start at is not 4 but " + BeginnBei.GetText
 664
 665     Ebene.Select 5
 666     if Nummer.GetSelIndex <> 2 then Warnlog "Level 5: Wrong number selected, not  2 but " + Nummer.GetSelIndex
 667     if Davor.GetText <> "Anders 5 " then Warnlog "Level 5:Seperator before is wrong.. Not 'Anders 5 '   But " + Davor.GetText
 668     if Dahinter.GetText <> " 5 Anders" then Warnlog "Level 5: Seperator after text is wrong. Not ' 5 Anders'   But " + Dahinter.GetText
 669     if BeginBei.GetText <> "2" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
 670
 671     Ebene.Select 7
 672     if Nummer.GetSelIndex <> 4 then Warnlog "Level 7: Wrong number selected, not  4 but " + Nummer.GetSelIndex
 673     if Davor.GetText <> "HoHo " then Warnlog "Level 7:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
 674     if Dahinter.GetText <> " HiHi " then Warnlog "Level 7: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
 675     if BeginBei.GetText <> "4" then Warnlog "Level 7: Start at is not 4 but " + BeginnBei.GetText
 676
 677     Ebene.Select 11
 678     if Nummer.GetSelIndex <> 0 then Warnlog "Level 1-10: Setting for 'Number' is not 'keine Selektion' but  " + Nummer.GetSelIndex
 679     if Davor.GetText <> "" then Warnlog "Level 1-10: Seperator before is not 'keine Selektion' but " + Davor.GetText
 680     if Dahinter.GetText <> "" then Warnlog "Level 1-10: Seperator after is not 'keine Selektion' but " + Dahinter.GetText
 681     if BeginBei.GetText <> "" then Warnlog "Level 1-10: Start at is not 'keine Selektion' but " + BeginBei.GetText
 682
 683     Kontext
 684     Active.SetPage TabPositionKapitelnumerierung
 685     Kontext "TabPositionKapitelnumerierung"
 686     printlog "        - Tabpage Position"
 687     Level.Select 1
 688     if NumberingAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberingAlignment.GetSelIndex
 689     if V1 <> AlignedAt2.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ AlignedAt2.GetText
 690     if V2 <> IndentAt2.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ IndentAt2.GetText
 691     Level.Select 3
 692     if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
 693     if V3 <> AlignedAt2.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ AlignedAt2.GetText
 694     if V4 <> AbstandTextNumerierung2.GetText then Warnlog "Level 3: Space to Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung2.GetText
 695     Level.Select 7
 696     if NumberingAlignment.GetSelIndex <> 1 then Warnlog "Level 7: Wrong Numbering Alignment:  Not = 1   But = "+ NumberingAlignment.GetSelIndex
 697     if V5 <> AlignedAt2.GetText then Warnlog "Level 7: Wrong Indent:  Not = "+ V5+ "  But = "+ AlignedAt2.GetText
 698     if V6 <> AbstandTextNumerierung2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung2.GetText
 699     if V7 <> IndentAt2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V7+ "  But = "+ IndentAt2.GetText
 700     Level.Select 8
 701     if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 8: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
 702     if V8 <> AlignedAt2.GetText then Warnlog "Level 8: Wrong Indent:  Not = "+ V8+ "  But = "+ AlignedAt2.GetText
 703     if V9 <> AbstandTextNumerierung2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung2.GetText
 704     if V10 <> IndentAt2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V10+ "  But = "+ IndentAt2.GetText
 705
 706     TabPositionKapitelnumerierung.Cancel
 707
 708     Call hCloseDocument
 709 endcase
 710
 711 ' *******************************************************************
 712
 713 testcase tToolsFootnoteEndnote
 714     PrintLog "- Tools / Format Footnote- and Endnote"
 715
 716     Call hNewDocument
 717     ToolsFootnote
 718     Printlog "  - adjust Footnote-properties"
 719     Kontext
 720     Active.SetPage TabFussnoten
 721     Kontext "TabFussnoten"
 722     Numerierung.Select 2
 723     Pro.Select 1
 724     if BeginnBei.IsEnabled then Warnlog "On Numbering 'per page' 'Start at' is active. Bug!"
 725     Pro.Select 2
 726     if BeginnBei.IsEnabled then Warnlog "On Numbering 'per Chaper' 'Start at' is active. Bug!"
 727     Pro.Select 3
 728     BeginnBei.SetText "3"
 729     Davor.SetText "Vorher "
 730     Dahinter.SetText " Hinterher"
 731     Absatz.Select 4
 732     ZeichenvorlageTextbereich.Select 1
 733     ZeichenvorlageFussnotenbereich.Select 1
 734     SeitenEnde.Check
 735     FolgeSeite.SetText "Aha"
 736     Beginn.SetText "oHo"
 737
 738     Printlog "  - adjust Endnote-properties"
 739     Kontext
 740     Active.SetPage TabEndnoten
 741     Kontext "TabEndnoten"
 742     Numerierung.Select 1
 743     BeginnBei.SetText "8"
 744     Absatz.Select 3
 745     Seite.Select 2
 746     Davor.SetText "Hihi "
 747     Dahinter.SetText " HaHa"
 748     ZeichenvorlageTextbereich.Select 4
 749     ZeichenvorlageEndnotenbereich.Select 5
 750     TabEndnoten.OK
 751
 752     call wTypeKeys "Footnote bound to this text"
 753     InsertFootnote
 754     Kontext "FussnoteEinfuegen"
 755     Fussnote.Check
 756     FussnoteEinfuegen.OK
 757
 758     call wTypeKeys "Wassup<PageUp><Return>Followed by an endnote."
 759     InsertFootnote
 760     Kontext "FussnoteEinfuegen"
 761     Endnote.Check
 762     FussnoteEinfuegen.OK
 763
 764     call wTypeKeys "Wassup<PageUp><Return>And again a footnote"
 765     InsertFootnote
 766     Kontext "FussnoteEinfuegen"
 767     Fussnote.Check
 768     FussnoteEinfuegen.OK
 769     InsertFieldsPageNumbers
 770     call wTypeKeys "+0"
 771     call wTypeKeys "<Shift Home>"
 772     Sleep 1
 773     try
 774         ToolsCalculate
 775     catch
 776         ' Workaround for bug.
 777         call wTypeKeys "<End>"
 778         call wTypeKeys "<Shift Home>"
 779         try
 780             ToolsCalculate
 781             Warnlog "Selecting text in footnote with <Shift Home> works only at the second time (bug#101047)"
 782         catch
 783             Warnlog "Tools/Calculate is disabled!"
 784         endcatch
 785     endcatch
 786     if GetClipboardText <> "1" then Warnlog "2. Footnote has not been inserted on 1. Page."
 787
 788     call wTypeKeys "<PageUp><Return>Again followed by an endnote"
 789     InsertFootnote
 790     Kontext "FussnoteEinfuegen"
 791     Endnote.Check
 792     FussnoteEinfuegen.OK
 793     InsertFieldsPageNumbers
 794     call wTypeKeys "+0"
 795     call wTypeKeys "<Shift Home>"
 796     Sleep 1
 797     try
 798         ToolsCalculate
 799     catch
 800         ' Workaround for bug.
 801         call wTypeKeys "<End>"
 802         call wTypeKeys "<Shift Home>"
 803         try
 804             ToolsCalculate
 805         catch
 806             Warnlog "Tools/Calculate is disabled!"
 807         endcatch
 808     endcatch
 809     Sleep 1
 810     ToolsCalculate
 811     if GetClipboardText <> "2" then Warnlog "2. Footnote has not been inserted on 2. page"
 812
 813     call wTypeKeys "<PageUp><Return>That's it!"
 814
 815     printlog "    - check properties"
 816     ToolsFootnote
 817     Kontext
 818     Active.SetPage TabFussnoten
 819     Kontext "TabFussnoten"
 820     if Numerierung.GetSelIndex <> 2 then Warnlog "Footnote: Numbering not the 2. entry selected, but " + Numerierung.GetSelIndex
 821     if Pro.GetSelIndex <> 3 then Warnlog "Footnote: 'Per document (3. entry) is not selected but " + Pro.GetSelIndex
 822     if BeginnBei.GetText <> "3" then Warnlog "Footnote: Start at is not 3 but " + BeginnBei.GetText
 823     if Davor.GetText <> "Vorher " then Warnlog "Footnote: Text 'Before' is wrong. Not 'Vorher ' but " +  Davor.GetText
 824     if Dahinter.GetText <> " Hinterher" then Warnlog "Footnote: Text 'After' is wrong. Not ' Hinterher' but " +  Dahinter.GetText
 825     if Absatz.GetSelIndex <> 4 then Warnlog "Footnote: Wrong entry selected in paragraph. Not 4 but " + Absatz.GetSelIndex
 826     if ZeichenvorlageTextbereich.GetSelIndex <> 1 then Warnlog "Footnote: Text area has been changed!"
 827     if ZeichenvorlageFussnotenbereich.GetSelIndex <> 1 then Warnlog "Footnote: Footnote area has been changed!"
 828     if NOT SeitenEnde.IsChecked then Warnlog "Footnote: End of page is not checked anymore."
 829     if FolgeSeite.GetText <> "Aha" then Warnlog "Footnote: End of footnote is not 'Aha' but " + FolgeSeite.GetText
 830     if Beginn.GetText <> "oHo" then Warnlog "Footnote: Start of next page is not 'oHo' but " + Beginn.GetText
 831
 832     Kontext
 833     Active.SetPage TabEndnoten
 834     Kontext "TabEndnoten"
 835     if Numerierung.GetSelIndex <> 1 then Warnlog "Endnote: Numbering not 1. entry but " + Numerierung.GetSelIndex
 836     if BeginnBei.GetText <> "8" then Warnlog "Endnote: Strat at is not 8 but " + BeginnBei.GetText
 837     if Davor.GetText <> "Hihi " then Warnlog "Endnote: 'Before' is wrong. Not 'Hihi ' but " +  Davor.GetText
 838     if Dahinter.GetText <> " HaHa" then Warnlog "Endnote: Text after is wrong. Not ' HaHa' but " +  Dahinter.GetText
 839     if Absatz.GetSelIndex <> 3 then Warnlog "Endnote: Wrong entry selected in paragraph. Not 3 but " + Absatz.GetSelIndex
 840     if Seite.GetSelIndex <> 2 then Warnlog "Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex
 841     if ZeichenvorlageTextbereich.GetSelIndex <> 4 then Warnlog "Endnote: Text area has been changed!"
 842     if ZeichenvorlageEndnotenbereich.GetSelIndex <> 5 then Warnlog "Endnote: Endnote area has been changed!"
 843
 844     TabEndnoten.Cancel
 845
 846     printlog "  - Save and reload"
 847     Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsFootnoteEndnote.odt", "writer8" )
 848     Call hCloseDocument
 849     Call hFileOpen ( gOfficePath + "user\work\tToolsFootnoteEndnote.odt" )
 850     printlog "    - check saved properties"
 851     ToolsFootnote
 852     Kontext
 853     Active.SetPage TabFussnoten
 854     Kontext "TabFussnoten"
 855     if Numerierung.GetSelIndex <> 2 then Warnlog "Footnote: Numbering not the 2. entry selected, but " + Numerierung.GetSelIndex
 856     if Pro.GetSelIndex <> 3 then Warnlog "Footnote: 'Per document (3. entry) is not selected but " + Pro.GetSelIndex
 857     if BeginnBei.GetText <> "3" then Warnlog "Footnote: Start at is not 3 but " + BeginnBei.GetText
 858     if Davor.GetText <> "Vorher " then Warnlog "Footnote: Text 'Before' is wrong. Not 'Vorher ' but " +  Davor.GetText
 859     if Dahinter.GetText <> " Hinterher" then Warnlog "Footnote: Text 'After' is wrong. Not ' Hinterher' but " +  Dahinter.GetText
 860     if Absatz.GetSelIndex <> 4 then Warnlog "Footnote: Wrong entry selected in paragraph. Not 4 but " + Absatz.GetSelIndex
 861     if ZeichenvorlageTextbereich.GetSelIndex <> 1 then Warnlog "Footnote: Text area has been changed!"
 862     if ZeichenvorlageFussnotenbereich.GetSelIndex <> 1 then Warnlog "Footnote: Footnote area has been changed!"
 863     if NOT SeitenEnde.IsChecked then Warnlog "Footnote: End of page is not checked anymore."
 864     if FolgeSeite.GetText <> "Aha" then Warnlog "Footnote: End of footnote is not 'Aha' but " + FolgeSeite.GetText
 865     if Beginn.GetText <> "oHo" then Warnlog "Footnote: Start of next page is not 'oHo' but " + Beginn.GetText
 866
 867     Kontext
 868     Active.SetPage TabEndnoten
 869     Kontext "TabEndnoten"
 870     if Numerierung.GetSelIndex <> 1 then Warnlog "Endnote: Numbering not 1. entry but " + Numerierung.GetSelIndex
 871     if BeginnBei.GetText <> "8" then Warnlog "Endnote: Strat at is not 8 but " + BeginnBei.GetText
 872     if Davor.GetText <> "Hihi " then Warnlog "Endnote: 'Before' is wrong. Not 'Hihi ' but " +  Davor.GetText
 873     if Dahinter.GetText <> " HaHa" then Warnlog "Endnote: Text after is wrong. Not ' HaHa' but " +  Dahinter.GetText
 874     if Absatz.GetSelIndex <> 3 then Warnlog "Endnote: Wrong entry selected in paragraph. Not 3 but " + Absatz.GetSelIndex
 875     if Seite.GetSelIndex <> 2 then Warnlog "#i40579#Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex
 876     if ZeichenvorlageTextbereich.GetSelIndex <> 4 then Warnlog "Endnote: Text area has been changed!"
 877     if ZeichenvorlageEndnotenbereich.GetSelIndex <> 5 then Warnlog "Endnote: Endnote area has been changed!"
 878     TabEndnoten.Cancel
 879
 880     Call hCloseDocument
 881 endcase