testautomation/framework/required/includes/basic_dialog_i18n.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: basic_dialog_i18n.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Update test for Basic IDE / Dialog i18n-feature
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtBasicDialogI18n
  41
  42     printlog( "BASIC IDE Dialog i18n." )
  43
  44     dim brc as boolean
  45
  46     hCloseNavigator()
  47     hCreateDocument()'
  48
  49     brc = hInitFormControls( "tDialogI18n" )
  50     if ( not brc ) then
  51         warnlog( "Failed to open Basic IDE / Dialogs / ToolsCollectionBar" )
  52         goto endsub
  53     endif
  54
  55     printlog( "Click Manage Languages on ToolsCollectionBar")
  56     kontext "ToolsCollectionBar"
  57     if ( ToolsCollectionBar.exists() ) then
  58         ManageLanguage.click()
  59     else
  60         warnlog( "<ToolsCollectionBar> is not open, is the test environment dirty?" )
  61     endif
  62
  63     kontext "ManageUILanguages"
  64     if ( ManageUILanguages.exists( 2 ) ) then
  65         call dialogtest( ManageUILanguages )
  66
  67         printlog( "Add default language, choose preselection")
  68         kontext "ManageUILanguages"
  69         Add.click()
  70
  71         kontext "SetDefaultLanguage"
  72         if ( SetDefaultLanguage.exists( 2 ) ) then
  73             call dialogtest( SetDefaultLanguage )
  74
  75             kontext "SetDefaultLanguage"
  76             DefaultLanguageListbox.select( 3 )
  77
  78             kontext "SetDefaultLanguage"
  79             SetDefaultLanguage.ok()
  80         else
  81             warnlog( "Dialog <SetDefaultLanguage> did not open" )
  82          endif
  83
  84         printlog( "Back on Manage UI Languages Dialog we click <Add>")
  85         kontext "ManageUILanguages"
  86         Add.click()
  87
  88         kontext "AddUserInterface"
  89         if ( AddUserInterface.exists( 2 ) ) then
  90             call dialogtest( AddUserInterface )
  91
  92             printlog( "Add just another language at random")
  93             kontext "AddUserInterface"
  94             AddNewControl.typeKeys( "<HOME>" )     ' select first item
  95             AddNewControl.typeKeys( "<SPACE>" )    ' check it
  96
  97             kontext "AddUserInterface"
  98             AddUserInterface.ok()
  99         else
 100             warnlog( "Dialog <AddUserInterface> did not open" )
 101         endif
 102
 103         kontext "ManageUILanguages"
 104         PresentLanguages.Select (1)
 105
 106         printlog( "Back on Manage UI Languages Dialog, delete selected language")
 107         kontext "ManageUILanguages"
 108         Delete.click()
 109
 110         printlog( "Confirm delete")
 111         kontext "active"
 112         if ( Active.exists( 1 ) ) then
 113             call dialogtest( active )
 114
 115             kontext "active"
 116             active.ok()
 117         else
 118             warnlog( "Confirm delete messagebox is missing" )
 119         endif
 120
 121         printlog( "Leave Manage UI Languages Dialog")
 122         kontext "ManageUILanguages"
 123         ManageUILanguages.ok()
 124     else
 125         warnlog( "Manage UI languages did not open" )
 126     endif
 127
 128     printlog( "Verify that the translationbar is visible")
 129     kontext "TranslationBar"
 130     if ( not TranslationBar.exists() ) then
 131         warnlog( "The IDE Translation Toolbar is not visible" )
 132     endif
 133
 134     kontext "ToolsCollectionBar"
 135     if ( not ToolsCollectionBar.exists() ) then
 136         warnlog( "The ToolsCollectionBar is not visible" )
 137     endif
 138
 139     printlog( "Cleanup" )
 140     ToolsCollectionBar.Close
 141     hClosebasicIDE()
 142     hDestroyDocument()
 143
 144 endcase
 145