testautomation/framework/optional/includes/CJK_FeatureSwitchTest_1.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: CJK_FeatureSwitchTest_1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
  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 : hercule.li@sun.com
  35 '*
  36 '* short description : CJK Feature Switch test
  37 '*
  38 '\***********************************************************************
  39
  40 testcase tSwitchLocation
  41 '/// Check if the switch "Asian Language support" exist -- tools/options/language settings/language
  42   ToolsOptions
  43
  44   Call hToolsOptions("LANGUAGESETTINGS" , "LANGUAGES")
  45
  46   try
  47     if Aktivieren.IsChecked = TRUE  then
  48       printLog "CJK language is checked"
  49     else
  50       printLog "CJK language isn't checked"
  51     end if
  52   catch
  53     warnlog "Something wrong in checkbox 'Asian Language Support'"
  54   endcatch
  55
  56   Kontext "ExtrasOptionenDlg"
  57   ExtrasOptionenDlg.OK
  58 endcase
  59
  60 '-------------------------------------------------------------------------
  61
  62 testcase tWriterUIChangesTest1
  63 '/// Check if checkbox "Snap to text grid" is enable or not -- Format/Paragraph tabpage "Alignment"
  64   call  hNewDocument
  65
  66   '/// turn on "Asian Language support" , check if checkbox "Snap to text grid" is enable
  67   Call CheckAsianLanguageSupport("On")
  68
  69    Kontext
  70    FormatParagraph
  71     Active.SetPage TabAusrichtungAbsatz
  72     Kontext "TabAusrichtungAbsatz"
  73
  74    try
  75     if TextrasterFangen.IsChecked = TRUE  then
  76       printLog "snap to text grid is checked"
  77     else
  78       printLog "snap to text grid isn't checked"
  79     end if
  80    catch
  81     warnlog "Something wrong in checkbox 'snap to text grid'"
  82    endcatch
  83
  84    TabAusrichtungAbsatz.Cancel
  85
  86   '/// turn off "Asian Language support" , check if checkbox "Snap to text grid" isn't enable
  87   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
  88      Call CheckAsianLanguageSupport("Off")
  89
  90       Kontext
  91       FormatParagraph
  92       Active.SetPage TabAusrichtungAbsatz
  93       Kontext "TabAusrichtungAbsatz"
  94
  95       try
  96         if TextrasterFangen.IsChecked = TRUE Or TextrasterFangen.IsChecked <> TRUE then
  97            warnlog "Something wrong in checkbox 'snap to text grid'"
  98         end if
  99       catch
 100       endcatch
 101
 102      TabAusrichtungAbsatz.Cancel
 103   end if
 104
 105   Call hCloseDocument
 106 endcase
 107
 108 '-------------------------------------------------------------------------
 109
 110 testcase tWriterUIChangesTest2
 111 '/// Check if tabpage "Asian Typography" appear or not -- Format/Paragraph
 112   call  hNewDocument
 113
 114   '/// turn on "Asian Language support" , check if tabpage "Asian Typography" appears
 115   Call CheckAsianLanguageSupport("On")
 116
 117    Kontext
 118    FormatParagraph
 119
 120    try
 121     Active.SetPage TabAsianTypography
 122     Kontext "TabAsianTypography"
 123     TabAsianTypography.Cancel
 124    catch
 125     Active.SetPage TabAusrichtungAbsatz
 126     Kontext "TabAusrichtungAbsatz"
 127     TabAusrichtungAbsatz.Cancel
 128     warnlog "Something wring in tabpage - Asian Typography!"
 129    endcatch
 130
 131   '/// turn off "Asian Language support" , check if tabpage "Asian Typography" disappear
 132   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 133      Call CheckAsianLanguageSupport("Off")
 134
 135       Kontext
 136       FormatParagraph
 137
 138       try
 139        Active.SetPage TabAsianTypography
 140        Kontext "TabAsianTypography"
 141        TabAsianTypography.Cancel
 142        warnlog "tabpage - Asian Typography should NOT appear!"
 143       catch
 144        Active.SetPage TabAusrichtungAbsatz
 145        Kontext "TabAusrichtungAbsatz"
 146        TabAusrichtungAbsatz.Cancel
 147       endcatch
 148    end if
 149
 150   Call hCloseDocument
 151 endcase
 152
 153 '-------------------------------------------------------------------------
 154
 155 testcase tWriterUIChangesTest3
 156 '/// Check if list box "Asian text font" appear or not  -- Format/Character
 157   call  hNewDocument
 158
 159   '/// turn on "Asian Language support" , Check if list box "Asian text font" appear
 160   Call CheckAsianLanguageSupport("On")
 161
 162    Kontext
 163    FormatCharacter
 164    Kontext
 165    active.SetPage TabFont
 166    kontext "TabFont"
 167      try
 168       FontEast.Select 1
 169      catch
 170       warnlog "Something wrong in list box Asian text font when Asian Language support is on"
 171      endcatch
 172    TabFont.Cancel
 173
 174   '/// turn off "Asian Language support" , Check if list box "Asian text font" disappear
 175   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 176      Call CheckAsianLanguageSupport("Off")
 177
 178       Kontext
 179       FormatCharacter
 180       Kontext
 181       active.SetPage TabFont
 182       kontext "TabFont"
 183         try
 184          FontEast.Select 1
 185          warnlog "Something wrong in list box Asian text font when Asian Language support is off"
 186         catch
 187         endcatch
 188       TabFont.Cancel
 189    end if
 190
 191   Call hCloseDocument
 192 endcase
 193
 194 '-------------------------------------------------------------------------
 195
 196 testcase tWriterUIChangesTest4
 197 '/// Check if list box "Emphasis mark" appear or not -- Format/Character
 198   call  hNewDocument
 199
 200   '/// turn on "Asian Language support" , Check if list box "Emphasis mark" appear
 201   Call CheckAsianLanguageSupport("On")
 202
 203    Kontext
 204    FormatCharacter
 205    Kontext
 206    active.SetPage TabFontEffects
 207    kontext "TabFontEffects"
 208      try
 209       Emphasis.Select 1
 210      catch
 211       warnlog "Something wrong in list box Emphasis mark when Asian Language support is on"
 212      endcatch
 213    TabFontEffects.Cancel
 214
 215   '/// turn off "Asian Language support" , Check if list box "Emphasis mark" disappear
 216   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 217      Call CheckAsianLanguageSupport("Off")
 218
 219       Kontext
 220       FormatCharacter
 221       Kontext
 222       active.SetPage TabFontEffects
 223       kontext "TabFontEffects"
 224         try
 225          Emphasis.Select 1
 226          warnlog "Something wrong in list box Emphasis mark when Asian Language support is off"
 227         catch
 228         endcatch
 229       TabFontEffects.Cancel
 230    end if
 231
 232   Call hCloseDocument
 233 endcase
 234
 235 '-------------------------------------------------------------------------
 236
 237 testcase tWriterUIChangesTest5
 238 '/// Check if tabpage "Searching in Japanese" appear or not -- tools/options/language settings/
 239   call  hNewDocument
 240
 241   '/// turn on "Asian Language support" , Check if tabpage "Searching in Japanese" appear
 242   Call CheckAsianLanguageSupport("On")
 243
 244   ToolsOptions
 245   if hToolsOptions("LANGUAGESETTINGS","SEARCHINGINJAPANESE") <> TRUE then
 246      warnlog "Something wrong in tabpage Searching in Japanese when Asian Language support is on"
 247   end if
 248
 249   Kontext "ExtrasOptionenDlg"
 250   ExtrasOptionenDlg.Cancel
 251
 252   '/// turn on "Asian Language support" , Check if tabpage "Searching in Japanese" disappear
 253   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 254      Call CheckAsianLanguageSupport("Off")
 255      ToolsOptions
 256
 257      if hToolsOptions("LANGUAGESETTINGS","SEARCHINGINJAPANESE" , TRUE) = FALSE then
 258         printLog Chr(13) + "Yes, 'Searching Japanese'-page has been disabled after switching Asian Language Support 'off'."
 259      else
 260         warnlog "Something wrong in tabpage Searching in Japanese when Asian Language support is off"
 261      end if
 262
 263      Kontext "ExtrasOptionenDlg"
 264      ExtrasOptionenDlg.Cancel
 265   end if
 266
 267   Call hCloseDocument
 268 endcase
 269
 270 '-------------------------------------------------------------------------
 271
 272 testcase tWriterUIChangesTest6
 273 '/// Check if tabpage "Asian Layout" appear or not -- tools/options/language settings/
 274   call  hNewDocument
 275
 276   '/// turn on "Asian Language support" , Check if tabpage "Asian Layout" appear
 277   Call CheckAsianLanguageSupport("On")
 278
 279   ToolsOptions
 280   if hToolsOptions("LANGUAGESETTINGS","ASIANLAYOUT") <> TRUE then
 281      warnlog "Something wrong in tabpage Asian Layout when Asian Language support is on"
 282   end if
 283
 284   Kontext "ExtrasOptionenDlg"
 285   ExtrasOptionenDlg.Cancel
 286
 287   '/// turn off "Asian Language support" , Check if tabpage "Asian Layout" disappear
 288   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 289      Call CheckAsianLanguageSupport("Off")
 290      ToolsOptions
 291
 292      if hToolsOptions("LANGUAGESETTINGS","ASIANLAYOUT", TRUE) = FALSE then
 293         printLog Chr(13) + "Yes, 'Asian Layout'-page has been disabled after switching 'Asian Language Support' off."
 294      else
 295         warnlog "Something wrong in tabpage Asian Layout when Asian Language support is off"
 296      end if
 297
 298      Kontext "ExtrasOptionenDlg"
 299      ExtrasOptionenDlg.Cancel
 300   end if
 301
 302   Call hCloseDocument
 303 endcase
 304
 305 '-------------------------------------------------------------------------
 306
 307 testcase tWriterUIChangesTest7
 308 '/// Check if menu format/Ruby is active or not
 309   call  hNewDocument
 310
 311   '/// turn on "Asian Language support" , Check if menu format/Ruby is actived
 312   Call CheckAsianLanguageSupport("On")
 313
 314   try
 315     formatRuby
 316     Kontext "RubyDialog"
 317     DialogClose.Click
 318     Sleep 2
 319   catch
 320      warnlog "Something wrong in menu format/Ruby when Asian Language support is on"
 321   endcatch
 322
 323   '/// turn off "Asian Language support" , Check if menu format/Ruby is inactived
 324   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 325      Call CheckAsianLanguageSupport("Off")
 326
 327      try
 328        formatRuby
 329        Kontext "RubyDialog"
 330        DialogClose.Click
 331        Sleep 2
 332        QAErrorlog "#i40913# Something wrong in menu format/Ruby when Asian Language support is off"
 333      catch
 334      endcatch
 335   end if
 336
 337   Call hCloseDocument
 338 endcase
 339
 340 '-------------------------------------------------------------------------
 341
 342 testcase tWriterUIChangesTest8
 343 '/// Check if the following submenus in format/change case is active or not
 344 '/// -  Half width
 345 '/// -  Full width
 346 '/// -  Hiragana
 347 '/// -  Katagana
 348
 349   call  hNewDocument
 350
 351   '/// turn on "Asian Language support" , Check if submenus in format/change case is actived
 352   Call CheckAsianLanguageSupport("On")
 353
 354   try
 355     FormatChangeCaseHalfWidth
 356   catch
 357     warnlog "Something wrong in submenu format/change case -> Half width when Asian Language support is on"
 358   endcatch
 359
 360   try
 361     FormatChangeCaseFullWidth
 362   catch
 363     warnlog "Something wrong in submenu format/change case -> Full width when Asian Language support is on"
 364   endcatch
 365
 366   try
 367     FormatChangeCaseHiragana
 368   catch
 369     warnlog "Something wrong in submenu format/change case -> Hiragana when Asian Language support is on"
 370   endcatch
 371
 372   try
 373     FormatChangeCaseKatagana
 374   catch
 375     warnlog "Something wrong in submenu format/change case -> Katagana when Asian Language support is on"
 376   endcatch
 377
 378   '/// turn off "Asian Language support" , Check if submenus in format/change case is inactived
 379   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 380      Call CheckAsianLanguageSupport("Off")
 381
 382      try
 383        FormatChangeCaseHalfWidth
 384        QAErrorlog "#i43434# Something wrong in submenu format/change case -> Half width when Asian Language support is off"
 385      catch
 386      endcatch
 387
 388      try
 389        FormatChangeCaseFullWidth
 390        QAErrorlog "#i43434# Something wrong in submenu format/change case -> Full width when Asian Language support is off"
 391      catch
 392      endcatch
 393
 394      try
 395        FormatChangeCaseHiragana
 396        QAErrorlog "#i43434# Something wrong in submenu format/change case -> Hiragana when Asian Language support is off"
 397      catch
 398      endcatch
 399
 400      try
 401        FormatChangeCaseKatagana
 402        QAErrorlog "#i43434# Something wrong in submenu format/change case -> Katagana when Asian Language support is off"
 403      catch
 404      endcatch
 405   end if
 406
 407   Call hCloseDocument
 408 endcase
 409
 410 '-------------------------------------------------------------------------
 411
 412 testcase tWriterUIChangesTest9
 413 '/// Check if list box text direction appear or not
 414   call  hNewDocument
 415
 416   '/// turn on "Asian Language support" , Check if list box text direction appear
 417   Call CheckAsianLanguageSupport("On")
 418
 419   FormatPageWriter
 420   Kontext
 421    Active.SetPage TabSeite
 422    Kontext "TabSeite"
 423
 424    try
 425      Textfluss.select 1
 426    catch
 427      warnlog "Something wrong in list box text direction when Asian Language support is on"
 428    endcatch
 429   TabSeite.Cancel
 430
 431   '/// turn off "Asian Language support" , Check if list box text direction disappear
 432   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 433      Call CheckAsianLanguageSupport("Off")
 434
 435      FormatPageWriter
 436      Kontext
 437       Active.SetPage TabSeite
 438       Kontext "TabSeite"
 439
 440       try
 441        Textfluss.select 1
 442        warnlog "Something wrong in list box text direction when Asian Language support is off"
 443       catch
 444       endcatch
 445      TabSeite.Cancel
 446   end if
 447
 448   Call hCloseDocument
 449 endcase
 450
 451 '-------------------------------------------------------------------------
 452
 453 testcase tWriterUIChangesTest10
 454
 455  '/// Check if vertical text box and callout appear or not
 456   call  hNewDocument
 457
 458   '/// turn on "Asian Language support" , Check if vertical text box and callout appear
 459   Call CheckAsianLanguageSupport("On")
 460    sleep(1)
 461
 462    Call hToolbarSelect("DRAWING", true)
 463    try
 464      VerticalText.Click
 465    catch
 466      warnlog "Something wrong in vertical text box when Asian Language support is on"
 467    endcatch
 468    try
 469      VerticalCallout.Click
 470    catch
 471      warnlog "Something wrong in vertical text callout when Asian Language support is on"
 472    endcatch
 473
 474   '/// turn off "Asian Language support" , Check if vertical text box and callout disappear
 475    if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 476        Call CheckAsianLanguageSupport("Off")
 477        Kontext "Drawbar"
 478        try
 479            VerticalText.Click
 480            warnlog "Something wrong in vertical text box when Asian Language support is off"
 481        catch
 482        endcatch
 483        try
 484            VerticalCallout.Click
 485            warnlog "Something wrong in vertical text callout when Asian Language support is off"
 486        catch
 487        endcatch
 488    end if
 489
 490   Call hCloseDocument
 491
 492 endcase
 493
 494 '-------------------------------------------------------------------------
 495
 496 testcase tWriterUIChangesTest11
 497
 498  Dim iHopeNumber1 , iHopeNumber2 as Integer
 499  dim i as integer
 500  dim iCount as integer
 501
 502   iHopeNumber1 = 38
 503   iHopeNumber2 = 19
 504
 505 '/// Check if the number in listbox numbering  is right or not.
 506 '/// [if the number of the listbox numbering is changed, this case should be modified according]
 507
 508   call  hNewDocument
 509
 510   '/// turn on "Asian Language support" , Check if the number in listbox numbering  is right
 511   Call CheckAsianLanguageSupport("On")
 512
 513     FormatNumberingBullets
 514      Kontext
 515      Active.SetPage TabOptionenNumerierung
 516      Kontext "TabOptionenNumerierung"
 517
 518      iCount = Numerierung.GetItemCount
 519      if iCount = iHopeNumber1 then
 520         Numerierung.Select 15
 521         TabOptionenNumerierung.OK
 522
 523         printLog Chr(13) + "Pls. go to the printer to find if you can get a paper"
 524         printLog Chr(13) + "which is printed like '-'.Otherwise , something wrong!"
 525        '/// --Pls. go to the printer to find if you can get a paper which is printed like '-'. Otherwise , something is wrong!
 526
 527         FilePrint
 528         Kontext "Active"
 529         if Active.Exists then
 530           if Active.GetRT = 304 then
 531             Active.Ok
 532             QAErrorLog "No Default-Printer!"
 533             Kontext "DruckenDlg"
 534             Sleep 1
 535             DruckenDlg.Cancel
 536           end if
 537         else
 538           Kontext "DruckenDlg"
 539           Sleep 1
 540           DruckenDlg.OK
 541           Sleep 5
 542         end if
 543      else
 544         for i =1 to iCount
 545             printlog "("+i+"/"+iCount+"): "+Numerierung.getItemText(i)
 546         next i
 547         'Referenze:
 548         TabOptionenNumerierung.Cancel
 549         warnlog "the number of list box numbering is wrong when Asian Language support is on; expected: " + iHopeNumber1 + "; is: " + iCount
 550      end if
 551
 552      'print warning if no printer is available
 553      kontext
 554      if active.exists(5) then
 555          qaErrorlog "print warning: '" + active.getText + "'"
 556          active.ok
 557      endif
 558
 559   '/// turn off "Asian Language support" , Check if the number in listbox numbering  is right
 560   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 561      Call CheckAsianLanguageSupport("Off")
 562
 563        FormatNumberingBullets
 564         Kontext
 565         Active.SetPage TabOptionenNumerierung
 566         Kontext "TabOptionenNumerierung"
 567
 568          iCount = Numerierung.GetItemCount
 569         if iCount <> iHopeNumber2 then
 570         for i =1 to iCount
 571             printlog "("+i+"/"+iCount+"): "+Numerierung.getItemText(i)
 572         next i
 573         'Referenze:
 574         warnlog "the number of list box numbering is wrong when Asian Language support is off; expected: " + iHopeNumber2 + "; is: " + iCount
 575         end if
 576        TabOptionenNumerierung.Cancel
 577   end if
 578
 579   Call hCloseDocument
 580 endcase
 581
 582 '-------------------------------------------------------------------------
 583
 584 testcase tProlongedVowelsTest1
 585 '/// Check if the default setting of "Prolonged vowels (ka-/kaa) will be ACTIVATED.
 586
 587   call  hNewDocument
 588
 589   '/// turn on "Asian Language support" , Check if the default setting of "Prolonged vowels (ka-/kaa) is ACTIVATED.
 590   Call CheckAsianLanguageSupport("On")
 591
 592   ToolsOptions
 593   Call hToolsOptions("LANGUAGESETTINGS","SEARCHINGINJAPANESE")
 594
 595   if ProlongedSoundmarks.IsChecked <> TRUE  then
 596      warnlog "The default setting of 'Prolonged vowels (ka-/kaa)' isn't ACTIVATED."
 597   end if
 598
 599   Kontext "ExtrasOptionenDlg"
 600   ExtrasOptionenDlg.Cancel
 601
 602   Call hCloseDocument
 603
 604 endcase
 605
 606 '-------------------------------------------------------------------------
 607
 608 testcase tCalcUIChangesTest_10
 609
 610 '/// Check if vertical text box and callout appear or not
 611
 612   call  hNewDocument
 613
 614   '/// turn on "Asian Language support" , Check if vertical text box and callout appear
 615   Call CheckAsianLanguageSupport("On")
 616    sleep(1)
 617    Call hToolbarSelect("DRAWING", true)
 618    try
 619      VerticalText.Click
 620    catch
 621      warnlog "Something wrong in vertical text box when Asian Language support is on"
 622    endcatch
 623    try
 624      VerticalCallout.Click
 625    catch
 626      warnlog "Something wrong in vertical text callout when Asian Language support is on"
 627    endcatch
 628
 629   '/// turn off "Asian Language support" , Check if vertical text box and callout disappear
 630   if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 631      Call CheckAsianLanguageSupport("Off")
 632       Kontext "Drawbar"
 633       try
 634         VerticalText.Click
 635         warnlog "Something wrong in vertical text box when Asian Language support is off"
 636       catch
 637       endcatch
 638       try
 639         VerticalCallout.Click
 640         warnlog "Something wrong in vertical text callout when Asian Language support is off"
 641       catch
 642       endcatch
 643    end if
 644
 645   Call hCloseDocument
 646
 647 endcase
 648
 649 '-------------------------------------------------------------------------
 650
 651 testcase tImpressUIChangesTest_10
 652
 653   '/// Check if vertical text box and callout and fit vertical text to frame appear or not
 654   call  hNewDocument
 655
 656   '/// turn on "Asian Language support" , Check if vertical text box appear
 657   Call CheckAsianLanguageSupport("On")
 658    sleep(1)
 659    Kontext "Drawbar"
 660    sleep(1)
 661    try
 662      VerticalText.Click
 663    catch
 664      warnlog "Something wrong in vertical text box when Asian Language support is on"
 665    endcatch
 666
 667   '/// turn off "Asian Language support" , Check if vertical text box disappear
 668    if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 669       Call CheckAsianLanguageSupport("Off")
 670       sleep(1)
 671       Kontext "Drawbar"
 672       try
 673         VerticalText.Click
 674         warnlog "Something wrong in vertical text box when Asian Language support is off"
 675       catch
 676       endcatch
 677    end if
 678
 679   Call hCloseDocument
 680
 681 endcase
 682
 683 '-------------------------------------------------------------------------
 684
 685 testcase tDrawUIChangesTest_10
 686
 687   '/// Check if vertical text box and callout and fit vertical text to frame appear or not
 688   call  hNewDocument
 689
 690   '/// turn on "Asian Language support" , Check if vertical text box appear
 691   Call CheckAsianLanguageSupport("On")
 692    Kontext "Drawbar"
 693    sleep(1)
 694    try
 695      VerticalText.Click
 696    catch
 697      warnlog "Something wrong in vertical text box when Asian Language support is on"
 698    endcatch
 699
 700   '/// turn off "Asian Language support" , Check if vertical text box disappear
 701    if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
 702       Call CheckAsianLanguageSupport("Off")
 703       Kontext "Drawbar"
 704       try
 705         VerticalText.Click
 706         warnlog "Something wrong in vertical text box when Asian Language support is off"
 707       catch
 708       endcatch
 709    end if
 710
 711   Call hCloseDocument
 712
 713 endcase
 714
 715 '-------------------------------------------------------------------------