testautomation/framework/optional/includes/options_ooo_general.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 : gregor.hartmann@oracle.com
  29 '*
  30 '* short description : 1. test for general group userdata
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tOOoGeneral
  35
  36     dim lsSave (4) as String
  37     dim lbSave (3) as Boolean
  38
  39     hNewDocument
  40
  41     ToolsOptions
  42     hToolsOptions ( "StarOffice", "General" )
  43
  44     printlog " - save old data"
  45     lsSave ( 1 ) = Zweistellig.GetText
  46     lbSave ( 1 ) = Aktivieren.IsChecked
  47     Aktivieren.Check
  48
  49     if gPlatgroup = "w95" then
  50         lbSave (2) = StarOfficeDialogeBenutzen.IsChecked
  51     endif
  52
  53     lbSave ( 3 ) = DruckenStatus.IsChecked
  54     lsSave ( 3 ) = StyleSheet.GetSelText
  55
  56     printlog " - invert/change data"
  57     Zweistellig.SetText "1950"
  58     Zuruecksetzen.Click
  59
  60     if gPlatgroup = "w95" then
  61         if lbSave (2) then
  62             StarOfficeDialogeBenutzen.Uncheck
  63         else
  64             StarOfficeDialogeBenutzen.Check
  65         endif
  66     endif
  67
  68     If lbSave ( 3 ) then
  69         DruckenStatus.Uncheck
  70     else
  71         DruckenStatus.Check
  72     endif
  73
  74     StyleSheet.Select 3
  75
  76     Kontext "ExtrasOptionenDlg"
  77     hCloseDialog( ExtrasOptionenDlg, "ok" )
  78     hCloseDocument
  79
  80     printlog " - exit/restart StarOffice"
  81     ExitRestartTheOffice
  82
  83     printlog " - check data"
  84     ToolsOptions
  85     hToolsOptions ( "StarOffice", "General" )
  86
  87     if Zweistellig.GetText <> "1950" then
  88         '#i29810#
  89         Warnlog "Year ( 2 digits ) => changes not saved: " + Zweistellig.GetText
  90     endif
  91
  92     if not Aktivieren.IsChecked then
  93         Warnlog "Enable HelpAgent => changes not saved"
  94     endif
  95
  96     Zuruecksetzen.Click
  97
  98     if gPlatgroup = "w95" then
  99         if StarOfficeDialogeBenutzen.IsChecked = lbSave (2) then
 100             Warnlog "Use StarOffice dialogs => changes not saved!"
 101         endif
 102     endif
 103
 104     If DruckenStatus.IsChecked = lbSave ( 3 ) then
 105         Warnlog "Printing sets 'Document modified' status => changes not saved!"
 106     endif
 107
 108     printlog " - 2. change data"
 109     Zweistellig.SetText "1800"
 110     DruckenStatus.UnCheck
 111
 112     Kontext "ExtrasOptionenDlg"
 113     hCloseDialog( ExtrasOptionenDlg, "ok" )
 114
 115     printlog " - check data"
 116     ToolsOptions
 117     hToolsOptions ( "StarOffice", "General" )
 118
 119     if ( Zweistellig.GetText <> "1800" ) then
 120         '#i29810#
 121         Warnlog( "Year ( 2 digits ) => changes not saved : " & Zweistellig.GetText() )
 122     endif
 123
 124     If DruckenStatus.IsChecked  then
 125         Warnlog "Printing sets 'Document modified' status => changes not saved!"
 126     endif
 127
 128     if StyleSheet.GetSelIndex <> 3 then
 129         Warnlog "Style sheet for StarOffice Help => changes not saved!"
 130     endif
 131
 132     printlog " - reset to saved data"
 133     Zweistellig.SetText lsSave ( 1 )
 134     Aktivieren.Check
 135     Zuruecksetzen.Click
 136
 137     if lbSave (1) then
 138         Aktivieren.Check
 139     else
 140         Aktivieren.Uncheck
 141     endif
 142
 143     if gPlatgroup = "w95" then
 144         if lbSave (2) then
 145             StarOfficeDialogeBenutzen.Check
 146         else
 147             StarOfficeDialogeBenutzen.UnCheck
 148         endif
 149     endif
 150
 151     If lbSave(3) then
 152         DruckenStatus.Check
 153     else
 154         DruckenStatus.UnCheck
 155     endif
 156
 157     StyleSheet.Select lsSave(3)
 158
 159     Kontext "ExtrasOptionenDlg"
 160     hCloseDialog( ExtrasOptionenDlg, "ok" )
 161
 162     ToolsOptions
 163     hToolsOptions ( "StarOffice", "General" )
 164
 165     printlog " - check the reset data"
 166     if Zweistellig.GetText <> lsSave ( 1 ) then
 167         Warnlog "Year ( 2 digits ) => changes not saved"
 168     endif
 169
 170     if Aktivieren.IsChecked <> lbSave (1) then
 171         Warnlog "Enable HelpAgent => changes not saved"
 172     endif
 173
 174     Aktivieren.Check
 175     Zuruecksetzen.Click
 176
 177     if lbSave (1) then
 178         Aktivieren.Check else Aktivieren.Uncheck
 179     endif
 180
 181     if gPlatgroup = "w95" then
 182         if StarOfficeDialogeBenutzen.IsChecked <> lbSave (2) then
 183             Warnlog "Use StarOffice dialogs => changes not saved!"
 184         endif
 185     endif
 186
 187     If DruckenStatus.IsChecked <> lbSave(3) then
 188         Warnlog "Printing sets 'Document modified' status => changes not saved!"
 189     endif
 190
 191     if StyleSheet.GetSelText <> lsSave (3) then
 192         Warnlog "Style sheet for StarOffice Help => changes not saved!"
 193     endif
 194
 195     Kontext "ExtrasOptionenDlg"
 196     hCloseDialog( ExtrasOptionenDlg, "ok" )
 197
 198 endcase
 199