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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_formatparagraph.bas,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $
  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 : Test the functionality of Paragraph
  37 '*
  38 '\*******************************************************************
  39
  40 global gSeperator as String
  41 global gMeasurementUnit as String
  42
  43 sub main
  44
  45     Dim StartZeit
  46
  47     StartZeit = Now()
  48
  49     use "writer\tools\includes\w_tools.inc"
  50     use "writer\tools\includes\w_tool3.inc"
  51     use "writer\optional\includes\tools\tools1.inc"
  52     use "writer\optional\includes\tools\tools2.inc"
  53     use "writer\optional\includes\formatparagraph\w_formatparagraph1.inc"
  54     use "writer\optional\includes\formatparagraph\w_formatparagraph2.inc"
  55     use "writer\optional\includes\formatparagraph\w_formatparagraph3.inc"
  56
  57     printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
  58     printlog Chr(13) + "******* Writer - Level 1 - Test *******"
  59     printlog Chr(13) + "      - Test of paragraph function -"
  60
  61     Call hStatusIn ( "writer", "w_formatparagraph.bas" , "Paragrahp" )
  62
  63     Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
  64     'Software Configuration:
  65     'Getting the decimal seperator from global function
  66     gSeperator = GetDecimalSeperator()
  67     'Setting the measurement unit to centimeters.
  68     gMeasurementUnit = fSetMeasurementToCM()
  69
  70     Call tFormatParagraph1
  71     Call tParagraphIndent1
  72     Call tParagraphIndent2
  73     Call tParagraphIndent3
  74     Call tParagraphIndent4
  75     Call tParagraphIndent5
  76     Call tParagraphIndent6
  77     Call tParagraphIndent7
  78     Call tParagraphIndent8
  79     Call tParagraphIndent9
  80     Call tParagraphIndent10
  81     Call tParagraphIndent11
  82     Call tParagraphIndent12
  83     Call tParagraphIndent13
  84     Call tParagraphIndent14
  85     Call tParagraphIndent15
  86     Call tParagraphIndent16
  87     Call tParagraphIndent17
  88     Call tParagraphIndent18
  89     Call tParagraphAlignment1
  90     Call tParagraphAlignment2
  91     Call tParagraphAlignment3
  92     Call tParagraphAlignment4
  93     Call tParagraphAlignment5
  94     Call tParagraphAlignment6
  95     Call tParagraphAlignment7
  96     Call tParagraphAlignment8
  97     Call tParagraphAlignment9
  98     Call tParagraphTextFlow1
  99     Call tParagraphTextFlow2
 100     Call tParagraphTextFlow3
 101     Call tParagraphTextFlow4
 102     Call tParagraphTextFlow5
 103     Call tParagraphTextFlow6
 104     Call tParagraphTextFlow7
 105     Call tParagraphTextFlow8
 106     Call tParagraphTextFlow9
 107     Call tParagraphTextFlow10
 108     Call tParagraphTextFlow11
 109     Call tParagraphTextFlow12
 110     Call tParagraphTextFlow13
 111     Call tParagraphTabs1
 112     Call tParagraphTabs2
 113     Call tParagraphTabs3
 114     Call tParagraphTabs4
 115     Call tParagraphTabs5
 116     Call tParagraphTabs6
 117     Call tParagraphDropCaps1
 118     Call tParagraphDropCaps2
 119     Call tParagraphDropCaps3
 120     Call tParagraphDropCaps4
 121     Call tParagraphDropCaps5
 122     Call tParagraphDropCaps6
 123     Call tParagraphDropCaps7
 124     Call tParagraphDropCaps8
 125     Call tParagraphDropCaps9
 126     Call tParagraphNumbering1
 127     Call tParagraphBorder1
 128     Call tParagraphBorder2
 129     Call tParagraphBorder3
 130     Call tParagraphBorder4
 131     Call tParagraphBorder5
 132     Call tParagraphBorder6
 133
 134     Call hStatusOut
 135
 136     Printlog Chr(13) + "End of Level 1 Test (Format page):"
 137     Printlog "Duration: "+ WieLange ( StartZeit )
 138     Printlog "Date: " +  Date + "    Time: " + Time
 139
 140 end sub
 141
 142 sub LoadIncludeFiles
 143    use "global\system\includes\master.inc"
 144    use "global\system\includes\gvariabl.inc"
 145    Call GetUseFiles
 146    gApplication = "WRITER"
 147 end sub