testautomation/framework/optional/includes/options_ooo_view.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 View
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tOOoView
  35
  36
  37     dim sFile as string
  38
  39     printlog "Check if the defaults are correct"
  40     sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_defaults.ref"
  41     call checkPage( sFile , false )
  42
  43     printlog "Change all settings to something different to the default"
  44     sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_changed.ref"
  45     call changePage( sFile , true, 1 )
  46
  47     printlog "Verify that all changes persist after a restart"
  48     sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_changed.ref"
  49     call checkPage( sFile , true, 1 )
  50
  51     printlog "Re-apply the defaults to all controls and restart the application"
  52     sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_defaults.ref"
  53     call changePage( sFile , false )
  54
  55     printlog "Verify that all settings have indeed been reset to defaults"
  56     call checkPage( sFile , false )
  57
  58 endcase
  59
  60 '*******************************************************************************
  61
  62 sub checkPage( sFile as string , bDisabled as boolean, optional iMiddleMouseButtonControl as integer)
  63     dim iMiddleMouseButton as integer
  64     dim iMiddleMouseButtonExtern as integer
  65     dim iTemp as integer
  66
  67     ' depends on if defaults or chnges are checked;
  68     ' changes : 1
  69     ' defaults: 0
  70     if isMissing(iMiddleMouseButtonControl) then
  71         iMiddleMouseButtonExtern = 0
  72     else
  73         iMiddleMouseButtonExtern = iMiddleMouseButtonControl
  74     endif
  75     sFile = convertpath( sFile )
  76
  77     printlog( " * Testing current settings against a reference list." )
  78     printlog( " * Using settings from file: " & sFile )
  79
  80     ToolsOptions
  81     call hToolsOptions( "StarOffice" , "View" )
  82
  83     ' Antialiasing settings only exist for Linux and Solaris
  84     if ( gPlatgroup() <> "w95" ) then
  85         if ( bDisabled ) then
  86             checkCheckBox( sFile , "*" , FontAntiAliasing)
  87             checkEntryField( sFile , "state_aapixel" , AAPixel)
  88         else
  89             checkEntryField( sFile , "*" , AAPixel)
  90             checkCheckBox( sFile , "*" , FontAntiAliasing)
  91         endif
  92     else
  93         if ( FontAntiAliasing.exists() ) then
  94             warnlog( "Antialiasing controls not expected on Windows" )
  95         endif
  96         if ( AAPixel.exists() ) then
  97             warnlog( "Antialiasing controls not expected on Windows" )
  98         endif
  99     endif
 100
 101     checkEntryField( sFile , "*" , FontScale)
 102     checkListBox( sFile , "*" , IconScale )
 103     checkListBox( sFile , "*" , IconStyle )
 104     checkListBox( sFile , "*" , IconsInMenueAnzeigen )
 105     checkListBox( sFile , "*" , IconStyle )
 106     checkCheckBox( sFile , "*" , VorschauInSchriftlisten )
 107     checkCheckBox( sFile , "*" , SchriftenHistorie )
 108
 109     if ( UseHardwareAcceleration.isEnabled ) then
 110         checkCheckBox( sFile , "*" , UseHardwareAcceleration )
 111     else
 112         printlog( "Hardware acceleration is not available on this system" )
 113     endif
 114
 115     if ( UseAntiAliasing.isEnabled() ) then
 116         checkCheckBox( sFile , "*" , UseAntiAliasing )
 117     else
 118         printlog( "Antialiasing is not available on this system" )
 119     endif
 120
 121     checkListBox( sFile , "*" , MousePositioning)
 122     ' needs to get handled differently on platforms!
 123     iMiddleMouseButton = MausAktion.getSelIndex
 124     if iMiddleMouseButtonExtern = 1 then
 125         checkListBox( sFile , "*" , MausAktion)
 126     else
 127         if gPlatGroup = "unx" then
 128             iTemp = 3 ' Paste clipboard
 129         else
 130             iTemp = 2 ' Automatic scrolling
 131         endif
 132         if Itemp = iMiddleMouseButton then
 133             printlog "     * Middle mouse button: ok"
 134         else
 135             warnlog "Middle mouse button: expected: '" + iTemp + "' '" _
 136                     + MausAktion.getItemText(iTemp) + "'; is: '" _
 137                     + iMiddleMouseButton + "' '" _
 138                     + MausAktion.getItemText(iMiddleMouseButton) + "'"
 139         endif
 140     endif
 141
 142     if ( Transparency.isEnabled() ) then
 143         if ( Transparency.isChecked() ) then
 144             checkCheckBox( sFile , "*" , transparency )
 145             checkEntryField( sFile , "*", selectionopacity )
 146         else
 147             Transparency.check()
 148             checkEntryField( sFile , "*", selectionopacity, "i104150" )
 149             Transparency.unCheck()
 150         endif
 151     else
 152         printlog( "Transparency is not available on this system" )
 153     endif
 154
 155     Kontext "OptionenDLG"
 156     OptionenDLG.OK
 157     WaitSlot()
 158     call exitRestartTheOffice
 159 end sub
 160
 161 '*******************************************************************************
 162
 163 sub changePage( sFile as string , bInverted as boolean, optional iMiddleMouseButtonControl as integer )
 164     dim iMiddleMouseButtonExtern as integer
 165
 166     ' depends on if defaults or chnges are checked;
 167     ' changes : 1
 168     ' defaults: 0
 169     if isMissing(iMiddleMouseButtonControl) then
 170         iMiddleMouseButtonExtern = 0
 171     else
 172         iMiddleMouseButtonExtern = iMiddleMouseButtonControl
 173     endif
 174
 175     sFile = convertpath( sFile )
 176     printlog( " * Changing current settings according to the reference list." )
 177     printlog( " * Using settings from file: " & sFile )
 178
 179     ToolsOptions
 180     call hToolsOptions( "StarOffice" , "View" )
 181     sleep( 2 )
 182
 183     ' Antialiasing settings only exist for Linux and Solaris
 184     if ( gPlatGroup <> "w95" ) then
 185         if ( bInverted ) then
 186             setEntryField( sFile , "*" , AAPixel )
 187             setCheckBox( sFile , "*" , FontAntiAliasing )
 188         else
 189             setCheckBox( sFile , "*" , FontAntiAliasing )
 190             setEntryField( sFile , "*" , AAPixel )
 191         endif
 192     endif
 193
 194     setEntryField( sFile , "*" , FontScale )
 195     setListBox( sFile , "*" , IconScale )
 196     setListBox( sFile , "*" , IconStyle )
 197     setListBox( sFile , "*" , IconsInMenueAnzeigen )
 198     setCheckBox( sFile , "*" , VorschauInSchriftlisten )
 199     setCheckBox( sFile , "*" , SchriftenHistorie )
 200
 201     if ( UseHardwareAcceleration.isEnabled() ) then
 202         setCheckBox( sFile , "*" , UseHardwareAcceleration )
 203     else
 204         printlog( "Harware acceleration is not available on this system" )
 205     endif
 206
 207     if ( UseAntiAliasing.isEnabled() ) then
 208         setCheckBox( sFile , "*" , useantialiasing )
 209     else
 210         printlog( "Antialiasing is not available on this system" )
 211     endif
 212
 213     setListBox( sFile , "*" , MousePositioning )
 214     ' needs to get handled differently on platforms!
 215     if iMiddleMouseButtonExtern = 1 then
 216         setListBox( sFile , "*" , MausAktion )
 217     else
 218         if gPlatGroup = "unx" then
 219             MausAktion.select(3) ' Paste clipboard
 220         else
 221             MausAktion.select(2) ' Automatic scrolling
 222         endif
 223     endif
 224
 225     if ( Transparency.isEnabled() ) then
 226         if ( Transparency.isChecked() ) then
 227             setEntryField( sFile , "*", selectionopacity )
 228             setCheckBox( sFile , "*" , transparency )
 229         else
 230             setCheckBox( sFile , "*" , transparency )
 231             setEntryField( sFile , "*", selectionopacity )
 232         endif
 233     else
 234         printlog( "Transparency is not available on this system" )
 235     endif
 236
 237     Kontext "OptionenDLG"
 238     OptionenDLG.OK
 239     WaitSlot()
 240     call exitRestartTheOffice
 241 end sub
 242
 243