testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.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: CJKCTLDependency1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:46 $
  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 : Test CJK and CTL support dependency
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tCJKDependency_1        'Test Tabpage 'Text Grid'
  41 ' #1 tCJKDependency_2        'Test Tabpage 'Asian Typography'
  42 ' #1 tCJKDependency_3        'Test CheckBox 'Snap to text grid (if active)'
  43 ' #1 tCJKDependency_4        'Test listbox 'Text direction' in page
  44 ' #1 tCJKDependency_5        'Test listbox 'Text direction' in Frame
  45 ' #1 tCTLDependency_1        'Test listbox 'Text direction' -- insert/section
  46 ' #1 tCTLDependency_2        'Test listbox 'Text direction' -- format/section
  47 ' #1 tCTLDependency_3        'Test listbox 'Text direction' -- table
  48 ' #1 tCTLDependency_4        'Test 'left to right' and 'right to left' button(Writer)
  49 ' #1 tCTLDependency_5        'Test 'left to right' and 'right to left' button - HTML(HTML 3.2)
  50 ' #1 tCTLDependency_6        'Test 'left to right' and 'right to left' button - HTML(Microsoft Internet Bxplorer)
  51 ' #1 tCTLDependency_7        'Test 'left to right' and 'right to left' button - HTML(Netscape Navigator)
  52 ' #1 tCTLDependency_8        'Test 'left to right' and 'right to left' button - HTML(StarOffice Writer)
  53 ' #1 tCTLKashidaCheck        'Check for additional numerals if CTL support is enabled
  54 '*
  55 '\***********************************************************************
  56
  57 testcase tCJKDependency_1
  58
  59   Dim bAsianLanguage   as Boolean
  60
  61   PrintLog "- Tabpage 'Text Grid"
  62
  63   printlog " Open a new document"
  64   Call hNewDocument
  65
  66   printlog " Set 'Asian Language support' ON"
  67    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
  68
  69   printlog " Format/Page , the tabpage 'Text Grid' should exist"
  70    FormatPageWriter
  71    try
  72        Kontext
  73        Active.SetPage TabGrid
  74        Kontext "TabGrid"
  75        TabGrid.Cancel
  76    catch
  77        Kontext
  78        Active.SetPage TabSeite
  79        Kontext "TabSeite"
  80        TabSeite.Cancel
  81        warnlog "Should get Tabpage: Grid Text"
  82    endcatch
  83
  84    'if system language is Asian language, the checkbox
  85    ''Asian Language support' is checked by default and
  86    'can't do any operation for it
  87    if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
  88        Goto NoTest
  89    end if
  90
  91   printlog " Set 'Asian Language support' Off"
  92    ActiveDeactivateAsianSupport(FALSE)
  93
  94   printlog " Format/Page , the tabpage 'Text Grid' shouldn't exist"
  95    FormatPageWriter
  96    try
  97        Kontext
  98        Active.SetPage TabGrid
  99        Kontext "TabGrid"
 100        TabGrid.Cancel
 101        warnlog "Shouldn't get Tabpage: Grid Text"
 102    catch
 103        Kontext
 104        Active.SetPage TabSeite
 105        Kontext "TabSeite"
 106        TabSeite.Cancel
 107    endcatch
 108
 109   printlog " Set the 'Asian Language support' to default"
 110    if bAsianLanguage = FALSE then
 111        Call ActiveDeactivateAsianSupport(FALSE)
 112    end if
 113
 114 NoTest:
 115   printlog " Close active document"
 116    Call hCloseDocument
 117 endcase
 118
 119 '-------------------------------------------------------------------------------------------
 120
 121 testcase tCJKDependency_2
 122
 123   Dim bAsianLanguage   as Boolean
 124
 125   PrintLog "- Tabpage'Asian Typography'"
 126
 127   printlog " Open a new document"
 128   Call hNewDocument
 129
 130   printlog " Set 'Asian Language support' ON"
 131    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 132
 133   printlog " Format/Paragraph , the tabpage 'Asian Typography' should exist"
 134    FormatParagraph
 135    try
 136        Kontext
 137        Active.SetPage TabAsianTypography
 138        Kontext "TabAsianTypography"
 139        TabAsianTypography.Cancel
 140    catch
 141        Kontext
 142        Active.SetPage TabTextfluss
 143        Kontext "TabTextfluss"
 144        TabTextfluss.Cancel
 145        warnlog "Should get Tabpage: Asian Typography"
 146    endcatch
 147
 148    'if system language is Asian language, the checkbox
 149    ''Asian Language support' is checked by default and
 150    'can't do any operation for it
 151    if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
 152        Goto NoTest
 153    end if
 154
 155   printlog " Set 'Asian Language support' Off"
 156    ActiveDeactivateAsianSupport(FALSE)
 157
 158   printlog " Format/Page , the tabpage 'Asian Typography' shouldn't exist"
 159    FormatParagraph
 160    try
 161        Kontext
 162        Active.SetPage TabAsianTypography
 163        Kontext "TabAsianTypography"
 164        TabAsianTypography.Cancel
 165        warnlog "Shouldn't get Tabpage: Asian Typography"
 166    catch
 167        Kontext
 168        Active.SetPage TabTextfluss
 169        Kontext "TabTextfluss"
 170        TabTextfluss.Cancel
 171    endcatch
 172
 173   printlog " Set the 'Asian Language support' to default"
 174    if bAsianLanguage = FALSE then
 175        Call ActiveDeactivateAsianSupport(FALSE)
 176    end if
 177
 178 NoTest:
 179   printlog " Close active document"
 180    Call hCloseDocument
 181 endcase
 182
 183 '-------------------------------------------------------------------------------------------
 184
 185 testcase tCJKDependency_3
 186
 187   Dim bAsianLanguage as Boolean
 188
 189   PrintLog "- CheckBox 'Snap to text grid (if active)'"
 190
 191   printlog " Open a new document"
 192   Call hNewDocument
 193
 194   printlog " Set 'Asian Language support' ON"
 195    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 196
 197   printlog " Format/Paragraph / Alignment ,"
 198   printlog " the CheckBox 'Snap to text grid (if active)' should exist"
 199    Call fFormatParagraph("TabAusrichtungAbsatz")
 200        try
 201            TextrasterFangen.UnCheck
 202        catch
 203            warnlog "Should get checkbox 'Snap to text grid (if active)'"
 204        endcatch
 205    TabAusrichtungAbsatz.Cancel
 206
 207    'if system language is Asian language, the checkbox
 208    ''Asian Language support' is checked by default and
 209    'can't do any operation for it
 210    if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
 211        Goto NoTest
 212    end if
 213
 214   printlog " Set 'Asian Language support' Off"
 215    ActiveDeactivateAsianSupport(FALSE)
 216
 217   printlog " Format/Paragraph / Alignment ,"
 218   printlog " the CheckBox 'Snap to text grid (if active)' shouldn't exist"
 219    Call fFormatParagraph("TabAusrichtungAbsatz")
 220        try
 221            TextrasterFangen.UnCheck
 222            warnlog "Shouldn't get checkbox 'Snap to text grid (if active)'"
 223        catch
 224        endcatch
 225    TabAusrichtungAbsatz.Cancel
 226
 227   printlog " Set the 'Asian Language support' to default"
 228    if bAsianLanguage = FALSE then
 229        Call ActiveDeactivateAsianSupport(FALSE)
 230    end if
 231
 232 NoTest:
 233   printlog " Close active document"
 234    Call hCloseDocument
 235 endcase
 236
 237 '-------------------------------------------------------------------------------------------
 238
 239 testcase tCJKDependency_4
 240
 241     Dim bAsianLanguage as Boolean
 242     Dim bCTLLanguage as Boolean
 243     'if system language is Asian language, the checkbox
 244     ''Asian Language support' is checked by default and
 245     'can't do any operation for it
 246     if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
 247         goto endsub
 248     end if
 249
 250     PrintLog "- listbox 'Text direction' - Page"
 251
 252     printlog " Open a new document"
 253     Call hNewDocument
 254
 255     printlog " Set 'CTL language support' OFF"
 256     bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 257
 258     printlog " Set 'Asian Language support' ON"
 259     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 260
 261     printlog " Format/Page / Page, the listbox 'Text direction' should exist"
 262     Call fFormatPageWriter("TabSeite")
 263     if Textfluss.IsVisible = TRUE then
 264         Textfluss.Select 2
 265     else
 266         warnlog "Should get listbox 'Text direction'"
 267     end if
 268     TabSeite.Cancel
 269
 270     printlog " Set 'Asian Language support' Off"
 271     ActiveDeactivateAsianSupport(FALSE)
 272     printlog " Format/Page / Page, the listbox 'Text direction' shouldn't exist"
 273     Call fFormatPageWriter("TabSeite")
 274     if Textfluss.IsVisible = TRUE then
 275         warnlog "Shouldn't get listbox 'Text direction'"
 276     end if
 277     TabSeite.Cancel
 278
 279     printlog " Set the 'Asian Language support' to default"
 280     if bAsianLanguage = FALSE then
 281        Call ActiveDeactivateAsianSupport(FALSE)
 282     end if
 283
 284     Call hCloseDocument
 285 endcase
 286
 287 '-------------------------------------------------------------------------------------------
 288
 289 testcase tCJKDependency_5
 290
 291     Dim bAsianLanguage as Boolean
 292     Dim bCTLLanguage as Boolean
 293
 294     PrintLog "- listbox 'Text direction' - Frame"
 295
 296     printlog " Open a new document"
 297     Call hNewDocument
 298
 299     printlog " Set 'CTL language support' OFF"
 300     bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 301
 302     printlog " Set 'Asian Language support' ON"
 303     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 304
 305     printlog " Insert a frame"
 306     Call wInsertFrame
 307
 308     printlog " Format/Frame / Options, the listbox 'Text direction' should exist"
 309     Call fFormatFrame("TabZusaetze")
 310     if Not TextDirection.IsVisible then
 311         warnlog "Should get listbox 'Text direction'"
 312     end if
 313     TabZusaetze.Cancel
 314
 315     'if system language is Asian language, the checkbox
 316     ''Asian Language support' is checked by default and
 317     'can't do any operation for it
 318     if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
 319         Goto NoTest
 320     end if
 321
 322     printlog " Set 'Asian Language support' Off"
 323     ActiveDeactivateAsianSupport(FALSE)
 324
 325     printlog " Format/Frame / Options, the listbox 'Text direction' shouldn't exist"
 326     Call fFormatFrame("TabZusaetze")
 327     if TextDirection.IsVisible = TRUE then
 328         QAErrorLog "#135837# Shouldn't get listbox 'Text direction'."
 329     end if
 330     TabZusaetze.Cancel
 331
 332     printlog " Set the 'Asian Language support' to default"
 333     if bAsianLanguage = FALSE then
 334         Call ActiveDeactivateAsianSupport(FALSE)
 335     end if
 336
 337 NoTest:
 338     printlog " Set the 'CTL language support' to default"
 339     if bCTLLanguage = TRUE then
 340         Call ActiveDeactivateAsianSupport(TRUE)
 341     end if
 342
 343     printlog " Close active document"
 344     Call hCloseDocument
 345 endcase
 346
 347 '-------------------------------------------------------------------------------------------
 348
 349 testcase tCTLDependency_1
 350
 351     Dim bCTLLanguage as Boolean
 352
 353     PrintLog "- listbox 'Text direction' -- insert/section"
 354
 355     printlog " Open a new document"
 356     Call hNewDocument
 357
 358     printlog " Set 'CTL Language support' ON"
 359     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 360
 361     printlog " Insert/Section/Columns,"
 362     printlog " the listbox 'Text direction' should exist"
 363     Call fInsertSection("TabSpalten")
 364     if Not TextDirection.IsVisible then
 365         Warnlog "Should get listbox 'Text direction'"
 366     end if
 367     TabSpalten.Cancel
 368
 369     printlog " Set 'CTL Language support' Off"
 370     Call ActiveDeactivateCTLSupport(FALSE)
 371
 372     printlog " Insert/Section/Columns,"
 373     printlog " the listbox 'Text direction' shouldn't exist"
 374     Call fInsertSection("TabSpalten")
 375     if TextDirection.IsVisible then
 376         Warnlog "Shouldn't get listbox 'Text direction'"
 377     end if
 378     TabSpalten.Cancel
 379
 380     printlog " Set the 'CTL Language support' to default"
 381     if bCTLLanguage = TRUE then
 382         Call ActiveDeactivateCTLSupport(TRUE)
 383     end if
 384
 385     printlog " Close active document"
 386     Call hCloseDocument
 387 endcase
 388
 389 '-------------------------------------------------------------------------------------------
 390
 391 testcase tCTLDependency_2
 392
 393     Dim bCTLLanguage as Boolean
 394
 395     PrintLog "- listbox 'Text direction' -- format/section"
 396
 397     printlog " Open a new document"
 398     Call hNewDocument
 399
 400     printlog " Insert a section"
 401     Call fInsertSection("TabBereiche")
 402     TabBereiche.OK
 403
 404     printlog " Set 'CTL Language support' ON"
 405     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 406
 407     printlog " Format/Section , then click option button,"
 408     printlog " the listbox 'Text direction' should exist"
 409     FormatSections
 410     Kontext "BereicheBearbeiten"
 411     Optionen.Click
 412     Sleep 1
 413     Kontext
 414     Active.Setpage TabSpalten
 415     Kontext "TabSpalten"
 416     if Not TextDirection.IsVisible then
 417         Warnlog "Should get listbox 'Text direction'"
 418     end if
 419     TabSpalten.Cancel
 420     Sleep 1
 421     Kontext "BereicheBearbeiten"
 422     BereicheBearbeiten.Cancel
 423
 424     printlog " Set 'CTL Language support' Off"
 425     Call ActiveDeactivateCTLSupport(FALSE)
 426
 427     printlog " Format/Section , then click option button,"
 428     printlog " the listbox 'Text direction' shouldn't exist"
 429     FormatSections
 430     Kontext "BereicheBearbeiten"
 431     Optionen.Click
 432     Kontext
 433     Active.Setpage TabSpalten
 434     Kontext "TabSpalten"
 435     if TextDirection.IsVisible then
 436         Warnlog "Shouldn't get listbox 'Text direction'"
 437     end if
 438     TabSpalten.Cancel
 439     Sleep 1
 440     Kontext "BereicheBearbeiten"
 441     BereicheBearbeiten.Cancel
 442
 443     printlog " Set the 'CTL Language support' to default"
 444     if bCTLLanguage = TRUE then
 445         Call ActiveDeactivateCTLSupport(TRUE)
 446     end if
 447
 448     printlog " Close active document"
 449     Call hCloseDocument
 450 endcase
 451
 452 '-------------------------------------------------------------------------------------------
 453
 454 testcase tCTLDependency_3
 455
 456     Dim bCTLLanguage as Boolean
 457     PrintLog "- listbox 'Text direction' -- Table"
 458
 459     printlog " Open a new document"
 460     Call hNewDocument
 461
 462     printlog " Insert a table"
 463     Call hTabelleEinfuegen
 464
 465     printlog " Set 'CTL Language support' ON"
 466     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 467
 468     printlog " Format/Table / Table ,"
 469     printlog " the listbox 'Text direction' should exist"
 470     Call fFormatTable("TabTabelle")
 471     if Not TextDirection.IsVisible then
 472         Warnlog "Should get listbox 'Text direction'"
 473     end if
 474     TabTabelle.Cancel
 475
 476     printlog " Set 'CTL Language support' Off"
 477     Call ActiveDeactivateCTLSupport(FALSE)
 478
 479     printlog " Format/Table / Table ,"
 480     printlog " the listbox 'Text direction' shouldn't exist"
 481     Call fFormatTable("TabTabelle")
 482     if TextDirection.IsVisible then
 483         Warnlog "Shouldn't get listbox 'Text direction'"
 484     end if
 485     TabTabelle.Cancel
 486
 487     printlog " Set the 'CTL Language support' to default"
 488     if bCTLLanguage = TRUE then
 489         Call ActiveDeactivateCTLSupport(TRUE)
 490     end if
 491
 492     printlog " Close active document"
 493     Call hCloseDocument
 494 endcase
 495
 496 '-------------------------------------------------------------------------------------------
 497
 498 testcase tCTLDependency_4
 499
 500   Dim bCTLLanguage as Boolean
 501   Dim bLToR as Boolean
 502   Dim bRToL as Boolean
 503
 504   PrintLog "- 'left to right' and 'right to left' button "
 505
 506   printlog " Open a new document"
 507   Call hNewDocument
 508
 509    bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
 510    bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
 511
 512   printlog " Set 'CTL Language support' Off"
 513    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 514    Sleep 2
 515
 516   printlog " Check if 'left to right' button and 'right to left' button"
 517   printlog " can be clicked in text tool bar -- Shouldn't be"
 518    Kontext "TextObjectbar"
 519    try
 520        LeftToRight.Click
 521        warnlog "Left To Right button shouldn't be clicked!"
 522    catch
 523    endcatch
 524    try
 525        RightToLeft.Click
 526        warnlog "Right To Left button shouldn't be clicked!"
 527    catch
 528    endcatch
 529
 530   printlog " Set 'CTL Language support' ON"
 531    ActiveDeactivateCTLSupport(TRUE)
 532
 533   printlog " Check if 'left to right' button and 'right to left' button"
 534   printlog " can be clicked in text tool bar -- Should be"
 535    Kontext "TextObjectbar"
 536    Sleep 2
 537    try
 538        LeftToRight.Click
 539        Sleep 2
 540    catch
 541        warnlog "#i38788# Left To Right button can't be clicked!"
 542    endcatch
 543    try
 544        RightToLeft.Click
 545        Sleep 2
 546    catch
 547        warnlog "#i38788# Right To Left button can't be clicked!"
 548    endcatch
 549
 550   'Set R to L and L to R button disappear
 551    if bLToR = FALSE then
 552        Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
 553    end if
 554    if bRToL = FALSE then
 555        Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
 556    end if
 557
 558   printlog " Set the 'CTL Language support' to default"
 559    if bCTLLanguage = FALSE then
 560        Call ActiveDeactivateCTLSupport(FALSE)
 561    end if
 562
 563   printlog " Close active document"
 564    Call hCloseDocument
 565 endcase
 566
 567 '-------------------------------------------------------------------------------------------
 568
 569 testcase tCTLDependency_5
 570
 571     Dim bCTLLanguage as Boolean
 572     Dim bLToR as Boolean
 573     Dim bRToL as Boolean
 574     Dim iHtmlExportMode as Integer
 575     Dim iCurrentHtmlExportMode as Integer
 576
 577     iHtmlExportMode = 1
 578
 579     PrintLog "- 'left to right' and 'right to left' button - HTML (HTML 3.2)"
 580
 581     printlog " Open a new document"
 582     Call hNewDocument
 583
 584     bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
 585     bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
 586
 587     printlog " Set Export mode to HTML 3.2"
 588     printlog " Tools/load&save/HTML compatibility/Exprt"
 589     ToolsOptions
 590     Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 591     iCurrentHtmlExportMode = Export.GetSelIndex
 592     Sleep 1
 593     Export.Select iHtmlExportMode
 594     Sleep 1
 595     Kontext "ExtrasOptionenDlg"
 596     ExtrasOptionenDlg.OK
 597
 598     PrintLog "Set 'CTL Language support' Off"
 599     bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 600     Sleep 2
 601
 602     printlog " Check if 'left to right' button and 'right to left' button"
 603     printlog " can be clicked in text tool bar -- Shouldn't be"
 604     Kontext "TextObjectbar"
 605     try
 606         LeftToRight.Click
 607         warnlog "Left To Right button shouldn't be clicked!"
 608     catch
 609     endcatch
 610     try
 611         RightToLeft.Click
 612         warnlog "Right To Left button shouldn't be clicked!"
 613     catch
 614     endcatch
 615
 616     PrintLog "Set 'CTL Language support' ON"
 617     ActiveDeactivateCTLSupport(TRUE)
 618
 619     printlog " Check if 'left to right' button and 'right to left' button"
 620     printlog " can be clicked in text tool bar -- Should NOT be"
 621     Kontext "TextObjectbar"
 622     Sleep 2
 623     try
 624        LeftToRight.Click
 625        QAErrorLog "#115836# Left To Right button shouldn't be clicked!"
 626        Sleep 2
 627     catch
 628     endcatch
 629     try
 630        RightToLeft.Click
 631        QAErrorLog "#115836# Right To Left button shouldn't be clicked!"
 632        Sleep 2
 633     catch
 634     endcatch
 635
 636     'Set R to L and L to R button disappear
 637     if bLToR = FALSE then
 638        Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
 639     end if
 640     if bRToL = FALSE then
 641        Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
 642     end if
 643
 644     printlog " Set the 'CTL Language support' to default"
 645     if bCTLLanguage = FALSE then
 646        Call ActiveDeactivateCTLSupport(FALSE)
 647     end if
 648
 649     printlog " Set Export mode to default"
 650     ToolsOptions
 651     Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 652      Export.Select iCurrentHtmlExportMode
 653      Sleep 1
 654      Kontext "ExtrasOptionenDlg"
 655     ExtrasOptionenDlg.OK
 656
 657     printlog " Close active document"
 658     Call hCloseDocument
 659 endcase
 660
 661 '-------------------------------------------------------------------------------------------
 662
 663 testcase tCTLDependency_6
 664
 665   Dim bCTLLanguage as Boolean
 666   Dim bLToR as Boolean
 667   Dim bRToL as Boolean
 668   Dim iHtmlExportMode as Integer
 669   Dim iCurrentHtmlExportMode as Integer
 670
 671   iHtmlExportMode = 2
 672
 673   PrintLog "- 'left to right' and 'right to left' button - HTML(Microsoft Internet Bxplorer)"
 674
 675   printlog " Open a new document"
 676   Call hNewDocument
 677
 678    bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
 679    bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
 680
 681   printlog " Set Export mode to Microsoft Internet Bxplorer"
 682   printlog " Tools/load&save/HTML compatibility/Exprt"
 683    ToolsOptions
 684    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 685      iCurrentHtmlExportMode = Export.GetSelIndex
 686      Export.Select iHtmlExportMode
 687      Sleep 1
 688      Kontext "ExtrasOptionenDlg"
 689    ExtrasOptionenDlg.OK
 690
 691   printlog " Set 'CTL Language support' Off"
 692    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 693    Sleep 2
 694
 695   printlog " Check if 'left to right' button and 'right to left' button"
 696   printlog " can be clicked in text tool bar -- Shouldn't be"
 697    Kontext "TextObjectbar"
 698    try
 699        LeftToRight.Click
 700        warnlog "Left To Right button shouldn't be clicked!"
 701    catch
 702    endcatch
 703    try
 704        RightToLeft.Click
 705        warnlog "Right To Left button shouldn't be clicked!"
 706    catch
 707    endcatch
 708
 709   printlog " Set 'CTL Language support' ON"
 710    ActiveDeactivateCTLSupport(TRUE)
 711
 712   printlog " Check if 'left to right' button and 'right to left' button"
 713   printlog " can be clicked in text tool bar -- Should be"
 714    Kontext "TextObjectbar"
 715    Sleep 2
 716    try
 717        LeftToRight.Click
 718        Sleep 2
 719    catch
 720        warnlog "#i38788# Left To Right button can't be clicked!"
 721    endcatch
 722    try
 723        RightToLeft.Click
 724        Sleep 2
 725    catch
 726        warnlog "#i38788# Right To Left button can't be clicked!"
 727    endcatch
 728
 729   'Set R to L and L to R button disappear
 730    if bLToR = FALSE then
 731        Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
 732    end if
 733    if bRToL = FALSE then
 734        Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
 735    end if
 736
 737   printlog " Set the 'CTL Language support' to default"
 738    if bCTLLanguage = FALSE then
 739        Call ActiveDeactivateCTLSupport(FALSE)
 740    end if
 741
 742   printlog " Set Export mode to default"
 743    ToolsOptions
 744    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 745      Export.Select iCurrentHtmlExportMode
 746      Sleep 1
 747      Kontext "ExtrasOptionenDlg"
 748    ExtrasOptionenDlg.OK
 749
 750   printlog " Close active document"
 751    Call hCloseDocument
 752 endcase
 753
 754 '-------------------------------------------------------------------------------------------
 755
 756 testcase tCTLDependency_7
 757
 758   Dim bCTLLanguage as Boolean
 759   Dim bLToR as Boolean
 760   Dim bRToL as Boolean
 761   Dim iHtmlExportMode as Integer
 762   Dim iCurrentHtmlExportMode as Integer
 763
 764   iHtmlExportMode = 3
 765
 766   PrintLog "- 'left to right' and 'right to left' button - HTML(Netscape Navigator)"
 767
 768   printlog " Open a new document"
 769   Call hNewDocument
 770
 771    bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
 772    bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
 773
 774   printlog " Set Export mode to Netscape Navigator"
 775   printlog " Tools/load&save/HTML compatibility/Exprt"
 776    ToolsOptions
 777    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 778      iCurrentHtmlExportMode = Export.GetSelIndex
 779      Export.Select iHtmlExportMode
 780      Sleep 1
 781      Kontext "ExtrasOptionenDlg"
 782    ExtrasOptionenDlg.OK
 783
 784   printlog " Set 'CTL Language support' Off"
 785    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 786    Sleep 2
 787
 788   printlog " Check if 'left to right' button and 'right to left' button"
 789   printlog " can be clicked in text tool bar -- Shouldn't be"
 790    Kontext "TextObjectbar"
 791    try
 792        LeftToRight.Click
 793        warnlog "Left To Right button shouldn't be clicked!"
 794    catch
 795    endcatch
 796    try
 797        RightToLeft.Click
 798        warnlog "Right To Left button shouldn't be clicked!"
 799    catch
 800    endcatch
 801
 802   printlog " Set 'CTL Language support' ON"
 803    ActiveDeactivateCTLSupport(TRUE)
 804
 805   printlog " Check if 'left to right' button and 'right to left' button"
 806   printlog " can be clicked in text tool bar -- Should be"
 807    Kontext "TextObjectbar"
 808    Sleep 2
 809    try
 810        LeftToRight.Click
 811        Sleep 2
 812    catch
 813        warnlog "#i38788# Left To Right button can't be clicked!"
 814    endcatch
 815    try
 816        RightToLeft.Click
 817        Sleep 2
 818    catch
 819        warnlog "#i38788# Right To Left button can't be clicked!"
 820    endcatch
 821
 822   'Set R to L and L to R button disappear
 823    if bLToR = FALSE then
 824        Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
 825    end if
 826    if bRToL = FALSE then
 827        Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
 828    end if
 829
 830   printlog " Set the 'CTL Language support' to default"
 831    if bCTLLanguage = FALSE then
 832        Call ActiveDeactivateCTLSupport(FALSE)
 833    end if
 834
 835   printlog " Set Export mode to default"
 836    ToolsOptions
 837    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 838      Export.Select iCurrentHtmlExportMode
 839      Sleep 1
 840      Kontext "ExtrasOptionenDlg"
 841    ExtrasOptionenDlg.OK
 842
 843   printlog " Close active document"
 844    Call hCloseDocument
 845 endcase
 846
 847 '-------------------------------------------------------------------------------------------
 848
 849 testcase tCTLDependency_8
 850
 851   Dim bCTLLanguage as Boolean
 852   Dim bLToR as Boolean
 853   Dim bRToL as Boolean
 854   Dim iHtmlExportMode as Integer
 855   Dim iCurrentHtmlExportMode as Integer
 856
 857   iHtmlExportMode = 4
 858
 859   PrintLog "- 'left to right' and 'right to left' button - HTML(StarOffice Writer)"
 860
 861   printlog " Open a new document"
 862   Call hNewDocument
 863
 864    bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
 865    bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
 866
 867   printlog " Set Export mode to StarOffice Writer"
 868   printlog " Tools/load&save/HTML compatibility/Exprt"
 869    ToolsOptions
 870    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 871      iCurrentHtmlExportMode = Export.GetSelIndex
 872      Export.Select iHtmlExportMode
 873      Sleep 1
 874      Kontext "ExtrasOptionenDlg"
 875    ExtrasOptionenDlg.OK
 876
 877   printlog " Set 'CTL Language support' Off"
 878    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
 879    Sleep 2
 880
 881   printlog " Check if 'left to right' button and 'right to left' button"
 882   printlog " can be clicked in text tool bar -- Shouldn't be"
 883    Kontext "TextObjectbar"
 884    try
 885        LeftToRight.Click
 886        warnlog "Left To Right button shouldn't be clicked!"
 887    catch
 888    endcatch
 889    try
 890        RightToLeft.Click
 891        warnlog "Right To Left button shouldn't be clicked!"
 892    catch
 893    endcatch
 894
 895   printlog " Set 'CTL Language support' ON"
 896    ActiveDeactivateCTLSupport(TRUE)
 897
 898   printlog " Check if 'left to right' button and 'right to left' button"
 899   printlog " can be clicked in text tool bar -- Should be"
 900    Kontext "TextObjectbar"
 901    Sleep 2
 902    try
 903        LeftToRight.Click
 904        Sleep 2
 905    catch
 906        warnlog "#i38788# Left To Right button can't be clicked!"
 907    endcatch
 908    try
 909        RightToLeft.Click
 910        Sleep 2
 911    catch
 912        warnlog "#i38788# Right To Left button can't be clicked!"
 913    endcatch
 914
 915   'Set R to L and L to R button disappear
 916    if bLToR = FALSE then
 917        Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
 918    end if
 919    if bRToL = FALSE then
 920        Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
 921    end if
 922
 923   printlog " Set the 'CTL Language support' to default"
 924    if bCTLLanguage = FALSE then
 925        Call ActiveDeactivateCTLSupport(FALSE)
 926    end if
 927
 928   printlog " Set Export mode to default"
 929    ToolsOptions
 930    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
 931      Export.Select iCurrentHtmlExportMode
 932      Sleep 1
 933      Kontext "ExtrasOptionenDlg"
 934    ExtrasOptionenDlg.OK
 935
 936   printlog " Close active document"
 937    Call hCloseDocument
 938 endcase
 939
 940 '----------------------------------------------------------------------------------------------------
 941
 942 testcase tCTLKashidaCheck
 943
 944     Dim bCTLLanguage as Boolean
 945     Dim bAsianLanguage as boolean
 946     Dim iListCounter as Integer
 947
 948     printlog " Open a new document"
 949     Call hNewDocument
 950
 951     printlog " Set 'Asian support' to ON"
 952     bAsianLanguage = ActiveDeactivateAsianSupport(True)
 953     printlog " Set 'CTL Language support' to ON"
 954     bCTLLanguage = ActiveDeactivateCTLSupport(True)
 955     Sleep 2
 956
 957     ToolsOptions
 958     Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
 959     Kontext "TabComplexTextLayout"
 960
 961     iListCounter = Numerals.GetItemCount
 962
 963     if iListCounter <> 4 then
 964         Warnlog "There are not 4 items in list 'Numerlas' but " + iListCounter
 965     endif
 966
 967     Kontext "ExtrasOptionenDlg"
 968     ExtrasOptionenDlg.OK
 969
 970     if bAsianLanguage = FALSE then
 971         printlog " Set the 'Asian Language support' to default"
 972         Call ActiveDeactivateAsianSupport(bAsianLanguage)
 973     end if
 974
 975     if bCTLLanguage = FALSE then
 976         printlog " Set the 'CTL Language support' to default"
 977         Call ActiveDeactivateCTLSupport(FALSE)
 978     end if
 979
 980    printlog " Close active document"
 981    Call hCloseDocument
 982 endcase
 983
 984 '----------------------------------------------------------------------------------------------------
 985
 986