testautomation/writer/optional/includes/section/w_section_tools.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_section_tools.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:58 $
  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 :  tools/functions for the Section-testing
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 fInsertSection
  41 ' #1 fInsertBookmark
  42 ' #1 fInsertFootnote
  43 ' #1 fInsertEndnote
  44 ' #1 fInsertTable
  45 ' #1 fCloseNavigator
  46 ' #1 fCheckDirectCursor
  47 ' #1 fMultiSelection
  48 '*
  49 '\***********************************************************************
  50
  51 '******************************************************
  52 '* insert a section with name SectionName            **
  53 '******************************************************
  54 function fInsertSection(SectionName as string)
  55    InsertSection
  56    wait 500
  57    Kontext
  58    Active.Setpage TabBereiche
  59    Kontext "TabBereiche"
  60    Bereichsliste.Settext SectionName
  61    TabBereiche.OK
  62    wait 500
  63 end function
  64
  65 '******************************************************
  66 '* insert a bookmark with name                       **
  67 '******************************************************
  68 function fInsertBookmark(BookmarkName as string)
  69
  70     InsertBookmark
  71     Kontext
  72     Kontext "TextmarkeEinfuegen"
  73     Textmarken.SetText BookmarkName
  74     TextmarkeEinfuegen.OK
  75
  76 end function
  77
  78
  79 '******************************************************
  80 '*    insert a footnote                              **
  81 '******************************************************
  82 function fInsertFootnote(Numbering as string , ConTentInCharater as String)
  83
  84    InsertFootnote
  85    Kontext "FussnoteEinfuegen"
  86
  87    ' check footnote
  88    Fussnote.Check
  89
  90    Select Case Numbering
  91     Case "automatic" : Automatisch.Check
  92     Case "character" : Zeichen.Check
  93                        ZeichenText.SetText ConTentInCharater
  94     Case else : Warnlog "Maybe new options! :-)"
  95                 Automatisch.Check
  96    end select
  97
  98    FussnoteEinfuegen.OK
  99
 100 end function
 101
 102
 103 '******************************************************
 104 '* insert a endnote                                  **
 105 '******************************************************
 106 function fInsertEndnote(Numbering as string , ConTentInCharater as String)
 107
 108    InsertFootnote
 109    Kontext "FussnoteEinfuegen"
 110
 111    ' check endnote
 112    Endnote.Check
 113
 114    Select Case Numbering
 115     Case "automatic" : Automatisch.Check
 116     Case "character" : Zeichen.Check
 117                        ZeichenText.SetText ConTentInCharater
 118     Case else : Warnlog "Maybe new options! :-)"
 119                 Automatisch.Check
 120    end select
 121
 122    FussnoteEinfuegen.OK
 123
 124 end function
 125
 126
 127 '******************************************************
 128 '* insert a table with name TableName                **
 129 '* Column is table's column's number                 **
 130 '* Row    is table's row   's number                 **
 131 '******************************************************
 132 function fInsertTable(TableName as string, ColumnNumber as string, RowNumber as string)
 133
 134    InsertTableWriter
 135    Sleep 1
 136    Kontext "TabelleEinfuegenWriter"
 137    TabellenName.SetText TableName
 138
 139    Spalten.SetText ColumnNumber
 140    Zeilen.SetText  RowNumber
 141
 142    TabelleEinfuegenWriter.OK
 143
 144 end function
 145
 146 '*******************************************************
 147 '* Close Navigator                                    **
 148 '*******************************************************
 149 function fCloseNavigator
 150
 151    Kontext
 152    Kontext "Navigator"
 153    try
 154     Navigator.Close
 155    catch
 156     Warnlog "Could not close Navigator!"
 157    endcatch
 158
 159 end function
 160
 161 '*******************************************************
 162 '*  Open options and check 'Direct-Cursor' in options **
 163 '*******************************************************
 164 function fCheckDirectCursor
 165
 166     ToolsOptions
 167     Call hToolsOptions("WRITER","FormattingAids")
 168     Zonen_Cursor.Check
 169     Kontext "ExtrasOptionenDlg"
 170     ExtrasOptionenDlg.OK
 171
 172 end function
 173
 174
 175 '*********************************************************
 176 '*  This function is evaluated multisection             **
 177 '*  selectString is the selected string in the text     **
 178 '*  There must be more than 2 selectStrings in the text **
 179 '*********************************************************
 180 function fMultiSelection(selectedString as String)
 181
 182    Kontext
 183    EditSearchAndReplace
 184    Kontext "FindAndReplace"
 185
 186    SearchFor.SetText selectedString
 187    SearchAll.Click
 188    Sleep 1
 189
 190    FindAndReplace.Close
 191
 192 end function