testautomation/dbaccess/tools/formtools.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: formtools.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:46 $
  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 : marc.neumann@sun.com
  35 '*
  36 '* short description : Helper Routines for Base tests.
  37 '*
  38 '***************************************************************************************
  39 '*
  40 '* #1 fOpenNewFormDesign
  41 '* #1 fCloseForm
  42 '* #1 fSaveForm
  43 '* #1 fOpenForm
  44 '* #1 fFindForm
  45 '*
  46 '\***********************************************************************************
  47 '-------------------------------------------------------------------------
  48 function fOpenNewFormDesign()
  49     '/// open a a new form design from an open database
  50     '/// <u>parameter:</u>
  51
  52     Kontext "DATABASE"
  53             if ( Database.NotExists(3) ) then
  54                 fOpenNewFormDesign = false
  55                 exit function
  56             end if
  57
  58         Database.MouseDown(50,50)
  59         Database.MouseUp(50,50)
  60
  61     sleep(1)
  62
  63     ViewForms
  64     NewFormDesign
  65
  66     sleep(2)
  67
  68     fOpenNewFormDesign = true
  69
  70 end function
  71 '--------------------------------------------------------------------
  72 function fCloseForm( optional bSave )
  73     '/// close an open form
  74     '/// <u>parameter:</u>
  75     '/// <b><i>optional</i> bSave:</b> if true the form shall be saved, if false the changes are lost
  76
  77     sleep(1)
  78
  79     Kontext "DocumentWriter"
  80         DocumentWriter.UseMenu
  81         hMenuSelectNr(1) ' the file menu
  82         hMenuSelectNr(5) ' the Close Window
  83
  84     'when issue 30401 is fixed this has to be changed
  85     Kontext "Messagebox"
  86         if Messagebox.Exists(3) then
  87             if ( IsMissing( bSave ) ) then
  88                 Messagebox.No
  89             else
  90                 if bSave then
  91                     Messagebox.Yes
  92                 else
  93                     Messagebox.No
  94                 endif
  95             endif
  96         end if
  97
  98     sleep(1)
  99
 100     fCloseForm = true
 101
 102 end function
 103 '--------------------------------------------------------------------
 104 function fSaveForm( sFormName as string, optional bCloseForm as boolean )
 105     '/// save an open form with the given name
 106     '/// <u>parameter:</u>
 107     '/// <b>sFormName:</b> the name under which the form shall be saved. If the file allready exists, then the file will be overwritten
 108     '/// <b><i>optional</i> bCloseForm:</b> if true the form shall be closed after saving, if false form stay open
 109     sleep(1)
 110
 111     Kontext "DocumentWriter"
 112         DocumentWriter.UseMenu
 113         hMenuSelectNr(1) ' the file menu
 114         hMenuSelectNr(6) ' the Save
 115
 116     Kontext "FormSaveDialog"
 117         if FormSaveDialog.exists(3) then
 118             FormName.setText(sFormName)
 119             SaveBtn.Click
 120             'click yes in the overwrite messages box
 121             Kontext "MessageBox"
 122                 if MessageBox.exists(1) then
 123                     MessageBox.Yes
 124                 endif
 125             fSaveForm = true
 126         else
 127             fSaveFrom = false
 128         end if
 129
 130      if ( IsMissing( bCloseForm ) ) then
 131         ' nothing
 132      else
 133         call fCloseForm()
 134      end if
 135
 136 end function
 137 '--------------------------------------------------------------------
 138 function fOpenForm(sFormName as string)
 139     '/// open a form with the given name
 140     '/// <u>parameter:</u>
 141     '/// <b>sFormName:</b> the name of the form which shall be open
 142
 143     if ( fFindForm(sFormName) = true ) then
 144         printlog "Form found -> open"
 145         Kontext "ContainerView"
 146             OpenForm ' uno-Slot .uno:DB/Open
 147             sleep(1)
 148         fOpenForm = true
 149     else
 150         printlog "Form not found."
 151         fOpenForm = false
 152     end if
 153
 154 end function
 155 '--------------------------------------------------------------------
 156 function fFindForm(sFormName as string)
 157     '/// select a form with the given name
 158     '/// <u>parameter:</u>
 159     '/// <b>sFormName:</b> the name of the form which shall be selected
 160
 161     Dim iNumbersOfForms as integer
 162         Dim i as integer
 163
 164     Kontext "ContainerView"
 165
 166         ViewForms
 167
 168         fFindForm = false
 169
 170         if ( Not FormTree.exists(1) ) then
 171             warnlog "The form tree doesn't exists"
 172             exit function
 173         end if
 174
 175         iNumbersOfForms = FormTree.getItemCount()
 176
 177         ' this select the first entry
 178         FormTree.TypeKeys "<HOME>"
 179         FormTree.TypeKeys "<UP>"
 180
 181
 182         for i = 1 to iNumbersOfForms
 183
 184             FormTree.TypeKeys "<ADD>"
 185             'printlog "i = " + i
 186             'printlog "FormName.getItemCount = " + FormTree.getItemCount
 187             if FormTree.getItemCount >  iNumbersOfForms then
 188                 iNumbersOfForms = FormTree.getItemCount()
 189             endif
 190             'printlog "FormName.getSeltext = " + FormTree.getSeltext
 191             if FormTree.getSeltext = sFormName then
 192                 fFindForm = true
 193                 exit for
 194             endif
 195             FormTree.TypeKeys "<DOWN>"
 196         next
 197         sleep(1)
 198
 199 end function