testautomation/graphics/optional/g_stylist.bas

   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: g_stylist.bas,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:37 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : Graphics Function: Stylist
  37 '*
  38 '\*******************************************************************
  39
  40 public glLocale (15*20) as string
  41
  42 sub main
  43     PrintLog "------------------------- Stylist Test -------------------"
  44     Call hStatusIn ( "Graphics","g_stylist.bas" )
  45
  46     use "graphics\tools\id_tools.inc"
  47     use "graphics\tools\id_tools_2.inc"
  48     use "graphics\optional\includes\global\g_stylist.inc"
  49     use "graphics\optional\includes\impress\i_stylist.inc"
  50
  51     if hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () ) = FALSE then
  52         warnlog "Locales file doesn't exist graphics\tools\locale_1.txt"
  53     endif
  54
  55     gApplication = "IMPRESS"
  56
  57     PrintLog "-------------------------" + gApplication + "-------------------"
  58     Call tFormatStylistFlyer
  59     Call tFormatStylistDocuments
  60     Call tFormatStylistTemplatesUse
  61     Call tFormatStylistTemplateCreate
  62     if iSprache <> "82" then
  63         Call tFormatStylistTemplateSelect
  64         Call tFormatStylistTemplateNew
  65     else
  66         qaerrorlog "#i65490# - Deactivated tFormatStylistTemplateSelect, tFormatStylistTemplateNew due to bug."
  67     endif
  68     call tiFormatStylist
  69     call tFormatStylist
  70
  71     if iSprache <> "81" then
  72         if iSprache <> "82" then
  73             Call tFormatStylistBackground
  74         else
  75             qaerrorlog "#i65534# - Deactivated tFormatStylistBackground due to bug under Korean."
  76         endif
  77     else
  78         qaerrorlog "Deactivated tFormatStylistBackground due to string-name-difficulties."
  79     endif
  80
  81     gApplication = "DRAW"
  82     PrintLog "-------------------------" + gApplication + "-------------------"
  83
  84     Call tFormatStylistFlyer
  85     Call tFormatStylistDocuments
  86     Call tFormatStylistTemplatesUse
  87     '    Call tFormatStylistTemplateCreate
  88     if iSprache <> "82" then
  89         Call tFormatStylistTemplateSelect
  90         Call tFormatStylistTemplateNew
  91     else
  92         qaerrorlog "#i65490# - Deactivated tFormatStylistTemplateSelect, tFormatStylistTemplateNew due to bug."
  93     endif
  94     call tiFormatStylist
  95     call tFormatStylist
  96
  97     Call hStatusOut
  98 end sub
  99
 100 sub LoadIncludeFiles
 101     use "global\system\includes\master.inc"
 102     use "global\system\includes\gvariabl.inc"
 103     gApplication = "IMPRESS"
 104     Call GetUseFiles
 105 end sub