testautomation/graphics/optional/includes/global/g_character.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: g_character.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 tFormatCharacter
  41 ' #1 tDialogCharacter
  42 ' #1 tSetFormatCharacter
  43 ' #1 tGetFormatCharacter
  44 '*
  45 '\*******************************************************************
  46 testcase tFormatCharacter
  47
  48    dim sTemp as string
  49    dim iTemp as integer
  50
  51    '/// open application ///'
  52    Call hNewDocument
  53    sleep 1
  54
  55    '/// create a textframe with content ///'
  56    hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
  57    '/// type with keys [strg]+[home] [shift]+[end] to select the inserted text ///'
  58    hTypeKeys "<MOD1 HOME><shift end>"
  59    sleep 1
  60
  61    '/// Format->Character ///'
  62    FormatCharacter
  63       sleep 1
  64       '/// switch to tabpage 'Font' ///'
  65       Kontext
  66       Messagebox.SetPage TabFont
  67       Kontext "TabFont"
  68       sleep 1
  69
  70       '/// switch to tabpage 'Font Effects' ///'
  71       Kontext
  72       Messagebox.SetPage TabFontEffects
  73       kontext "TabFontEffects"
  74       sleep 1
  75
  76       '/// switch to tabpage 'Position' ///'
  77       Kontext
  78       Messagebox.SetPage TabFontPosition
  79       Kontext "TabFontPosition"
  80       sleep 1
  81
  82       '/// close dialog 'Character' with 'OK' ///'
  83       TabFontPosition.OK
  84    '/// close application ///'
  85    Call hCloseDocument
  86
  87 endcase 'tFormatCharacter
  88 '---------------------------------------------------------
  89 testcase tDialogCharacter
  90
  91     Dim i as integer
  92     Dim y as integer
  93     Dim z as integer
  94     Dim CountOfThem as integer
  95     Dim CountOfColors as integer
  96     Dim Xtext as string
  97     Dim Tcolor as string
  98     Dim TestColorString as string
  99     Dim ThisIsMyTextFromControl as string
 100     Dim Asiansupportsetting as string
 101
 102     Printlog "DialogCharacter starts"
 103
 104     Call hNewDocument
 105
 106     sleep 3
 107     ToolsOptions
 108     hToolsOptions ( "LanguageSettings", "Languages" )
 109
 110     if Aktivieren.IsChecked then                                  '/// Check in what state Asian support is ///'
 111        Asiansupportsetting = TRUE
 112     else
 113        Asiansupportsetting = FALSE
 114        Aktivieren.Check                                           '/// Activate if not already activated ///'
 115     end if
 116
 117     Kontext "ExtrasOptionenDlg"
 118     ExtrasOptionenDlg.OK
 119     Sleep (3)
 120
 121     Kontext
 122
 123     Call hTextrahmenErstellen ( "Some text in a box.", 20, 20, 50, 50 )
 124
 125     FormatCharacter
 126     sleep 1
 127     Kontext '"Active"                  ' insert this, perhaps another
 128     Active.SetPage TabFont            ' tabpage is active at open
 129     Kontext "TabFont"
 130     CountOfThem = FontWest.GetItemCount
 131     for y = 1 to CountOfThem
 132     FontWest.Select y
 133     Xtext = FontWest.GetSelText
 134 '    printlog "This FontWest is: " & Xtext
 135     next y
 136
 137     CountOfThem = StyleWest.GetItemCount
 138         for y = 1 to CountOfThem
 139         StyleWest.Select y
 140         Xtext = StyleWest.GetSelText
 141 '        printlog "This StyleWest is: " & Xtext
 142     next y
 143
 144     CountOfThem = SizeWest.GetItemCount
 145     for y = 1 to CountOfThem
 146         SizeWest.Select y
 147         Xtext = SizeWest.GetSelText
 148 '        printlog "This SizeWest is: " & Xtext
 149     next y
 150
 151     CountOfThem = LanguageWest.GetItemCount
 152     for y = 1 to CountOfThem
 153         LanguageWest.Select y
 154         Xtext = LanguageWest.GetSelText
 155 '        printlog "This LanguageWest is: " & Xtext
 156     next y
 157
 158     CountOfThem = FontEast.GetItemCount
 159     for y = 1 to CountOfThem
 160         FontEast.Select y
 161         Xtext = FontEast.GetSelText
 162 '        printlog "This FontEast is: " & Xtext
 163     next y
 164
 165     CountOfThem = StyleEast.GetItemCount
 166     for y = 1 to CountOfThem
 167         StyleEast.Select y
 168         Xtext = StyleEast.GetSelText
 169 '        printlog "This StyleEast is: " & Xtext
 170     next y
 171
 172     CountOfThem = SizeEast.GetItemCount
 173     for y = 1 to CountOfThem
 174         SizeEast.Select y
 175         Xtext = SizeEast.GetSelText
 176 '        printlog "This SizeEast is: " & Xtext
 177     next y
 178
 179     CountOfThem = LanguageEast.GetItemCount
 180     for y = 1 to CountOfThem
 181         LanguageEast.Select y
 182         Xtext = LanguageEast.GetSelText
 183 '        printlog "This LanguageEast is: " & Xtext
 184     next y
 185
 186     Kontext
 187     Active.SetPage TabFontEffects
 188     Kontext "TabFontEffects"
 189     if NOT Outline.IsChecked then
 190         Outline.Check
 191     end if
 192
 193     if NOT Shadow.IsChecked then
 194         Shadow.Check
 195     end if
 196
 197     CountOfThem = Underline.GetItemCount
 198     CountOfColors = Color.GetItemCount
 199
 200     for y = 2 to CountOfThem
 201         Underline.Select y
 202         Xtext = Underline.GetSelText
 203 '        printlog "This Underline is: " & Xtext
 204
 205         for i = 1 to CountOfColors
 206             Color.Select i
 207             TestColorString = Color.GetSelText
 208 '            printlog "This Color is: " & TestColorString
 209         next i
 210     next y
 211
 212     CountOfThem = StrikeThrough.GetItemCount
 213     for y = 2 to CountOfThem
 214         StrikeThrough.Select y
 215         IndividualWords.UnCheck
 216         Xtext = StrikeThrough.GetSelText
 217 '        printlog "The StrikeThrough is: " & Xtext
 218
 219         for i = 1 to CountOfColors
 220             Color.Select i
 221             TestColorString = Color.GetSelText
 222 '            printlog "And the Color is: " & TestColorString
 223         next i
 224     next y
 225
 226     IndividualWords.Check
 227     printlog "Individual Words = On"
 228
 229     CountOfThem = StrikeThrough.GetItemCount
 230     for y = 2 to CountOfThem
 231         StrikeThrough.Select y
 232         Xtext = StrikeThrough.GetSelText
 233 '        printlog "The StrikeThrough is: " & Xtext
 234
 235         for i = 1 to CountOfColors
 236             Color.Select i
 237             TestColorString = Color.GetSelText
 238 '            printlog "And the Color is: " & TestColorString
 239         next i
 240     next y
 241
 242     CountOfThem = Emphasis.GetItemCount
 243     for y = 2 to CountOfThem
 244         Emphasis.Select y
 245         Xtext = Emphasis.GetSelText
 246 '        printlog "The Emphasis is: " & Xtext
 247
 248         for i = 1 to CountOfColors
 249             Color.Select i
 250             TestColorString = Color.GetSelText
 251 '            printlog "And the Color is: " & TestColorString
 252         next i
 253     next y
 254
 255     CountOfThem = Position.GetItemCount
 256     for y = 1 to CountOfThem
 257         Position.Select y
 258         Xtext = Position.GetSelText
 259 '        printlog "The Position is: " & Xtext
 260         for i = 1 to CountOfColors
 261             Color.Select i
 262             TestColorString = Color.GetSelText
 263 '            printlog "And the Color is: " & TestColorString
 264         next i
 265     next y
 266
 267     CountOfThem = FontColor.GetItemCount
 268      for z = 1 to CountOfThem
 269         FontColor.Select z
 270         TestColorString = FontColor.GetSelText
 271 '        printlog "The FontColor is: " & TestColorString
 272      next z
 273
 274     CountOfThem = Relief.GetItemCount
 275     TestColorString = Color.GetSelText
 276     for y = 1 to CountOfThem
 277         Relief.Select y
 278         Xtext = Relief.GetSelText
 279         TestColorString = Color.GetSelText
 280 '        printlog "The Relief is: " & Xtext
 281     next y
 282
 283     Kontext
 284     Active.SetPage TabFontPosition        '/// Changes the active tab to "Position"
 285     Kontext "TabFontPosition"
 286     printlog "TabFontPosition"
 287     SuperScript.Check
 288     Super.Check
 289     RelativeFontSize.ToMin         '/// Testing the "Relative Font Size"-Listbox
 290     ThisIsMyTextFromControl = RelativeFontSize.GetText
 291 '    printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
 292     for y = 1 to 99
 293         RelativeFontSize.TypeKeys "<UP>"
 294         ThisIsMyTextFromControl = RelativeFontSize.GetText
 295 '        printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
 296     next y
 297
 298     Automatic.Check
 299     ScaleWith.ToMin          '/// Testing the "Scale With"-Listbox
 300     ThisIsMyTextFromControl = ScaleWith.GetText
 301     printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
 302     ' ScaleWith.TypeKeys "<TAB>"
 303     for y = 1 to 100
 304         ScaleWith.TypeKeys "<UP>"
 305         ThisIsMyTextFromControl = ScaleWith.GetText
 306 '        printlog "ScaleWith is:" & ThisIsMyTextFromControl
 307     next y
 308
 309     Normal.Check
 310     Subscript.Check
 311
 312     RelativeFontSize.ToMin         '/// Testing the "Reliative Font Size"-Listbox again but this time
 313     ThisIsMyTextFromControl = RelativeFontSize.GetText      '/// with "Subscript" and "Normal" Checked
 314     printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
 315     for y = 1 to 99
 316         RelativeFontSize.TypeKeys "<UP>"
 317         ThisIsMyTextFromControl = RelativeFontSize.GetText
 318 '        printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
 319     next y
 320
 321     Automatic.Check
 322
 323     ScaleWith.ToMin          '/// Testing the "ScaleWith"-Listbox
 324     ThisIsMyTextFromControl = ScaleWith.GetText
 325     printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
 326     for y = 1 to 100
 327         ScaleWith.TypeKeys "<UP>"
 328         ThisIsMyTextFromControl = ScaleWith.GetText
 329 '        printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
 330     next y
 331
 332     ThisIsMyTextFromControl = Spacing.GetSelText      '/// Testing the "Spacing"-ListBox
 333     printlog "The Spacing is first: " & ThisIsMyTextFromControl
 334     for y = 2 to 3
 335         Spacing.Select y
 336         ThisIsMyTextFromControl = Spacing.GetSelText
 337         printlog "The Spacing is: " & ThisIsMyTextFromControl
 338         ThisIsMyTextFromControl = SpacingBy.GetText      '/// Testing the "Spacing By"-Scrollbox
 339 '        printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
 340         SpacingBy.ToMin
 341         for z = 1 to 4
 342             SpacingBy.More
 343             ThisIsMyTextFromControl = SpacingBy.GetText
 344 '            printlog "The SpacingBy Size is: " & ThisIsMyTextFromControl
 345         next z
 346         PairKerning.Check
 347     next y
 348
 349     Kontext "TabFontPosition"
 350     TabFontPosition.Ok
 351
 352     if Asiansupportsetting = FALSE then
 353        kontext
 354        ToolsOptions
 355        hToolsOptions ( "LanguageSettings", "Languages" )
 356        Aktivieren.UnCheck                                    '/// Deactivate if not already deactivated ///'
 357        Printlog "Reseted the Asiansupport-value to it's original state"
 358
 359        Kontext "ExtrasOptionenDlg"
 360        ExtrasOptionenDlg.OK
 361        Sleep (3)
 362
 363 '          ActiveDeactivateAsianSupport = FALSE
 364     end if
 365
 366     Printlog "DialogCharacter Ends"
 367     Call hCloseDocument
 368
 369 endcase 'tDialogCharacter
 370 '--------------------------------------------------------
 371 testcase tSetFormatCharacter
 372
 373     if iSprache = 48 then
 374         qaerrorlog "Test not adapted to polish, 48."
 375         goto endsub
 376     endif
 377     Dim i as integer
 378     dim iWest as integer
 379     dim iAsian as integer
 380     dim iComplex as integer
 381     dim bAsian as boolean
 382     dim bComplex as boolean
 383     dim sLanguage(500) as string
 384     dim sFile as string
 385     dim sTemp as string
 386
 387    if (gApplication = "IMPRESS") then
 388       ExtensionString = "odp"
 389    else
 390       ExtensionString = "odg"
 391    end if
 392
 393     sFile = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
 394     '/// create document, if it doesn't exist, else skip this case :-) ///'
 395     if (dir(sFile)="") then
 396         '/// open application ///'
 397         Call  hNewDocument
 398
 399         '/// activate all languages in options ///'
 400         '///+ Tools->Options ///'
 401         ToolsOptions
 402         '///+ select tabpage 'Languages' from set 'Language Settings' ///'
 403         hToolsOptions("LANGUAGESETTINGS","Languages")
 404         kontext "TabSprachen"
 405         '///+ save state and check checkbox 'Asian languages support' ///'
 406         '/// if the language is Asian, skip this part ///'
 407         printlog "iSprache = " + iSprache
 408         if bAsianLan = FALSE then
 409            bAsian = Aktivieren.isEnabled
 410            Aktivieren.check
 411         endif
 412         '///+ save state and  check checkbox 'Complex text layout (CTL) support' ///'
 413         bComplex = ComplexScriptEnabled.isEnabled
 414         ComplexScriptEnabled.check
 415         '///+ close dialog 'Options' with OK ///'
 416         Kontext "ExtrasOptionenDlg"
 417         ExtrasOptionenDlg.OK
 418
 419         '/// get count of languages ///'
 420         '///+ Format->Character ///'
 421         FormatCharacter
 422         sleep 1
 423         Kontext
 424         '///+ switch to tabpage 'Font' ///'
 425         Messagebox.SetPage TabFont
 426         kontext "TabFont"
 427         sleep 1
 428         '///+ get count of languages for Western/Asian/CTL fonts ///'
 429         iWest    = LanguageWest.getItemCount
 430         iAsian   = LanguageEast.getItemCount
 431         iComplex = LanguageCTL.getItemCount
 432         if bAsianLan = True then
 433            if (iWest <> 144) then
 434               Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
 435            else
 436               Printlog "Western text font languages count: " + iWest
 437            endif
 438            if (iAsian <> 8) then
 439               Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
 440            else
 441               Printlog "Asian text font languages count  : " + iAsian
 442            endif
 443            if (iComplex <> 50) then
 444               Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
 445            else
 446               Printlog "CTL font languages count         : " + iComplex
 447            endif
 448         else
 449            if (iWest <> 113) then
 450               Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
 451            else
 452               Printlog "Western text font languages count: " + iWest
 453            endif
 454            if (iAsian <> 9) then
 455               Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
 456            else
 457               Printlog "Asian text font languages count  : " + iAsian
 458            endif
 459            if (iComplex <> 30) then
 460               Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
 461            else
 462               Printlog "CTL font languages count         : " + iComplex
 463            endif
 464         endif
 465         '///+ close dialog 'Character' with OK ///'
 466         TabFont.Ok
 467
 468         WL_SD_TextEinfuegenDraw
 469         gMouseMove ( 1, 1, 100, 100 )
 470
 471         '///+ print the language counts into the first line of the document ///'
 472         hTypeKeys(" "+iWest+" "+iAsian+" "+iComplex+"<return>")
 473
 474
 475         '/// set all languages to '[None]' ///'
 476         '///+ Format->Character ///'
 477         FormatCharacter
 478         kontext "TabFont"
 479         '///+ select '[None]' (should be the first entry in every listbox) ///'
 480         LanguageWest.select 1
 481         LanguageEast.select 1
 482         LanguageCTL.select 1
 483         '///+ close dialog 'Character' with OK ///'
 484         TabFont.Ok
 485
 486         '/// print one line with language formated text for every language ///'
 487         for i = 1 to iWest
 488             '///+ Format->Character ///'
 489             FormatCharacter
 490                 kontext "TabFont"
 491                 '///+ select the next language ///'
 492                 LanguageWest.select i
 493                 sTemp = LanguageWest.getItemText (i)
 494                 ListAppend(sLanguage(), sTemp)
 495                 '///+ close dialog 'Character' with OK ///'
 496             TabFont.Ok
 497             '///+ type [return][number of language in list][Tab][Language name][Tab] ///'
 498             hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
 499         next i
 500
 501         FormatCharacter
 502         kontext "TabFont"
 503         LanguageWest.select 1
 504         LanguageEast.select 1
 505         languageCTL.select 1
 506         TabFont.Ok
 507
 508         for i = 1 to iAsian
 509             FormatCharacter
 510                 Kontext
 511                 kontext "TabFont"
 512                 LanguageEast.select i
 513                 sTemp = LanguageEast.getItemText (i)
 514                 ListAppend(sLanguage(), sTemp)
 515             TabFont.Ok
 516             hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
 517         next i
 518
 519         FormatCharacter
 520         kontext "TabFont"
 521         LanguageWest.select 1
 522         LanguageEast.select 1
 523         languageCTL.select 1
 524         TabFont.Ok
 525
 526         for i = 1 to iComplex
 527             FormatCharacter
 528                 Kontext
 529                 kontext "TabFont"
 530                 LanguageCTL.select i
 531                 sTemp = LanguageCTL.getItemText (i)
 532                 ListAppend(sLanguage(), sTemp)
 533             TabFont.Ok
 534             hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
 535         next i
 536
 537         '/// save the created document & the languages list if they don't exists ///'
 538         hFileSaveAs (sFile)
 539         qaErrorLog "Created file. Please check it and then commit it! " + sTemp
 540         sTemp = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + ".txt")
 541         if (dir(sTemp)="") then
 542             ListWrite(sLanguage(), sTemp,"utf8")
 543         endif
 544
 545         '/// restore the options ///'
 546         '///+ Tools->Options ///'
 547         ToolsOptions
 548         '///+ select tabpage 'Languages' from set 'Language Settings' ///'
 549         hToolsOptions("LANGUAGESETTINGS","Languages")
 550         kontext "TabSprachen"
 551
 552         '///+ restore state of checkbox 'Asian languages support' ///'
 553         '/// if the language is Asian, skip this part ///'
 554         if bAsianLan = FALSE then
 555            if (bAsian <> TRUE) then
 556                Aktivieren.UNcheck
 557            endif
 558         endif
 559         '///+ restore state of checkbox 'Complex text layout (CTL) support' ///'
 560         if (bComplex <> TRUE) then
 561             ComplexScriptEnabled.UNcheck
 562         endif
 563         '///+ close dialog 'Options' with OK ///'
 564         Kontext "ExtrasOptionenDlg"
 565         ExtrasOptionenDlg.OK
 566
 567         '/// close application ///'
 568         Call hCloseDocument
 569     endif
 570
 571 endcase 'tSetFormatCharacter
 572 '--------------------------------------------------------
 573 testcase tGetFormatCharacter
 574
 575     qaerrorlog "tGetFormatCharacter outcommented due to too many qaerrorlogs"
 576     goto endsub
 577     Dim i as integer
 578     dim iWest(2) as integer
 579     dim iAsian(2) as integer
 580     dim iComplex(2) as integer
 581     dim bAsian as boolean
 582     dim bComplex as boolean
 583     dim sLanguage(500) as string
 584     dim sLanguageR(500) as string
 585     dim sTemp as string
 586     dim iTemp as integer
 587     dim sSpellBooks(30) as string
 588
 589     if (gApplication = "IMPRESS") then
 590        ExtensionString = "odp"
 591     else
 592        ExtensionString = "odg"
 593     end if
 594
 595     '/// open the english document with all languages ///'
 596     hDateiOeffnen (convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
 597     ListRead(sLanguageR(), convertPath(gTesttoolpath + "graphics\required\input\spellb_1.txt"),"utf8")
 598
 599     '/// activate all languages in options ///'
 600     '///+ Tools->Options ///'
 601     ToolsOptions
 602     '///+ select tabpage 'Languages' from set 'Language Settings' ///'
 603     hToolsOptions("LANGUAGESETTINGS","Languages")
 604     kontext "TabSprachen"
 605     '///+ save state and check checkbox 'Asian languages support' ///'
 606     bAsian = Aktivieren.isEnabled
 607     Aktivieren.check
 608     '///+ save state and  check checkbox 'Complex text layout (CTL) support' ///'
 609     bComplex = ComplexScriptEnabled.isEnabled
 610     ComplexScriptEnabled.check
 611     '///+ close dialog 'Options' with OK ///'
 612     Kontext "ExtrasOptionenDlg"
 613     ExtrasOptionenDlg.OK
 614     sleep (1)
 615     '/// get count of languages ///'
 616     hTypeKeys("<tab><f2>")
 617     '///+ first how many are in the reference document (printed in the first line)///'
 618     hTypeKeys("<mod1 home><shift end>")
 619     sleep (1)
 620     editcopy
 621     sTemp = getClipboard
 622     iTemp = inStr(2,sTemp, " ")
 623     iWest(1) = mid(sTemp, 2, iTemp-2)
 624     i = inStr(iTemp+1,sTemp, " ")
 625     iAsian(1) = mid(sTemp, iTemp+1, iTemp-i)
 626     iComplex(1) = right(sTemp, Len(sTemp) - i)
 627     sleep (1)
 628     '///+ Format->Character ///'
 629     FormatCharacter
 630     sleep 1
 631     Kontext
 632     '///+ switch to tabpage 'Font' ///'
 633     Messagebox.SetPage TabFont
 634     kontext "TabFont"
 635     sleep 1
 636     '///+ get count of languages for Western/Asian/CTL fonts ///'
 637     iWest(2)    = LanguageWest.getItemCount
 638     iAsian(2)   = LanguageEast.getItemCount
 639     iComplex(2) = LanguageCTL.getItemCount
 640     if (iWest(2) <> iWest(1)) then
 641         Warnlog "Western text font languages count wrong; expected: '" + iWest(1) + "' is: '" + iWest(2) + "'"
 642     else
 643         Printlog "Western text font languages count: " + iWest(2)
 644     endif
 645     if (iAsian(2) <> iAsian(1)) then
 646         Warnlog "Asian text font languages count wrong; expected: '" + iAsian(1) + "' is: '" + iAsian(2) + "'"
 647     else
 648         Printlog "Asian text font languages count  : " + iAsian(2)
 649     endif
 650     if (iComplex(2) <> iComplex(1)) then
 651         Warnlog "CTL font languages count wrong; expected: '" + iComplex(1) + "' is: '" + iComplex(2) + "'"
 652     else
 653         Printlog "CTL font languages count         : " + iComplex(2)
 654     endif
 655     '///+ close dialog 'Character' with OK ///'
 656     TabFont.Ok
 657
 658     '/// write the language for every line in the current language ///'
 659     hTypeKeys("<mod1 home><down><home>")
 660     for i = 1 to iWest(2)
 661         FormatCharacter
 662             Kontext
 663             kontext "TabFont"
 664             iTemp = LanguageWest.getSelIndex
 665             sTemp = LanguageWest.getSelText
 666             ListAppend(sLanguage(), sTemp)
 667         TabFont.Ok
 668         '///+ type [end][number of language in list][Tab][Language name][down][home] ///'
 669         hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
 670     next i
 671
 672     for i = 1 to iAsian(2)
 673         FormatCharacter
 674             Kontext
 675             kontext "TabFont"
 676             iTemp = LanguageEast.getSelIndex
 677             sTemp = LanguageEast.getSelText
 678             ListAppend(sLanguage(), sTemp)
 679         TabFont.Ok
 680         hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
 681     next i
 682
 683     for i = 1 to iComplex(2)
 684         FormatCharacter
 685             Kontext
 686             kontext "TabFont"
 687             iTemp = LanguageCTL.getSelIndex
 688             sTemp = LanguageCTL.getSelText
 689             ListAppend(sLanguage(), sTemp)
 690         TabFont.Ok
 691         hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
 692     next i
 693
 694     '/// save the created document & the languages list ///'
 695     sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache)
 696     hFileSaveAsKill (sTemp)
 697     sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache + ".txt")
 698     if (dir(sTemp)<>"") then
 699         kill (sTemp)
 700     endif
 701     ListWrite(sLanguage(), sTemp,"utf8")
 702
 703     for i = 1 to ListCount(sLanguageR())
 704         select case i
 705             case 1:printlog " * Western text font languages"
 706             case iWest(2)+1:printlog " * Asian text font languages"
 707             case iWest(2)+iAsian(2)+1:printlog " * CTL font languages"
 708         end select
 709         if (sLanguageR(i) <> sLanguage(i)) then
 710             if (instr(sLanguage(i), "[") > 0) then ' [None] - Entry ?
 711                 qaErrorlog "#i15863# - " + i + " '" + sLanguageR(i) + "' : '" + sLanguage(i) + "'"
 712             else
 713                 qaErrorlog "#112362# - " + i + " '" + sLanguageR(i) + "' : '" + sLanguage(i) + "'"
 714             endif
 715         endif
 716     next i
 717
 718     '/// close application ///'
 719     Call hCloseDocument
 720 endcase 'tGetFormatCharacter