testautomation/framework/optional/includes/options_ooo_accessibility.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: options_ooo_accessibility.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Tools->Options: OpenOffice.org Accessibility
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tOOoAccessibility
  41
  42 '///</b>check if all settings are saved in configuration ( StarOffice / Accessibility )
  43    Dim lbSave ( 10 ) as Boolean
  44    Dim sSave as String
  45
  46  printlog " - save default setting"
  47 '///save settings
  48 '///tools / options / staroffice / accessibility
  49    ToolsOptions
  50    hToolsOptions ( "StarOffice", "Accessibility" )
  51
  52    lbSave (9) = AutomaticDetectHC.IsChecked
  53    lbSave (2) = ForPagePreviews.IsChecked
  54    lbSave (3) = HelpTips.IsChecked
  55    sSave      = After.GetText
  56    lbSave (4) = AllowAnimatedGraphics.IsChecked
  57    lbSave (5) = AllowAnimatedText.IsChecked
  58    lbSave (6) = AlwaysUseAutomaticFontColor.IsChecked
  59    'lbSave (7) = UseSystemFont.IsChecked
  60    lbSave (10) = UseTextSelectionCursor.IsChecked
  61    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
  62       lbSave (8) = SupportAssistiveTechnologyTools.IsChecked
  63    end if
  64
  65
  66 '///revers/change settings
  67  printlog " - revers/change settings"
  68    if lbSave (9) = TRUE then AutomaticDetectHC.UnCheck else AutomaticDetectHC.Check
  69    if lbSave (2) = TRUE then ForPagePreviews.Uncheck else ForPagePreviews.Check
  70    HelpTips.Check
  71    After.SetText  "17"
  72    if lbSave (3) = TRUE then HelpTips.Uncheck else HelpTips.Check
  73    if lbSave (4) = TRUE then AllowAnimatedGraphics.Uncheck else AllowAnimatedGraphics.Check
  74    if lbSave (5) = TRUE then AllowAnimatedText.Uncheck else AllowAnimatedText.Check
  75    if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Uncheck else AlwaysUseAutomaticFontColor.Check
  76    'if lbSave (7) = TRUE then UseSystemFont.Uncheck else UseSystemFont.Check
  77    if lbSave (10) = TRUE then UseTextSelectionCursor.Uncheck else UseTextSelectionCursor.Check
  78    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
  79    '/// - 'Support assistive technology tools' is only available on windows platform ///'
  80    '/// - if you enable it, and you have not the right / or none version of teh Java Access Bridge a system dialog comes up ///'
  81    '/// - this is a wanted behaviour! but can't be handled by testtool. so this option won't be checked! ///'
  82       if (gPlatgroup <> "unx") then
  83          Printlog "'Support assistive technology tools' won't be tested due to system dialog could come up and look the test out :-("
  84       else
  85          Warnlog "unexpected error 4711 :-)"
  86       endif
  87 '      if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Uncheck else SupportAssistiveTechnologyTools.Check
  88    else
  89       if (gPlatgroup <> "unx") then
  90          Warnlog "'Support assistive technology tools' is not available :-("
  91       endif
  92    end if
  93
  94 '///press OK at the options dialog
  95  printlog " - press OK at the options dialog"
  96    Kontext "ExtrasOptionenDlg"
  97    ExtrasOptionenDlg.OK
  98    Sleep (3)
  99
 100 '///exit and restart StarOffice
 101  printlog " - exit/restart StarOffice"
 102    ExitRestartTheOffice
 103
 104 '///check the changes
 105  printlog " - check settings"
 106 '///tools / options / staroffice / accessibility
 107    ToolsOptions
 108    hToolsOptions ( "StarOffice", "Accessibility" )
 109
 110    if AutomaticDetectHC.IsChecked = lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
 111    if ForPagePreviews.IsChecked = lbSave (2) then warnlog "For Page Previews : => changes not saved!"
 112    if HelpTips.IsChecked = lbSave (3) then warnlog "Help Tips : => changes not saved!"
 113    HelpTips.Check
 114    if After.GetText <> "17" then warnlog "After... : => changes not saved!"
 115    if AllowAnimatedGraphics.IsChecked = lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
 116    if AllowAnimatedText.IsChecked = lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
 117    if AlwaysUseAutomaticFontColor.IsChecked = lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
 118    'if UseSystemFont.IsChecked = lbSave (7) then warnlog "Use System Font : => changes not saved!"
 119    if UseTextSelectionCursor.IsChecked = lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
 120 '   if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 121 '      if SupportAssistiveTechnologyTools.IsChecked = lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
 122 '   end if
 123
 124  printlog " - second settings"
 125 '///second changes
 126    AutomaticDetectHC.UnCheck
 127    ForPagePreviews.Check
 128    HelpTips.Check
 129    After.SetText  "1"
 130    AllowAnimatedGraphics.Uncheck
 131    AllowAnimatedText.Check
 132    AlwaysUseAutomaticFontColor.Uncheck
 133    'UseSystemFont.Check
 134    UseTextSelectionCursor.UnCheck
 135    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 136       SupportAssistiveTechnologyTools.Uncheck
 137    end if
 138
 139 '///press OK at the options dialog
 140  printlog " - press OK at the options dialog"
 141    Kontext "ExtrasOptionenDlg"
 142    ExtrasOptionenDlg.OK
 143    Sleep (3)
 144
 145 '///check the changes
 146  printlog " - check changes"
 147 '///tools / options / staroffice / accessibility
 148    ToolsOptions
 149    hToolsOptions ( "StarOffice", "Accessibility" )
 150
 151    if AutomaticDetectHC.IsChecked <> FALSE then warnlog "Automatic Detect HC ... : => changes not saved!"
 152    if ForPagePreviews.IsChecked <> TRUE then warnlog "For Page Previews : => changes not saved!"
 153    if HelpTips.IsChecked <> TRUE then warnlog "Help Tips : => changes not saved!"
 154    if After.GetText <> "1" then warnlog "After... : => changes not saved!"
 155    if AllowAnimatedGraphics.IsChecked <> FALSE then warnlog "Allow Animated Graphics : => changes not saved!"
 156    if AllowAnimatedText.IsChecked <> TRUE then warnlog "Allow Animated Text : => changes not saved!"
 157    if AlwaysUseAutomaticFontColor.IsChecked <> FALSE then warnlog "Always Use Automatic Font Color : => changes not saved!"
 158    'if UseSystemFont.IsChecked <> TRUE then warnlog "Use System Font : => changes not saved!"
 159    if UseTextSelectionCursor.IsChecked <> FALSE then warnlog "Use Text Selection Cursor : => changes not saved!"
 160    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 161       if SupportAssistiveTechnologyTools.IsChecked <> FALSE then warnlog "Support Assistive Technology Tools : => changes not saved!"
 162    end if
 163
 164 '///reset to default
 165    if lbSave (9) = TRUE then AutomaticDetectHC.Check else AutomaticDetectHC.UnCheck
 166    if lbSave (2) = TRUE then ForPagePreviews.Check else ForPagePreviews.UnCheck
 167    HelpTips.Check
 168    After.SetText  sSave
 169    if lbSave (3) = TRUE then HelpTips.Check else HelpTips.UnCheck
 170    if lbSave (4) = TRUE then AllowAnimatedGraphics.Check else AllowAnimatedGraphics.UnCheck
 171    if lbSave (5) = TRUE then AllowAnimatedText.Check else AllowAnimatedText.UnCheck
 172    if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Check else AlwaysUseAutomaticFontColor.UnCheck
 173    'if lbSave (7) = TRUE then UseSystemFont.Check else UseSystemFont.UnCheck
 174    if lbSave (10) = TRUE then UseTextSelectionCursor.Check else UseTextSelectionCursor.UnCheck
 175    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 176       if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Check else SupportAssistiveTechnologyTools.UnCheck
 177    end if
 178
 179 '///press OK at the options dialog
 180  printlog " - press OK at the options dialog"
 181    Kontext "ExtrasOptionenDlg"
 182    ExtrasOptionenDlg.OK
 183    Sleep (3)
 184
 185 '///check the reset
 186  printlog " - check reset"
 187 '///tools / options / staroffice / accessibility
 188    ToolsOptions
 189    hToolsOptions ( "StarOffice", "Accessibility" )
 190
 191    if AutomaticDetectHC.IsChecked <> lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
 192    if ForPagePreviews.IsChecked <> lbSave (2) then warnlog "For Page Previews : => changes not saved!"
 193    if HelpTips.IsChecked <> lbSave (3) then warnlog "Help Tips : => changes not saved!"
 194    HelpTips.Check
 195    if After.GetText <> sSave then warnlog "After... : => changes not saved!"
 196    if AllowAnimatedGraphics.IsChecked <> lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
 197    if AllowAnimatedText.IsChecked <> lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
 198    if AlwaysUseAutomaticFontColor.IsChecked <> lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
 199    'if UseSystemFont.IsChecked <> lbSave (7) then warnlog "Use System Font : => changes not saved!"
 200    if UseTextSelectionCursor.IsChecked <> lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
 201    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 202       if SupportAssistiveTechnologyTools.IsChecked <> lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
 203    end if
 204 '///press OK at the options dialog
 205  printlog " - press OK at the options dialog"
 206    Kontext "ExtrasOptionenDlg"
 207    ExtrasOptionenDlg.OK
 208    Sleep (3)
 209
 210 endcase
 211