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