testautomation/framework/optional/includes/options_lan1.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 : general option test (test for language-group)
  31 '*
  32 '\******************************************************************************
  33
  34 sub opt_lan1
  35   Dim bOld as Boolean
  36
  37    bOld = ActiveDeactivateAsianSupport ( FALSE )
  38
  39    Call tLanguageSettingsLanguages
  40    Call tLanguageSettingsWritingAids
  41
  42    printlog "++ activate the asian support in StarOffice ++"
  43    ActiveDeactivateAsianSupport ( TRUE )
  44    Call tLanguageSettingsJapaneseFind
  45    Call tLanguageSettingsAsianLayout
  46
  47    printlog "++ reset asian support in StarOffice to default ++"
  48    if bOld = TRUE then
  49       ActiveDeactivateAsianSupport ( TRUE )
  50    else
  51       ActiveDeactivateAsianSupport ( FALSE )
  52    end if
  53
  54 end sub
  55
  56 '*******************************************************************************
  57
  58 testcase tLanguageSettingsLanguages
  59
  60    Dim lsSave ( 5 ) as String, lsSave2 (3) as String
  61    Dim bChanged as Boolean, bSave as Boolean, bSave2 as Boolean
  62
  63    bChanged = FALSE
  64
  65
  66
  67    hNewDocument
  68    ToolsOptions
  69    hToolsOptions ( "LanguageSettings", "Languages" )
  70
  71    printlog "- check dependences in this dialog"
  72    printlog "    - asian support"
  73    if Aktivieren.IsChecked() = FALSE then
  74       if Asiatisch.IsEnabled() = TRUE then
  75          Warnlog "Asian support is not active, the listbox is in wrong state:"
  76          printlog "...the language for asian is active => Perhaps #108220#"
  77          end if
  78    if Aktivieren.isEnabled then
  79        Aktivieren.Check
  80    else
  81        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
  82        printlog Aktivieren.isEnabled
  83    endif
  84       if Asiatisch.IsEnabled() <> TRUE then
  85          Warnlog "Asian support is active, the listbox is in wrong state:"
  86          printlog "...language for asian is not active => BUG!"
  87          end if
  88    if Aktivieren.isEnabled then
  89        Aktivieren.unCheck
  90    else
  91        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
  92        printlog Aktivieren.isEnabled
  93    endif
  94    else
  95       if Asiatisch.IsEnabled() <> TRUE then
  96          Warnlog "Asian support is not active, the listbox is in wrong state:"
  97          printlog "...language for asian is not active => BUG!"
  98          end if
  99    if Aktivieren.isEnabled then
 100        Aktivieren.unCheck
 101    else
 102        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 103        printlog Aktivieren.isEnabled
 104    endif
 105       if Asiatisch.IsEnabled() = TRUE then
 106          Warnlog "Asian support is active, the listbox is in wrong state:"
 107          printlog "...language for asian is active => BUG!"
 108          end if
 109    if Aktivieren.isEnabled then
 110        Aktivieren.Check
 111    else
 112        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 113        printlog Aktivieren.isEnabled
 114    endif
 115    end if
 116
 117    printlog "    - CTL support"
 118    if ComplexScriptEnabled.IsChecked() = FALSE then
 119       if LanguageComplexScript.IsEnabled() = TRUE then
 120          Warnlog "CTL support is not active, the listbox is in wrong state:"
 121          printlog "...language for CTL is active => BUG!"
 122       end if
 123       ComplexScriptEnabled.Check()
 124       if LanguageComplexScript.IsEnabled() <> TRUE then
 125          Warnlog "CTL support is active, the listbox is in wrong state:"
 126          printlog "...language for CTL is not active => BUG!"
 127       end if
 128       ComplexScriptEnabled.UnCheck()
 129    else
 130       if LanguageComplexScript.IsEnabled() <> TRUE then
 131          Warnlog "CTL support is active, the listbox is in wrong state:"
 132          printlog "...language for CTL is not active => BUG!"
 133       end if
 134       ComplexScriptEnabled.UnCheck()
 135       if LanguageComplexScript.IsEnabled() = TRUE then
 136          Warnlog "CTL support is not active, the listbox is in wrong state:"
 137          printlog "...the language for CTL is active => BUG!"
 138       end if
 139       ComplexScriptEnabled.Check()
 140    end if
 141
 142    printlog "- save raw data"
 143    lsSave (1) = Gebietsschema.GetSelText()
 144    lsSave (2) = StandardWaehrung.GetSelText()
 145    lsSave (3) = Westlich.GetSelText()
 146    bSave = Aktivieren.IsChecked()
 147    if Aktivieren.isEnabled then
 148        Aktivieren.Check
 149    else
 150        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 151        printlog Aktivieren.isEnabled
 152    endif
 153    lsSave (4) = Asiatisch.GetSelText()
 154
 155    if lsSave (4) = "" then
 156       Warnlog "Empty entry is selected for 'Asian'! => Bug 102046"
 157       endif
 158
 159    bSave2 = ComplexScriptEnabled.IsChecked()
 160    ComplexScriptEnabled.Check()
 161    lsSave (5) = LanguageComplexScript.GetSelText()
 162
 163    if lsSave (5) = "" then
 164       Warnlog "Empty entry is selected for 'Complex script'! => Bug 102046"
 165       endif
 166
 167    printlog "- change settings"
 168    select case iSprache
 169       case 34   : Gebietsschema.Select( 40 )
 170       case 39   : Gebietsschema.Select( 17 )
 171       case 81   : Gebietsschema.Select( 22 )
 172       case 88   : Gebietsschema.Select( 19 )
 173       case else : Gebietsschema.Select( 15 )
 174    end select
 175    StandardWaehrung.Select( 20 )
 176    Westlich.Select( 10 )
 177    lsSave2(1) = Westlich.GetSelText()
 178
 179    if Aktivieren.isEnabled then
 180        Aktivieren.Check
 181    else
 182        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 183        printlog Aktivieren.isEnabled
 184    endif
 185    Asiatisch.Select( 5 )
 186    lsSave2(2) = Asiatisch.GetSelText()
 187    AktuellesDokument.Uncheck()
 188
 189    ComplexScriptEnabled.Check
 190    LanguageComplexScript.Select( 7 )
 191    lsSave2 (3) = LanguageComplexScript.GetSelText()
 192
 193    Kontext "ExtrasOptionenDlg"
 194    ExtrasOptionenDlg.OK()
 195    Sleep ( 3 )
 196
 197    hCloseDocument
 198
 199    printlog "- exit/restart StarOffice"
 200    ExitRestartTheOffice
 201    hNewDocument
 202    printlog "- check changes"
 203    ToolsOptions
 204    hToolsOptions ( "LanguageSettings", "Languages" )
 205
 206    select case iSprache
 207       case 34   : if Gebietsschema.GetSelIndex <> 40 then
 208                   Warnlog "locale settings => changes not saved!"
 209                      endif
 210       case 39   : if Gebietsschema.GetSelIndex <> 17 then
 211                   Warnlog "locale settings => changes not saved!"
 212                      endif
 213       case 81   : if Gebietsschema.GetSelIndex <> 22 then
 214                   Warnlog "locale settings => changes not saved!"
 215                      endif
 216       case 88   : if Gebietsschema.GetSelIndex <> 19 then
 217                   Warnlog "locale settings => changes not saved!"
 218                      endif
 219       case else : if Gebietsschema.GetSelIndex <> 15 then
 220                   Warnlog "locale settings => changes not saved!"
 221                      endif
 222    end select
 223
 224    if StandardWaehrung.GetSelIndex <> 20 then
 225       Warnlog "default currency => changes not saved!"
 226       endif
 227
 228    if Westlich.GetSelText <> lsSave2(1) then
 229       Warnlog "western => changes not saved! "
 230       endif
 231
 232    if Aktivieren.IsChecked <> TRUE then
 233       Warnlog "Enabled asian support => changes not saved!"
 234       endif
 235
 236    if Asiatisch.GetSelText <> lsSave2(2) then
 237       Warnlog  "asian => changes not saved! "
 238       endif
 239
 240    if ComplexScriptEnabled.IsChecked <> TRUE then
 241       Warnlog "CTL support => changes not saved!"
 242       endif
 243
 244    if LanguageComplexScript.GetSelText <> lsSave2 (3) then
 245       Warnlog  "CTL language => changes not saved! "
 246       endif
 247
 248    printlog "- set to default"
 249    Gebietsschema.Select lsSave(1)
 250    StandardWaehrung.Select lsSave (2)
 251    Westlich.Select lsSave (3)
 252    AktuellesDokument.Uncheck()
 253    if Aktivieren.isEnabled then
 254        Aktivieren.Check
 255    else
 256        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 257        printlog Aktivieren.isEnabled
 258    endif
 259
 260    if lsSave (4) <> "" then
 261       Asiatisch.Select lsSave (4)
 262    else
 263       Asiatisch.Select 1
 264    end if
 265
 266    if Aktivieren.isEnabled then
 267    if bSave = TRUE then
 268        Aktivieren.Check
 269    else
 270        Aktivieren.Uncheck
 271    endif
 272    else
 273        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 274        printlog Aktivieren.isEnabled
 275    endif
 276    ComplexScriptEnabled.Check()
 277
 278    if lsSave (5) <> "" then
 279       LanguageComplexScript.Select( lsSave(5) )
 280    else
 281       LanguageComplexScript.Select( 1 )
 282    end if
 283
 284    if bSave2 = TRUE then
 285       ComplexScriptEnabled.Check()
 286    else
 287       ComplexScriptEnabled.Uncheck()
 288    endif
 289
 290    Kontext "ExtrasOptionenDlg"
 291    ExtrasOptionenDlg.OK()
 292    Sleep (3)
 293
 294    printlog "- check the data"
 295    ToolsOptions
 296    hToolsOptions ( "LanguageSettings", "Languages" )
 297
 298    if Gebietsschema.GetSelText() <> lsSave(1) then
 299       Warnlog "locale settings => changes not saved! => BugID : 87977"
 300       endif
 301
 302    if StandardWaehrung.GetSelText() <> lsSave(2) then
 303       Warnlog "default currency => changes not saved!"
 304       endif
 305
 306    if Westlich.GetSelText() <> lsSave (3) then
 307       Warnlog  "western => changes not saved!"
 308       endif
 309
 310    if Aktivieren.IsChecked() <> bSave then
 311       Warnlog "Enabled asian support => changes not saved!"
 312       endif
 313
 314    if Aktivieren.isEnabled then
 315        Aktivieren.Check
 316    else
 317        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 318        printlog Aktivieren.isEnabled
 319    endif
 320    if lsSave (4) <> "" then
 321       if Asiatisch.GetSelText() <> lsSave (4) then
 322          Warnlog "asian => changes not saved!"
 323       endif
 324    end if
 325
 326    if ComplexScriptEnabled.IsChecked() <> bSave2 then
 327       Warnlog "CTL support => changes not saved!"
 328       endif
 329
 330    ComplexScriptEnabled.Check()
 331
 332    if lsSave (5) <> "" then
 333       if LanguageComplexScript.GetSelText() <> lsSave (5) then
 334       Warnlog  "CTL language => changes not saved! "
 335       endif
 336    end if
 337    if Aktivieren.isEnabled then
 338    if bSave = TRUE then
 339        Aktivieren.Check
 340    else
 341        Aktivieren.Uncheck
 342    endif
 343    else
 344        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 345        printlog Aktivieren.isEnabled
 346    endif
 347    if bSave2 = TRUE then
 348       ComplexScriptEnabled.Check()
 349    else
 350       ComplexScriptEnabled.Uncheck()
 351    endif
 352
 353    Kontext "ExtrasOptionenDlg"
 354    ExtrasOptionenDlg.OK()
 355    Sleep (3)
 356    hclosedocument
 357 endcase
 358
 359 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 360 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 361 testcase tLanguageSettingsWritingAids
 362
 363    Dim lbSave1 ( 5 ) as Boolean
 364    Dim lbSave2 ( 5 ) as Boolean
 365    Dim lbSave3 ( 15 ) as Boolean
 366    dim iCounter as Integer
 367    Dim i as Integer, iCounter1 as Integer, iCounter2 as Integer, iCounter3 as Integer
 368
 369
 370
 371    hNewDocument
 372    ToolsOptions
 373    hToolsOptions ( "LanguageSettings", "WritingAids" )
 374
 375    printlog " - save raw data / and inverted settings"
 376    iCounter1 = Sprachmodule.GetItemCount
 377    Sprachmodule.TypeKeys "<PageUp>", 6
 378
 379    for i=1 to iCounter1
 380       lbSave1 (i) = Sprachmodule.IsChecked
 381       if lbSave1 (i) = TRUE then Sprachmodule.Uncheck else Sprachmodule.Check
 382       Sprachmodule.TypeKeys "<Down>"
 383    next i
 384
 385    iCounter2 = Benutzerwoerterbuch.GetItemCount
 386    Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
 387
 388    for i=1 to iCounter2 - 1
 389       lbSave2 (i) = Benutzerwoerterbuch.IsChecked
 390       if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Uncheck else Benutzerwoerterbuch.Check
 391       Benutzerwoerterbuch.TypeKeys "<Down>"
 392    next i
 393
 394    if Benutzerwoerterbuch.IsChecked <> TRUE then
 395       Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!"
 396       endif
 397
 398    iCounter3 = Optionen.GetItemCount
 399    Optionen.TypeKeys "<PageUp>", 6
 400    for i=1 to iCounter3
 401       if i<>9 AND i<>10 AND i<>11 then
 402          lbSave3 (i) = Optionen.IsChecked
 403          if lbSave3 (i) = TRUE then Optionen.Uncheck else Optionen.Check
 404       end if
 405       Optionen.TypeKeys "<Down>"
 406    next i
 407
 408    Kontext "ExtrasOptionenDlg"
 409    ExtrasOptionenDlg.OK
 410    Sleep (3)
 411    hCloseDocument
 412
 413    printlog " - exit/restart StarOffice"
 414    ExitRestartTheOffice
 415
 416    printlog " - check changes"
 417
 418    hNewDocument
 419
 420    ToolsOptions
 421    hToolsOptions ( "LanguageSettings", "WritingAids" )
 422    printlog "    'available language modules'"
 423    Sprachmodule.TypeKeys "<PageUp>", 6
 424
 425    for i=1 to iCounter1
 426       if Sprachmodule.Ischecked =  lbSave1 (i) then
 427           Warnlog "entry no. " + i + " => changes not saved!  perhaps #i15841!"
 428       end if
 429       Sprachmodule.TypeKeys "<Down>"
 430    next i
 431
 432    printlog "    'user-definded dictonaries'"
 433    Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
 434
 435    for i=1 to iCounter2 - 1
 436       if Benutzerwoerterbuch.Ischecked = lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!"
 437       Benutzerwoerterbuch.TypeKeys "<Down>"
 438    next i
 439
 440    if Benutzerwoerterbuch.IsChecked <> TRUE then
 441       Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!"
 442       endif
 443
 444    printlog "    'options'"
 445    Optionen.TypeKeys "<PageUp>", 6
 446    for i=1 to iCounter3
 447       if i<>9 AND i<>10 AND i<>11 then
 448          if Optionen.IsChecked = lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!"
 449          end if
 450       Optionen.TypeKeys "<Down>"
 451    next i
 452
 453    printlog " - make second changes"
 454    Optionen.TypeKeys "<PageUp>", 6
 455
 456    for i=1 to iCounter3
 457       if i=1 then Optionen.Uncheck
 458       if i=3 then Optionen.Check
 459       if i=5 then Optionen.Uncheck
 460       if i=6 then Optionen.Check
 461       if i=7 then Optionen.Uncheck
 462       if i=12 then Optionen.Check
 463       Optionen.TypeKeys "<Down>"
 464    next i
 465
 466    Kontext "ExtrasOptionenDlg"
 467    ExtrasOptionenDlg.OK
 468    Sleep (3)
 469
 470    hCloseDocument
 471
 472    printlog " - check second changes"
 473    ToolsOptions
 474    hToolsOptions ( "LanguageSettings", "WritingAids" )
 475    Optionen.TypeKeys "<PageUp>", 6
 476
 477    for i=1 to iCounter
 478       select case i
 479          case 1  : if Optionen.IsChecked <> FALSE then
 480                       Warnlog "entry no. 1  => changes not saved!"
 481                       endif
 482          case 3  : if Optionen.IsChecked <> TRUE  then
 483                       Warnlog "entry no. 3  => changes not saved!"
 484                       endif
 485          case 5  : if Optionen.IsChecked <> FALSE then
 486                       Warnlog "entry no. 5  => changes not saved!"
 487                       endif
 488          case 6  : if Optionen.IsChecked <> TRUE  then
 489                       Warnlog "entry no. 6  => changes not saved!"
 490                       endif
 491          case 7  : if Optionen.IsChecked <> FALSE then
 492                       printlog "entry no. 7  => not saved! => it is only for documents"
 493                       endif
 494          case 12 : if Optionen.IsChecked <> TRUE  then
 495                       Warnlog "entry no. 12  => changes not saved!"
 496                       endif
 497       end select
 498       Optionen.TypeKeys "<Down>"
 499    next i
 500
 501    printlog " - reset settings"
 502    Sprachmodule.TypeKeys "<PageUp>", 6
 503
 504    for i=1 to iCounter1
 505       if lbSave1 (i) = TRUE then Sprachmodule.Check else Sprachmodule.UnCheck
 506       Sprachmodule.TypeKeys "<Down>"
 507    next i
 508
 509    Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
 510
 511    for i=1 to iCounter2 - 1
 512       if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Check else Benutzerwoerterbuch.UnCheck
 513       Benutzerwoerterbuch.TypeKeys "<Down>"
 514    next i
 515
 516    Optionen.TypeKeys "<PageUp>", 6
 517
 518    for i=1 to iCounter3
 519       if i<>9 AND i<>10 AND i<>11 then
 520          if lbSave3 (i) = TRUE then Optionen.Check else Optionen.UnCheck
 521       end if
 522       Optionen.TypeKeys "<Down>"
 523    next i
 524
 525    Kontext "ExtrasOptionenDlg"
 526    ExtrasOptionenDlg.OK
 527    Sleep (3)
 528
 529    printlog " - check raw data"
 530    ToolsOptions
 531    hToolsOptions ( "LanguageSettings", "WritingAids" )
 532
 533    printlog "    'available language modules'"
 534    Sprachmodule.TypeKeys "<PageUp>", 6
 535
 536    for i=1 to iCounter1
 537       if Sprachmodule.Ischecked <> lbSave1 (i) then Warnlog "entry no. " + i + " => changes not saved!"
 538       Sprachmodule.TypeKeys "<Down>"
 539    next i
 540
 541    printlog "    'user-definded dictonaries'"
 542    Benutzerwoerterbuch.TypeKeys "<PageUp>", 6
 543    for i=1 to iCounter2 - 1
 544       if Benutzerwoerterbuch.Ischecked <> lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!"
 545       Benutzerwoerterbuch.TypeKeys "<Down>"
 546    next i
 547
 548    printlog "    'options'"
 549    Optionen.TypeKeys "<PageUp>", 6
 550    for i=1 to iCounter3
 551       if i<>9 AND i<>10 AND i<>11 then
 552          if Optionen.IsChecked <> lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!"
 553       end if
 554       Optionen.TypeKeys "<Down>"
 555    next i
 556
 557    Kontext "ExtrasOptionenDlg"
 558    ExtrasOptionenDlg.OK
 559    Sleep (3)
 560 endcase
 561
 562 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 563 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 564 testcase tLanguageSettingsJapaneseFind
 565  Dim bSave ( 20 ) as Boolean
 566
 567
 568    hNewDocument
 569    ToolsOptions
 570    hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
 571
 572  printlog " - save data"
 573    bSave (1 ) = MatchCase.IsChecked
 574    bSave (2 ) = MatchFullHalf.IsChecked
 575    bSave (3 ) = MatchHiraganaKatakana.IsChecked
 576    bSave (4 ) = MatchContractions.IsChecked
 577    bSave (5 ) = MatchMinusDashChoOn.IsChecked
 578    bSave (6 ) = MatchRepeatcharacterMarks.IsChecked
 579    bSave (7 ) = MatchVariantFormKanji.IsChecked
 580    bSave (8 ) = MatchOldKanaForms.IsChecked
 581    bSave (9 ) = MatchDiZiDuZu.IsChecked
 582    bSave (10) = MatchBaVaHaFa.IsChecked
 583    bSave (11) = MatchTsiThiChiDhiZi.IsChecked
 584    bSave (12) = MatchHyuFyuByuVyu.IsChecked
 585    bSave (13) = MatchDeSheZeJe.IsChecked
 586    bSave (14) = MatchIaIya.IsChecked
 587    bSave (15) = MatchKiKu.IsChecked
 588    bSave (16) = PunctuationCharacters.IsChecked
 589    bSave (17) = WhitespaceCharacters.IsChecked
 590    bSave (18) = ProlongedSoundmarks.IsChecked
 591    bSave (19) = MiddleDots.IsChecked
 592
 593  printlog " - invert data"
 594    if bSave (1 ) = TRUE then MatchCase.Uncheck                 else MatchCase.Check
 595    if bSave (2 ) = TRUE then MatchFullHalf.Uncheck             else MatchFullHalf.Check
 596    if bSave (3 ) = TRUE then MatchHiraganaKatakana.Uncheck     else MatchHiraganaKatakana.Check
 597    if bSave (4 ) = TRUE then MatchContractions.Uncheck         else MatchContractions.Check
 598    if bSave (5 ) = TRUE then MatchMinusDashChoOn.Uncheck       else MatchMinusDashChoOn.Check
 599    if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Uncheck else MatchRepeatcharacterMarks.Check
 600    if bSave (7 ) = TRUE then MatchVariantFormKanji.Uncheck     else MatchVariantFormKanji.Check
 601    if bSave (8 ) = TRUE then MatchOldKanaForms.Uncheck         else MatchOldKanaForms.Check
 602    if bSave (9 ) = TRUE then MatchDiZiDuZu.Uncheck             else MatchDiZiDuZu.Check
 603    if bSave (10) = TRUE then MatchBaVaHaFa.Uncheck             else MatchBaVaHaFa.Check
 604    if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Uncheck       else MatchTsiThiChiDhiZi.Check
 605    if bSave (12) = TRUE then MatchHyuFyuByuVyu.Uncheck         else MatchHyuFyuByuVyu.Check
 606    if bSave (13) = TRUE then MatchDeSheZeJe.Uncheck            else MatchDeSheZeJe.Check
 607    if bSave (14) = TRUE then MatchIaIya.Uncheck                else MatchIaIya.Check
 608    if bSave (15) = TRUE then MatchKiKu.Uncheck                 else MatchKiKu.Check
 609    if bSave (16) = TRUE then PunctuationCharacters.Uncheck     else PunctuationCharacters.Check
 610    if bSave (17) = TRUE then WhitespaceCharacters.Uncheck      else WhitespaceCharacters.Check
 611    if bSave (18) = TRUE then ProlongedSoundmarks.Uncheck       else ProlongedSoundmarks.Check
 612    if bSave (19) = TRUE then MiddleDots.Uncheck                else MiddleDots.Check
 613
 614    Kontext "ExtrasOptionenDlg"
 615    ExtrasOptionenDlg.OK
 616    Sleep (3)
 617    hCloseDocument
 618
 619  printlog " - exit/restart StarOffice"
 620    ExitRestartTheOffice
 621
 622  printlog " - check changes"
 623    ToolsOptions
 624    hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
 625
 626    if MatchCase.IsChecked                 = bSave (1 ) then Warnlog "Match Case => changes not saved!"
 627    if MatchFullHalf.IsChecked             = bSave (2 ) then Warnlog "Match Full Half => changes not saved!"
 628    if MatchHiraganaKatakana.IsChecked     = bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!"
 629    if MatchContractions.IsChecked         = bSave (4 ) then Warnlog "Match Contractions => changes not saved!"
 630    if MatchMinusDashChoOn.IsChecked       = bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!"
 631    if MatchRepeatcharacterMarks.IsChecked = bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!"
 632    if MatchVariantFormKanji.IsChecked     = bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!"
 633    if MatchOldKanaForms.IsChecked         = bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!"
 634    if MatchDiZiDuZu.IsChecked             = bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!"
 635    if MatchBaVaHaFa.IsChecked             = bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!"
 636    if MatchTsiThiChiDhiZi.IsChecked       = bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
 637    if MatchHyuFyuByuVyu.IsChecked         = bSave (12) then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!"
 638    if MatchDeSheZeJe.IsChecked            = bSave (13) then Warnlog "Match De She Ze Je => changes not saved!"
 639    if MatchIaIya.IsChecked                = bSave (14) then Warnlog "Match Ia Iya => changes not saved!"
 640    if MatchKiKu.IsChecked                 = bSave (15) then Warnlog "Match Ki Ku => changes not saved!"
 641    if PunctuationCharacters.IsChecked     = bSave (16) then Warnlog "Punctuation Characters => changes not saved!"
 642    if WhitespaceCharacters.IsChecked      = bSave (17) then Warnlog "Whitespace Characters => changes not saved!"
 643    if ProlongedSoundmarks.IsChecked       = bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!"
 644    if MiddleDots.IsChecked                = bSave (19) then Warnlog "Middle Dots => changes not saved!"
 645
 646  printlog " - second changes"
 647    MatchCase.Check
 648    MatchFullHalf.Uncheck
 649    MatchHiraganaKatakana.Check
 650    MatchContractions.Check
 651    MatchMinusDashChoOn.Uncheck
 652    MatchRepeatcharacterMarks.Uncheck
 653    MatchVariantFormKanji.Check
 654    MatchOldKanaForms.Check
 655    MatchDiZiDuZu.Uncheck
 656    MatchBaVaHaFa.Check
 657    MatchTsiThiChiDhiZi.Uncheck
 658    MatchHyuFyuByuVyu.Check
 659    MatchDeSheZeJe.Uncheck
 660    MatchIaIya.Check
 661    MatchKiKu.Uncheck
 662    PunctuationCharacters.Uncheck
 663    WhitespaceCharacters.Uncheck
 664    ProlongedSoundmarks.Uncheck
 665    MiddleDots.Check
 666
 667    Kontext "ExtrasOptionenDlg"
 668    ExtrasOptionenDlg.OK
 669    Sleep (3)
 670
 671  printlog " - check changes"
 672    ToolsOptions
 673    hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
 674
 675    if MatchCase.IsChecked                 <> TRUE  then Warnlog "Match Case => changes not saved!"
 676    if MatchFullHalf.IsChecked             <> FALSE then Warnlog "Match Full Half => changes not saved!"
 677    if MatchHiraganaKatakana.IsChecked     <> TRUE  then Warnlog "Match Hiragana Katakana => changes not saved!"
 678    if MatchContractions.IsChecked         <> TRUE  then Warnlog "Match Contractions => changes not saved!"
 679    if MatchMinusDashChoOn.IsChecked       <> FALSE then Warnlog "Match Minus Dash Cho On => changes not saved!"
 680    if MatchRepeatcharacterMarks.IsChecked <> FALSE then Warnlog "Match Repeatcharacter Marks => changes not saved!"
 681    if MatchVariantFormKanji.IsChecked     <> TRUE  then Warnlog "Match Variant Form Kanji => changes not saved!"
 682    if MatchOldKanaForms.IsChecked         <> TRUE  then Warnlog "Match Old Kana Forms => changes not saved!"
 683    if MatchDiZiDuZu.IsChecked             <> FALSE then Warnlog "Match Di Zi Du Zu => changes not saved!"
 684    if MatchBaVaHaFa.IsChecked             <> TRUE  then Warnlog "Match Ba Va Ha Fa => changes not saved!"
 685    if MatchTsiThiChiDhiZi.IsChecked       <> FALSE then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
 686    if MatchHyuFyuByuVyu.IsChecked         <> TRUE  then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!"
 687    if MatchDeSheZeJe.IsChecked            <> FALSE then Warnlog "Match De She Ze Je => changes not saved!"
 688    if MatchIaIya.IsChecked                <> TRUE  then Warnlog "Match Ia Iya => changes not saved!"
 689    if MatchKiKu.IsChecked                 <> FALSE then Warnlog "Match Ki Ku => changes not saved!"
 690    if PunctuationCharacters.IsChecked     <> FALSE then Warnlog "Punctuation Characters => changes not saved!"
 691    if WhitespaceCharacters.IsChecked      <> FALSE then Warnlog "Whitespace Characters => changes not saved!"
 692    if ProlongedSoundmarks.IsChecked       <> FALSE then Warnlog "Prolonged Soundmarks => changes not saved!"
 693    if MiddleDots.IsChecked                <> TRUE  then Warnlog "Middle Dots => changes not saved!"
 694
 695  printlog " - reset to saved data"
 696    if bSave (1 ) = TRUE then MatchCase.Check                 else MatchCase.UnCheck
 697    if bSave (2 ) = TRUE then MatchFullHalf.Check             else MatchFullHalf.UnCheck
 698    if bSave (3 ) = TRUE then MatchHiraganaKatakana.Check     else MatchHiraganaKatakana.UnCheck
 699    if bSave (4 ) = TRUE then MatchContractions.Check         else MatchContractions.UnCheck
 700    if bSave (5 ) = TRUE then MatchMinusDashChoOn.Check       else MatchMinusDashChoOn.UnCheck
 701    if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Check else MatchRepeatcharacterMarks.UnCheck
 702    if bSave (7 ) = TRUE then MatchVariantFormKanji.Check     else MatchVariantFormKanji.UnCheck
 703    if bSave (8 ) = TRUE then MatchOldKanaForms.Check         else MatchOldKanaForms.UnCheck
 704    if bSave (9 ) = TRUE then MatchDiZiDuZu.Check             else MatchDiZiDuZu.UnCheck
 705    if bSave (10) = TRUE then MatchBaVaHaFa.Check             else MatchBaVaHaFa.UnCheck
 706    if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Check       else MatchTsiThiChiDhiZi.UnCheck
 707    if bSave (12) = TRUE then MatchHyuFyuByuVyu.Check         else MatchHyuFyuByuVyu.UnCheck
 708    if bSave (13) = TRUE then MatchDeSheZeJe.Check            else MatchDeSheZeJe.UnCheck
 709    if bSave (14) = TRUE then MatchIaIya.Check                else MatchIaIya.UnCheck
 710    if bSave (15) = TRUE then MatchKiKu.Check                 else MatchKiKu.UnCheck
 711    if bSave (16) = TRUE then PunctuationCharacters.Check     else PunctuationCharacters.UnCheck
 712    if bSave (17) = TRUE then WhitespaceCharacters.Check      else WhitespaceCharacters.UnCheck
 713    if bSave (18) = TRUE then ProlongedSoundmarks.Check       else ProlongedSoundmarks.UnCheck
 714    if bSave (19) = TRUE then MiddleDots.Check                else MiddleDots.UnCheck
 715
 716    Kontext "ExtrasOptionenDlg"
 717    ExtrasOptionenDlg.OK
 718    Sleep (3)
 719
 720  printlog " - check saved data"
 721    ToolsOptions
 722    hToolsOptions ( "LanguageSettings", "SearchingInJapanese" )
 723
 724    if MatchCase.IsChecked                 <> bSave (1 ) then Warnlog "Match Case => changes not saved!"
 725    if MatchFullHalf.IsChecked             <> bSave (2 ) then Warnlog "Match Full Half => changes not saved!"
 726    if MatchHiraganaKatakana.IsChecked     <> bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!"
 727    if MatchContractions.IsChecked         <> bSave (4 ) then Warnlog "Match Contractions => changes not saved!"
 728    if MatchMinusDashChoOn.IsChecked       <> bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!"
 729    if MatchRepeatcharacterMarks.IsChecked <> bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!"
 730    if MatchVariantFormKanji.IsChecked     <> bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!"
 731    if MatchOldKanaForms.IsChecked         <> bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!"
 732    if MatchDiZiDuZu.IsChecked             <> bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!"
 733    if MatchBaVaHaFa.IsChecked             <> bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!"
 734    if MatchTsiThiChiDhiZi.IsChecked       <> bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!"
 735    if MatchHyuFyuByuVyu.IsChecked         <> bSave (12) then Warnlog "Match Hyu Fyu Byu Vyu => changes not saved!"
 736    if MatchDeSheZeJe.IsChecked            <> bSave (13) then Warnlog "Match De She Ze Je => changes not saved!"
 737    if MatchIaIya.IsChecked                <> bSave (14) then Warnlog "Match Ia Iya => changes not saved!"
 738    if MatchKiKu.IsChecked                 <> bSave (15) then Warnlog "Match Ki Ku => changes not saved!"
 739    if PunctuationCharacters.IsChecked     <> bSave (16) then Warnlog "Punctuation Characters => changes not saved!"
 740    if WhitespaceCharacters.IsChecked      <> bSave (17) then Warnlog "Whitespace Characters => changes not saved!"
 741    if ProlongedSoundmarks.IsChecked       <> bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!"
 742    if MiddleDots.IsChecked                <> bSave (19) then Warnlog "Middle Dots => changes not saved!"
 743
 744    Kontext "ExtrasOptionenDlg"
 745    ExtrasOptionenDlg.OK
 746    Sleep (3)
 747
 748 endcase
 749
 750 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 751 ' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > *
 752 testcase tLanguageSettingsAsianLayout
 753  Dim bSave ( 20 ) as Boolean
 754  Dim sSave ( 20 ) as String
 755  Dim i as Integer, iLan as Integer
 756
 757
 758    hNewDocument
 759    ToolsOptions
 760    hToolsOptions ( "LanguageSettings", "AsianLayout" )
 761
 762  printlog " - save raw data"
 763    bSave ( 1 ) = WesternCharactersOnly.IsChecked
 764    bSave ( 2 ) = WesternTextAndPunctuation.IsChecked
 765    bSave ( 3 ) = NoCompression.IsChecked
 766    bSave ( 4 ) = CompressPunctuationOnly.IsChecked
 767    bSave ( 5 ) = CompressPunctuationAndJapaneseKana.IsChecked
 768
 769    iLan = Language.GetItemCount
 770    if iLan > 4 then
 771       Warnlog "There are more than 4 languages in the list. The test break here, because it can't work with more than 4 entries. Bug?!?"
 772       Kontext "ExtrasOptionenDlg"
 773       ExtrasOptionenDlg.OK
 774       hclosedocument
 775       goto endsub
 776    end if
 777
 778    for i=1 to iLan
 779       Language.Select i
 780       sSave ( i ) = Language.GetSelText
 781       bSave ( 5+i ) = Standard.IsChecked
 782       Standard.Uncheck
 783       sSave ( 5+i  ) = NoStartOfLine.GetText
 784       sSave ( 10+i ) = NoEndOfLine.GetText
 785       if bSave ( 5+1 ) = TRUE then
 786          Standard.Check
 787       else
 788          Standard.Uncheck
 789       end if
 790    next i
 791
 792  printlog " - change data"
 793    WesternTextAndPunctuation.Check
 794    CompressPunctuationOnly.Check
 795    for i=1 to Language.GetItemCount
 796       Language.Select i
 797       Standard.UnCheck
 798       select case i
 799         case 1 : NoStartOfLine.SetText "avc" : NoEndOfLine.SetText "vca"
 800         case 2 : NoStartOfLine.SetText ">" : NoEndOfLine.SetText "<"
 801         case 3 : NoStartOfLine.SetText "!d?$" : NoEndOfLine.SetText "!d?$"
 802         case 4 : NoStartOfLine.SetText "aS$%6" : NoEndOfLine.SetText "aS$$6"
 803       end select
 804    next i
 805
 806    Kontext "ExtrasOptionenDlg"
 807    ExtrasOptionenDlg.OK
 808    Sleep (3)
 809    hCloseDocument
 810
 811  printlog " - exit/restart StarOffice"
 812    ExitRestartTheOffice
 813
 814  printlog " - check changes"
 815    ToolsOptions
 816    hToolsOptions ( "LanguageSettings", "AsianLayout" )
 817
 818    if WesternTextAndPunctuation.IsChecked <> TRUE then Warnlog "Western Text And Punctuation => changes not saved!"
 819    if CompressPunctuationOnly.IsChecked <> TRUE then Warnlog "Compress Punctuation Only => changes not saved!"
 820    for i=1 to iLan
 821       Language.Select i
 822       if Language.GetSelText <> sSave (i) then Warnlog "The language-entries are changed!"
 823       if Standard.IsChecked then
 824          Warnlog sSave(i) + " :  Standard is not unchecked"
 825          Standard.Uncheck
 826       end if
 827       select case i
 828         case 1 : if NoStartOfLine.GetText <> "avc"   then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
 829                  if NoEndOfLine.GetText   <> "vca"   then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
 830         case 2 : if NoStartOfLine.GetText <> ">"     then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
 831                  if NoEndOfLine.GetText   <> "<"     then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
 832         case 3 : if NoStartOfLine.GetText <> "!d?$"  then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
 833                  if NoEndOfLine.GetText   <> "!d?$"  then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
 834         case 4 : if NoStartOfLine.GetText <> "aS$%6" then Warnlog sSave (i) + " :  NoStartOfLine -> changes not saved"
 835                  if NoEndOfLine.GetText   <> "aS$$6" then Warnlog sSave (i) + " :  NoEndOfLine -> changes not saved"
 836       end select
 837    next i
 838
 839  printlog " - second changes"
 840    WesternCharactersOnly.Check
 841    CompressPunctuationAndJapaneseKana.Check
 842
 843    Kontext "ExtrasOptionenDlg"
 844    ExtrasOptionenDlg.OK
 845    Sleep (3)
 846
 847  printlog " - check changes"
 848    ToolsOptions
 849    hToolsOptions ( "LanguageSettings", "AsianLayout" )
 850
 851    if WesternCharactersOnly.IsChecked <> TRUE then Warnlog "Western Characters Only => changes not saved!"
 852    if CompressPunctuationAndJapaneseKana.IsChecked <> TRUE then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!"
 853
 854  printlog " - reset to saved data"
 855    if bSave ( 1 ) = TRUE then WesternCharactersOnly.Check
 856    if bSave ( 2 ) = TRUE then WesternTextAndPunctuation.Check
 857    if bSave ( 3 ) = TRUE then NoCompression.Check
 858    if bSave ( 4 ) = TRUE then CompressPunctuationOnly.Check
 859    if bSave ( 5 ) = TRUE then CompressPunctuationAndJapaneseKana.Check
 860
 861    for i=1 to iLan
 862       Language.Select sSave(i)
 863       Standard.Uncheck
 864       NoStartOfLine.SetText sSave ( 5+i )
 865       NoEndOfLine.SetText sSave ( 10+i )
 866       if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck
 867    next i
 868
 869    Kontext "ExtrasOptionenDlg"
 870    ExtrasOptionenDlg.OK
 871    Sleep (3)
 872
 873  printlog " - check reset"
 874    ToolsOptions
 875    hToolsOptions ( "LanguageSettings", "AsianLayout" )
 876
 877    if WesternCharactersOnly.IsChecked              <> bSave ( 1 ) then Warnlog "Western Characters Only => changes not saved!"
 878    if WesternTextAndPunctuation.IsChecked          <> bSave ( 2 ) then Warnlog "Western Text And Punctuation => changes not saved!"
 879    if NoCompression.IsChecked                      <> bSave ( 3 ) then Warnlog "No Compression => changes not saved!"
 880    if CompressPunctuationOnly.IsChecked            <> bSave ( 4 ) then Warnlog "Compress Punctuation Only => changes not saved!"
 881    if CompressPunctuationAndJapaneseKana.IsChecked <> bSave ( 5 ) then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!"
 882    for i=1 to iLan
 883       Language.Select sSave(i)
 884       if Standard.IsChecked <> bSave ( 5+i ) then Warnlog sSave(i) + " : Standard -> changes not saved"
 885       Standard.Uncheck
 886       if NoStartOfLine.GetText <> sSave ( 5+i ) then Warnlog sSave(i) + " : NoStartOfLine -> changes not saved"
 887       if NoEndOfLine.GetText <> sSave ( 10+i )  then Warnlog sSave(i) + " : NoEndOfLine -> changes not saved"
 888       if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck
 889    next i
 890
 891    Kontext "ExtrasOptionenDlg"
 892    ExtrasOptionenDlg.OK
 893    Sleep (3)
 894 endcase