testautomation/framework/optional/includes/options_asia.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: options_asia.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : functionality test for language/settings
  37 '*
  38 '\*****************************************************************
  39
  40 testcase func_LanguageSettings_Language
  41   Dim bSave as Boolean
  42 '///func_LanguageSettings_Language : functionality test for asian settings ( activated Asian-Support )
  43
  44 '///Open tools / options / Language Settings / Language
  45    ToolsOptions
  46    hToolsOptions ( "LanguageSettings", "Languages" )
  47 '///+save the setting for 'activated' Asian Support
  48    bSave = Aktivieren.IsChecked
  49 '///+check 'activated' Asian support and press OK
  50  Printlog "asian support = TRUE"
  51    if Aktivieren.isEnabled then
  52        Aktivieren.unCheck
  53    else
  54        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
  55        printlog Aktivieren.isEnabled
  56    endif
  57
  58    Kontext "ExtrasOptionenDlg"
  59    ExtrasOptionenDlg.OK
  60    Sleep (3)
  61
  62 '///+check Asian-Support in Writer ( see hTestAsianForWriter )
  63    hTestAsianForWriter    ( TRUE )
  64 '///+check Asian-Support in Calc ( see hTestAsianForCalc )
  65    hTestAsianForCalc      ( TRUE )
  66 '///+check Asian-Support in Impress ( see hTestAsianForImpress )
  67    hTestAsianForImpress   ( TRUE )
  68 '///+check Asian-Support in Draw ( see hTestAsianForDraw )
  69    hTestAsianForDraw      ( TRUE )
  70
  71 '///Open tools / options / Language Settings / Language
  72    ToolsOptions
  73    hToolsOptions ( "LanguageSettings", "Languages" )
  74  Printlog Chr(13) + "asian support = FALSE"
  75 '///+uncheck 'activated' Asian support and press OK
  76    Aktivieren.Uncheck
  77
  78    Kontext "ExtrasOptionenDlg"
  79    ExtrasOptionenDlg.OK
  80    Sleep (3)
  81
  82 '///+check the unabled Asian-Support in Writer ( see hTestAsianForWriter )
  83    hTestAsianForWriter    ( FALSE )
  84 '///+check the unabled Asian-Support in Calc ( see hTestAsianForCalc )
  85    hTestAsianForCalc      ( FALSE )
  86 '///+check the unabled Asian-Support in Impress ( see hTestAsianForImpress )
  87    hTestAsianForImpress   ( FALSE )
  88 '///+check the unabled Asian-Support in Draw ( see hTestAsianForDraw )
  89    hTestAsianForDraw      ( FALSE )
  90
  91 '///Open tools / options / Language Settings / Language
  92    ToolsOptions
  93    hToolsOptions ( "LanguageSettings", "Languages" )
  94  Printlog Chr(13) + "asian support = TRUE"
  95 '///+check 'activated' Asian support and press OK
  96    if Aktivieren.isEnabled then
  97        Aktivieren.unCheck
  98    else
  99        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
 100        printlog Aktivieren.isEnabled
 101    endif
 102
 103    Kontext "ExtrasOptionenDlg"
 104    ExtrasOptionenDlg.OK
 105    Sleep (3)
 106
 107 '///+check Asian-Support in Writer ( see hTestAsianForWriter )
 108    hTestAsianForWriter    ( TRUE )
 109 '///+check Asian-Support in Calc ( see hTestAsianForCalc )
 110    hTestAsianForCalc      ( TRUE )
 111 '///+check Asian-Support in Impress ( see hTestAsianForImpress )
 112    hTestAsianForImpress   ( TRUE )
 113 '///+check Asian-Support in Draw ( see hTestAsianForDraw )
 114    hTestAsianForDraw      ( TRUE )
 115
 116 '///Open tools / options / Language Settings / Language
 117    ToolsOptions
 118    hToolsOptions ( "LanguageSettings", "Languages" )
 119 '///+set 'activated' Asian Support to the saved state and press OK
 120    if bSave = TRUE then Aktivieren.Check else Aktivieren.UnCheck
 121    Kontext "ExtrasOptionenDlg"
 122    ExtrasOptionenDlg.OK
 123    Sleep (3)
 124 endcase
 125
 126 ' *********************************************
 127 ' **
 128 ' **
 129 sub hTestAsianForWriter ( bAsianTrue as Boolean )
 130   Dim iTabCounter as Integer
 131 '///check if all changes are made when Asian support is activated or not ( in Writer )
 132
 133    gApplication = "WRITER"
 134 '///open a new writer doc
 135    hNewDocument
 136  Printlog "- test in writer"
 137
 138 '///open Format / Character
 139    FormatCharacter
 140
 141 '///+- if Asian Support is activated => 6 Tabpages
 142 '///+- if Asian Support is not activated => 5 Tabpages
 143    if bAsianTrue = TRUE then
 144       Kontext
 145       iTabCounter = active.GetPageCount
 146       if iTabCounter <> 6 then Warnlog "There are not 6 pages on the dialog, there are " + iTabCounter + "!"
 147    else
 148       Kontext
 149       iTabCounter = active.GetPageCount
 150       if iTabCounter <> 5 then Warnlog "There are not 5 pages on the dialog, there are " + iTabCounter + "!"
 151    end if
 152
 153 '///select Font-Tabpage
 154  printlog "  - check tab-dialog for FormatCharacter"
 155    Kontext
 156    active.SetPage TabFont
 157    Kontext "TabFont"
 158 '///+- if Asian Support is activated
 159    if bAsianTrue = TRUE then
 160 '///+--  Font west => exists and is visible
 161       if FontWest.Exists then
 162          if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
 163       else
 164          Warnlog "'Western Font' does not exists!"
 165       end if
 166 '///+--  Style west => exists and is visible
 167       if StyleWest.Exists then
 168          if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
 169       else
 170          Warnlog "'Western Style' does not exists!"
 171       end if
 172 '///+--  Size west => exists and is visible
 173       if SizeWest.Exists then
 174          if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
 175       else
 176          Warnlog "'Western Size' does not exists!"
 177       end if
 178 '///+--  Language west => exists and is visible
 179       if LanguageWest.Exists then
 180          if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
 181       else
 182          Warnlog "'Western Language' does not exists=> Bug!"
 183       end if
 184 '///+--  Font east => exists and is visible
 185       if FontEast.Exists then
 186          if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
 187       else
 188          Warnlog "'Eastern Font' does not exists!"
 189       end if
 190 '///+--  Style east => exists and is visible
 191       if StyleEast.Exists then
 192          if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
 193       else
 194          Warnlog "'Eastern Style' does not exists!"
 195       end if
 196 '///+--  Size east => exists and is visible
 197       if SizeEast.Exists then
 198          if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
 199       else
 200          Warnlog "'Eastern Size' does not exists!"
 201       end if
 202 '///+--  Language east => exists and is visible
 203       if LanguageEast.Exists then
 204          if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
 205       else
 206          Warnlog "'Eastern Language' does not exists!"
 207       end if
 208    else
 209 '///+- if Asian Support is not activated
 210 '///+--  Font east => mustn't exists
 211       if FontEast.Exists then
 212          if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
 213       end if
 214 '///+--  Style east => mustn't exists
 215       if StyleEast.Exists then
 216          if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
 217       end if
 218 '///+--  Size east => mustn't exists
 219       if SizeEast.Exists then
 220          if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
 221       end if
 222 '///+--  Language east => mustn't exists
 223       if LanguageEast.Exists then
 224          if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
 225       end if
 226 '///+--  Font west => mustn't exists
 227       if FontWest.Exists then
 228          if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
 229       end if
 230 '///+--  Style west => mustn't exists
 231       if StyleWest.Exists then
 232          if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
 233       end if
 234 '///+--  Size west => mustn't exists
 235       if SizeWest.Exists then
 236          if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
 237       end if
 238 '///+--  Language west => mustn't exists
 239       if LanguageWest.Exists then
 240          if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
 241       end if
 242    end if
 243
 244 '///select FontEffects-Tabpage
 245    Kontext
 246    active.SetPage TabFontEffects
 247    Kontext "TabFontEffects"
 248 '///+- if Asian Support is activated
 249    if bAsianTrue = TRUE then
 250 '///+-- Emphasis Mark => exist and is visible
 251       if Emphasis.Exists then
 252          if Emphasis.IsVisible = FALSE then
 253             Warnlog "'Emphasis mark' is not visible!"
 254          else
 255             Emphasis.Select 2
 256          end if
 257       else
 258          Warnlog "'Emphasis mark' does not exists!"
 259       end if
 260 '///+-- Position for Emphasis Mark => exist and is visible
 261       if Position.Exists then
 262          if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
 263       else
 264          Warnlog "'Position' does not exists!"
 265       end if
 266    else
 267 '///+- if Asian Support is not activated
 268 '///+-- Emphasis Mark mustn't exist
 269       if Emphasis.Exists then
 270          if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
 271       end if
 272 '///+-- Position for Emphasis Mark mustn't exist
 273       if Position.Exists then
 274          if Position.IsVisible then Warnlog "'Position' is visible!"
 275       end if
 276    end if
 277
 278    Kontext
 279    Active.SetPage TabFontPosition
 280
 281 '///select AsianLayout-Tabpage
 282 '///+- if Asian Support is activated
 283 '///+-- try to select the tabpage 'Asian Layout'
 284    if bAsianTrue = TRUE then
 285       try
 286          Kontext
 287          Active.SetPage TabAsianLayout
 288       catch
 289          Warnlog "The tabpage 'Asian Layout' does not exists!"
 290       endcatch
 291    else
 292 '///+- if Asian Support is not activated
 293 '///+-- the tabpage 'Asian Layout' mustn't exist
 294       try
 295          Kontext
 296          Active.SetPage TabAsianLayout
 297          Warnlog "The tabpage 'Asian Layout' exists!"
 298       catch
 299       endcatch
 300    end if
 301
 302    Kontext
 303    active.SetPage TabHyperlinkZeichen
 304
 305    Kontext
 306    active.SetPage TabHintergrund
 307    kontext "TabHintergrund"
 308    TabHintergrund.Close
 309 '///close the Tabpage dialog
 310
 311 '///Ruby Dialog
 312  printlog "  - check ruby-dialog"
 313    if bAsianTrue = TRUE then
 314 '///+- if Asian Support is activated
 315 '///+-- menu item 'Format/Ruby' exists and is enabled
 316       try
 317          FormatRuby
 318          Kontext "RubyDialog"
 319          RubyDialog.Close
 320       catch
 321          Warnlog "Ruby-Dialog can't be opened!"
 322       endcatch
 323    else
 324 '///+- if Asian Support is not activated
 325 '///+-- menu item 'Format/Ruby' mustn't exists and or is disabled
 326       try
 327          FormatRuby
 328          Kontext "RubyDialog"
 329          RubyDialog.Close
 330          Warnlog "Ruby-Dialog can be opened!"
 331       catch
 332       endcatch
 333    end if
 334
 335 '///format/change case
 336  printlog "  - check menu items for format/change case"
 337    if bAsianTrue = TRUE then
 338 '///+- if Asian Support is activated
 339 '///+-- menu item 'Format/ChangeCase/Half width' exists and is enabled
 340       try
 341          FormatChangeCaseHalfWidth
 342          Wait 500
 343       catch
 344          Warnlog "Format/Case/Half width is not active!"
 345       endcatch
 346
 347 '///+-- menu item 'Format/ChangeCase/Full width' exists and is enabled
 348       try
 349          FormatChangeCaseFullWidth
 350          Wait 500
 351       catch
 352          Warnlog "Format/Case/Full width is not active!"
 353       endcatch
 354
 355 '///+-- menu item 'Format/ChangeCase/Hiragana' exists and is enabled
 356       try
 357          FormatChangeCaseHiragana
 358          Wait 500
 359       catch
 360          Warnlog "Format/Case/Hiragana is not active!"
 361       endcatch
 362
 363 '///+-- menu item 'Format/ChangeCase/Katagana' exists and is enabled
 364       try
 365          FormatChangeCaseKatagana
 366          Wait 500
 367       catch
 368          Warnlog "Format/Case/Katagana is not active!"
 369       endcatch
 370    else
 371 '///+- if Asian Support is not activated
 372 '///+-- menu item 'Format/ChangeCase/Half width' mustn't exists and is disabled
 373       try
 374          FormatChangeCaseHalfWidth
 375          Wait 500
 376          Warnlog "Format/Case/Half width is active!"
 377       catch
 378       endcatch
 379
 380 '///+-- menu item 'Format/ChangeCase/full width' mustn't exists and is disabled
 381       try
 382          FormatChangeCaseFullWidth
 383          Wait 500
 384          Warnlog "Format/Case/Full width is active!"
 385       catch
 386       endcatch
 387
 388 '///+-- menu item 'Format/ChangeCase/Hiragana' mustn't exists and is disabled
 389       try
 390          FormatChangeCaseHiragana
 391          Wait 500
 392          Warnlog "Format/Case/Hiragana is active!"
 393       catch
 394       endcatch
 395
 396 '///+-- menu item 'Format/ChangeCase/Katagana' mustn't exists and is disabled
 397       try
 398          FormatChangeCaseKatagana
 399          Wait 500
 400          Warnlog "Format/Case/Katagana is active!"
 401       catch
 402       endcatch
 403    end if
 404
 405 '///Find&Replace-Dialog
 406  printlog "  - check find&replace-dialog"
 407    EditSearchAndReplace
 408    Kontext "SuchenUndErsetzenWriter"
 409 '///+- if Asian Support is activated
 410    if bAsianTrue = TRUE then
 411 '///+-- 'Match half-/full-width forms' exists and is visible
 412       if HalbNormalbreiteFormen.Exists then
 413          if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
 414       else
 415          Warnlog "'Match half-/full-width forms' does not exists!"
 416       end if
 417 '///+-- 'Sounds like (Japanese)' exists and is visible
 418       if AehnlicheSchreibweise.Exists then
 419          if AehnlicheSchreibweise.IsVisible = FALSE then
 420             Warnlog "'Sounds like (Japanese)' is not visible!"
 421          else
 422             AehnlicheSchreibweise.Check
 423          end if
 424       else
 425          Warnlog "'Sounds like (Japanese)' does not exists!"
 426       end if
 427 '///+-- 'Options for 'Sounds like' exists and is visible
 428       if AehnlicheSchreibweiseOptionen.Exists then
 429          if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
 430       else
 431          Warnlog "'Options for 'Sounds like' does not exists!"
 432       end if
 433    else
 434 '///+- if Asian Support is not activated
 435 '///+-- 'Match half-/full-width forms' mustn't exists
 436       if HalbNormalbreiteFormen.Exists then
 437          if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
 438       end if
 439 '///+-- 'Sounds like (Japanese)' mustn't exists
 440       if AehnlicheSchreibweise.Exists then
 441          if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
 442       end if
 443 '///+-- 'Options for 'Sounds like' mustn't exists
 444       if AehnlicheSchreibweiseOptionen.Exists then
 445          if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
 446       end if
 447    end if
 448 '///+close the Find&Replace-Dialog
 449    SuchenUndErsetzenWriter.Close
 450
 451 '///close writer doc
 452    Call hCloseDocument
 453
 454 end sub
 455
 456 ' *********************************************
 457 ' **
 458 ' **
 459 sub hTestAsianForCalc ( bAsianTrue as Boolean )
 460 '///check if all changes are made when Asian support is activated or not ( in Calc )
 461   Dim iTabCounter as Integer
 462
 463  Printlog "- test in calc"
 464    gApplication = "CALC"
 465 '///open a new calc doc
 466    hNewDocument
 467
 468 '///open Format / Cells
 469    FormatCells
 470
 471 '///+- if Asian Support is activated => 8 tabpages
 472 '///+- if Asian Support is not activated => 7 tabpages
 473    if bAsianTrue = TRUE then
 474       Kontext
 475       iTabCounter = active.GetPageCount
 476       if iTabCounter <> 8 then Warnlog "There are not 8 pages on the dialog, there are " + iTabCounter + "!"
 477    else
 478       Kontext
 479       iTabCounter = active.GetPageCount
 480       if iTabCounter <> 7 then Warnlog "There are not 7 pages on the dialog, there are " + iTabCounter + "!"
 481    end if
 482
 483  printlog "  - check tab-dialog for Format/Cell"
 484    Kontext
 485    active.SetPage TabZahlen
 486
 487    Kontext
 488    active.SetPage TabFont
 489    Kontext "TabFont"
 490 '///+- if Asian Support is activated
 491    if bAsianTrue = TRUE then
 492 '///+--  Font west => exists and is visible
 493       if FontWest.Exists then
 494          if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
 495       else
 496          Warnlog "'Western Font' does not exists!"
 497       end if
 498 '///+--  Style west => exists and is visible
 499       if StyleWest.Exists then
 500          if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
 501       else
 502          Warnlog "'Western Style' does not exists!"
 503       end if
 504 '///+--  Size west => exists and is visible
 505       if SizeWest.Exists then
 506          if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
 507       else
 508          Warnlog "'Western Size' does not exists!"
 509       end if
 510 '///+--  Language west => exists and is visible
 511       if LanguageWest.Exists then
 512          if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
 513       else
 514          Warnlog "'Western Language' does not exists=> Bug!"
 515       end if
 516 '///+--  Font east => exists and is visible
 517       if FontEast.Exists then
 518          if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
 519       else
 520          Warnlog "'Eastern Font' does not exists!"
 521       end if
 522 '///+--  Style east => exists and is visible
 523       if StyleEast.Exists then
 524          if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
 525       else
 526          Warnlog "'Eastern Style' does not exists!"
 527       end if
 528 '///+--  Size east => exists and is visible
 529       if SizeEast.Exists then
 530          if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
 531       else
 532          Warnlog "'Eastern Size' does not exists!"
 533       end if
 534 '///+--  Language east => exists and is visible
 535       if LanguageEast.Exists then
 536          if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
 537       else
 538          Warnlog "'Eastern Language' does not exists!"
 539       end if
 540    else
 541 '///+- if Asian Support is not activated
 542 '///+--  Font east => mustn't exists
 543       if FontEast.Exists then
 544          if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
 545       end if
 546 '///+--  Style east => mustn't exists
 547       if StyleEast.Exists then
 548          if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
 549       end if
 550 '///+--  Size east => mustn't exists
 551       if SizeEast.Exists then
 552          if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
 553       end if
 554 '///+--  Language east => mustn't exists
 555       if LanguageEast.Exists then
 556          if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
 557       end if
 558 '///+--  Font west => mustn't exists
 559       if FontWest.Exists then
 560          if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
 561       end if
 562 '///+--  Style west => mustn't exists
 563       if StyleWest.Exists then
 564          if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
 565       end if
 566 '///+--  Size west => mustn't exists
 567       if SizeWest.Exists then
 568          if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
 569       end if
 570 '///+--  Language west => mustn't exists
 571       if LanguageWest.Exists then
 572          if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
 573       end if
 574    end if
 575
 576    Kontext
 577    active.SetPage TabFontEffects
 578    Kontext "TabFontEffects"
 579 '///+- if Asian Support is activated
 580    if bAsianTrue = TRUE then
 581 '///+-- Emphasis Mark => exist and is visible
 582       if Emphasis.Exists then
 583          if Emphasis.IsVisible = FALSE then
 584             Warnlog "'Emphasis mark' is not visible!"
 585          else
 586             Emphasis.Select 2
 587          end if
 588       else
 589          Warnlog "'Emphasis mark' does not exists!"
 590       end if
 591 '///+-- Position for Emphasis Mark => exist and is visible
 592       if Position.Exists then
 593          if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
 594       else
 595          Warnlog "'Position' does not exists!"
 596       end if
 597    else
 598 '///+- if Asian Support is not activated
 599 '///+-- Emphasis Mark mustn't exist
 600       if Emphasis.Exists then
 601          if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
 602       end if
 603 '///+-- Position for Emphasis Mark mustn't exist
 604       if Position.Exists then
 605          if Position.IsVisible then Warnlog "'Position' is visible!"
 606       end if
 607    end if
 608
 609 '///select AsianLayout-Tabpage
 610 '///+- if Asian Support is activated
 611 '///+-- try to select the tabpage 'Asian Layout'
 612    if bAsianTrue = TRUE then
 613       try
 614          Kontext
 615          Active.SetPage TabAsianTypography
 616       catch
 617          Warnlog "The tabpage 'Asian Typography' does not exists!"
 618       endcatch
 619    else
 620 '///+- if Asian Support is not activated
 621 '///+-- the tabpage 'Asian Layout' mustn't exist
 622       try
 623          Kontext
 624          Active.SetPage TabAsianTypography
 625          Warnlog "The tabpage 'Asian Typography' exists!"
 626       catch
 627       endcatch
 628    end if
 629
 630     Kontext
 631     active.SetPage TabAusrichtung
 632
 633     Kontext
 634     active.SetPage TabUmrandung
 635
 636     Kontext
 637     active.SetPage TabHintergrund
 638
 639     Kontext
 640     active.SetPage TabZellschutz
 641     Kontext "TabZellschutz"
 642     TabZellschutz.Cancel
 643 '///close the Tabpage dialog
 644
 645  printlog "  - check find&replace-dialog"
 646    EditSearchAndReplace
 647    Kontext "SuchenUndErsetzenCalc"
 648 '///+- if Asian Support is activated
 649    if bAsianTrue = TRUE then
 650 '///+-- 'Match half-/full-width forms' exists and is visible
 651       if HalbNormalbreiteFormen.Exists then
 652          if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
 653       else
 654          Warnlog "'Match half-/full-width forms' does not exists!"
 655       end if
 656 '///+-- 'Sounds like (Japanese)' exists and is visible
 657       if AehnlicheSchreibweise.Exists then
 658          if AehnlicheSchreibweise.IsVisible = FALSE then
 659             Warnlog "'Sounds like (Japanese)' is not visible!"
 660          else
 661             AehnlicheSchreibweise.Check
 662          end if
 663       else
 664          Warnlog "'Sounds like (Japanese)' does not exists!"
 665       end if
 666 '///+-- 'Options for 'Sounds like' exists and is visible
 667       if AehnlicheSchreibweiseOptionen.Exists then
 668          if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
 669       else
 670          Warnlog "'Options for 'Sounds like' does not exists!"
 671       end if
 672    else
 673 '///+- if Asian Support is not activated
 674 '///+-- 'Match half-/full-width forms' mustn't exists
 675       if HalbNormalbreiteFormen.Exists then
 676          if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
 677       end if
 678 '///+-- 'Sounds like (Japanese)' mustn't exists
 679       if AehnlicheSchreibweise.Exists then
 680          if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
 681       end if
 682 '///+-- 'Options for 'Sounds like' mustn't exists
 683       if AehnlicheSchreibweiseOptionen.Exists then
 684          if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
 685       end if
 686    end if
 687 '///+close the Find&Replace-Dialog
 688    SuchenUndErsetzenCalc.Close
 689
 690 '///close calc doc
 691    Call hCloseDocument
 692
 693 end sub
 694
 695 ' *********************************************
 696 ' **
 697 ' **
 698 sub hTestAsianForImpress ( bAsianTrue as Boolean )
 699 '///check if all changes are made when Asian support is activated or not ( in Impress )
 700   Dim iTabCounter as Integer
 701
 702  Printlog "- test in impress"
 703    gApplication = "IMPRESS"
 704 '///open a new impress doc
 705    hNewDocument
 706
 707 '///Format/Paragraph
 708  printlog "  - check 'asian typography' at Format/Paragraph"
 709    FormatParagraph
 710    Kontext
 711    active.SetPage TabEinzuegeUndAbstaende
 712
 713 '///select AsianLayout-Tabpage
 714 '///+- if Asian Support is activated
 715 '///+-- try to select the tabpage 'Asian Layout'
 716    if bAsianTrue = TRUE then
 717       try
 718          Kontext
 719          Active.SetPage TabAsianTypography
 720       catch
 721          Warnlog "The tabpage 'Asian Typography' does not exists!"
 722       endcatch
 723    else
 724 '///+- if Asian Support is not activated
 725 '///+-- the tabpage 'Asian Layout' mustn't exist
 726       try
 727          Kontext
 728          Active.SetPage TabAsianTypography
 729          Warnlog "The tabpage 'Asian Typography' exists!"
 730       catch
 731       endcatch
 732    end if
 733
 734    Kontext
 735    active.SetPage TabAusrichtungAbsatz
 736
 737    Kontext
 738    active.SetPage TabTabulator
 739    kontext "TabTabulator"
 740    TabTabulator.Cancel
 741 '///close the Tabpage dialog
 742
 743 '///close impress doc
 744    hCloseDocument
 745 end sub
 746
 747 ' *********************************************
 748 ' **
 749 ' **
 750 sub hTestAsianForDraw ( bAsianTrue as Boolean )
 751 '///check if all changes are made when Asian support is activated or not ( in Draw )
 752   Dim iTabCounter as Integer
 753
 754  Printlog "- test in draw"
 755    gApplication = "DRAW"
 756 '///open a new draw doc
 757    hNewDocument
 758
 759 '///Format/Paragraph
 760  printlog "  - check 'asian typography' at Format/Paragraph"
 761    FormatParagraph
 762    Kontext
 763    active.SetPage TabEinzuegeUndAbstaende
 764
 765 '///select AsianLayout-Tabpage
 766 '///+- if Asian Support is activated
 767 '///+-- try to select the tabpage 'Asian Layout'
 768    if bAsianTrue = TRUE then
 769       try
 770          Kontext
 771          Active.SetPage TabAsianTypography
 772       catch
 773          Warnlog "The tabpage 'Asian Typography' does not exists!"
 774       endcatch
 775    else
 776 '///+- if Asian Support is not activated
 777 '///+-- the tabpage 'Asian Layout' mustn't exist
 778       try
 779          Kontext
 780          Active.SetPage TabAsianTypography
 781          Warnlog "The tabpage 'Asian Typography' exists!"
 782       catch
 783       endcatch
 784    end if
 785
 786    Kontext
 787    active.SetPage TabAusrichtungAbsatz
 788
 789    Kontext
 790    active.SetPage TabTabulator
 791    kontext "TabTabulator"
 792    TabTabulator.Cancel
 793 '///close the Tabpage dialog
 794
 795 '///close impress doc
 796    hCloseDocument
 797 end sub
 798