testautomation/graphics/tools/id_tools_2.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: id_tools_2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:43:16 $
  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 : some tools (Subs)
  37 '*
  38 '\******************************************************************************
  39
  40 'Subs:
  41 ' #1 sFileExport
  42 ' #1 callAutocorrectOptions
  43 ' #1 sCheckCheck
  44 ' #1 sCheckUnderlined
  45 ' #1 sCheckSupperscript
  46 ' #1 sCheckDash
  47 ' #1 sPrintCheckOrder
  48 ' #1 writertest
  49 ' #1 calctest
  50 ' #1 tClipboardFromDrawTest
  51 ' #1 Select_Copy
  52 ' #1 SaveMeasurementSetFirst
  53 ' #1 MeasurementSetFirst
  54 ' #1 ResetMeasurement
  55 ' #1 SetKontextApplication
  56 ' #1 hSetSpellHypLanguage
  57 ' #1 hTBOtypeInDoc
  58 ' #1 Position_Vergleichen
  59 ' #1 g_demoguide
  60 ' #1 sFormatTextDrawAnimation
  61 ' #1 mouseclickinpresentation
  62 ' #1 im_002_
  63 ' #1 im_003_
  64 ' #1 im_004_
  65 ' #1 im_005_
  66 ' #1 im_007_
  67 ' #1 im_011_
  68 ' #1 D_002_
  69 ' #1 D_003_
  70 ' #1 D_005_
  71 ' #1 d_007
  72 ' #1 hOpenGallery
  73 ' #1 LoadGraphic
  74 ' #1 CheckGraphic
  75 ' #1 GetOnlyGraphics
  76 ' #1 tSettingsToCM
  77 ' #1 tResetSettings
  78 ' #1 id_001
  79 ' #1 id_002
  80 ' #1 id_003
  81 ' #1 id_004
  82 ' #1 id_005
  83 ' #1 id_006
  84 ' #1 id_007
  85 ' #1 id_008
  86 ' #1 id_009
  87 ' #1 id_011
  88 ' #1 hWalkTheStyles
  89
  90 '\*****************************************************************
  91
  92 sub sFileExport
  93
  94     printlog " just exporting is done in qatesttool/framework/first test: 'tGraphicExport' but there is no loading, "
  95     printlog "+ of the created files and the items on the dialogs are not checked completely "
  96     Dim ExZaehler as Integer
  97     Dim ExPath as String
  98     Dim Liste( 50 ) as String
  99
 100     if (gApplication = "IMPRESS") then
 101       ExtensionString = "odp"
 102     else
 103       ExtensionString = "odg"
 104     end if
 105
 106     printlog "- all files are saved in [StarOfficePath]/user/work/[application]/export "
 107     ExPath = ConvertPath (gOfficePath + "user\work\" + gApplication + "\export\" )
 108     OutputGrafikTBO = ExPath & "expo"
 109     Printlog "Create the export-dir for the graphics (  + ExPath + )"
 110     try
 111       app.mkDir ( ExPath )
 112       ExZaehler = GetFileList ( ExPath , "*.*" , Liste() )
 113       if ExZaehler <> 0 then
 114          Printlog "The export-dir exists. The test want to delete all Files ( " + ExZaehler + " )!"
 115          if KillFileList ( Liste() ) = FALSE then
 116             Warnlog "Not all files can be deleted. " + ListCount ( Liste() ) + " files exists!"
 117          end if
 118       end if
 119     catch
 120       Warnlog "An error at creating the export-dir, the test ends!"
 121     exit sub
 122     endcatch
 123
 124     printlog "+ open the test document qatesttool/graphics/required/input/graphicexport.od ? ] "
 125
 126 end sub
 127
 128 '-------------------------------------------------------------------------
 129 sub callAutocorrectOptions
 130
 131     ToolsAutocorrect
 132     Kontext
 133     active.SetPage TabOptionen
 134     Kontext "TabOptionen"
 135 end sub
 136
 137 '-------------------------------------------------------------------------------
 138 sub sCheckCheck (i, Pruefung$, bEnabled)
 139
 140     hTextrahmenErstellen  (Pruefung$,20,20,60,40)
 141
 142     select case i
 143 ' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA
 144         case 5: bEnabled 'sCheckUnderlined (bEnabled)
 145         case 6: sCheckSupperscript (bEnabled)
 146         case 8: sCheckDash (bEnabled)
 147         case else:
 148             hTypeKeys "<Home><Shift End>"
 149             EditCopy
 150             if (GetClipboardText = Pruefung$) then ' not replaced
 151                 if bEnabled then  ' not as expected
 152                     warnlog "-    replacement failed"
 153                 endif
 154             else     ' replaced
 155                 if not bEnabled then  ' not as expected
 156                     warnlog "-    replacement failed : '" + Pruefung$ + "' - '" + GetClipboardText + "'"
 157                 endif
 158             endif
 159     end select
 160
 161     hTypeKeys "<Home><Shift End><Delete>"
 162 end sub
 163
 164 '-------------------------------------------------------------------------------
 165 sub sCheckUnderlined (bEnabled)
 166
 167     dim btemp as boolean
 168     hTypeKeys "<End><Left><Shift Left>"
 169     try
 170         ContextOpenHyperlink
 171         btemp = true
 172     catch
 173         btemp = false
 174     endcatch
 175     if (bEnabled <> btemp) then
 176         warnlog "-    replacement failed"
 177     endif
 178     kontext
 179     if active.exists(5) then
 180         active.ok
 181     endif
 182 end sub
 183
 184 '-------------------------------------------------------------------------------
 185 sub sCheckSupperscript (bEnabled)
 186
 187     hTypeKeys "<Home><Right><Right>"
 188     FormatCharacter
 189     Kontext
 190     Active.SetPage TabFontPosition
 191     Kontext "TabFontPosition"
 192     if (bEnabled <> Superscript.IsChecked) then
 193         warnlog "-    replacement failed"
 194     endif
 195     TabFontPosition.OK
 196 end sub
 197
 198 '-------------------------------------------------------------------------------
 199 sub sCheckDash (bEnabled)
 200
 201     ' inserted is 45
 202     ' en dash is 8211 / alt + 0150
 203     ' em dash is 8212 / alt + 0151 ' which doen't work atm
 204     dim sTemp as string
 205     hTypeKeys "<End><Left><Left><Left><Left><Left><Left><Left><Left><Shift Left>"
 206     EditCopy
 207     sTemp = GetClipboard
 208     if ((asc(sTemp) <> 45) <> bEnabled) then
 209         warnlog "-    replacement failed : " + bEnabled + " : " + asc(sTemp)
 210     endif
 211 end sub
 212
 213 '-------------------------------------------------------------------------------
 214 sub sPrintCheckOrder (optional bcheck as boolean)
 215
 216    dim sTemp as string
 217    dim sTemp2 as string
 218    dim i as integer
 219    printlog " deselect all "
 220    Printlog "-----------------------------------"
 221    printlog " select in default order and take Position X in mind ;-) "
 222    hTypeKeys ("<escape><escape>")
 223    for i = 1 to 3
 224       hTypeKeys ("<TAB>")
 225       sTemp = fGetPositionX()
 226       Printlog " - " + i +": " + sTemp
 227       if ((isMissing(bcheck) <> FALSE) AND (bcheck = TRUE)) then
 228          Select Case i
 229             Case 1:  sTemp2 = Ueber_Text_1
 230             Case 2:  sTemp2 = Ueber_Text_2
 231             Case 3:  sTemp2 = Ueber_Text_3
 232          End Select
 233          if sTemp <> sTemp2 then
 234             warnlog " + " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
 235          end if
 236       endif
 237    next i
 238    hTypeKeys ("<escape><escape>")
 239    Printlog "-----------------------------------"
 240 end sub
 241
 242 '--------------------------- Tests for Writer ----------------------------------
 243 sub writertest
 244
 245    try
 246       call Make_And_Check_Formatted_Text_Line_From_Application
 247    catch
 248       warnlog "Something went wrong with testing writertest"
 249    endcatch
 250
 251    try
 252       call Make_Rectangle_From_Application
 253       call Full_test_Draw
 254       call Full_test_Impress
 255       call Full_test_Writer
 256       call Full_test_Calc
 257    catch
 258       warnlog "something wrong with testing writertest"
 259    endcatch
 260 end sub ' big one
 261
 262 '---------------------------- Tests for Calc -----------------------------------
 263 sub calctest
 264
 265 try
 266    call Make_Rectangle_From_Application
 267    call Full_test_Draw
 268    call Full_test_Impress
 269    call Full_test_Writer
 270    call Full_test_Calc
 271 catch
 272    warnlog "something wrong with calctest"
 273 endcatch
 274    printlog "currently no specific tests from Calc"
 275 end sub
 276
 277 '-------------------------------------------------------------------------------
 278 sub tClipboardFromDrawTest
 279
 280     EnableQAErrors = false
 281     FromApp2 = gApplication
 282     printlog "gApplication = " + gApplication
 283
 284     if gApplication = "WRITER" then
 285        call writertest
 286        exit sub
 287     end if
 288
 289     if gApplication = "CALC" then
 290        call calctest
 291        exit sub
 292     end if
 293 end sub
 294
 295 '-------------------------------------------------------------------------------
 296 sub Select_Copy
 297
 298    printlog " Select and copy "
 299    Sleep 10
 300    if gApplication = "DRAW" then
 301       EditSelectAll
 302       printlog "   We just ran EditSelectAll - Application is Draw"
 303    end if
 304    if gApplication = "IMPRESS" then
 305       EditSelectAll
 306       printlog "   We just ran EditSelectAll - Application is Impress"
 307    end if
 308    Sleep 2
 309    EditCopy
 310    Sleep 2
 311    printlog "   Copied object"
 312 end Sub
 313
 314 '-------------------------------------------------------------------------------
 315 sub SaveMeasurementSetFirst
 316
 317     if (gApplication = "DRAW") then
 318        sApplication = "DRAWING"
 319     elseIf (gApplication = "IMPRESS") then
 320        sApplication = "IMPRESS"
 321     elseIf (gApplication = "WRITER") then
 322        sApplication = "WRITER"
 323     elseIf (gApplication = "CALC") then
 324        sApplication = "CALC"
 325     endif
 326     printlog " - save states "
 327     ToolsOptions
 328      hToolsOptions (sApplication,"General")
 329      ReferenceOld = Masseinheit.GetSelText
 330      Masseinheit.TypeKeys= "<HOME>" '(first entry)
 331      ReferenceNew = Masseinheit.GetSelText
 332      Kontext "ExtrasOptionenDlg"
 333     ExtrasOptionenDlg.OK
 334 end Sub
 335
 336 '-------------------------------------------------------------------------------
 337 sub MeasurementSetFirst
 338
 339     dim f as integer
 340     if (gApplication = "DRAW") then
 341        sApplication = "DRAWING"
 342     elseIf (gApplication = "IMPRESS") then
 343        sApplication = "IMPRESS"
 344     elseIf (gApplication = "WRITER") then
 345        sApplication = "WRITER"
 346     elseIf (gApplication = "CALC") then
 347        sApplication = "CALC"
 348     endif
 349     ToolsOptions
 350      hToolsOptions (sApplication,"General")
 351      if Masseinheit.GetSelText <> ReferenceNew then 'find the right one.
 352         Masseinheit.TypeKeys "<HOME>"
 353         for f = 1 to Masseinheit.GetItemCount
 354             if Masseinheit.GetSelText = ReferenceNew then
 355                i = Masseinheit.GetItemCount 'find the right one.
 356             else
 357                Masseinheit.TypeKeys "<DOWN>"
 358             endif
 359         next f
 360      endif
 361      Kontext "ExtrasOptionenDlg"
 362     ExtrasOptionenDlg.OK
 363 end Sub
 364
 365 '-------------------------------------------------------------------------------
 366 sub ResetMeasurement
 367
 368     dim f as integer
 369     if (gApplication = "DRAW") then
 370        sApplication = "DRAWING"
 371     elseIf (gApplication = "IMPRESS") then
 372        sApplication = "IMPRESS"
 373     elseIf (gApplication = "WRITER") then
 374        sApplication = "WRITER"
 375     elseIf (gApplication = "CALC") then
 376        sApplication = "CALC"
 377     endif
 378     printlog " - Reset states back to what they were before "
 379     ToolsOptions
 380      hToolsOptions (sApplication,"General")
 381      if Masseinheit.GetSelText <> ReferenceOld then 'find the right one.
 382         Masseinheit.TypeKeys "<HOME>"
 383         for f = 1 to Masseinheit.GetItemCount
 384             if Masseinheit.GetSelText = ReferenceOld then
 385                i = Masseinheit.GetItemCount 'find the right one.
 386             else
 387                Masseinheit.TypeKeys "<DOWN>"
 388             endif
 389         next f
 390      endif
 391      Kontext "ExtrasOptionenDlg"
 392     ExtrasOptionenDlg.OK
 393 end Sub
 394
 395 '-------------------------------------------------------------------------------
 396 sub SetKontextApplication
 397     sleep 1
 398     Select Case gApplication
 399       Case "DRAW"
 400          Kontext "DocumentDraw"
 401     'Printlog "gApplication / Kontext is now: DocumentDraw"
 402          sleep 1
 403       Case "IMPRESS"
 404          Kontext "DocumentImpress"
 405     'Printlog "gApplication / Kontext is now is now: DocumentImpress"
 406          sleep 1
 407       Case "WRITER"
 408          Kontext "DocumentWriter"
 409     'Printlog "gApplication / Kontext is now is now: DocumentWriter"
 410          sleep 1
 411       Case "CALC"
 412          Kontext "DocumentCalc"
 413     'Printlog "gApplication / Kontext is now is now: DocumentCalc"
 414          sleep 1
 415     end select
 416    sleep 1
 417 end sub
 418
 419 '-------------------------------------------------------------------------------
 420
 421 sub hSetSpellHypLanguage
 422 printlog " select a language with a dictionary, used for spellcheck, thesaurus and hyphenation "
 423     dim sTrieit as string
 424
 425     ' only for asian languages i need to set the default language for the current document  to 'English(USA)'
 426     ' in all other languages the default has a dictionary
 427     if (bAsianLan or (iSprache=55)) then
 428         printlog " Tools->Options "
 429         ToolsOptions
 430         printlog " select from section 'Language Settings' the item 'Languages' "
 431         hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
 432         printlog " check checkbox 'For the current document only' in section 'Default languages for document' "
 433         AktuellesDokument.Check
 434         printlog " If there is no Language defined in 'locale-file' (in same directory as this file is) be smart and select one that supports spellchecking "
 435         if (glLocale(4) = "") then
 436             Kontext "ExtrasOptionenDlg"
 437             printlog "+ cancel dialog 'Options - ' "
 438             ExtrasOptionenDlg.Cancel
 439             printlog "+ call the smart subroutine that tells you a valid language with an dictionary "
 440             sTrieit = hFindSpellHypLanguage
 441             printlog "+ Tools->Options "
 442             ToolsOptions
 443             printlog "+ select from section 'Language Settings' the item 'Languages' "
 444             hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
 445             printlog "+ check checkbox 'For the current document only' in section 'Default languages for document' "
 446             AktuellesDokument.Check
 447             printlog " if smart routine found something, select it in section 'Default languages for document' listbox 'Western' "
 448             printlog "+ (manual users just select a language that has an icon in front of it ('ABC' with a checkmark) "
 449             if (sTrieit <> "") then
 450                 try
 451                     Westlich.Select sTrieit
 452                 catch
 453                     Asiatisch.Select sTrieit
 454                 endcatch
 455             else
 456                 qaErrorLog "Sorry no spellbook found: id_tools.inc::hSetSpellHypLanguage"
 457             endif
 458         else
 459         printlog " if a Language is already defined in the textfile "
 460             printlog glLocale (4)
 461             try
 462                 printlog " select it in section 'Default languages for document' listbox 'Western' "
 463                 printlog "+ (manual users just select a language that has an icon in front of it ('ABC' with a checkmark) "
 464                 try
 465                     Westlich.Select glLocale (4)
 466                 catch
 467                     Asiatisch.Select glLocale (4)
 468                 endcatch
 469             catch
 470                 warnlog "this language is not available: '" + glLocale (4) + "'"
 471                 dim qaw as string
 472                 qaw = glLocale (4)
 473             endcatch
 474         endif
 475             try
 476                 printlog "selected: '" + Westlich.GetSelText + "'"
 477             catch
 478                 printlog "selected: '" + Asiatisch.GetSelText + "'"
 479             endcatch
 480         Kontext "ExtrasOptionenDlg"
 481         printlog "+ close dialog 'Options - ' with OK "
 482         ExtrasOptionenDlg.OK
 483     endif
 484 end sub
 485
 486 '-------------------------------------------------------------------------------
 487 sub hTBOtypeInDoc
 488
 489    hRechteckErstellen ( 10, 10, 30, 40 )
 490 end sub
 491
 492 '-------------------------------------------------------------------------------
 493 sub Position_Vergleichen (Ueber_Text_1 as string,Ueber_Text_2 as string,Ueber_Text_3 as string)   ' Ueber_Text_1 : X-Position des Objektes
 494
 495     dim Dummy_Text as string
 496     '------------------------------------------------------------  ' Ueber_Text_2 : printlog, bei richtigem Objekt
 497     'gMouseClick 99,99
 498     sleep 1
 499     gMouseClick 50,50
 500     ContextPositionAndSize
 501     kontext
 502     active.SetPage TabPositionAndSize
 503     kontext "TabPositionAndSize"
 504     Dummy_Text = PositionX.GetText
 505     TabPositionAndSize.OK
 506     sleep 1
 507     if TabPositionAndSize.exists (5) then printlog "Yo!"
 508     printlog "What?"
 509     if Dummy_Text = Ueber_Text_1 then
 510       Printlog Ueber_Text_2
 511     else
 512       warnlog Ueber_Text_3,":  is: ", Dummy_Text,"; should be: ", Ueber_Text_1
 513     end if
 514 end sub
 515
 516 '-------------------------------------------------------------------------------
 517 sub g_demoguide
 518
 519     printlog "------------------- g_demoguide.inc ------------------------"
 520
 521     call t_Introduction
 522     call t_Interoperability
 523     call t_DrawingEngine
 524
 525 end sub
 526
 527 '--------------------------------------------------------------------
 528 sub sFormatTextDrawAnimation
 529
 530     TabLauftext.OK
 531     WaitSlot (3000)
 532     gMouseClick 99,99
 533     WaitSlot (3000)
 534     hTypeKeys("<Tab>")
 535     WaitSlot (1000)
 536     hTypeKeys("<F2>")
 537     WaitSlot (1000)
 538     FormatTextDraw
 539     Kontext
 540     Active.SetPage TabLauftext
 541     Kontext "TabLauftext"
 542 end sub
 543
 544 '-------------------------------------------------------------------------------
 545 sub mouseclickinpresentation
 546
 547   Kontext "DocumentPresentation"
 548   autoexecute=false
 549   DocumentPresentation.MouseDown ( 50, 50 )
 550   printlog " switch slides using mouse clicks "
 551   DocumentPresentation.MouseUp ( 50, 50 )
 552   autoexecute=true
 553 end sub
 554
 555 '-------------------------------------------------------------------------------
 556 sub im_002_
 557
 558    printLog Chr(13) + "--------- im_002_     ---------- $Date: 2008-06-16 10:43:16 $ $Revision: 1.1 $ "
 559
 560    Call tiEditDeleteSlide
 561 end sub
 562
 563 '-------------------------------------------------------------------------------
 564 sub im_003_
 565
 566    printLog Chr(13) + "--------- im_003_     ----------"
 567
 568     Call tiViewMasterView
 569     Call tiViewSlideMaster
 570     Call tiViewPanes
 571 'TODO: TBO not necessary here, move to optional
 572     Call tiViewToolbar_1
 573 end sub
 574
 575 '-------------------------------------------------------------------------------
 576 sub im_004_
 577
 578    printLog Chr(13) + "---------  im_004_     ----------"
 579
 580    Call tiInsertSlideExpandSummary
 581 end sub
 582
 583 '-------------------------------------------------------------------------------
 584 sub im_005_
 585
 586    printLog Chr(13) + "---------  im_005_     ---------- "
 587
 588    Call tiFormatModifyLayout ' impress only
 589 end sub
 590
 591 '-------------------------------------------------------------------------------
 592 sub im_007_
 593
 594    printLog Chr(13) + "---------  im_007_     ---------- "
 595
 596    Call tSlideShowSlideShow
 597    Call tSlideShowRehearseTimings
 598    Call tSlideShowSlideShowSettings
 599    Call tSlideShowCustomSlideShow
 600    Call tSlideShowSlideTransition
 601
 602 Call tSlideShowShowHideSlide
 603    Call tSlideShowAnimation
 604    Call tSlideShowCustomAnimation
 605    Call tSlideShowInteraction
 606 end sub
 607
 608 '-------------------------------------------------------------------------------
 609 sub im_011_
 610
 611    printLog Chr(13) + "---------  im_011_     ---------- "
 612
 613    Call tiDiaLeiste    ' only IMPRESS
 614 end sub
 615
 616 '-------------------------------------------------------------------------------
 617 sub D_002_
 618
 619    printLog Chr(13) + "---------  D_002_     ---------- "
 620
 621   Call tdEditCrossFading
 622   Call tdEditLayer
 623 end sub
 624
 625 '-------------------------------------------------------------------------------
 626 sub D_003_
 627
 628    printLog Chr(13) + "---------  D_003_     ---------- "
 629
 630    call tdViewSlide
 631    call tdViewPagePane
 632 end sub
 633
 634 '-------------------------------------------------------------------------------
 635 sub D_005_
 636
 637    printLog Chr(13) + "---------  D_005_     ---------- "
 638
 639    call tiFormatLayer ' only in draw !!!!!
 640 end sub
 641
 642 '-------------------------------------------------------------------------------
 643 sub d_007
 644
 645    printLog Chr(13) + "---------  d_007     ---------- "
 646
 647    call tdModifyRotate
 648 end sub
 649
 650 '-------------------------------------------------------------------------------
 651 sub hOpenGallery
 652
 653     Kontext "DocumentWriter"
 654     ToolsGallery
 655     WaitSlot (2000)
 656     Kontext "Gallery"
 657         if Gallery.NotExists(2) then
 658             ToolsGallery
 659             WaitSlot (2000)
 660         end if
 661 end sub
 662
 663 '-------------------------------------------------------------------------
 664 sub LoadGraphic ( sFile as String, bOK as Boolean ) as boolean
 665
 666     Dim iW
 667     Dim iWMax
 668     Dim iH
 669     Dim iHMax
 670     if app.FileLen(sFile) = "0" then warnlog "   the file (" + (sFile) + ") seems to be zero bytes large."
 671     call hGrafikEinfuegen ( sFile )
 672     FormatGraphics
 673     Kontext
 674     Active.SetPage TabType
 675     Kontext "TabType"
 676         OriginalSize.Click
 677         iW = Val ( makeNumOutOfText ( Width.GetText ) )
 678         iH = Val ( makeNumOutOfText ( Height.GetText )
 679         if instr ( sFile, "photo" ) <> 0 then
 680             iWMax = 22
 681             iHMax = 25
 682         else
 683             iWMax = 17
 684             iHMax = 25
 685         end if
 686         if iW > iWMax OR iH > iHMax then
 687             printlog sFile + " :"
 688             warnlog "Size is too big ( max should be '" + iWMax + "' cm* '" + iHMax + "'cm DinA4 with default borders ), but it is '" + iW + "' * '" + iH + "'"
 689             LoadGraphic = false
 690         end if
 691         TabType.OK
 692         sleep (1)
 693     Kontext "DocumentWriter"
 694         DocumentWriter.TypeKeys "<Delete>"
 695         sleep (1)
 696         bOK = TRUE
 697 end sub
 698
 699 '-------------------------------------------------------------------------
 700 sub CheckGraphic ( sFile as String, bOK as Boolean ) as boolean
 701
 702     if app.FileLen(sFile) = "0" then warnlog "   the file (" + (sFile) + ") seems to be zero bytes large."
 703     bOK = TRUE
 704 end sub
 705
 706 '-------------------------------------------------------------------------
 707 sub GetOnlyGraphics ( OldList() as String, NewList() as String )
 708
 709     Dim i as Integer
 710     Dim sExtension as String
 711
 712     ListAllDelete ( NewList() )
 713     for i=1 to ListCount ( OldList() )
 714         sExtension = lcase ( Right ( OldList(i), 3 ) )
 715         if sExtension = "jpg" OR sExtension = "gif" OR sExtension = "wmf" OR sExtension = "png" then
 716             ListAppend ( NewList(), OldList(i) )
 717         end if
 718     next i
 719 end sub
 720
 721 '-------------------------------------------------------------------------
 722 sub id_001
 723
 724    printLog Chr(13) + "---------    id_001    ----------"
 725
 726    qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
 727    call tiFilePassword
 728    call tiFileSaveAs
 729    call tiFileReload
 730    call tiFileVersion
 731    printlog " File->Send not possible to test, because extrnal prg get's called!"
 732    call tiFileTemplates
 733    call tiFilePrint
 734 '   Call tiFileNew instead i call:
 735    call tmFileNewFromTemplate
 736    call tmFileOpen
 737    call tmFileClose
 738    call tmFileSave
 739    call tmFileSaveAs
 740    call tmFileExit
 741
 742    call tmFileSaveAll
 743    call tmFileProperties
 744    call tdFileExport
 745    call tmFilePrinterSetting
 746    ' special cases
 747    '   Call AutoPilot      'inc\desktop\autopilo.inc
 748    call tmFileExit ' don't test because unpredictable behaviour
 749 end sub
 750
 751 '------------------------------------------------------------------------------
 752 sub id_002
 753
 754     printLog Chr(13) + "---------    id_002    ----------"
 755
 756     call tiEditUndoRedo
 757     call tiEditRepeat
 758     call tiEditCutPasteCopySelectall
 759     call tiEditPasteSpecial
 760     call tiEditSearchAndReplace
 761     call tiEditDuplicate
 762     call tEditPoints
 763     call tiEditFields
 764     call tdEditDeleteSlide
 765     call tiEditLinks
 766     call tiEditImageMap
 767     call tiEditObjectProperties
 768     call tiEditObjectEdit
 769     call tiEditPlugIn
 770     call tiEditHyperlink
 771 end sub
 772
 773 '-------------------------------------------------------------------------
 774 sub id_003
 775
 776    printLog Chr(13) + "---------    id_003    ----------"
 777
 778    call tiViewNavigator
 779    call tiViewZoom
 780    call tiViewToolbar
 781    Call tToolsCustomize                      'global\required\include
 782    call tiViewDisplayQuality
 783    call tiViewLayer
 784    call tViewSnapLines
 785    call tViewGrid
 786 end sub
 787
 788 '-------------------------------------------------------------------------
 789 sub id_004
 790
 791    printLog Chr(13) + "---------    id_004    ----------"
 792
 793    call tiInsertSlide
 794    call tiInsertDuplicateSlide
 795     ' v expand slide
 796     '  v summary slide
 797    call tiInsertField
 798    call tiInsertSpecialCharacter
 799    call tiInsertHyperlink
 800    call tiInsertScan
 801    call tiInsertGraphic
 802    call tiInsertObjectSound
 803    call tiInsertObjectVideo
 804    call tiInsertObjectSound
 805    call tiInsertObjectVideo
 806    call tiInsertChart
 807    call tiInsertObjectOLEObjects
 808    call tiInsertSpreadsheet
 809    call tiInsertFormula
 810    call tiInsertFloatingFrame
 811    call tiInsertFile
 812    call tiInsertPlugin
 813    call tiInsertSnappointLine
 814    call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
 815 end sub
 816
 817 '------------------------------------------------------------------------------
 818 sub id_005
 819
 820    printLog Chr(13) + "---------    id_005    ----------"
 821
 822    call tiFormatDefault
 823    call tiFormatLine
 824    call tdFormatArea
 825    call tiFormatText
 826    call tiFormatPositionAndSize
 827    call tiFormatCharacter
 828    call tiFormatControlForm
 829 '       ^ Form
 830    call tiFormatDimensions
 831    call tiFormatConnector
 832    call tiFormat3D_Effects
 833    call tiFormatNumberingBullets
 834    call tiFormatCaseCharacter
 835    call tiFormatParagraph
 836    call tiFormatPage
 837    call tiFormatStylesAndFormatting
 838    call tiFormatStylesSlideDesign
 839    call tiFormatFontwork
 840    call tiFormatGroup
 841    printlog " format->group is also modify->group "
 842 '        tiFormatLayer ' not in impress
 843 end sub
 844
 845 '------------------------------------------------------------------------------
 846 sub id_006
 847
 848     printLog Chr(13) + "---------    id_006    ----------"
 849
 850     call tiToolsSpellchecking
 851     call tiToolsSpellcheckingAutomatic
 852     call tiToolsThesaurus
 853    call tiToolsHyphenation
 854    call tiToolsAutoCorrect
 855    call tChineseTranslation
 856    call tiToolsMacro
 857    call tiToolsGallery
 858    call tiToolsEyedropper
 859    call tiToolsOptions ' get just called one time here...
 860    Call tToolsOptionsTest ' global one
 861 end sub
 862
 863 '-------------------------------------------------------------------------------
 864 sub id_007
 865
 866     printLog Chr(13) + "---------    id_007    ----------"
 867     ' in imp available via context menu, in draw via modify menu
 868
 869     call tdModifyFlipVertikal
 870     call tdModifyFlipHorizontal
 871     call tdContextConvertIntoCurve
 872     call tdContextConvertIntoPolygon
 873     call tdContextConvertIntoContour
 874     call tdContextConvertInto3D
 875     call tdContextConvertIntoRotationObject
 876     call tdContextConvertIntoBitmap
 877     call tdContextConvertIntoMetaFile
 878     call tdModifyArrange
 879     call tdModifyArrangeObjects
 880     call tdModifyAlignment
 881     call tdContextDistribution
 882     call tdContextDescriptionObject
 883     call tdContextNameObject
 884     call tdModifyConnectBreak
 885     call tdModifyShapes
 886     call tdModifyCombineSplit
 887 end sub
 888
 889 '-------------------------------------------------------------------------------
 890 sub id_008
 891
 892    printLog Chr(13) + "---------    id_008    ----------"
 893
 894    Call tiWindowNewWindow
 895    call tidWindow123
 896 end sub
 897
 898 '------------------------------------------------------------------------------
 899 sub id_009
 900
 901    printLog Chr(13) + "---------    id_009    ----------"
 902
 903     call tCheckIfTheHelpExists
 904     Call tmHelpContents
 905     Call tmHelpHelpAgent
 906     Call tmHelpTips
 907     Call tmHelpExtendedTips
 908     Call tmHelpAboutStarOffice
 909
 910 end sub
 911
 912 '------------------------------------------------------------------------------
 913 sub id_011
 914
 915     printLog Chr(13) + "---------    id_011    ----------"
 916
 917     call tdBezierToolbar
 918     call tiDrawObjectBar
 919     call tiTextToolbar
 920     call tiGraphicsObjectBar
 921     call tiGluepointToolbar
 922
 923     end sub
 924
 925 '-------------------------------------------------------------------------------'
 926
 927 sub hWalkTheStyles (optional a as integer,optional b as integer)
 928     dim i as integer
 929
 930     if isMissing (a) then a=1
 931     if isMissing (b) then b=2
 932     i=1
 933     if a <= i AND i <= b then
 934     Kontext
 935     printlog " switch to tabpage 'Line' "
 936     Messagebox.SetPage TabLinie
 937       kontext "TabLinie"
 938       Call DialogTest ( TabLinie )
 939     Kontext
 940     printlog " switch to tabpage 'Area' "
 941     Messagebox.SetPage TabArea
 942       kontext "TabArea"
 943       Call DialogTest ( TabArea )
 944     printlog " select radio button 'none' "
 945       NoFill.Check
 946       Call DialogTest ( TabArea, 1 )
 947     printlog " select radio button 'color' "
 948       Color.Check
 949       Call DialogTest ( TabArea, 2 )
 950     printlog " select radio button 'gradient' "
 951       Gradient.Check
 952       Call DialogTest ( TabArea, 3 )
 953     printlog " select radio button 'hatching' "
 954       Hatching.Check
 955       Call DialogTest ( TabArea, 4 )
 956     printlog " select radio button 'bitmap' "
 957       Bitmap.Check
 958       Call DialogTest ( TabArea, 5 )
 959     Kontext
 960     printlog " switch to tabpage 'shadowing' "
 961     Messagebox.SetPage TabSchatten
 962       kontext "TabSchatten"
 963     printlog " check 'use shadow' "
 964       Anzeigen.check
 965       Call DialogTest ( TabSchatten )
 966     Kontext
 967     printlog " switch to tabpage 'Transparency' "
 968     Messagebox.SetPage TabTransparenz
 969       kontext "TabTransparenz"
 970     printlog " check 'No transparency' "
 971       KeineTransparenz.Check
 972     printlog " check 'Transparency' "
 973       LineareTransparenz.Check
 974     printlog " check 'Gradient' "
 975       Transparenzverlauf.Check
 976     Kontext
 977     printlog " switch to tabpage 'Font' "
 978     Messagebox.SetPage TabFont
 979       kontext "TabFont"
 980       Call DialogTest ( TabFont )
 981     Kontext
 982     printlog " switch to tabpage 'Font Effect' "
 983     Messagebox.SetPage TabFontEffects
 984       kontext "TabFontEffects"
 985     Kontext
 986     printlog " switch to tabpage 'indents & spacing' "
 987     Messagebox.SetPage TabEinzuegeUndAbstaende
 988       kontext "TabEinzuegeUndAbstaende"
 989       Call DialogTest ( TabEinzuegeUndAbstaende )
 990     endif
 991     i=2
 992     if a <= i AND i <= b then
 993     Kontext
 994     printlog " switch to tabpage 'Organize' "
 995     Messagebox.SetPage TabVerwalten
 996       kontext "TabVerwalten"
 997       Call DialogTest ( TabVerwalten )
 998     Kontext
 999     printlog " switch to tabpage 'text' "
1000     Messagebox.SetPage TabText
1001       Kontext "TabText"
1002       Call DialogTest ( TabText )
1003     Kontext
1004     printlog " switch to tabpage 'text animation' "
1005     Messagebox.SetPage TabLauftext
1006       Kontext "TabLauftext"
1007       Call DialogTest ( TabLauftext )
1008     Kontext
1009     printlog " switch to tabpage 'dimension' "
1010     Messagebox.SetPage TabBemassung
1011       Kontext "TabBemassung"
1012       Call DialogTest ( TabBemassung )
1013     Kontext
1014     printlog " switch to tabpage 'connector' "
1015     Messagebox.setpage TabVerbinder
1016       Kontext "TabVerbinder"
1017       Call Dialogtest ( TabVerbinder )
1018     Kontext
1019     printlog " switch to tabpage 'alignment' "
1020     Messagebox.setpage TabAusrichtungAbsatz
1021       Kontext "TabAusrichtungAbsatz"
1022          Links.Check
1023          Rechts.Check
1024          Zentriert.Check
1025          Blocksatz.Check
1026     Kontext
1027     printlog " switch to tabpage 'Tabs' "
1028     Messagebox.setpage TabTabulator
1029       Kontext "TabTabulator"
1030     printlog " click 'new' "
1031          Neu.click
1032     printlog "                                    ' MAYBE CHECK COUNT OF THIS ?? Position               svx:MetricBox:RID_SVXPAGE_TABULATOR:ED_TABPOS "
1033     printlog " click 'delete all' "
1034          AlleLoeschen.click
1035     printlog " click 'new' "
1036          Neu.click
1037     printlog " click 'delete' "
1038          Loeschen.click
1039     endif
1040     i=3
1041     if a <= i AND i <= b then
1042       Kontext
1043     printlog " switch to tabpage 'Bullets' "
1044       Messagebox.SetPage TabBullet
1045       Kontext "TabBullet"
1046       sleep 1
1047       Call DialogTest (TabBullet)
1048       sleep 1
1049       Kontext
1050     printlog " switch to tabpage 'Numbering Type' "
1051       Messagebox.SetPage TabNumerierungsart
1052       Kontext "TabNumerierungsart"
1053       sleep 1
1054       Call DialogTest (TabNumerierungsart)
1055       sleep 1
1056       Kontext
1057     printlog " switch to tabpage 'Graphics' "
1058       Messagebox.SetPage TabGrafiken
1059       Kontext "TabGrafiken"
1060       sleep 1
1061       Call DialogTest (TabGrafiken)
1062       sleep 1
1063       Kontext
1064     printlog " switch to tabpage 'Customize' "
1065       Messagebox.SetPage TabOptionenNumerierung
1066       Kontext "TabOptionenNumerierung"
1067       sleep 1
1068       Call DialogTest (TabOptionenNumerierung)
1069       sleep 1
1070     endif
1071 end sub
1072
1073 '---------------------------------------------------------------------------------------