testautomation/writer/optional/includes/option/wr_o_2.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: wr_o_2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:32:54 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Functional-Tests for Tools-Options-Writer-DefaultFont, Print, Table
  37 '*
  38 '\***********************************************************************
  39
  40 sub wr_o_2
  41     Dim temp as boolean
  42
  43     Call tToolsOptionsWriterDefaultfont("BASICFONTS")
  44     Call tToolsOptionsWriterPrint
  45     ' is located in wr_o_a.inc
  46     Call tToolsOptionsWriterPrint1
  47     Call tToolsOptionsWriterTable
  48     Call tToolsOptionsWriterTable1
  49     ' is located in wr_o_a.inc
  50     Call tToolsOptionsWriterTableMove
  51     Call tToolsOptionsWriterTableInsert
  52     Call tToolsOptionsWriterTableEffects
  53     Call tToolsOptionsWriterTableEffects2
  54 end sub
  55
  56 '------------------------------------------------------------------------------
  57
  58 testcase tToolsOptionsWriterDefaultfont (WestOrEast as string)
  59
  60     Dim bCheckboxes(1) as boolean    ' Checkbox states
  61     Dim iListBox(5) as integer         ' ListBox
  62     Dim sListBox(5) as String
  63     Dim iListBoxSize(5) as integer         ' ListBox
  64     Dim sListBoxSize(5) as String
  65     Dim iTempListBox(5) as integer
  66     Dim sTempListBox(5) as String
  67     Dim iTempListBoxSize(5) as integer
  68     Dim sTempListBoxSize(5) as String
  69     Dim sInitFont(5) as String
  70     Dim sInitFontSize(5) as String
  71     Dim i as integer
  72     Dim x as integer
  73     Dim sFileName as string
  74     Dim sTempS as String
  75
  76     '/// Got called two times ///'
  77     '///+ 1. for the western- ///'
  78     '///+ 2. for the asian    font page ///'
  79
  80     Call hNewDocument
  81     ' Remember the init-font directly after installation
  82     ToolsOptions
  83     Call hToolsOptions ("WRITER",WestOrEast)
  84     Standard.Click
  85     sInitFont(1) = StandardSchrift.GetSelText
  86     sInitFont(2) = Ueberschrift.GetSelText
  87     sInitFont(3) = Liste.GetSelText
  88     sInitFont(4) = Beschriftung.GetSelText
  89     sInitFont(5) = Verzeichnis.GetSelText
  90     sInitFontSize(1) = StandardSchriftGroesse.GetSelText
  91     sInitFontSize(2) = UeberschriftGroesse.GetSelText
  92     sInitFontSize(3) = ListeGroesse.GetSelText
  93     sInitFontSize(4) = BeschriftungGroesse.GetSelText
  94     sInitFontSize(5) = VerzeichnisGroesse.GetSelText
  95     Kontext "ExtrasOptionenDlg"
  96     ExtrasOptionenDlg.OK
  97     WaitSlot (2)
  98
  99     if (Ucase(WestOrEast) = "BASICFONTSASIAN") then
 100         printlog "------------ ASIAN FONTS -------------"
 101         warnlog "TBO: don't know how it get's handeld, so don't pay ANY attention to warnlogs :-)"
 102         sFileName = gTesttoolPath + "writer\optional\input\options\options2.sxw"
 103     else
 104         printlog "------------ WESTERN FONTS -------------"
 105         Call ActiveDeactivateAsianSupport(False)
 106         sFileName = gTesttoolPath + "writer\optional\input\options\options2.sxw"
 107     end if
 108
 109     '/// use a document to check the font with styles///'
 110     '///+ use 'input\\writer\\optional\\options\\options2.sxw' ///
 111     Call hFileOpen ( sFileName )
 112     Call sMakeReadOnlyDocumentEditable
 113     printlog "- Tools/Options/Writer: DefaultFont"
 114
 115     printlog ("/// - save states ///")
 116     ToolsOptions
 117     Call hToolsOptions ("WRITER",WestOrEast)
 118
 119     bCheckboxes(1) = AktuellesDokument.IsChecked
 120     iListBox(1) = StandardSchrift.GetSelIndex
 121     iListBox(2) = Ueberschrift.GetSelIndex
 122     iListBox(3) = Liste.GetSelIndex
 123     iListBox(4) = Beschriftung.GetSelIndex
 124     iListBox(5) = Verzeichnis.GetSelIndex
 125     sListBox(1) = StandardSchrift.GetSelText
 126     sListBox(2) = Ueberschrift.GetSelText
 127     sListBox(3) = Liste.GetSelText
 128     sListBox(4) = Beschriftung.GetSelText
 129     sListBox(5) = Verzeichnis.GetSelText
 130
 131     iListBoxSize(1) = StandardSchriftGroesse.GetSelIndex
 132     iListBoxSize(2) = UeberschriftGroesse.GetSelIndex
 133     iListBoxSize(3) = ListeGroesse.GetSelIndex
 134     iListBoxSize(4) = BeschriftungGroesse.GetSelIndex
 135     iListBoxSize(5) = VerzeichnisGroesse.GetSelIndex
 136     sListBoxSize(1) = StandardSchriftGroesse.GetSelText
 137     sListBoxSize(2) = UeberschriftGroesse.GetSelText
 138     sListBoxSize(3) = ListeGroesse.GetSelText
 139     sListBoxSize(4) = BeschriftungGroesse.GetSelText
 140     sListBoxSize(5) = VerzeichnisGroesse.GetSelText
 141
 142     printlog ("'/// - all states inverting ///")
 143
 144     AktuellesDokument.UnCheck
 145     if ( StandardSchrift.GetItemCount > iListBox(1) ) then StandardSchrift.Select(iListBox(1) + 2) else StandardSchrift.Select(iListBox(1)-1)
 146     if ( Ueberschrift.GetItemCount    > iListBox(2) and iListBox(2) > 1 ) then Ueberschrift.Select(iListBox(2)-1) else Ueberschrift.Select(iListBox(2)+1)
 147     if ( Liste.GetItemCount           > iListBox(3) ) then Liste.Select          (iListBox(3) + 1) else Liste.Select(iListBox(3)-1)
 148     if ( Beschriftung.GetItemCount    > iListBox(4) and iListBox(4) > 1 ) then Beschriftung.Select   (iListBox(4)-1) else Beschriftung.Select(iListBox(4)+1)
 149     if ( Verzeichnis.GetItemCount     > iListBox(5) ) then Verzeichnis.Select    (iListBox(5) + 1) else Verzeichnis.Select(iListBox(5)-1)
 150
 151     if ( StandardSchriftGroesse.GetItemCount > iListBoxSize(1) ) then StandardSchriftGroesse.Select(iListBoxSize(1) + 2) else StandardSchriftGroesse.Select(iListBox(1)-1)
 152     if ( UeberschriftGroesse.GetItemCount    > iListBoxSize(2) and iListBoxSize(2) > 1 ) then UeberschriftGroesse.Select(iListBoxSize(2)-1) else UeberschriftGroesse.Select(iListBoxSize(2)+1)
 153     if ( ListeGroesse.GetItemCount           > iListBoxSize(3) ) then ListeGroesse.Select          (iListBoxSize(3) + 1) else ListeGroesse.Select(iListBoxSize(3)-1)
 154     if ( BeschriftungGroesse.GetItemCount    > iListBoxSize(4) and iListBoxSize(4) > 1 ) then BeschriftungGroesse.Select   (iListBoxSize(4)-1) else BeschriftungGroesse.Select(iListBoxSize(4)+1)
 155     if ( VerzeichnisGroesse.GetItemCount     > iListBoxSize(5) ) then VerzeichnisGroesse.Select    (iListBoxSize(5) + 1) else VerzeichnisGroesse.Select(iListBoxSize(5)-1)
 156
 157     iTempListBox(1) = StandardSchrift.GetSelIndex
 158     iTempListBox(2) = Ueberschrift.GetSelIndex
 159     iTempListBox(3) = Liste.GetSelIndex
 160     iTempListBox(4) = Beschriftung.GetSelIndex
 161     iTempListBox(5) = Verzeichnis.GetSelIndex
 162
 163     sTempListBox(1) = StandardSchrift.GetSelText
 164     sTempListBox(2) = Ueberschrift.GetSelText
 165     sTempListBox(3) = Liste.GetSelText
 166     sTempListBox(4) = Beschriftung.GetSelText
 167     sTempListBox(5) = Verzeichnis.GetSelText
 168
 169     iTempListBoxSize(1) = StandardSchriftGroesse.GetSelIndex
 170     iTempListBoxSize(2) = UeberschriftGroesse.GetSelIndex
 171     iTempListBoxSize(3) = ListeGroesse.GetSelIndex
 172     iTempListBoxSize(4) = BeschriftungGroesse.GetSelIndex
 173     iTempListBoxSize(5) = VerzeichnisGroesse.GetSelIndex
 174
 175     sTempListBoxSize(1) = StandardSchriftGroesse.GetSelText
 176     sTempListBoxSize(2) = UeberschriftGroesse.GetSelText
 177     sTempListBoxSize(3) = ListeGroesse.GetSelText
 178     sTempListBoxSize(4) = BeschriftungGroesse.GetSelText
 179     sTempListBoxSize(5) = VerzeichnisGroesse.GetSelText
 180
 181     Kontext "ExtrasOptionenDlg"
 182     ExtrasOptionenDlg.OK
 183     WaitSlot (2)
 184
 185     Printlog "'/// - check whether fonts get changed in doc. ///"
 186     Kontext "DocumentWriter"
 187     DocumentWriter.TypeKeys "<Up>", 5
 188     Call wTypeKeys "<Home><Right>"
 189     sTempS = wGetCharacterFont()
 190     if sTempS <> sTempListBox(1) then Warnlog "Default font: state changed  is: "+sTempS+" ;should: "+sTempListBox(1)+" : "+iTempListBox(1)
 191     Call wTypeKeys "<Down>"
 192     sTempS = wGetCharacterFont()
 193     if sTempS <> sTempListBox(2) then Warnlog "Heading font: state changed  is: "+sTempS+" ;should: "+sTempListBox(2)+" : "+iTempListBox(2)
 194     Call wTypeKeys "<Down>"
 195     sTempS = wGetCharacterFont()
 196     if sTempS <> sTempListBox(3) then Warnlog "List font: state changed  is: "+sTempS+" ;should: "+sTempListBox(3)+" : "+iTempListBox(3)
 197     Call wTypeKeys "<Down>"
 198     sTempS = wGetCharacterFont()
 199     if sTempS <> sTempListBox(4) then Warnlog "Caption font: state changed  is: "+sTempS+" ;should: "+sTempListBox(4)+" : "+iTempListBox(4)
 200     Call wTypeKeys "<Down>"
 201     sTempS = wGetCharacterFont()
 202     if sTempS <> sTempListBox(5) then Warnlog "Index font: state changed  is: "+sTempS+" ;should: "+sTempListBox(5)+" : "+iTempListBox(5)
 203
 204     Call wTypeKeys "<Mod1 Home><Right>"
 205     sTempS = wGetCharacterFontSize()
 206     if sTempS <> sTempListBoxSize(1) then Warnlog "Default fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(1)+" : "+iTempListBoxSize(1)
 207     Call wTypeKeys "<Down>"
 208     sTempS = wGetCharacterFontSize()
 209     if sTempS <> sTempListBoxSize(2) then Warnlog "Heading fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(2)+" : "+iTempListBoxSize(2)
 210     Call wTypeKeys "<Down>"
 211     sTempS = wGetCharacterFontSize()
 212     if sTempS <> sTempListBoxSize(3) then Warnlog "List fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(3)+" : "+iTempListBoxSize(3)
 213     Call wTypeKeys "<Down>"
 214     sTempS = wGetCharacterFontSize()
 215     if sTempS <> sTempListBoxSize(4) then Warnlog "Caption fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(4)+" : "+iTempListBoxSize(4)
 216     Call wTypeKeys "<Down>"
 217     sTempS = wGetCharacterFontSize()
 218     if sTempS <> sTempListBoxSize(5) then Warnlog "Index fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(5)+" : "+iTempListBoxSize(5)
 219
 220     printlog (" - SO quit - start"   )
 221
 222     Call wOfficeRestart
 223     WaitSlot (2)
 224
 225     printlog ("'/// - checking states ///")
 226     ToolsOptions
 227     Call hToolsOptions ( "WRITER" , WestOrEast )
 228
 229     if ( AktuellesDokument.IsChecked = TRUE ) then WarnLog "Current document only state changed"
 230     if ( StandardSchrift.GetSelIndex <> iTempListBox(1) ) then WarnLog "Default font state changed"
 231     if ( Ueberschrift.GetSelIndex    <> iTempListBox(2) ) then WarnLog "Heading font    state changed"
 232     if ( Liste.GetSelIndex           <> iTempListBox(3) ) then WarnLog "List font           state changed"
 233     if ( Beschriftung.GetSelIndex    <> iTempListBox(4) ) then WarnLog "Caption font    state changed"
 234     if ( Verzeichnis.GetSelIndex     <> iTempListBox(5) ) then WarnLog "Index     state changed"
 235
 236     if ( StandardSchriftGroesse.GetSelIndex <> iTempListBoxSize(1) ) then WarnLog "Default fontsize state changed"
 237     if ( UeberschriftGroesse.GetSelIndex    <> iTempListBoxSize(2) ) then WarnLog "Heading fontsize    state changed"
 238     if ( ListeGroesse.GetSelIndex           <> iTempListBoxSize(3) ) then WarnLog "List fontsize           state changed"
 239     if ( BeschriftungGroesse.GetSelIndex    <> iTempListBoxSize(4) ) then WarnLog "Caption fontsize    state changed"
 240     if ( VerzeichnisGroesse.GetSelIndex     <> iTempListBoxSize(5) ) then WarnLog "Index fontsize     state changed"
 241
 242     Kontext "ExtrasOptionenDlg"
 243     ExtrasOptionenDlg.OK
 244     WaitSlot (2)
 245
 246     Printlog "'///  - verify global settings don't affect saved Document ///"
 247     '///+ use input\\writer\\optional\\options\\options2.sxw ///
 248     Call hFileOpen ( sFileName )
 249     Call sMakeReadOnlyDocumentEditable
 250     Kontext "DocumentWriter"
 251     DocumentWriter.TypeKeys "<Up>", 5
 252     Call wTypeKeys "<Home><Right>"
 253
 254     sTempS = wGetCharacterFont()
 255     if sTempS <> sListBox(1) then Warnlog "Default font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(1)+" : "+iListBox(1)
 256     Call wTypeKeys "<Down>"
 257     sTempS = wGetCharacterFont()
 258     if sTempS <> sListBox(2) then Warnlog "Heading font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(2)+" : "+iListBox(2)
 259     Call wTypeKeys "<Down>"
 260     sTempS = wGetCharacterFont()
 261     if sTempS <> sListBox(3) then Warnlog "List font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(3)+" : "+iListBox(3)
 262     Call wTypeKeys "<Down>"
 263     sTempS = wGetCharacterFont()
 264     if sTempS <> sListBox(4) then Warnlog "Caption font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(4)+" : "+iListBox(4)
 265     Call wTypeKeys "<Down>"
 266     sTempS = wGetCharacterFont()
 267     if sTempS <> sListBox(5) then Warnlog "Index font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(5)+" : "+iListBox(5)
 268
 269     Call wTypeKeys "<Mod1 Home><Right>"
 270     sTempS = wGetCharacterFontSize()
 271     if sTempS <> sListBoxSize(1) then Warnlog "Default font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(1)+" : "+iListBoxSize(1)
 272     Call wTypeKeys "<Down>"
 273     sTempS = wGetCharacterFontSize()
 274     if sTempS <> sListBoxSize(2) then Warnlog "Heading font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(2)+" : "+iListBoxSize(2)
 275     Call wTypeKeys "<Down>"
 276     sTempS = wGetCharacterFontSize()
 277     if sTempS <> sListBoxSize(3) then Warnlog "List font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(3)+" : "+iListBoxSize(3)
 278     Call wTypeKeys "<Down>"
 279     sTempS = wGetCharacterFontSize()
 280     if sTempS <> sListBoxSize(4) then Warnlog "Caption font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(4)+" : "+iListBoxSize(4)
 281     Call wTypeKeys "<Down>"
 282     sTempS = wGetCharacterFontSize()
 283     if sTempS <> sListBoxSize(5) then Warnlog "Index font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(5)+" : "+iListBoxSize(5)
 284
 285     Call hCloseDocument
 286     Call hNewDocument
 287
 288     printlog ("'/// - all UnCheck -> o ///")
 289     ToolsOptions
 290     Call hToolsOptions ( "WRITER" , WestOrEast )
 291
 292     if AktuellesDokument.IsEnabled = true then
 293         AktuellesDokument.Check
 294     else
 295         ' Workraound: Sometimes checkbox is disabled...don't know why
 296         Kontext "ExtrasOptionenDlg"
 297         ExtrasOptionenDlg.Cancel
 298         WaitSlot (1)
 299         ToolsOptions
 300         Call hToolsOptions ( "WRITER" , WestOrEast )
 301         AktuellesDokument.Check
 302     end if
 303
 304     StandardSchrift.Select(1)
 305     Ueberschrift.Select(1)
 306     Liste.Select(1)
 307     Beschriftung.Select(1)
 308     Verzeichnis.Select(1)
 309
 310     StandardSchriftGroesse.Select(1)
 311     UeberschriftGroesse.Select(1)
 312     ListeGroesse.Select(1)
 313     BeschriftungGroesse.Select(1)
 314     VerzeichnisGroesse.Select(1)
 315
 316     Kontext "ExtrasOptionenDlg"
 317     ExtrasOptionenDlg.OK
 318     WaitSlot (2)
 319
 320     printlog ("'/// - check if all UnChecked ///")
 321     ToolsOptions
 322     Call hToolsOptions ( "WRITER" , WestOrEast )
 323
 324     if ( AktuellesDokument.IsChecked <> True ) then WarnLog "Current document only is not checked anymore"
 325     if ( StandardSchrift.GetSelIndex <> 1 ) then WarnLog "Default font is not item 1"
 326     if ( Ueberschrift.GetSelIndex    <> 1 ) then WarnLog "Heading font    is not item 1"
 327     if ( Liste.GetSelIndex           <> 1 ) then WarnLog "List font           is not item 1"
 328     if ( Beschriftung.GetSelIndex    <> 1 ) then WarnLog "Caption font    is not item 1"
 329     if ( Verzeichnis.GetSelIndex     <> 1 ) then WarnLog "Index font     is not item 1"
 330
 331     if ( StandardSchriftGroesse.GetSelIndex <> 1 ) then WarnLog "Default fontsize is not item 1"
 332     if ( UeberschriftGroesse.GetSelIndex    <> 1 ) then WarnLog "Heading fontsize    is not item 1"
 333     if ( ListeGroesse.GetSelIndex           <> 1 ) then WarnLog "List fontsize           is not item 1"
 334     if ( BeschriftungGroesse.GetSelIndex    <> 1 ) then WarnLog "Caption fontsize    is not item 1"
 335     if ( VerzeichnisGroesse.GetSelIndex     <> 1 ) then WarnLog "Index fontsize     is not item 1"
 336
 337     Printlog ("'/// - all Check -> x ///")
 338
 339     Sleep 1
 340     AktuellesDokument.Check
 341     StandardSchrift.Select(StandardSchrift.GetItemCount)
 342     Ueberschrift.Select   (Ueberschrift.GetItemCount   )
 343     Liste.Select          (Liste.GetItemCount          )
 344     Beschriftung.Select   (Beschriftung.GetItemCount   )
 345     Verzeichnis.Select    (Verzeichnis.GetItemCount    )
 346
 347     StandardSchriftGroesse.Select(StandardSchriftGroesse.GetItemCount)
 348     UeberschriftGroesse.Select   (UeberschriftGroesse.GetItemCount   )
 349     ListeGroesse.Select          (ListeGroesse.GetItemCount          )
 350     BeschriftungGroesse.Select   (BeschriftungGroesse.GetItemCount   )
 351     VerzeichnisGroesse.Select    (VerzeichnisGroesse.GetItemCount    )
 352
 353     Kontext "ExtrasOptionenDlg"
 354     ExtrasOptionenDlg.OK
 355     WaitSlot (2)
 356
 357     printlog ("'/// - check if all Checked ///")
 358     ToolsOptions
 359     Call hToolsOptions ( "WRITER" , WestOrEast )
 360
 361     if not AktuellesDokument.IsChecked then WarnLog "AktuellesDokument o"
 362     if ( StandardSchrift.GetSelIndex <> StandardSchrift.GetItemCount ) then WarnLog "Default font is not item (GetItemCount):"+StandardSchrift.GetSelIndex
 363     if ( Ueberschrift.GetSelIndex    <> Ueberschrift.GetItemCount    ) then WarnLog "Heading font    is not item (GetItemCount)"
 364     if ( Liste.GetSelIndex           <> Liste.GetItemCount           ) then WarnLog "List font           is not item (GetItemCount)"
 365     if ( Beschriftung.GetSelIndex    <> Beschriftung.GetItemCount    ) then WarnLog "Caption font    is not item (GetItemCount)"
 366     if ( Verzeichnis.GetSelIndex     <> Verzeichnis.GetItemCount     ) then WarnLog "Index font     is not item (GetItemCount)"
 367
 368     if ( StandardSchriftGroesse.GetSelIndex <> StandardSchriftGroesse.GetItemCount ) then WarnLog "Default fontsize is not item (GetItemCount):"+StandardSchrift.GetSelIndex
 369     if ( UeberschriftGroesse.GetSelIndex    <> UeberschriftGroesse.GetItemCount    ) then WarnLog "Heading fontsize    is not item (GetItemCount)"
 370     if ( ListeGroesse.GetSelIndex           <> ListeGroesse.GetItemCount           ) then WarnLog "List fontsize           is not item (GetItemCount)"
 371     if ( BeschriftungGroesse.GetSelIndex    <> BeschriftungGroesse.GetItemCount    ) then WarnLog "Caption fontsize    is not item (GetItemCount)"
 372     if ( VerzeichnisGroesse.GetSelIndex     <> VerzeichnisGroesse.GetItemCount     ) then WarnLog "Index fontsize     is not item (GetItemCount)"
 373
 374     printlog ("'/// - check Default Button ///")
 375     Standard.Click ' mal schauen, ob vorhanden...
 376
 377     if ( StandardSchrift.GetSelText <> sInitFont(1) ) then WarnLog "Default not init font!"
 378     if ( Ueberschrift.GetSelText    <> sInitFont(2) ) then WarnLog "Heading    not init font! BUGID: 89816"
 379     if ( Liste.GetSelText           <> sInitFont(3) ) then WarnLog "List           not init font!"
 380     if ( Beschriftung.GetSelText    <> sInitFont(4) ) then WarnLog "Caption    not init font!"
 381     if ( Verzeichnis.GetSelText     <> sInitFont(5) ) then WarnLog "Index     not init font!"
 382
 383     if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then WarnLog "Default fontsize not init font!"
 384     if ( UeberschriftGroesse.GetSelText    <> sInitFontSize(2) ) then WarnLog "Heading fontsize    not init font! BUGID: 89816"
 385     if ( ListeGroesse.GetSelText           <> sInitFontSize(3) ) then WarnLog "List fontsize           not init font!"
 386     if ( BeschriftungGroesse.GetSelText    <> sInitFontSize(4) ) then WarnLog "Caption fontsize    not init font!"
 387     if ( VerzeichnisGroesse.GetSelText     <> sInitFontSize(5) ) then WarnLog "Index fontsize     not init font!"
 388     AktuellesDokument.Uncheck
 389
 390     Kontext "ExtrasOptionenDlg"
 391     ExtrasOptionenDlg.Ok
 392
 393     '/// Open a new docuent and check fonts for default
 394     Call hNewDocument
 395     ToolsOptions
 396     Call hToolsOptions ( "WRITER" , WestOrEast )
 397
 398     if ( StandardSchrift.GetSelText <> sInitFont(1) ) then warnlog "Default not init font!"
 399     if ( Ueberschrift.GetSelText    <> sInitFont(2) ) then warnlog "Heading    not init font! BUGID: 89816"
 400     if ( Liste.GetSelText           <> sInitFont(3) ) then warnlog "List           not init font!"
 401     if ( Beschriftung.GetSelText    <> sInitFont(4) ) then warnlog "Caption    not init font!"
 402     if ( Verzeichnis.GetSelText     <> sInitFont(5) ) then warnlog "Index    not init font!"
 403
 404     if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then warnlog "Default fontsize not init font!"
 405     if ( UeberschriftGroesse.GetSelText    <> sInitFontSize(2) ) then warnlog "Heading fontsize    not init font! BUGID: 89816"
 406     if ( ListeGroesse.GetSelText           <> sInitFontSize(3) ) then warnlog "List fontsize           not init font!"
 407     if ( BeschriftungGroesse.GetSelText    <> sInitFontSize(4) ) then warnlog "Caption fontsize    not init font!"
 408     if ( VerzeichnisGroesse.GetSelText     <> sInitFontSize(5) ) then warnlog "Index fontsize     not init font!"
 409     Kontext "ExtrasOptionenDlg"
 410     ExtrasOptionenDlg.Cancel
 411     Call hCloseDocument
 412     Call hNewDocument
 413
 414     printlog ("'/// - restore states ///")
 415     ToolsOptions
 416     Call hToolsOptions ( "WRITER" , WestOrEast )
 417
 418     if ( bCheckboxes(1) = TRUE ) then  AktuellesDokument.Check else AktuellesDokument.UnCheck
 419     StandardSchrift.SetText (sListBox(1))
 420     Ueberschrift.SetText    (sListBox(2))
 421     Liste.SetText           (sListBox(3))
 422     Beschriftung.SetText    (sListBox(4))
 423     Verzeichnis.SetText     (sListBox(5))
 424
 425     StandardSchriftGroesse.SetText (sListBoxSize(1))
 426     UeberschriftGroesse.SetText    (sListBoxSize(2))
 427     ListeGroesse.SetText           (sListBoxSize(3))
 428     BeschriftungGroesse.SetText    (sListBoxSize(4))
 429     VerzeichnisGroesse.SetText     (sListBoxSize(5))
 430
 431     Kontext "ExtrasOptionenDlg"
 432     ExtrasOptionenDlg.OK
 433
 434     Do Until GetDocumentCount = 0
 435         Call hCloseDocument
 436     Loop
 437 endcase
 438
 439 '------------------------------------------------------------------------------
 440
 441 testcase tToolsOptionsWriterPrint1
 442     Dim bCheckboxes(13) as boolean    ' Checkbox states
 443     Dim iListBox(1) as string         ' ListBox
 444     Dim iTempListBox(1) as string
 445     Dim bRadioBut(4) as boolean         ' RadioButtons
 446     Dim bTempRadioBut(4) as boolean
 447     Dim i as integer, sWriterFilter as string
 448     Dim WriterFilterExtension(10) as string
 449         WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
 450
 451     ' sMetricField(i) and sTempMetricField(i)
 452     '(1) = Grafiken
 453     '(2) = Tabellen
 454     '(3) = Zeichnungen
 455     '(4) = Kontrollfelder
 456     '(5) = Hintergrund
 457     '(6) = SchwarzDrucken
 458     '
 459     '(7) = LinkeSeiten
 460     '(8) = RechteSeiten
 461     '(9) = Umgekehrt
 462     '(10)= Prospekt
 463     '
 464     '(11)= EinzelneDruckauftraege
 465     '(12)= AusDruckereinstellung
 466
 467     ' bRadioBut(i) and bTempRadioBut(i) / RadioButton
 468     '(1) = Keine
 469     '(2) = NurNotizen
 470     '(3) = Dokumentende
 471     '(4) = Seitenende
 472
 473     '/// uses "input\\writer\\optional\\options\\options3.sxw" ///
 474     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\options3.sxw" )
 475     Call sMakeReadOnlyDocumentEditable
 476     printlog "'///- Tools/Options/Writer: PrintWriter ///"
 477
 478     printlog ("'/// - save states ///")
 479     ToolsOptions
 480     Call hToolsOptions ("WRITER","PRINT")
 481
 482     bCheckboxes(1) = Grafiken.IsChecked
 483     bCheckboxes(2) = Tabellen.IsChecked
 484     bCheckboxes(3) = Zeichnungen.IsChecked
 485     bCheckboxes(4) = Kontrollfelder.IsChecked
 486     bCheckboxes(5) = Hintergrund.IsChecked
 487     bCheckboxes(6) = SchwarzDrucken.IsChecked
 488
 489     bCheckboxes(7) = LinkeSeiten.IsChecked
 490     bCheckboxes(8) = RechteSeiten.IsChecked
 491     bCheckboxes(9) = Umgekehrt.IsChecked
 492     bCheckboxes(10)= Prospekt.IsChecked
 493
 494     bCheckboxes(11)= EinzelneDruckauftraege.IsChecked
 495     bCheckboxes(12)= AusDruckereinstellung.IsChecked
 496     bCheckboxes(13)= LeereSeitenDrucken.IsChecked
 497
 498     iListBox(1) = Fax.GetSelText
 499
 500     bRadioBut(1) = Keine.IsChecked
 501     bRadioBut(2) = NurNotizen.IsChecked
 502     bRadioBut(3) = Dokumentende.IsChecked
 503     bRadioBut(4) = Seitenende.IsChecked
 504
 505     printlog ("'/// - all states inverting ///")
 506
 507     if bCheckboxes(1) then Grafiken.UnCheck               else Grafiken.Check
 508     if bCheckboxes(2) then Tabellen.UnCheck               else Tabellen.Check
 509     if bCheckboxes(3) then Zeichnungen.UnCheck            else Zeichnungen.Check
 510     if bCheckboxes(4) then Kontrollfelder.UnCheck         else Kontrollfelder.Check
 511     if bCheckboxes(5) then Hintergrund.UnCheck            else Hintergrund.Check
 512     if bCheckboxes(6) then SchwarzDrucken.UnCheck         else SchwarzDrucken.Check
 513
 514     if bCheckboxes(7) then LinkeSeiten.UnCheck            else LinkeSeiten.Check
 515     if bCheckboxes(8) then RechteSeiten.UnCheck           else RechteSeiten.Check
 516     if bCheckboxes(9) then Umgekehrt.UnCheck              else Umgekehrt.Check
 517     if bCheckboxes(10) then Prospekt.UnCheck               else Prospekt.Check
 518
 519     if bCheckboxes(11) then EinzelneDruckauftraege.UnCheck else EinzelneDruckauftraege.Check
 520     if bCheckboxes(12) then AusDruckereinstellung.UnCheck  else AusDruckereinstellung.Check
 521     if bCheckboxes(13) then LeereSeitenDrucken.UnCheck  else LeereSeitenDrucken.Check
 522
 523     if (Keine.IsChecked = True) then NurNotizen.Check else Keine.Check
 524
 525     bTempRadioBut(1) = Keine.IsChecked
 526     bTempRadioBut(2) = NurNotizen.IsChecked
 527     bTempRadioBut(3) = Dokumentende.IsChecked
 528     bTempRadioBut(4) = Seitenende.IsChecked
 529
 530     try
 531         if (NO_REAL_PRINT = False) then FL_Drucken
 532         for i = 1 to 10
 533             Kontext "Druckbestaetigung"
 534             if Druckbestaetigung.Exists then
 535                 Sleep 1
 536             else
 537                 i = 100
 538             end if
 539         next i
 540     catch
 541         print " :::::::::::::::wr2::::::test d1"
 542     endcatch
 543
 544     Kontext "Active"
 545     if Active.Exists then
 546         if Active.GetRT = 304 then
 547             printlog Active.Gettext
 548             try
 549                 Active.Ok
 550             catch
 551                 Active.Yes
 552             endcatch
 553         end if
 554     end if
 555     Kontext "TabDruckenWriter"
 556     wait 500
 557     if Fax.GetSelText <> iListBox(1) then
 558         Fax.Select (Fax.GetItemCount)
 559     else
 560         Fax.Select(1)
 561     end if
 562     iTempListBox(1) = Fax.GetSelIndex
 563
 564     Kontext "ExtrasOptionenDlg"
 565     ExtrasOptionenDlg.OK
 566     WaitSlot (2)
 567     Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\printtest." & WriterFilterExtension(0) , "writer8")
 568
 569     printlog ("'/// - SO quit - start ///")
 570
 571     Call wOfficeRestart
 572
 573     printlog ("'/// - checking states ///")
 574     ToolsOptions
 575     Call hToolsOptions ( "WRITER" , "PRINT" )
 576
 577     if ( bCheckboxes(1) = Grafiken.IsChecked               ) then WarnLog "Grafiken state changed"
 578     if ( bCheckboxes(2) = Tabellen.IsChecked               ) then WarnLog "Tabellen state changed"
 579     if ( bCheckboxes(3) = Zeichnungen.IsChecked            ) then WarnLog "Zeichnungen state changed"
 580     if ( bCheckboxes(4) = Kontrollfelder.IsChecked         ) then WarnLog "Kontrollfelder state changed"
 581     if ( bCheckboxes(5) = Hintergrund.IsChecked            ) then WarnLog "Hintergrund state changed"
 582     if ( bCheckboxes(6) = SchwarzDrucken.IsChecked         ) then WarnLog "SchwarzDrucken state changed"
 583
 584     if ( bCheckboxes(7) = LinkeSeiten.IsChecked            ) then WarnLog "LinkeSeiten state changed"
 585     if ( bCheckboxes(8) = RechteSeiten.IsChecked           ) then WarnLog "RechteSeiten state changed"
 586     if ( bCheckboxes(9) = Umgekehrt.IsChecked              ) then WarnLog "Umgekehrt state changed"
 587     if ( bCheckboxes(10)= Prospekt.IsChecked               ) then WarnLog "Prospekt state changed"
 588
 589     if ( bCheckboxes(11)= EinzelneDruckauftraege.IsChecked ) then WarnLog "EinzelneDruckauftraege state changed"
 590     if ( bCheckboxes(12)= AusDruckereinstellung.IsChecked  ) then WarnLog "AusDruckereinstellung state changed"
 591     if ( bCheckboxes(13)= LeereSeitenDrucken.IsChecked  ) then WarnLog "'Print automatically inserted blank pages' state changed"
 592
 593     if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
 594
 595     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
 596     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
 597     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
 598     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
 599
 600     Kontext "ExtrasOptionenDlg"
 601     ExtrasOptionenDlg.OK
 602     WaitSlot (2)
 603         ' Notify is saved with document
 604     Call hFileOpen(gOfficepath + "user\work\printtest." & WriterFilterExtension(0) )
 605     ToolsOptions
 606     Call hToolsOptions ( "WRITER" , "PRINT" )
 607
 608     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed (Not saved with document)"
 609     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed (Not saved with document)"
 610     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed (Not saved with document)"
 611     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed (Not saved with document)"
 612
 613     printlog ("'/// - all UnCheck -> o ///")
 614
 615     Grafiken.UnCheck
 616     Tabellen.UnCheck
 617     Zeichnungen.UnCheck
 618     Kontrollfelder.UnCheck
 619     Hintergrund.UnCheck
 620     SchwarzDrucken.UnCheck
 621
 622     LinkeSeiten.UnCheck
 623     RechteSeiten.UnCheck
 624     Umgekehrt.UnCheck
 625     Prospekt.UnCheck
 626
 627     EinzelneDruckauftraege.UnCheck
 628     AusDruckereinstellung.UnCheck
 629
 630     if (NurNotizen.IsChecked = True) then Dokumentende.Check else NurNotizen.Check
 631
 632     bTempRadioBut(1) = Keine.IsChecked
 633     bTempRadioBut(2) = NurNotizen.IsChecked
 634     bTempRadioBut(3) = Dokumentende.IsChecked
 635     bTempRadioBut(4) = Seitenende.IsChecked
 636
 637     Fax.Select(1)
 638
 639     Kontext "ExtrasOptionenDlg"
 640     ExtrasOptionenDlg.OK
 641     WaitSlot (2)
 642
 643     printlog ("'/// - check if all UnChecked ///")
 644     ToolsOptions
 645     Call hToolsOptions ( "WRITER" , "PRINT" )
 646
 647     if Grafiken.IsChecked       then WarnLog "Grafiken x"
 648     if Tabellen.IsChecked       then WarnLog "Tabellen x"
 649     if Zeichnungen.IsChecked    then WarnLog "Zeichnungen x"
 650     if Kontrollfelder.IsChecked then WarnLog "Kontrollfelder x"
 651     if Hintergrund.IsChecked    then WarnLog "Hintergrund x"
 652     if SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken x"
 653
 654     if LinkeSeiten.IsChecked    then WarnLog "LinkeSeiten x"
 655     if RechteSeiten.IsChecked   then WarnLog "RechteSeiten x"
 656     if Umgekehrt.IsChecked      then WarnLog "Umgekehrt x"
 657     if Prospekt.IsChecked       then WarnLog "Prospekt x"
 658
 659     if EinzelneDruckauftraege.IsChecked then WarnLog "EinzelneDruckauftraege x"
 660     if AusDruckereinstellung.IsChecked  then WarnLog "AusDruckereinstellung x"
 661
 662     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
 663     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
 664     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
 665     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
 666
 667     if ( Fax.GetSelIndex <> 1 ) then WarnLog "Fax is not item 1"
 668
 669     Printlog ("'/// - all Check -> x ///")
 670
 671     Grafiken.Check
 672     Tabellen.Check
 673     Zeichnungen.Check
 674     Kontrollfelder.Check
 675     Hintergrund.Check
 676     SchwarzDrucken.Check
 677
 678     LinkeSeiten.Check
 679     RechteSeiten.Check
 680     Umgekehrt.Check
 681     Prospekt.Check
 682
 683     EinzelneDruckauftraege.Check
 684     AusDruckereinstellung.Check
 685
 686     if (Dokumentende.IsChecked = True) then Seitenende.Check else Dokumentende.Check
 687
 688     bTempRadioBut(1) = Keine.IsChecked
 689     bTempRadioBut(2) = NurNotizen.IsChecked
 690     bTempRadioBut(3) = Dokumentende.IsChecked
 691     bTempRadioBut(4) = Seitenende.IsChecked
 692
 693     Fax.Select(Fax.GetItemCount)
 694
 695     Kontext "ExtrasOptionenDlg"
 696     ExtrasOptionenDlg.OK
 697     WaitSlot (2)
 698
 699     printlog ("'/// - check if all Checked ///")
 700     ToolsOptions
 701     Call hToolsOptions ( "WRITER" , "PRINT" )
 702
 703     if not Grafiken.IsChecked                then WarnLog "Grafiken o"
 704     if not Tabellen.IsChecked                then WarnLog "Tabellen o"
 705     if not Zeichnungen.IsChecked             then WarnLog "Zeichnungen o"
 706     if not Kontrollfelder.IsChecked          then WarnLog "Kontrollfelder o"
 707     if not Hintergrund.IsChecked             then WarnLog "Hintergrund o"
 708     if not SchwarzDrucken.IsChecked          then WarnLog "SchwarzDrucken o"
 709
 710     if not LinkeSeiten.IsChecked             then WarnLog "LinkeSeiten o"
 711     if not RechteSeiten.IsChecked            then WarnLog "RechteSeiten o"
 712     if not Umgekehrt.IsChecked               then WarnLog "Umgekehrt o"
 713     if not Prospekt.IsChecked                then WarnLog "Prospekt o"
 714
 715     if not EinzelneDruckauftraege.IsChecked  then WarnLog "EinzelneDruckauftraege o"
 716     if not AusDruckereinstellung.IsChecked   then WarnLog "AusDruckereinstellung o"
 717
 718     ' This state will be saved with the document
 719     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
 720     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
 721     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
 722     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
 723
 724     if ( Fax.GetSelIndex <> Fax.GetItemCount ) then WarnLog "Fax is not item (GetItemCount)"
 725
 726     Kontext "ExtrasOptionenDlg"
 727     ExtrasOptionenDlg.Cancel
 728
 729     printlog ("'/// - restore states ///")
 730     ToolsOptions
 731     Call hToolsOptions ( "WRITER" , "PRINT" )
 732
 733     if ( bCheckboxes(1) =  TRUE ) then  Grafiken.Check                else Grafiken.UnCheck
 734     if ( bCheckboxes(2) =  TRUE ) then  Tabellen.Check                else Tabellen.UnCheck
 735     if ( bCheckboxes(3) =  TRUE ) then  Zeichnungen.Check             else Zeichnungen.UnCheck
 736     if ( bCheckboxes(4) =  TRUE ) then  Kontrollfelder.Check          else Kontrollfelder.UnCheck
 737     if ( bCheckboxes(5) =  TRUE ) then  Hintergrund.Check             else Hintergrund.UnCheck
 738     if ( bCheckboxes(6) =  TRUE ) then  SchwarzDrucken.Check          else SchwarzDrucken.UnCheck
 739
 740     if ( bCheckboxes(7) =  TRUE ) then  LinkeSeiten.Check             else LinkeSeiten.UnCheck
 741     if ( bCheckboxes(8) =  TRUE ) then  RechteSeiten.Check            else RechteSeiten.UnCheck
 742     if ( bCheckboxes(9) =  TRUE ) then  Umgekehrt.Check               else Umgekehrt.UnCheck
 743     if ( bCheckboxes(10) = TRUE ) then  Prospekt.Check                else Prospekt.UnCheck
 744
 745     if ( bCheckboxes(11) = TRUE ) then  EinzelneDruckauftraege.Check  else EinzelneDruckauftraege.UnCheck
 746     if ( bCheckboxes(12) = TRUE ) then  AusDruckereinstellung.Check   else AusDruckereinstellung.UnCheck
 747     if ( bCheckboxes(13) = TRUE ) then  LeereSeitenDrucken.Check   else LeereSeitenDrucken.UnCheck
 748
 749     try
 750         Fax.Select (iListBox(1))
 751     catch
 752         warnlog "restore fax doesn't work"
 753     endcatch
 754
 755     if ( bRadioBut(1) = TRUE ) then Keine.Check
 756     if ( bRadioBut(2) = TRUE ) then NurNotizen.Check
 757     if ( bRadioBut(3) = TRUE ) then Dokumentende.Check
 758     if ( bRadioBut(4) = TRUE ) then Seitenende.Check
 759
 760     Kontext "ExtrasOptionenDlg"
 761     ExtrasOptionenDlg.OK
 762     WaitSlot (2)
 763
 764     Do Until GetDocumentCount = 0
 765         Call hCloseDocument
 766     Loop
 767 endcase
 768
 769 '------------------------------------------------------------------------------
 770
 771 testcase tToolsOptionsWriterTable
 772     Dim sMetricField(4) as string      ' MetricField
 773     Dim sTempMetricField(4) as string
 774     Dim bRadioBut(3) as boolean    ' RadioButton states
 775     Dim bTempRadioBut(3) as boolean
 776
 777     ' sMetricField(i) and sTempMetricField(i)
 778     '(1) = VerschiebenZeile
 779     '(2) = VerschiebenSpalte
 780     '(3) = EinfuegenZeile
 781     '(4) = EinfuegenSpalte
 782
 783     ' bRadioBut(i) and bTempRadioBut(i)
 784     '(1) = VerhaltenFix
 785     '(2) = FixProportional
 786     '(3) = Variabel
 787
 788     Call hNewDocument
 789     printlog ("'///- Tools/Options/Writer: Table ///")
 790
 791     printlog ("'/// - save states ///")
 792     ToolsOptions
 793     Call hToolsOptions ("WRITER","Table")
 794
 795     sMetricField(1) = VerschiebenZeile.GetText
 796     sMetricField(2) = VerschiebenSpalte.GetText
 797     sMetricField(3) = EinfuegenZeile.GetText
 798     sMetricField(4) = EinfuegenSpalte.GetText
 799
 800     bRadioBut(1) = VerhaltenFix.IsChecked
 801     bRadioBut(2) = FixProportional.IsChecked
 802     bRadioBut(3) = Variabel.IsChecked
 803
 804     if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097")
 805
 806     printlog ("'/// - all states inverting ///")
 807
 808     VerschiebenZeile.ToMax
 809     VerschiebenSpalte.ToMax
 810     EinfuegenZeile.ToMax
 811     EinfuegenSpalte.ToMax
 812     if ( VerschiebenZeile.GetText  = sMetricField(1) ) then VerschiebenZeile.ToMin
 813     if ( VerschiebenSpalte.GetText = sMetricField(2) ) then VerschiebenSpalte.ToMin
 814     if ( EinfuegenZeile.GetText    = sMetricField(3) ) then EinfuegenZeile.ToMin
 815     if ( EinfuegenSpalte.GetText   = sMetricField(4) ) then EinfuegenSpalte.ToMin
 816     sTempMetricField(1) = VerschiebenZeile.GetText
 817     sTempMetricField(2) = VerschiebenSpalte.GetText
 818     sTempMetricField(3) = EinfuegenZeile.GetText
 819     sTempMetricField(4) = EinfuegenSpalte.GetText
 820
 821     if (VerhaltenFix.IsChecked = True) then FixProportional.Check else VerhaltenFix.Check
 822
 823     bTempRadioBut(1) = VerhaltenFix.IsChecked
 824     bTempRadioBut(2) = FixProportional.IsChecked
 825     bTempRadioBut(3) = Variabel.IsChecked
 826
 827     Kontext "ExtrasOptionenDlg"
 828     ExtrasOptionenDlg.OK
 829     printlog ("'/// - SO quit - start ///")
 830
 831     Call wOfficeRestart
 832
 833     printlog ("'/// - checking states ///")
 834     ToolsOptions
 835     Call hToolsOptions ( "WRITER" , "Table" )
 836
 837     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile state changed BugID: 82990 "
 838     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte state changed"
 839     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile state changed"
 840     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte state changed"
 841
 842     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
 843     if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
 844     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
 845
 846     Kontext "ExtrasOptionenDlg"
 847     ExtrasOptionenDlg.OK
 848     WaitSlot (2)
 849
 850     printlog ("'/// - all UnCheck -> o ///")
 851     ToolsOptions
 852     Call hToolsOptions ( "WRITER" , "Table" )
 853
 854     VerschiebenZeile.ToMin
 855     VerschiebenSpalte.ToMin
 856     EinfuegenZeile.ToMin
 857     EinfuegenSpalte.ToMin
 858     sTempMetricField(1) = VerschiebenZeile.GetText
 859     sTempMetricField(2) = VerschiebenSpalte.GetText
 860     sTempMetricField(3) = EinfuegenZeile.GetText
 861     sTempMetricField(4) = EinfuegenSpalte.GetText
 862     printlog ("'/// More test ///'")
 863     VerschiebenZeile.More
 864     VerschiebenSpalte.More
 865     EinfuegenZeile.More
 866     EinfuegenSpalte.More
 867
 868     if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) then WarnLog "VerschiebenZeile.  More-Button not working"
 869     if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) then WarnLog "VerschiebenSpalte. More-Button not working"
 870     if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) then WarnLog "EinfuegenZeile.     More-Button not working"
 871     if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) then WarnLog "EinfuegenSpalte.    More-Button not working"
 872
 873     sTempMetricField(1) = VerschiebenZeile.GetText
 874     sTempMetricField(2) = VerschiebenSpalte.GetText
 875     sTempMetricField(3) = EinfuegenZeile.GetText
 876     sTempMetricField(4) = EinfuegenSpalte.GetText
 877
 878     if (FixProportional.IsChecked = True) then Variabel.Check else FixProportional.Check
 879     bTempRadioBut(1) = VerhaltenFix.IsChecked
 880     bTempRadioBut(2) = FixProportional.IsChecked
 881     bTempRadioBut(3) = Variabel.IsChecked
 882
 883     Kontext "ExtrasOptionenDlg"
 884     ExtrasOptionenDlg.OK
 885     WaitSlot (2)
 886
 887     printlog ("'/// - check if all UnChecked ///")
 888     ToolsOptions
 889     Call hToolsOptions ( "WRITER" , "Table" )
 890
 891     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile is not min."
 892     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte is not min."
 893     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile is not min."
 894     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte is not min."
 895
 896     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
 897     if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
 898     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
 899
 900     Printlog ("'/// - all Check -> x ///")
 901
 902     VerschiebenZeile.ToMax
 903     VerschiebenSpalte.ToMax
 904     EinfuegenZeile.ToMax
 905     EinfuegenSpalte.ToMax
 906     sTempMetricField(1) = VerschiebenZeile.GetText
 907     sTempMetricField(2) = VerschiebenSpalte.GetText
 908     sTempMetricField(3) = EinfuegenZeile.GetText
 909     sTempMetricField(4) = EinfuegenSpalte.GetText
 910     printlog ("'/// Less test ///'")
 911     VerschiebenZeile.Less
 912     VerschiebenSpalte.Less
 913     EinfuegenZeile.Less
 914     EinfuegenSpalte.Less
 915     if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) then WarnLog "VerschiebenZeile.  Less-Button not working"
 916     if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) then WarnLog "VerschiebenSpalte. Less-Button not working"
 917     if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) then WarnLog "EinfuegenZeile.     Less-Button not working"
 918     if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) then WarnLog "EinfuegenSpalte.    Less-Button not working"
 919     sTempMetricField(1) = VerschiebenZeile.GetText
 920     sTempMetricField(2) = VerschiebenSpalte.GetText
 921     sTempMetricField(3) = EinfuegenZeile.GetText
 922     sTempMetricField(4) = EinfuegenSpalte.GetText
 923
 924     if (Variabel.IsChecked = True) then VerhaltenFix.Check else Variabel.Check
 925     bTempRadioBut(1) = VerhaltenFix.IsChecked
 926     bTempRadioBut(2) = FixProportional.IsChecked
 927     bTempRadioBut(3) = Variabel.IsChecked
 928
 929     Kontext "ExtrasOptionenDlg"
 930     ExtrasOptionenDlg.OK
 931     WaitSlot (2)
 932
 933     printlog ("'/// - check if all Checked ///")
 934     ToolsOptions
 935     Call hToolsOptions ( "WRITER" , "Table" )
 936
 937     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile is not max."
 938     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte is not max."
 939     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile is not max."
 940     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte is not max."
 941
 942     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
 943     if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
 944     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
 945
 946     printlog ("'/// - restore states ///")
 947
 948     VerschiebenZeile.SetText  (sMetricField(1))
 949     VerschiebenSpalte.SetText (sMetricField(2))
 950     EinfuegenZeile.SetText    (sMetricField(3))
 951     EinfuegenSpalte.SetText   (sMetricField(4))
 952
 953     Kontext "ExtrasOptionenDlg"
 954     ExtrasOptionenDlg.OK
 955
 956     Do Until GetDocumentCount = 0
 957         Call hCloseDocument
 958     Loop
 959 endcase
 960
 961 '------------------------------------------------------------------------------
 962
 963 testcase tToolsOptionsWriterTable1
 964
 965     '/// There was a bug from OpenOffice where the Office crashed ///
 966     '/// This testcase check for this bug ///
 967
 968     Call hNewDocument
 969     printlog ("'///- Tools/Options/HTML: Table ///")
 970     ToolsOptions
 971     Call hToolsOptions ("HTML","Table")
 972     '/// Check fixed and choose 'OK' ///
 973     VerhaltenFix.Check
 974
 975     Kontext "ExtrasOptionenDlg"
 976     ExtrasOptionenDlg.OK
 977     WaitSlot (2)
 978
 979     '/// ///
 980     ToolsOptions
 981     Call hToolsOptions ("HTML","Table")
 982     '/// Reset radiobutton to 'Variable' in Options ///
 983     Variabel.Check
 984
 985     Kontext "ExtrasOptionenDlg"
 986     ExtrasOptionenDlg.OK
 987
 988     Do Until GetDocumentCount = 0
 989         Call hCloseDocument
 990     Loop
 991 endcase
 992 '------------------------------------------------------------------------------