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