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