testautomation/writer/required/includes/w_006_.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 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 : Call all functions in table menu
  31 '*
  32 '\***********************************************************************
  33
  34 sub w_006_
  35
  36     printLog Chr(13) + "--------- Table Menu (w_006_.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     Call tFormatTable
  40     Call tFormatSplitTables
  41     Call tFormatJoinTables
  42     Call tFormatNumberFormat
  43     Call tTableCell
  44     Call tTableRow
  45     Call tFormatAutoformatTable
  46
  47 end sub
  48
  49 '---------------------------------------------------------------------------------------------------------
  50
  51 testcase tFormatTable
  52     PrintLog "- Format / Table"
  53
  54     printlog " Open new document"
  55     Call hNewDocument
  56
  57     printlog " Insert a table"
  58     Call hTabelleEinfuegen
  59
  60     printlog " Format / Table"
  61     TableProperties
  62
  63     Kontext
  64     printlog " In dialog step through all tabpages"
  65     Active.SetPage TabTabelle
  66     Kontext "TabTabelle"
  67     Call DialogTest ( TabTabelle )
  68
  69     Kontext
  70     Active.SetPage TabTextflussTabelle
  71     Kontext "TabTextflussTabelle"
  72     Call DialogTest ( TabTextflussTabelle )
  73
  74     Kontext
  75     Active.SetPage TabSpaltenTabelle
  76     Kontext "TabSpaltenTabelle"
  77     Call DialogTest ( TabSpaltenTabelle )
  78
  79     Kontext
  80     Active.SetPage TabUmrandung
  81     Kontext "TabUmrandung"
  82     Call DialogTest ( TabUmrandung )
  83
  84     Kontext
  85     Active.SetPage TabHintergrund
  86     Kontext "TabHintergrund"
  87     Call DialogTest ( TabHintergrund )
  88
  89     printlog " Close dialog"
  90     TabHintergrund.Cancel
  91
  92     printlog " Close active document"
  93     Call hCloseDocument
  94
  95 endcase
  96
  97 '----------------------------------------------------------
  98
  99 testcase tFormatSplitTables
 100     PrintLog "- Format / Split Table"
 101     printlog " Open new document"
 102     Call hNewDocument
 103     printlog " Insert a table"
 104     Call hTabelleEinfuegen
 105     printlog " Select all"
 106     Call wTypeKeys ("<Mod1 a>")
 107     Sleep 1
 108     printlog " Format / Split Table"
 109     FormatSplitTable
 110     Kontext "TabelleAuftrennen"
 111     Call DialogTest ( TabelleAuftrennen )
 112     printlog " Close dialog"
 113     TabelleAuftrennen.Cancel
 114     printlog " Close active document"
 115     Call hCloseDocument
 116 endcase
 117
 118 '-----------------------------------------------------------
 119
 120 testcase tFormatJoinTables
 121     PrintLog "- Format / Join Table"
 122     printlog " Open new document"
 123     Call hNewDocument
 124     printlog " Insert a table"
 125     Call hTabelleEinfuegen
 126     printlog " Point cursor under the table"
 127     Call wTypeKeys ("<Down><Down>")
 128     printlog " Insert a table"
 129     Call hTabelleEinfuegen
 130     printlog " Point cursor under the table"
 131     Call wTypeKeys ("<Down><Down>")
 132     printlog " Insert a table"
 133     Call hTabelleEinfuegen
 134     printlog " Point cursor in 3rd table"
 135     Call wTypeKeys ("<Up><Up>")
 136     printlog " Format / Merge Tables"
 137     FormatMergeTables
 138     Kontext "TabellenVerbinden"
 139     Call DialogTest (TabellenVerbinden)
 140     printlog " Close dialog"
 141     TabellenVerbinden.Cancel
 142     printlog " Close active document"
 143     Call hCloseDocument
 144 endcase
 145
 146 '-----------------------------------------------------------
 147
 148 testcase tFormatNumberFormat
 149     printLog "- Format / Number Format"
 150     printlog " Open new document"
 151     Call hNewDocument
 152     printlog " Format / Number Format"
 153     Call hTabelleEinfuegen
 154     FormatNumberFormat
 155     Kontext "Zahlenformat"
 156     Call DialogTest ( Zahlenformat )
 157     printlog " Close dialog"
 158     Zahlenformat.Cancel
 159     printlog " Close active document"
 160     Call hCloseDocument
 161 endcase
 162
 163 '-----------------------------------------------------------
 164
 165 testcase tTableCell
 166     PrintLog "- Format / Cell"
 167     printlog " Open new document"
 168     Call hNewDocument
 169     printlog " Insert a table"
 170     Call hTabelleEinfuegen
 171
 172     printlog " Table / Column / Select"
 173     TableSelectColumn
 174     printlog " Table / Merge Cells"
 175     TableMergeCell
 176     printlog " Table / Split Cells"
 177     TableSplitCell
 178
 179     Kontext "ZellenTeilen"
 180     Call DialogTest ( ZellenTeilen )
 181     printlog " Close dialog 'Split Table'"
 182     ZellenTeilen.OK
 183     printlog " Table / Protect Cells"
 184     TableCellProtect
 185
 186     Call wTypeKeys ("<Left>")
 187     printlog " Open Contextmenu"
 188     printlog " Select 'Cell->Unprotect"
 189     Kontext "DocumentWriter"
 190     Call wTypeKeys "<Shift F10>"
 191     wait (500)
 192     Call hMenuFindSelect (".uno:CellMenu", true, 9, false)   'Find "CellMenu" and call the slot.
 193     wait (500)
 194     try
 195         Call hMenuFindSelect (20519, true, 1, false)   'Find "UnProtect" and call the slot.
 196     catch
 197         Warnlog "Unable to unprotect cell"
 198     endcatch
 199     printlog " Close active document"
 200     Call hCloseDocument
 201 endcase
 202
 203 '-----------------------------------------------------------
 204
 205 testcase tTableRow
 206     PrintLog "- Format / Row"
 207     printlog " Open new document"
 208     Call hNewDocument
 209     printlog "  Insert a table"
 210     Call hTabelleEinfuegen
 211
 212     printlog " Format / Row / Height"
 213     FormatRowHeight
 214     Kontext "ZellenHoehe"
 215     Hoehe.SetText "2,5"
 216     Call DialogTest ( ZellenHoehe )
 217     printlog " Close dialog"
 218     ZellenHoehe.OK
 219     printlog " Format / Column / Select"
 220     TableSelectColumn
 221     WaitSlot (500)
 222     printlog " Format / Row / Space equally"
 223     FormatRowSpaceEqually
 224     WaitSlot (500)
 225     printlog " Format / Row / Select"
 226     TableSelectEntireRow
 227     WaitSlot (500)
 228     printlog " Format / Row / Optimal Height"
 229     TableAutoFitSetOptimalRowHeight
 230     WaitSlot (500)
 231     printlog " Format / Row / Insert"
 232     FormatRowInsert
 233     Kontext "EinfuegenZeilen"
 234     Anzahl.SetText "3"
 235     Call DialogTest ( EinfuegenZeilen )
 236     printlog " Close dialog"
 237     EinfuegenZeilen.OK
 238     printlog " Format / Row / Delete"
 239     FormatRowDelete
 240
 241     printlog " Close active document"
 242     Call hCloseDocument
 243 endcase
 244
 245 '-----------------------------------------------------------
 246
 247 testcase tFormatAutoformatTable
 248     PrintLog "- Format / Autoformat - Table"
 249
 250     Call hNewDocument
 251     printlog " Open new document"
 252     Sleep 1
 253     printlog " Insert a table"
 254     Call hTabelleEinfuegen
 255
 256     printlog " Format / Autoformat"
 257     FormatAutoformat
 258     WaitSlot (2000)
 259
 260     Kontext "AutoformatTabelle"
 261     printlog " In dialog click 'More..'"
 262     Zusaetze.Click
 263     Call DialogTest ( AutoformatTabelle )
 264
 265     printlog " Click 'Add'"
 266     Einfuegen.Click
 267     Kontext "AutoformatHinzufuegenWriter"
 268     Call DialogTest ( AutoformatHinzufuegenWriter )
 269     TabellenName.SetText "Hallo"
 270     printlog " Enter a new table name"
 271     AutoformatHinzufuegenWriter.OK
 272
 273     Kontext "AutoformatTabelle"
 274     printlog " Click 'Rename'"
 275     Umbenennen.Click
 276     Kontext "AutoformatHinzufuegenWriter"
 277     Call DialogTest ( AutoformatHinzufuegenWriter )
 278     printlog " Enter an new table name"
 279     TabellenName.SetText "Hallo1"
 280     AutoformatHinzufuegenWriter.OK
 281     Kontext "AutoformatTabelle"
 282     printlog " Click 'Delete'"
 283     Loeschen.Click
 284     Kontext
 285     Active.OK
 286     printlog " Close dialog"
 287     AutoformatTabelle.Cancel
 288
 289     printlog " Close active document"
 290     Call hCloseDocument
 291 endcase
 292