testautomation/writer/optional/w_formatparagraph.bas

   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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner :  helge.delfs@oracle.com
  29 '*
  30 '* short description : Test the functionality of Paragraph
  31 '*
  32 '\*******************************************************************
  33
  34 global gSeperator as String
  35 global gMeasurementUnit as String
  36
  37 sub main
  38
  39     Dim StartZeit
  40
  41     StartZeit = Now()
  42
  43     use "writer\tools\includes\w_tools.inc"
  44     use "writer\tools\includes\w_tool3.inc"
  45     use "writer\optional\includes\tools\tools1.inc"
  46     use "writer\optional\includes\tools\tools2.inc"
  47     use "writer\optional\includes\formatparagraph\w_formatparagraph1.inc"
  48     use "writer\optional\includes\formatparagraph\w_formatparagraph2.inc"
  49     use "writer\optional\includes\formatparagraph\w_formatparagraph3.inc"
  50
  51     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
  52     printlog Chr(13) + "******* Writer - Level 1 - Test *******"
  53     printlog Chr(13) + "      - Test of paragraph function -"
  54
  55     Call hStatusIn ( "writer", "w_formatparagraph.bas" , "Paragrahp" )
  56
  57     Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
  58     'Software Configuration:
  59     'Getting the decimal seperator from global function
  60     gSeperator = GetDecimalSeperator()
  61     'Setting the measurement unit to centimeters.
  62     gMeasurementUnit = fSetMeasurementToCM()
  63
  64     Call tFormatParagraph1
  65     Call tParagraphIndent1
  66     Call tParagraphIndent2
  67     Call tParagraphIndent3
  68     Call tParagraphIndent4
  69     Call tParagraphIndent5
  70     Call tParagraphIndent6
  71     Call tParagraphIndent7
  72     Call tParagraphIndent8
  73     Call tParagraphIndent9
  74     Call tParagraphIndent10
  75     Call tParagraphIndent11
  76     Call tParagraphIndent12
  77     Call tParagraphIndent13
  78     Call tParagraphIndent14
  79     Call tParagraphIndent15
  80     Call tParagraphIndent16
  81     Call tParagraphIndent17
  82     Call tParagraphIndent18
  83     Call tParagraphAlignment1
  84     Call tParagraphAlignment2
  85     Call tParagraphAlignment3
  86     Call tParagraphAlignment4
  87     Call tParagraphAlignment5
  88     Call tParagraphAlignment6
  89     Call tParagraphAlignment7
  90     Call tParagraphAlignment8
  91     Call tParagraphAlignment9
  92     Call tParagraphTextFlow1
  93     Call tParagraphTextFlow2
  94     Call tParagraphTextFlow3
  95     Call tParagraphTextFlow4
  96     Call tParagraphTextFlow5
  97     Call tParagraphTextFlow6
  98     Call tParagraphTextFlow7
  99     Call tParagraphTextFlow8
 100     Call tParagraphTextFlow9
 101     Call tParagraphTextFlow10
 102     Call tParagraphTextFlow11
 103     Call tParagraphTextFlow12
 104     Call tParagraphTextFlow13
 105     Call tParagraphTabs1
 106     Call tParagraphTabs2
 107     Call tParagraphTabs3
 108     Call tParagraphTabs4
 109     Call tParagraphTabs5
 110     Call tParagraphTabs6
 111     Call tParagraphDropCaps1
 112     Call tParagraphDropCaps2
 113     Call tParagraphDropCaps3
 114     Call tParagraphDropCaps4
 115     Call tParagraphDropCaps5
 116     Call tParagraphDropCaps6
 117     Call tParagraphDropCaps7
 118     Call tParagraphDropCaps8
 119     Call tParagraphDropCaps9
 120     Call tParagraphNumbering1
 121     Call tParagraphBorder1
 122     Call tParagraphBorder2
 123     Call tParagraphBorder3
 124     Call tParagraphBorder4
 125     Call tParagraphBorder5
 126     Call tParagraphBorder6
 127
 128     Call hStatusOut
 129
 130     Printlog Chr(13) + "End of Level 1 Test (Format page):"
 131     Printlog "Duration: "+ WieLange ( StartZeit )
 132     Printlog "Date: " +  Date + "    Time: " + Time
 133
 134 end sub
 135
 136 sub LoadIncludeFiles
 137    use "global\system\includes\master.inc"
 138    use "global\system\includes\gvariabl.inc"
 139    Call GetUseFiles
 140    gApplication = "WRITER"
 141 end sub