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

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_206_.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:19:40 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  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.
  20 '*
  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).
  26 '*
  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.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Testing Number and Bullets
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_206_
  41
  42         Call tToolsNumbering1
  43     Call tToolsNumbering2
  44     Call tToolsNumbering3
  45     Call tToolsNumbering4
  46     Call tToolsNumbering5
  47     Call tToolsNumbering6
  48     Call tToolsNumbering7
  49     Call tToolsNumbering8
  50     Call tToolsNumbering9
  51     Call tToolsNumbering10
  52     Call tToolsNumbering11
  53
  54 end sub
  55
  56 testcase tToolsNumbering1
  57     printlog "Create a simple numbering without selection"
  58         '/// Create a simple numbering without selection
  59         Dim i as integer
  60
  61         '/// Open a new text document
  62         Call hNewDocument
  63
  64         '/// Activate Numbering/Bullets via Objectbar
  65         Call hToolbarSelect("BulletsAndNumbering", true)
  66
  67         '/// Create a numbering
  68         Kontext "NumObjectbar"
  69         if Not NumObjectbar.Exists then
  70                 Warnlog "Numbering/Bullets objectbar not accessible"
  71                 Call hCloseDocument
  72                 goto endsub
  73         end if
  74
  75         NumberingOnOff.Click
  76         For i = 1 to 5
  77                 call wTypeKeys ( "Numbering Level " & i )
  78                 call wTypeKeys ( "<RETURN>" )
  79         next i
  80
  81         '/// Check if numbering has been created
  82         For i = 1 to 5
  83                 call wTypeKeys ( "<UP>" )
  84                 if hIsNumberingBullets() = false then
  85                         Warnlog "Seems numbering has not been completely created"
  86                 end if
  87         next i
  88
  89         '/// CloseDocument
  90         Call hCloseDocument
  91
  92 endcase
  93
  94 testcase tToolsNumbering2
  95         printlog "Create simple bullets without selection"
  96     '/// Create simple bullets without selection
  97     Dim i as integer
  98
  99         '/// Open a new text document
 100         Call hNewDocument
 101
 102         '/// Activate Numbering/Bullets via Objectbar
 103         Call hToolbarSelect("BulletsAndNumbering", true)
 104
 105         '/// Create bullets
 106         Kontext "NumObjectbar"
 107         if Not NumObjectbar.Exists then
 108                 Warnlog "Numbering/Bullets objectbar not accessible"
 109                 Call hCloseDocument
 110                 goto endsub
 111         end if
 112
 113         BulletsOnOff.Click
 114         For i = 1 to 5
 115                 call wTypeKeys ( "Numbering Level " & i )
 116                 call wTypeKeys ( "<RETURN>" )
 117         next i
 118
 119         '/// Check if numbering has been created
 120         For i = 1 to 5
 121                 call wTypeKeys ( "<UP>" )
 122                 if hIsNumberingBullets() = false then
 123                         Warnlog "Seems numbering has not been completely created"
 124                 end if
 125         next i
 126
 127         '/// CloseDocument
 128         Call hCloseDocument
 129
 130 endcase
 131
 132
 133 testcase tToolsNumbering3
 134     printlog "Turn several selected paragraphs into numbering"
 135     '/// Turn several selected paragraphs into numbering
 136         Dim i as integer
 137
 138         '/// Open a new text document
 139         Call hNewDocument
 140
 141         '/// Insert autotext 'Dummy text' 3 times
 142         for i = 1 to 3
 143                 Call wBlindtextEinfuegen
 144         next i
 145
 146         '///  Point cursor to beginning of document
 147         call wTypeKeys ( "<Mod1 Home>" )
 148         '/// Select all text inserted
 149         call wTypeKeys ( "<Mod1 A>" )
 150
 151         '/// Activate Numbering/Bullets via Objectbar
 152         Call hToolbarSelect("BulletsAndNumbering", true)
 153
 154         Kontext "NumObjectbar"
 155         if Not NumObjectbar.Exists then
 156                 Warnlog "Numbering/Bullets objectbar not accessible"
 157                 Call hCloseDocument
 158                 goto endsub
 159         end if
 160
 161         NumberingOnOff.Click
 162         '/// Check if numbering has been created
 163         call wTypeKeys ( "<Mod1 Home>" )
 164
 165         For i = 1 to 2
 166                 if hIsNumberingBullets() = false then
 167                         Warnlog "Seems numbering has not been completely created"
 168                 end if
 169                 call wTypeKeys ( "<Mod1 Down>" )
 170         next i
 171
 172         '/// CloseDocument
 173         Call hCloseDocument
 174
 175 endcase
 176
 177
 178 testcase tToolsNumbering4
 179         printlog "Turn several selected paragraphs into bullets"
 180     '/// Turn several selected paragraphs into bullets
 181         Dim i as integer
 182
 183         '/// Open a new text document
 184         Call hNewDocument
 185
 186         '/// Insert autotext 'Dummy text' 3 times
 187         for i = 1 to 3
 188                 Call wBlindtextEinfuegen
 189         next i
 190
 191         '///  Point cursor to beginning of document
 192         call wTypeKeys ( "<Mod1 Home>" )
 193         '/// Select all text inserted
 194         call wTypeKeys ( "<Mod1 A>" )
 195
 196         '/// Activate Numbering/Bullets via Objectbar
 197         Call hToolbarSelect("BulletsAndNumbering", true)
 198
 199         Kontext "NumObjectbar"
 200         if Not NumObjectbar.Exists then
 201                 Warnlog "Numbering/Bullets objectbar not accessible"
 202                 Call hCloseDocument
 203                 goto endsub
 204         end if
 205
 206         BulletsOnOff.Click
 207         '/// Check if numbering has been created
 208         call wTypeKeys ( "<Mod1 Home>" )
 209
 210         For i = 1 to 2
 211                 if hIsNumberingBullets() = false then
 212                         Warnlog "Seems bullets have not been completely created"
 213                 end if
 214                 call wTypeKeys ( "<Mod1 Down>" )
 215         next i
 216
 217         '/// CloseDocument
 218         Call hCloseDocument
 219
 220 endcase
 221
 222
 223 testcase tToolsNumbering5
 224     printlog "create numbering via autoformat"
 225     '/// create numbering via autoformat
 226         Dim i as integer, sClipBrd() as string
 227
 228         For i = 1 to 8
 229                 '/// Open a new text document
 230                 Call hNewDocument
 231
 232                 '/// Insert '1.' // 'I.' // 'a.' followed by text
 233                 Select Case i
 234                         Case 1
 235                                 printlog "- Enter numbering starting with 1)"
 236                                 call wTypeKeys ( "1) " )
 237                         Case 2
 238                                 call wTypeKeys ( "1. " )
 239                                 printlog "- Enter numbering starting with 1."
 240                         Case 3
 241                                 call wTypeKeys ( "(1) " )
 242                                 printlog "- Enter numbering starting with (1)"
 243                         Case 4
 244                                 call wTypeKeys ( "I. " )
 245                                 printlog "- Enter numbering starting with I."
 246                         Case 5
 247                                 call wTypeKeys ( "i. " )
 248                                 printlog "- Enter numbering starting with i."
 249                         Case 6
 250                 call wTypeKeys ( "A) " )
 251                                 printlog "- Enter numbering starting with A)"
 252                         Case 7
 253                                 call wTypeKeys ( "a) " )
 254                                 printlog "- Enter numbering starting with a)"
 255                         Case 8
 256                                 call wTypeKeys ( "(a) " )
 257                                 printlog "- Enter numbering starting with (a)"
 258                 end select
 259
 260                 '/// + 'my new numbering'
 261                 '/// + followed by return (creats the numbering)
 262                 '/// + followed by text 'my newer numbering'
 263                 call wTypeKeys "my new numbering<Return>"
 264                 call wTypeKeys "my newer numbering"
 265
 266                 '/// check if numbering has been created
 267                 call wTypeKeys ( "<MOD1 A>" )
 268                 EditCopy
 269                 Select Case gPlatGroup
 270                         Case "unx"
 271                                 sClipBrd() = Split (GetClipboardText, CHR$(10))
 272                         Case else
 273                                 sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
 274                 end select
 275                 if Ubound(sClipBrd()) = 1 then
 276                         Select Case i
 277                                 Case 1
 278                                         if Left$(sClipBrd(1), 2) <> "2)" then
 279                                                 Warnlog "Seems numbering 1) has not been correctly created"
 280                                         end if
 281                                 Case 2
 282                                         if Left$(sClipBrd(1), 2) <> "2." then
 283                                                 Warnlog "Seems numbering 1. has not been correctly created"
 284                                         end if
 285                                 Case 3
 286                                         if Left$(sClipBrd(1), 3) <> "(2)" then
 287                                                 Warnlog "Seems numbering (1) has not been correctly created"
 288                                         end if
 289                                 Case 4
 290                                         if Left$(sClipBrd(1), 3) <> "II." then
 291                                                 Warnlog "Seems numbering I. has not been correctly created"
 292                                         end if
 293                                 Case 5
 294                                         if Left$(sClipBrd(1), 3) <> "ii." then
 295                         QaErrorLog "#i78524#Auto-capitalisation of letter i hinders Automatic numbering"    'Warnlog "Seems numbering i. has not been correctly created"
 296                                         end if
 297                                 Case 6
 298                     if Left$(sClipBrd(1), 2) <> "B)" then
 299                                             QaErrorLog "#i71136# - Autocorrect won't start numbering by 'A)'"   'warnlog "Seems numbering A) has not been correctly created"
 300                                         end if
 301                                 Case 7
 302                     if Left$(sClipBrd(1), 2) <> "b)" then
 303                                                 QaErrorLog "#i71136# - Autocorrect won't start numbering by 'a)'"   'warnlog "Seems numbering a) has not been correctly created"
 304                                         end if
 305                                 Case 8
 306                                         if Left$(sClipBrd(1), 2) <> "(b)" then
 307                                                 QaErrorLog "#i71136# - Autocorrect won't start numbering by '(a)'"   'warnlog "Seems numbering (a) has not been correctly created"
 308                                         end if
 309                         end select
 310                 else
 311                         Warnlog "Error in clipboard content! " & Ubound(sClipBrd())
 312                 end if
 313
 314                 '/// CloseDocument
 315                 Call hCloseDocument
 316         next i
 317
 318 endcase
 319
 320
 321 testcase tToolsNumbering6
 322         printlog "Remove numbering from paragraph by pressing <DEL> key (normal numbering)"
 323         Dim j as integer
 324         Dim i as integer, sClipBrd() as string
 325
 326         '/// Remove numbering from paragraph by pressing "DEL" key (normal numbering)
 327         '/// Open a new text document
 328         Call hNewDocument
 329         '/// Insert some text '1. This is the first' followed by a return
 330         call wTypeKeys ( "1. This is the first<Return>" )
 331         '/// Insert some text 'This is the second' followed by a return
 332         call wTypeKeys ( "This is the second<Return>" )
 333         '/// Insert some text 'This is the third'
 334         call wTypeKeys ( "This is the third" )
 335
 336         '/// Press key <STRG HOME> to go to first
 337         call wTypeKeys ( "<MOD1 Home>" )
 338         '/// Press <HOME> to highlight numbering
 339         call wTypeKeys ( "<Home>" )
 340         '/// Press <DELETE> to remove first paragraph numbering
 341         call wTypeKeys ( "<DELETE>" )
 342         '/// Check if numbering of the following paragraphs has been adapted even after save and reload
 343         For j = 1 to 2
 344                 if j = 2 then
 345                         '/// Save document
 346                         Call hFileSaveAsKill ( gOfficepath & "user\work\tToolsNumbering6.odt" )
 347                         '/// Close and reload document
 348                         Call hCloseDocument
 349                         Call hFileOpen ( gOfficepath & "user\work\tToolsNumbering6.odt" )
 350                 end if
 351                 call wTypeKeys ( "<MOD1 A>" )
 352                 EditCopy
 353                 Select Case gPlatGroup
 354                         Case "unx"
 355                                 sClipBrd() = Split (GetClipboardText, CHR$(10))
 356                         Case else
 357                                 sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
 358                 end select
 359
 360                 For i = 1 to 3
 361                         Select Case i
 362                                 Case 1
 363                                         if sClipBrd(0) <> "This is the first" then
 364                                                 Warnlog "First paragraph not 'This is the first' but: " & sClipBrd(0)
 365                                         end if
 366                                 Case 2
 367                                         if sClipBrd(1) <> "1.This is the second" then
 368                                                 Warnlog "First paragraph not '1.This is the second' but: " & sClipBrd(1)
 369                                         end if
 370                                 Case 3
 371                                         if sClipBrd(2) <> "2.This is the third" then
 372                                                 Warnlog "First paragraph not '2.This is the third' but: " & sClipBrd(2)
 373                                         end if
 374                         end select
 375                 next i
 376         next j
 377         '/// Close document
 378         Call hCloseDocument
 379
 380 endcase
 381
 382
 383 testcase tToolsNumbering7
 384     printlog "Remove numbering from paragraph by pressing <DEL> key (outlined numbering)"
 385         Dim j as integer, sVorlage as string
 386         Dim i as integer, sClipBrd() as string
 387         '/// Remove numbering from paragraph by pressing "DEL" key (outlined numbering)
 388         '/// Open a new text document
 389         Call hNewDocument
 390         '/// Tools / Outline Numbering
 391         ToolsOutlineNumbering
 392         Kontext
 393         Active.SetPage TabKapitelnumerierung
 394         Kontext "TabKapitelnumerierung"
 395         sVorlage = Absatzvorlage.GetSelText
 396         '/// Select as Numbering Number 1 in list
 397         Nummer.Select 2
 398         '///  Set as Seperator (After) a `.`
 399         Dahinter.Settext "."
 400         '/// Close 'Outline Numbering' dialog
 401         TabKapitelnumerierung.Ok
 402
 403     ' Numbering of outlines will not be copied to clipboard
 404     ' so we use the Field 'Chapter' which does
 405     for i = 1 to 3
 406         InsertFieldsOther
 407         Kontext
 408         Active.Setpage TabDokumentFeldbefehle
 409         Kontext "TabDokumentFeldbefehle"
 410         try
 411             Feldtyp.Select fGetType("Chapter")
 412             wait 500
 413             Select Case iSprache
 414                 Case 7      :Formatliste.Select 3    'Chapternumber
 415                 Case 34     :Formatliste.Select 3    'Chapternumber
 416                 Case else   :Formatliste.Select 2    'Chapternumber
 417             end select
 418         catch
 419             Warnlog "Unable to select field 'chapter'"
 420             TabDokumentFeldbefehle.Close
 421             Call hCloseDocument
 422             goto endsub
 423         endcatch
 424         Einfuegen.Click
 425         TabDokumentFeldbefehle.Close
 426
 427         Select Case i
 428             Case 1
 429                 '/// Insert some text 'My first number' followed by a return
 430                 call wTypeKeys ( "My first number<RETURN>" )
 431             Case 2
 432                 '/// Insert some text 'My second number' followed by a return
 433                 call wTypeKeys ( "My second number<RETURN>" )
 434             Case 3
 435                 '/// Insert some text 'My third number'
 436                 call wTypeKeys ( "My third number" )
 437         end select
 438     next i
 439         '/// Select all text
 440     call wTypeKeys ( "<MOD1 A>" )
 441     '/// Set Style 'Heading 1'
 442         Call wStyleSet ( sVorlage )
 443
 444         '/// Press key <STRG HOME> to go to first
 445         call wTypeKeys ( "<MOD1 Home>" )
 446         '/// Press <HOME> to highlight numbering
 447         call wTypeKeys ( "<Home>" )
 448         '/// Press <DELETE> to remove first paragraph numbering
 449         call wTypeKeys ( "<DELETE>" )
 450         '/// Check if numbering of the following paragraphs has been adapted even after save and reload
 451         For j = 1 to 2
 452                 if j = 2 then
 453                         '/// Save document
 454                         Call hFileSaveAsKill ( gOfficepath & "user\work\tToolsNumbering7.odt" )
 455                         '/// Close and reload document
 456                         Call hCloseDocument
 457                         Call hFileOpen ( gOfficepath & "user\work\tToolsNumbering7.odt" )
 458                 end if
 459
 460                 call wTypeKeys ( "<MOD1 A>" )
 461                 EditCopy
 462                 Select Case gPlatGroup
 463                         Case "unx"
 464                                 sClipBrd() = Split (GetClipboardText, CHR$(10))
 465                         Case else
 466                                 sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
 467                 end select
 468
 469                 For i = 1 to 3
 470                         Select Case i
 471                                 Case 1
 472                                         if sClipBrd(0) <> "My first number" then
 473                                                 if Left$(sClipBrd(0), 2) = "1." then
 474                             Warnlog "Outline Numbering cannot be deleted pressing '<DELETE>' key"
 475                             exit for
 476                         else
 477                             Warnlog "First paragraph not 'My first number' but: " & sClipBrd(0)
 478                         end if
 479                                         end if
 480                                 Case 2
 481                                         if sClipBrd(1) <> "1.My second number" then
 482                                                 Warnlog "#128041#First paragraph not '1.My second number' but: " & sClipBrd(1)
 483                                         end if
 484                                 Case 3
 485                                         if sClipBrd(2) <> "2.My third number" then
 486                                                 Warnlog "#128041#First paragraph not '2.My third number' but: " & sClipBrd(2)
 487                                         end if
 488                         end select
 489                 next i
 490         next j
 491         '/// Close document
 492         Call hCloseDocument
 493
 494 endcase
 495
 496
 497 testcase tToolsNumbering8
 498     printlog "Take care that numbering can be activated within tables"
 499     Dim i as integer
 500     '/// Take care that numbering can be activated within tables
 501     '/// Open a new text document
 502     Call hNewDocument
 503     '/// Insert a table with 6 rows and 3 columns
 504     TableInsertTable
 505     Kontext "TabelleEinfuegenWriter"
 506     Spalten.Settext "3"
 507     Zeilen.Settext "6"
 508     TabelleEinfuegenWriter.Ok
 509
 510     '/// Select 2nd to 6th row in first column
 511     call wTypeKeys ( "<Mod1 Home>" )
 512     call wTypeKeys ( "<Down>" )
 513     call wTypeKeys ( "<Shift Down>", 4 )
 514
 515         '/// Activate Numbering/Bullets via Objectbar
 516         Call hToolbarSelect("BulletsAndNumbering", true)
 517     Kontext "NumObjectbar"
 518         if Not NumObjectbar.Exists then
 519                 Warnlog "Numbering/Bullets objectbar not accessible"
 520                 Call hCloseDocument
 521                 goto endsub
 522         end if
 523
 524     '/// Enable numbering
 525         NumberingOnOff.Click
 526         '/// Check if numbering has been created in table
 527         call wTypeKeys ( "<Mod1 Home>" )
 528         For i = 1 to 5
 529                 if i = 1 then
 530             if hIsNumberingBullets() = true then
 531                             Warnlog "Seems numbering has been created in first row"
 532             end if
 533         else
 534             if hIsNumberingBullets() = false then
 535                             Warnlog "Seems numbering has not been created correctly"
 536                 exit for
 537             end if
 538                 end if
 539                 call wTypeKeys ( "<Down>" )
 540         next i
 541
 542     '/// Close document
 543     Call hCloseDocument
 544 endcase
 545
 546
 547 testcase tToolsNumbering9
 548     Dim i as integer
 549     printlog "Turn off a numbered list"
 550     '/// Turn off a numbered list via toolbar
 551     '/// Open a new text docoument
 552     Call hNewDocument
 553     '/// Create a numbering
 554     '/// Write in document '1. This numbering' followed by a return
 555     call wTypeKeys "1. This numbering<Return>"
 556     '/// +  write 'that will be automatically created' followed by a return
 557     call wTypeKeys "that will be automatically created<RETURN>"
 558     '/// + write 'and be turned off via toolbar'
 559     call wTypeKeys ( "and turned off via toolbar" )
 560     '/// Select all
 561     call wTypeKeys ( "<Mod1 A>" )
 562         '/// Activate Numbering/Bullets via Objectbar
 563         Call hToolbarSelect("BulletsAndNumbering", true)
 564     Kontext "NumObjectbar"
 565         if Not NumObjectbar.Exists then
 566                 Warnlog "Numbering/Bullets objectbar not accessible"
 567                 Call hCloseDocument
 568                 goto endsub
 569         end if
 570     '/// Turn numbering off by clicking 'Numbering' symbol
 571         NumberingOnOff.Click
 572
 573     '/// Check if numbering has been turned off
 574     call wTypeKeys ( "<Mod1 Home>" )
 575     For i = 1 to 3
 576         call wTypeKeys ( "<Shift End>" )
 577         EditCopy
 578         Select Case i
 579             Case 1
 580                 if GetClipboardtext <> "This numbering" then
 581                     Warnlog "It seems numbering isn't turned off"
 582                     exit for
 583                 end if
 584             Case 2
 585                 if GetClipboardtext <> "that will be automatically created" then
 586                     Warnlog "It seems numbering isn't turned off"
 587                     exit for
 588                 end if
 589             Case 3
 590                 if GetClipboardtext <> "and turned off via toolbar" then
 591                     Warnlog "It seems numbering isn't turned off"
 592                 end if
 593         end select
 594         call wTypeKeys ( "<Down><Home>" )
 595     next i
 596     '/// Close document
 597     Call hCloseDocument
 598 endcase
 599
 600
 601 testcase tToolsNumbering10
 602     Dim i as integer
 603     printlog "Pressing <ENTER> key in an empty paragraph turns off numbering"
 604     '/// Press <ENTER> key in an empty paragraph turns off numbering
 605     '/// Open a new text docoument
 606     Call hNewDocument
 607     '/// Create a numbering
 608     '/// Write in document '1. This numbering' followed by a return
 609     call wTypeKeys "1. This numbering<Return>"
 610     '/// +  write 'that will be automatically created' followed by a return
 611     call wTypeKeys "that will be automatically created<RETURN>"
 612     '/// + write 'and be turned off via return' followed by a return
 613     call wTypeKeys ( "and turned off via return<RETURN>" )
 614     '/// + enter <Return> to create an empty paragraph
 615     call wTypeKeys ( "<Return>" )
 616     '/// Hit <Return> again should leave a numbering with 3 paragraphs
 617     call wTypeKeys ( "No numbering anymore" )
 618     call wTypeKeys ( "<Shift Home>" )
 619     EditCopy
 620     if GetClipboardtext <> "No numbering anymore" then
 621         Warnlog "Seems numbering wasn't turned off !"
 622     else
 623         call wTypeKeys ( "<Mod1 Home>" )
 624         For i = 1 to 3
 625             if hIsNumberingBullets() = false then
 626                             Warnlog "Seems numbering has been completely turned off"
 627                 exit for
 628             end if
 629             call wTypeKeys ( "<Down>" )
 630         next i
 631     end if
 632
 633     '/// Close document
 634     Call hCloseDocument
 635 endcase
 636
 637
 638 testcase tToolsNumbering11
 639     Dim i as integer, sVorlage as string
 640     Dim sClipBrd() as string
 641     printlog "Create an empty heading (Ouline numbering)"
 642     '/// Create an empty heading (Ouline numbering)
 643     '/// Open a new text document
 644     Call hNewDocument
 645         ' Get name of 'Heading' (language dependent)
 646     ToolsOutlineNumbering
 647         Kontext
 648         Active.SetPage TabKapitelnumerierung
 649         Kontext "TabKapitelnumerierung"
 650         sVorlage = Absatzvorlage.GetSelText
 651         TabKapitelnumerierung.Cancel
 652
 653     '/// Create a outline numbering
 654     ' Numbering of outlines will not be copied to clipboard
 655     ' so we use the Field 'Chapter' which does
 656     for i = 1 to 3
 657         InsertFieldsOther
 658         Kontext
 659         Active.Setpage TabDokumentFeldbefehle
 660         Kontext "TabDokumentFeldbefehle"
 661         try
 662             Feldtyp.Select fGetType("Chapter")
 663             wait 500
 664             Select Case iSprache
 665                 Case 7      :Formatliste.Select 3    'Chapternumber
 666                 Case else   :Formatliste.Select 2    'Chapternumber
 667             end select
 668         catch
 669             Warnlog "Unable to select field 'chapter'"
 670             TabDokumentFeldbefehle.Close
 671             Call hCloseDocument
 672             goto endsub
 673         endcatch
 674         Einfuegen.Click
 675         TabDokumentFeldbefehle.Close
 676
 677         Select Case i
 678             Case 1
 679                 '/// Insert some text 'A new first paragraph' followed by a return
 680                 call wTypeKeys ( "A new first paragraph<RETURN>" )
 681             Case 2
 682                 '/// Insert an empty paragraph
 683                 call wTypeKeys ( "<RETURN>" )
 684             Case 3
 685                 '/// Insert some text 'A new third paragraph'
 686                 call wTypeKeys ( "A new third paragraph" )
 687         end select
 688     next i
 689         '/// Select all text
 690     call wTypeKeys ( "<MOD1 A>" )
 691     '/// Set Style 'Heading 1'
 692         Call wStyleSet ( sVorlage )
 693         '/// Activate Numbering/Bullets via Objectbar
 694         Call hToolbarSelect("BulletsAndNumbering", true)
 695         '/// Create a numbering
 696         Kontext "NumObjectbar"
 697         if Not NumObjectbar.Exists then
 698                 Warnlog "Numbering/Bullets objectbar not accessible"
 699                 Call hCloseDocument
 700                 goto endsub
 701         end if
 702         NumberingOnOff.Click
 703     '/// Check if second paragraph is empty but numbered
 704
 705     EditCopy
 706     Select Case gPlatGroup
 707         Case "unx"
 708             sClipBrd() = Split (GetClipboardText, CHR$(10))
 709         Case else
 710             sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
 711     end select
 712
 713     For i = 1 to 3
 714         Select Case i
 715             Case 1
 716                 if sClipBrd(0) <> "1A new first paragraph" then
 717                     Warnlog "First Heading not: '1A new first paragraph' but: " &  sClipBrd(0)
 718                 end if
 719             Case 2
 720                 if sClipBrd(1) <> "2" then
 721                     Warnlog "First paragraph not empty but: " & sClipBrd(1)
 722                 end if
 723             Case 3
 724                 if sClipBrd(2) <> "3A new third paragraph" then
 725                     Warnlog "First paragraph not '3A new third paragraph' but: " & sClipBrd(2)
 726                 end if
 727         end select
 728     next i
 729
 730     '/// Close document
 731     Call hCloseDocument
 732 endcase