testautomation/writer/optional/includes/option/wh_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: wh_o_2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:56 $
  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 - Html - Print & Table
  37 '*
  38 '\***********************************************************************
  39
  40 sub wh_o_2
  41
  42    Call tToolsOptionsHTMLPrint 'wrn:2
  43    Call tToolsOptionsHTMLTable
  44    Call tToolsOptionsHTMLTable1
  45
  46 end sub
  47
  48 '------------------------------------------------------------------------------
  49 testcase tToolsOptionsHTMLPrint
  50
  51     dim irgendwas(12) as boolean    ' Checkbox states
  52     dim iListBox(1) as integer         ' ListBox
  53     dim iTempListBox(1) as integer
  54     dim bRadioBut(4) as boolean         ' RadioButtons
  55     dim bTempRadioBut(4) as boolean
  56
  57     ' sMetricField(i) and sTempMetricField(i)
  58     '(1) = Grafiken
  59     '(2) = Tabellen
  60     '(3) = Zeichnungen
  61     '(4) = Kontrollfelder
  62     '(5) = Hintergrund
  63     '(6) = SchwarzDrucken
  64     '
  65     '(7) = LinkeSeiten
  66     '(8) = RechteSeiten
  67     '(9) = Umgekehrt
  68     '(10)= Prospekt
  69     '
  70     '(11)= EinzelneDruckauftraege
  71     '(12)= AusDruckereinstellung
  72
  73     ' bRadioBut(i) and bTempRadioBut(i) / RadioButton
  74     '(1) = Keine
  75     '(2) = NurNotizen
  76     '(3) = Dokumentende
  77     '(4) = Seitenende
  78
  79     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\test.html" )
  80     Call sMakeReadOnlyDocumentEditable
  81     printlog "'///- Tools/Options/HTML: PrintHTML ///"
  82
  83     printlog ("'/// - save states ///")
  84     ToolsOptions
  85     Call hToolsOptions ("HTML","PRINT")
  86
  87     irgendwas(1) = Grafiken.IsChecked
  88     irgendwas(2) = Tabellen.IsChecked
  89     irgendwas(4) = Kontrollfelder.IsChecked
  90     irgendwas(5) = Hintergrund.IsChecked
  91     irgendwas(6) = SchwarzDrucken.IsChecked
  92
  93     irgendwas(9) = Umgekehrt.IsChecked
  94     irgendwas(10)= Prospekt.IsChecked
  95
  96     irgendwas(11)= EinzelneDruckauftraege.IsChecked
  97     irgendwas(12)= AusDruckereinstellung.IsChecked
  98
  99     iListBox(1) = Fax.GetSelIndex
 100
 101     bRadioBut(1) = Keine.IsChecked
 102     bRadioBut(2) = NurNotizen.IsChecked
 103     bRadioBut(3) = Dokumentende.IsChecked
 104     bRadioBut(4) = Seitenende.IsChecked
 105
 106     printlog ("'/// - all states inverting ///")
 107
 108     if irgendwas(1) Then Grafiken.UnCheck               Else Grafiken.Check
 109     if irgendwas(2) Then Tabellen.UnCheck               Else Tabellen.Check
 110     if irgendwas(4) Then Kontrollfelder.UnCheck         Else Kontrollfelder.Check
 111     if irgendwas(5) Then Hintergrund.UnCheck            Else Hintergrund.Check
 112     if irgendwas(6) Then SchwarzDrucken.UnCheck         Else SchwarzDrucken.Check
 113
 114     if irgendwas(9) Then Umgekehrt.UnCheck              Else Umgekehrt.Check
 115     if irgendwas(10) Then Prospekt.UnCheck               Else Prospekt.Check
 116
 117     if irgendwas(11) Then EinzelneDruckauftraege.UnCheck Else EinzelneDruckauftraege.Check
 118     if irgendwas(12) Then AusDruckereinstellung.UnCheck  Else AusDruckereinstellung.Check
 119
 120     if (Keine.IsChecked = True) Then NurNotizen.Check Else Keine.Check
 121
 122     bTempRadioBut(1) = Keine.IsChecked
 123     bTempRadioBut(2) = NurNotizen.IsChecked
 124     bTempRadioBut(3) = Dokumentende.IsChecked
 125     bTempRadioBut(4) = Seitenende.IsChecked
 126
 127     if ( Fax.GetItemCount <> iListBox(1) ) Then Fax.Select (Fax.GetItemCount) _
 128     Else Fax.Select(1)
 129     iTempListBox(1) = Fax.GetSelIndex
 130
 131     Kontext "ExtrasOptionenDlg"
 132     ExtrasOptionenDlg.OK
 133         sleep (2)
 134     Call hFileSaveAsKill(gOfficepath + "user\work\printtest.html")
 135     Call hCloseDocument
 136
 137     printlog ("'/// - SO quit - start ///")
 138
 139     Call wOfficeRestart
 140
 141     printlog ("'/// - checking states ///")
 142     ToolsOptions
 143     Call hToolsOptions ( "HTML" , "PRINT" )
 144
 145     if ( irgendwas(1) = Grafiken.IsChecked               ) Then WarnLog "'Graphics' state changed"
 146     if ( irgendwas(2) = Tabellen.IsChecked               ) Then WarnLog "'Tables' state changed"
 147     if ( irgendwas(4) = Kontrollfelder.IsChecked         ) Then WarnLog "'Controls' state changed"
 148     if ( irgendwas(5) = Hintergrund.IsChecked            ) Then WarnLog "'Background' state changed"
 149     if ( irgendwas(6) = SchwarzDrucken.IsChecked         ) Then WarnLog "'Print black' state changed"
 150
 151     if ( irgendwas(9) = Umgekehrt.IsChecked              ) Then WarnLog "'Reversed' state changed"
 152     if ( irgendwas(10)= Prospekt.IsChecked               ) Then WarnLog "'Brochure' state changed"
 153
 154     if ( irgendwas(11)= EinzelneDruckauftraege.IsChecked ) Then WarnLog "'Create single print jobs' state changed"
 155     if ( irgendwas(12)= AusDruckereinstellung.IsChecked  ) Then WarnLog "'Paper tray from printer settings' state changed"
 156
 157     if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed (Bug#99202)"
 158     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed (Bug#99202)"
 159     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
 160     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'End of page' state changed"
 161
 162     if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
 163
 164     printlog ("'/// - all UnCheck -> o ///")
 165
 166     Grafiken.UnCheck
 167     Tabellen.UnCheck
 168     Kontrollfelder.UnCheck
 169     Hintergrund.UnCheck
 170     SchwarzDrucken.UnCheck
 171
 172     Umgekehrt.UnCheck
 173     Prospekt.UnCheck
 174
 175     EinzelneDruckauftraege.UnCheck
 176     AusDruckereinstellung.UnCheck
 177
 178     if (NurNotizen.IsChecked = True) Then Dokumentende.Check Else NurNotizen.Check
 179
 180     bTempRadioBut(1) = Keine.IsChecked
 181     bTempRadioBut(2) = NurNotizen.IsChecked
 182     bTempRadioBut(3) = Dokumentende.IsChecked
 183     bTempRadioBut(4) = Seitenende.IsChecked
 184
 185     Fax.Select(1)
 186
 187     Kontext "ExtrasOptionenDlg"
 188     ExtrasOptionenDlg.OK
 189
 190     printlog ("'/// - check if all UnChecked ///")
 191     ToolsOptions
 192     Call hToolsOptions ( "HTML" , "PRINT" )
 193
 194     if Grafiken.IsChecked       Then WarnLog "'Graphics' x"
 195     if Tabellen.IsChecked       Then WarnLog "'Tables' x"
 196     if Kontrollfelder.IsChecked Then WarnLog "'Controls' x"
 197     if Hintergrund.IsChecked    Then WarnLog "'Background' x"
 198     if SchwarzDrucken.IsChecked Then WarnLog "'Print black' x"
 199
 200     if Umgekehrt.IsChecked      Then WarnLog "'Reversed' x"
 201     if Prospekt.IsChecked       Then WarnLog "'Brochure' x"
 202
 203     if EinzelneDruckauftraege.IsChecked Then WarnLog "'Create single print jobs' x"
 204     if AusDruckereinstellung.IsChecked  Then WarnLog "'Paper tray from printer settings' x"
 205
 206     ' Is saved with document
 207     Kontext "ExtrasOptionenDlg"
 208     ExtrasOptionenDlg.OK
 209     Call hFileOpen(gOfficepath + "user\work\printtest.html")
 210     ToolsOptions
 211     Call hToolsOptions ( "HTML" , "PRINT" )
 212
 213     if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed"
 214     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed"
 215     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
 216     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'end of page' state changed"
 217
 218     if ( Fax.GetSelIndex <> 1 ) Then WarnLog "Fax is not item 1"
 219
 220     Printlog ("'/// - all Check -> x ///")
 221
 222     Grafiken.Check
 223     Tabellen.Check
 224     Kontrollfelder.Check
 225     Hintergrund.Check
 226     SchwarzDrucken.Check
 227
 228     Umgekehrt.Check
 229     Prospekt.Check
 230
 231     EinzelneDruckauftraege.Check
 232     AusDruckereinstellung.Check
 233
 234     if (Dokumentende.IsChecked = True) Then Seitenende.Check Else Dokumentende.Check
 235
 236     bTempRadioBut(1) = Keine.IsChecked
 237     bTempRadioBut(2) = NurNotizen.IsChecked
 238     bTempRadioBut(3) = Dokumentende.IsChecked
 239     bTempRadioBut(4) = Seitenende.IsChecked
 240
 241     Fax.Select(Fax.GetItemCount)
 242
 243     Kontext "ExtrasOptionenDlg"
 244     ExtrasOptionenDlg.OK
 245
 246     printlog ("'/// - check if all Checked ///")
 247     ToolsOptions
 248     Call hToolsOptions ( "HTML" , "PRINT" )
 249
 250     if not Grafiken.IsChecked                Then WarnLog "'Graphics' o"
 251     if not Tabellen.IsChecked                Then WarnLog "'Tables' o"
 252     if not Kontrollfelder.IsChecked          Then WarnLog "'Controls' o"
 253     if not Hintergrund.IsChecked             Then WarnLog "'Background' o"
 254     if not SchwarzDrucken.IsChecked          Then WarnLog "'Print black' o"
 255
 256     if not Umgekehrt.IsChecked               Then WarnLog "'Reversed' o"
 257     if not Prospekt.IsChecked                Then WarnLog "'Brochure' o"
 258
 259     if not EinzelneDruckauftraege.IsChecked  Then WarnLog "'Create single print jobs' o"
 260     if not AusDruckereinstellung.IsChecked   Then WarnLog "'Paper tray from printer settings' o"
 261
 262     if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed"
 263     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed"
 264     if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
 265     if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'End of page' state changed"
 266
 267     if ( Fax.GetSelIndex <> Fax.GetItemCount ) Then WarnLog "Fax is not item (GetItemCount)"
 268
 269     Kontext "ExtrasOptionenDlg"
 270     ExtrasOptionenDlg.Cancel
 271
 272     printlog ("'/// - restore states ///")
 273     ToolsOptions
 274     Call hToolsOptions ( "HTML" , "PRINT" )
 275
 276     if ( irgendwas(1) =  TRUE ) Then  Grafiken.Check                Else Grafiken.UnCheck
 277     if ( irgendwas(2) =  TRUE ) Then  Tabellen.Check                Else Tabellen.UnCheck
 278     if ( irgendwas(4) =  TRUE ) Then  Kontrollfelder.Check          Else Kontrollfelder.UnCheck
 279     if ( irgendwas(5) =  TRUE ) Then  Hintergrund.Check             Else Hintergrund.UnCheck
 280     if ( irgendwas(6) =  TRUE ) Then  SchwarzDrucken.Check          Else SchwarzDrucken.UnCheck
 281
 282     if ( irgendwas(9) =  TRUE ) Then  Umgekehrt.Check               Else Umgekehrt.UnCheck
 283     if ( irgendwas(10) = TRUE ) Then  Prospekt.Check                Else Prospekt.UnCheck
 284
 285     if ( irgendwas(11) = TRUE ) Then  EinzelneDruckauftraege.Check  Else EinzelneDruckauftraege.UnCheck
 286     if ( irgendwas(12) = TRUE ) Then  AusDruckereinstellung.Check   Else AusDruckereinstellung.UnCheck
 287
 288     try
 289         Fax.Select (iListBox(1))
 290     catch
 291         warnlog "restore fax doesn't work"
 292     endcatch
 293
 294     if ( bRadioBut(1) = TRUE ) Then Keine.Check
 295     if ( bRadioBut(2) = TRUE ) Then NurNotizen.Check
 296     if ( bRadioBut(3) = TRUE ) Then Dokumentende.Check
 297     if ( bRadioBut(4) = TRUE ) Then Seitenende.Check
 298
 299     Fax.Select (iListBox(1))
 300     Kontext "ExtrasOptionenDlg"
 301     ExtrasOptionenDlg.OK
 302
 303     Do Until GetDocumentCount = 0
 304         Call hCloseDocument
 305     Loop
 306 endcase
 307
 308 '------------------------------------------------------------------------------
 309
 310 testcase tToolsOptionsHTMLTable
 311     '/ Table                     ///'
 312     '/ -----                     ///'
 313     '/ tToolsOptionsHTMLTable    ///'
 314     '/ normal                         ///'
 315     '/ Function:  ///'
 316     '/                                ///'
 317
 318     dim sMetricField(4) as string      ' MetricField
 319     dim sTempMetricField(4) as string
 320     dim bRadioBut(3) as boolean    ' RadioButton states
 321     dim bTempRadioBut(3) as boolean
 322
 323     ' sMetricField(i) and sTempMetricField(i)
 324     '(1) = VerschiebenZeile
 325     '(2) = VerschiebenSpalte
 326     '(3) = EinfuegenZeile
 327     '(4) = EinfuegenSpalte
 328
 329     ' bRadioBut(i) and bTempRadioBut(i)
 330     '(1) = VerhaltenFix
 331     '(2) = FixProportional
 332     '(3) = Variabel
 333
 334     Call hNewDocument
 335     printlog ("'///- Tools/Options/HTML: Table ///")
 336
 337     printlog ("'/// - save states ///")
 338     ToolsOptions
 339     Call hToolsOptions ("HTML","Table")
 340
 341     sMetricField(1) = VerschiebenZeile.GetText
 342     sMetricField(2) = VerschiebenSpalte.GetText
 343     sMetricField(3) = EinfuegenZeile.GetText
 344     sMetricField(4) = EinfuegenSpalte.GetText
 345
 346     bRadioBut(1) = VerhaltenFix.IsChecked
 347     bRadioBut(2) = FixProportional.IsChecked
 348     bRadioBut(3) = Variabel.IsChecked
 349
 350     if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) Then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097")
 351
 352     printlog ("'/// - all states inverting ///")
 353
 354     VerschiebenZeile.ToMax
 355     VerschiebenSpalte.ToMax
 356     EinfuegenZeile.ToMax
 357     EinfuegenSpalte.ToMax
 358     if ( VerschiebenZeile.GetText  = sMetricField(1) ) Then VerschiebenZeile.ToMin
 359     if ( VerschiebenSpalte.GetText = sMetricField(2) ) Then VerschiebenSpalte.ToMin
 360     if ( EinfuegenZeile.GetText    = sMetricField(3) ) Then EinfuegenZeile.ToMin
 361     if ( EinfuegenSpalte.GetText   = sMetricField(4) ) Then EinfuegenSpalte.ToMin
 362     sTempMetricField(1) = VerschiebenZeile.GetText
 363     sTempMetricField(2) = VerschiebenSpalte.GetText
 364     sTempMetricField(3) = EinfuegenZeile.GetText
 365     sTempMetricField(4) = EinfuegenSpalte.GetText
 366
 367     FixProportional.Check
 368
 369     bTempRadioBut(1) = VerhaltenFix.IsChecked
 370     bTempRadioBut(2) = FixProportional.IsChecked
 371     bTempRadioBut(3) = Variabel.IsChecked
 372
 373     Kontext "ExtrasOptionenDlg"
 374     ExtrasOptionenDlg.OK
 375
 376     printlog ("'/// - SO quit - start ///")
 377
 378     Call wOfficeRestart
 379
 380     printlog ("'/// - checking states ///")
 381     ToolsOptions
 382     Call hToolsOptions ( "HTML" , "Table" )
 383
 384     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move cells:  'Rows' state changed BugID: 82990 "
 385     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move cells:  'Column' state changed"
 386     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cell: 'Row' state changed"
 387     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cell: 'Column' state changed"
 388
 389     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
 390     if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
 391     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
 392
 393     Kontext "ExtrasOptionenDlg"
 394     ExtrasOptionenDlg.OK
 395
 396     printlog ("'/// - all UnCheck -> o ///")
 397     ToolsOptions
 398     Call hToolsOptions ( "HTML" , "Table" )
 399
 400     VerschiebenZeile.ToMin
 401     VerschiebenSpalte.ToMin
 402     EinfuegenZeile.ToMin
 403     EinfuegenSpalte.ToMin
 404     sTempMetricField(1) = VerschiebenZeile.GetText
 405     sTempMetricField(2) = VerschiebenSpalte.GetText
 406     sTempMetricField(3) = EinfuegenZeile.GetText
 407     sTempMetricField(4) = EinfuegenSpalte.GetText
 408     printlog ("'/// More test ///'")
 409     VerschiebenZeile.More
 410     VerschiebenSpalte.More
 411     EinfuegenZeile.More
 412     EinfuegenSpalte.More
 413     if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) Then WarnLog "'Move Cells Row' :     More-Button not working"
 414     if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) Then WarnLog "'Move Cells Column' :  More-Button not working"
 415     if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) Then WarnLog "'Insert Cell Row'   :  More-Button not working"
 416     if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) Then WarnLog "'Insert Cell Column' : More-Button not working"
 417     sTempMetricField(1) = VerschiebenZeile.GetText
 418     sTempMetricField(2) = VerschiebenSpalte.GetText
 419     sTempMetricField(3) = EinfuegenZeile.GetText
 420     sTempMetricField(4) = EinfuegenSpalte.GetText
 421
 422     Variabel.Check
 423
 424     bTempRadioBut(1) = VerhaltenFix.IsChecked
 425     bTempRadioBut(2) = FixProportional.IsChecked
 426     bTempRadioBut(3) = Variabel.IsChecked
 427
 428     Kontext "ExtrasOptionenDlg"
 429     ExtrasOptionenDlg.OK
 430
 431     printlog ("'/// - check if all UnChecked ///")
 432     ToolsOptions
 433     Call hToolsOptions ( "HTML" , "Table" )
 434
 435     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move Cells : 'Row' is not min."
 436     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move Cells : 'Column' is not min."
 437     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cells : 'Row' is not min."
 438     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cells : 'Column' is not min."
 439
 440     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
 441     if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
 442     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
 443
 444     Printlog ("'/// - all Check -> x ///")
 445
 446     VerschiebenZeile.ToMax
 447     VerschiebenSpalte.ToMax
 448     EinfuegenZeile.ToMax
 449     EinfuegenSpalte.ToMax
 450     sTempMetricField(1) = VerschiebenZeile.GetText
 451     sTempMetricField(2) = VerschiebenSpalte.GetText
 452     sTempMetricField(3) = EinfuegenZeile.GetText
 453     sTempMetricField(4) = EinfuegenSpalte.GetText
 454     printlog ("'/// Less test ///'")
 455     VerschiebenZeile.Less
 456     VerschiebenSpalte.Less
 457     EinfuegenZeile.Less
 458     EinfuegenSpalte.Less
 459     if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) Then WarnLog "'Move Cells Row' :     Less-Button not working"
 460     if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) Then WarnLog "'Move Cells Column' :  Less-Button not working"
 461     if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) Then WarnLog "'Insert Cell Row'   :  Less-Button not working"
 462     if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) Then WarnLog "'Insert Cell Column' : Less-Button not working"
 463     sTempMetricField(1) = VerschiebenZeile.GetText
 464     sTempMetricField(2) = VerschiebenSpalte.GetText
 465     sTempMetricField(3) = EinfuegenZeile.GetText
 466     sTempMetricField(4) = EinfuegenSpalte.GetText
 467
 468     VerhaltenFix.Check
 469
 470     bTempRadioBut(1) = VerhaltenFix.IsChecked
 471     bTempRadioBut(2) = FixProportional.IsChecked
 472     bTempRadioBut(3) = Variabel.IsChecked
 473
 474     Kontext "ExtrasOptionenDlg"
 475     ExtrasOptionenDlg.OK
 476
 477     printlog ("'/// - check if all Checked ///")
 478     ToolsOptions
 479     Call hToolsOptions ( "HTML" , "Table" )
 480
 481     if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move Cells : 'Row' is not max."
 482     if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move Cells : 'Column' is not min."
 483     if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cells : 'Row' is not max."
 484     if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cells : 'Column' is not min."
 485
 486     if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
 487     if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
 488     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
 489
 490     printlog ("'/// - restore states ///")
 491
 492     VerschiebenZeile.SetText  (sMetricField(1))
 493     VerschiebenSpalte.SetText (sMetricField(2))
 494     EinfuegenZeile.SetText    (sMetricField(3))
 495     EinfuegenSpalte.SetText   (sMetricField(4))
 496
 497     Kontext "ExtrasOptionenDlg"
 498     ExtrasOptionenDlg.OK
 499
 500     Do Until GetDocumentCount = 0
 501         Call hCloseDocument
 502     Loop
 503 endcase
 504
 505 '------------------------------------------------------------------------------
 506
 507 testcase tToolsOptionsHTMLTable1
 508
 509     '/// There was a bug from OpenOffice where the Office crashed ///
 510     '/// This testcase check for this bug ///
 511
 512     Call hNewDocument
 513     printlog ("'///- Tools/Options/Text document: Table ///")
 514
 515     ToolsOptions
 516     Call hToolsOptions ("WRITER","Table")
 517     VerhaltenFix.Check
 518
 519     Kontext "ExtrasOptionenDlg"
 520     ExtrasOptionenDlg.OK
 521
 522     Do Until GetDocumentCount = 0
 523         Call hCloseDocument
 524     Loop
 525 endcase