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 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 : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : Tools->Options: OpenOffice.org Accessibility
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tOOoAccessibility
  35
  36    Dim lbSave ( 10 ) as Boolean
  37    Dim sSave as String
  38
  39  printlog " - save default setting"
  40    ToolsOptions
  41    hToolsOptions ( "StarOffice", "Accessibility" )
  42
  43    lbSave (9) = AutomaticDetectHC.IsChecked
  44    lbSave (2) = ForPagePreviews.IsChecked
  45    lbSave (3) = HelpTips.IsChecked
  46    sSave      = After.GetText
  47    lbSave (4) = AllowAnimatedGraphics.IsChecked
  48    lbSave (5) = AllowAnimatedText.IsChecked
  49    lbSave (6) = AlwaysUseAutomaticFontColor.IsChecked
  50    'lbSave (7) = UseSystemFont.IsChecked
  51    lbSave (10) = UseTextSelectionCursor.IsChecked
  52    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
  53       lbSave (8) = SupportAssistiveTechnologyTools.IsChecked
  54    end if
  55
  56
  57  printlog " - revers/change settings"
  58    if lbSave (9) = TRUE then AutomaticDetectHC.UnCheck else AutomaticDetectHC.Check
  59    if lbSave (2) = TRUE then ForPagePreviews.Uncheck else ForPagePreviews.Check
  60    HelpTips.Check
  61    After.SetText  "17"
  62    if lbSave (3) = TRUE then HelpTips.Uncheck else HelpTips.Check
  63    if lbSave (4) = TRUE then AllowAnimatedGraphics.Uncheck else AllowAnimatedGraphics.Check
  64    if lbSave (5) = TRUE then AllowAnimatedText.Uncheck else AllowAnimatedText.Check
  65    if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Uncheck else AlwaysUseAutomaticFontColor.Check
  66    'if lbSave (7) = TRUE then UseSystemFont.Uncheck else UseSystemFont.Check
  67    if lbSave (10) = TRUE then UseTextSelectionCursor.Uncheck else UseTextSelectionCursor.Check
  68    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
  69       if (gPlatgroup <> "unx") then
  70          Printlog "'Support assistive technology tools' won't be tested due to system dialog could come up and look the test out :-("
  71       else
  72          Warnlog "unexpected error 4711 :-)"
  73       endif
  74 '      if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Uncheck else SupportAssistiveTechnologyTools.Check
  75    else
  76       if (gPlatgroup <> "unx") then
  77          Warnlog "'Support assistive technology tools' is not available :-("
  78       endif
  79    end if
  80
  81  printlog " - press OK at the options dialog"
  82    Kontext "ExtrasOptionenDlg"
  83    ExtrasOptionenDlg.OK
  84    Sleep (3)
  85
  86  printlog " - exit/restart StarOffice"
  87    ExitRestartTheOffice
  88
  89  printlog " - check settings"
  90    ToolsOptions
  91    hToolsOptions ( "StarOffice", "Accessibility" )
  92
  93    if AutomaticDetectHC.IsChecked = lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
  94    if ForPagePreviews.IsChecked = lbSave (2) then warnlog "For Page Previews : => changes not saved!"
  95    if HelpTips.IsChecked = lbSave (3) then warnlog "Help Tips : => changes not saved!"
  96    HelpTips.Check
  97    if After.GetText <> "17" then warnlog "After... : => changes not saved!"
  98    if AllowAnimatedGraphics.IsChecked = lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
  99    if AllowAnimatedText.IsChecked = lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
 100    if AlwaysUseAutomaticFontColor.IsChecked = lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
 101    'if UseSystemFont.IsChecked = lbSave (7) then warnlog "Use System Font : => changes not saved!"
 102    if UseTextSelectionCursor.IsChecked = lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
 103 '   if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 104 '      if SupportAssistiveTechnologyTools.IsChecked = lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
 105 '   end if
 106
 107  printlog " - second settings"
 108    AutomaticDetectHC.UnCheck
 109    ForPagePreviews.Check
 110    HelpTips.Check
 111    After.SetText  "1"
 112    AllowAnimatedGraphics.Uncheck
 113    AllowAnimatedText.Check
 114    AlwaysUseAutomaticFontColor.Uncheck
 115    'UseSystemFont.Check
 116    UseTextSelectionCursor.UnCheck
 117    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 118       SupportAssistiveTechnologyTools.Uncheck
 119    end if
 120
 121  printlog " - press OK at the options dialog"
 122    Kontext "ExtrasOptionenDlg"
 123    ExtrasOptionenDlg.OK
 124    Sleep (3)
 125
 126  printlog " - check changes"
 127    ToolsOptions
 128    hToolsOptions ( "StarOffice", "Accessibility" )
 129
 130    if AutomaticDetectHC.IsChecked <> FALSE then warnlog "Automatic Detect HC ... : => changes not saved!"
 131    if ForPagePreviews.IsChecked <> TRUE then warnlog "For Page Previews : => changes not saved!"
 132    if HelpTips.IsChecked <> TRUE then warnlog "Help Tips : => changes not saved!"
 133    if After.GetText <> "1" then warnlog "After... : => changes not saved!"
 134    if AllowAnimatedGraphics.IsChecked <> FALSE then warnlog "Allow Animated Graphics : => changes not saved!"
 135    if AllowAnimatedText.IsChecked <> TRUE then warnlog "Allow Animated Text : => changes not saved!"
 136    if AlwaysUseAutomaticFontColor.IsChecked <> FALSE then warnlog "Always Use Automatic Font Color : => changes not saved!"
 137    'if UseSystemFont.IsChecked <> TRUE then warnlog "Use System Font : => changes not saved!"
 138    if UseTextSelectionCursor.IsChecked <> FALSE then warnlog "Use Text Selection Cursor : => changes not saved!"
 139    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 140       if SupportAssistiveTechnologyTools.IsChecked <> FALSE then warnlog "Support Assistive Technology Tools : => changes not saved!"
 141    end if
 142
 143    if lbSave (9) = TRUE then AutomaticDetectHC.Check else AutomaticDetectHC.UnCheck
 144    if lbSave (2) = TRUE then ForPagePreviews.Check else ForPagePreviews.UnCheck
 145    HelpTips.Check
 146    After.SetText  sSave
 147    if lbSave (3) = TRUE then HelpTips.Check else HelpTips.UnCheck
 148    if lbSave (4) = TRUE then AllowAnimatedGraphics.Check else AllowAnimatedGraphics.UnCheck
 149    if lbSave (5) = TRUE then AllowAnimatedText.Check else AllowAnimatedText.UnCheck
 150    if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Check else AlwaysUseAutomaticFontColor.UnCheck
 151    'if lbSave (7) = TRUE then UseSystemFont.Check else UseSystemFont.UnCheck
 152    if lbSave (10) = TRUE then UseTextSelectionCursor.Check else UseTextSelectionCursor.UnCheck
 153    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 154       if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Check else SupportAssistiveTechnologyTools.UnCheck
 155    end if
 156
 157  printlog " - press OK at the options dialog"
 158    Kontext "ExtrasOptionenDlg"
 159    ExtrasOptionenDlg.OK
 160    Sleep (3)
 161
 162  printlog " - check reset"
 163    ToolsOptions
 164    hToolsOptions ( "StarOffice", "Accessibility" )
 165
 166    if AutomaticDetectHC.IsChecked <> lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!"
 167    if ForPagePreviews.IsChecked <> lbSave (2) then warnlog "For Page Previews : => changes not saved!"
 168    if HelpTips.IsChecked <> lbSave (3) then warnlog "Help Tips : => changes not saved!"
 169    HelpTips.Check
 170    if After.GetText <> sSave then warnlog "After... : => changes not saved!"
 171    if AllowAnimatedGraphics.IsChecked <> lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!"
 172    if AllowAnimatedText.IsChecked <> lbSave (5) then warnlog "Allow Animated Text : => changes not saved!"
 173    if AlwaysUseAutomaticFontColor.IsChecked <> lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!"
 174    'if UseSystemFont.IsChecked <> lbSave (7) then warnlog "Use System Font : => changes not saved!"
 175    if UseTextSelectionCursor.IsChecked <> lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!"
 176    if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then
 177       if SupportAssistiveTechnologyTools.IsChecked <> lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!"
 178    end if
 179  printlog " - press OK at the options dialog"
 180    Kontext "ExtrasOptionenDlg"
 181    ExtrasOptionenDlg.OK
 182    Sleep (3)
 183
 184 endcase
 185