testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.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: w_insertgraphic1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:30: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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Test of the insert graphic function - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tInsertGraphic_1        'Test default directory of inserting graphic -1
  41 ' #1 tInsertGraphic_2        'Test default directory of inserting graphic -2
  42 ' #1 tInsertGraphic_3        'Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File...
  43 ' #1 tInsertGraphic_4        'Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar
  44 ' #1 tInsertGraphic_5        'Insert a graphic with open button
  45 ' #1 tInsertGraphic_6        'Insert a graphic with double click (Return)
  46 ' #1 Tinsertgraphic_7        'Default setting in insert/graphic dialog
  47 ' #1 tInsertGraphic_8        'Test preselect Filter (Format <All>)
  48 ' #1 tInsertGraphic_9        'Test preselect Filter excepte for (Format <All>)
  49 ' #1 tInsertGraphic_10       'Insert linked graphics and break the links via Menu Edit - Link
  50 ' #1 tInsertGraphic_11       'Insert graphics from clipboard -- Edit/Paste
  51 ' #1 tInsertGraphic_12       'Insert graphics from clipboard -- Edit/Paste special
  52 ' #1 fInsertGraphics         'This function will insert a graphic with Link checked
  53 '*
  54 '\***********************************************************************
  55
  56 testcase tInsertGraphic_1
  57
  58     Dim iJump     as Integer
  59     Dim sPathName as String
  60     Dim i as integer
  61
  62     PrintLog "- Test default dirtory of inserting graphic -1"
  63     '/// Test default directory of inserting graphic -1
  64     select case iSprache
  65         case 01: iJump =  5
  66         case 31: iJump =  1
  67         case 33: iJump = 14
  68         case 34: iJump = 12
  69         case 36: iJump = 10
  70         case 39: iJump = 5
  71         case 46: iJump = 11
  72         case 49: iJump = 11
  73         case 55: iJump =  9
  74         case 81: iJump = 16
  75         case 82: iJump =  4
  76         case 86: iJump =  7
  77         case 88: iJump =  5
  78         case else : QAErrorLog "The test does not support the language " + iSprache
  79         Goto endsub
  80     end select
  81
  82     Call hNewDocument
  83
  84     '/// Tools / Options / StarOffice / Paths
  85     ToolsOptions
  86     call hToolsOptions ("StarOffice", "Paths")
  87
  88     Typ.TypeKeys "<HOME><SPACE>"
  89     Sleep 1
  90     if iJump-1 > 0 then Typ.TypeKeys "<DOWN>", iJump-1
  91     Sleep 1
  92     Bearbeiten.Click
  93
  94     Kontext "OeffnenDlg"
  95     '/// Set a new path to Graphic
  96     Pfad.SetText (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic\"))
  97     Sleep 1
  98     Oeffnen.Click
  99     Sleep 1
 100
 101     Kontext "ExtrasOptionenDlg"
 102     ExtrasOptionenDlg.OK
 103     Sleep 1
 104
 105     '/// Insert / Graphic / From file
 106     InsertGraphicsFromFile
 107     Kontext "GrafikEinfuegenDlg"
 108
 109     '/// Input the jpg file's name which exists in the graphic dirtory , then press open button
 110     Dateiname.Settext "Bughunter.jpg"
 111     Sleep 1
 112
 113     Oeffnen.Click
 114     Sleep 2
 115
 116     Kontext "Active"
 117     if Active.Exists then
 118         if Active.GetRT = 304 then
 119             Active.OK
 120             QAErrorLog "#112220#The graphic directory in Tools/options doesn't work"
 121         end if
 122     end if
 123
 124     Kontext "GrafikEinfuegenDlg"
 125     if GrafikEinfuegenDlg.Exists then GrafikEinfuegenDlg.Cancel
 126
 127     '/// Reset to default path
 128     ToolsOptions
 129     call hToolsOptions ("StarOffice", "Paths")
 130     Typ.TypeKeys "<HOME>"
 131     Sleep 1
 132     if iJump-1 > 0 then Typ.TypeKeys "<DOWN>", iJump-1
 133     Sleep 1
 134     Standard.Click
 135
 136     Kontext "ExtrasOptionenDlg"
 137     ExtrasOptionenDlg.OK
 138
 139     Call hCloseDocument
 140
 141 endcase
 142
 143 '-------------------------------------------------------------------------------------------
 144
 145 testcase tInsertGraphic_2
 146
 147   PrintLog "- Test default dirtory of inserting graphic -2"
 148  '/// Test default dirtory of inserting graphic -2
 149
 150   Call hNewDocument
 151
 152   '/// Input the 1st picture which exists in the dirtory1(full path) ,
 153   '/// +  then press open button
 154    InsertGraphicsFromFile
 155    Kontext "GrafikEinfuegenDlg"
 156    Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\insertgraphic\Bughunter.jpg")
 157    Sleep 1
 158    Oeffnen.Click
 159    Sleep 2
 160
 161    Kontext "Active"
 162    if Active.Exists then
 163       if Active.GetRT = 304 then
 164          Active.OK
 165          Sleep 1
 166          Warnlog "1 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\insertgraphic\")
 167       end if
 168
 169       Kontext "GrafikEinfuegenDlg"
 170       GrafikEinfuegenDlg.Cancel
 171    end if
 172
 173    Call wTypeKeys "<ESCAPE>"
 174
 175   '/// Input the 2nd picture which exists in the dirtory2(only file name) ,
 176   '/// + then press open button
 177    InsertGraphicsFromFile
 178    Kontext "GrafikEinfuegenDlg"
 179    Dateiname.Settext "jolink.jpg"
 180    Sleep 1
 181    Oeffnen.Click
 182    Sleep 2
 183
 184    Kontext "Active"
 185    if Active.Exists then
 186       if Active.GetRT = 304 then
 187          Active.OK
 188          Sleep 1
 189       else
 190          Warnlog "2 - Should get the warning messagebox"
 191       end if
 192
 193       Kontext "GrafikEinfuegenDlg"
 194       GrafikEinfuegenDlg.Cancel
 195    end if
 196
 197    Call wTypeKeys "<ESCAPE>"
 198
 199   '/// Input the 3rd picture which exists in the dirtory2(full path) ,
 200   '/// + then press open button
 201    InsertGraphicsFromFile
 202    Kontext "GrafikEinfuegenDlg"
 203    Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\graphics\bild.jpg")
 204    Sleep 1
 205    Oeffnen.Click
 206    Sleep 2
 207
 208    Kontext "Active"
 209    if Active.Exists then
 210       if Active.GetRT = 304 then
 211          Active.OK
 212          Sleep 1
 213          Warnlog "3 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\grafik")
 214       end if
 215
 216       Kontext "GrafikEinfuegenDlg"
 217       GrafikEinfuegenDlg.Cancel
 218    end if
 219
 220    Call wTypeKeys "<ESCAPE>"
 221
 222   '/// Input the 2nd picture which exists in the dirtory2(only file name) again,
 223   '/// + then press open button
 224    InsertGraphicsFromFile
 225    Kontext "GrafikEinfuegenDlg"
 226    Dateiname.Settext "jolink.jpg"
 227    Sleep 1
 228    Oeffnen.Click
 229    Sleep 2
 230
 231    Kontext "Active"
 232    if Active.Exists then
 233       if Active.GetRT = 304 then
 234          Active.OK
 235          Sleep 1
 236          Warnlog "2 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\grafik")
 237       end if
 238
 239       Kontext "GrafikEinfuegenDlg"
 240       GrafikEinfuegenDlg.Cancel
 241    end if
 242
 243    Call hCloseDocument
 244
 245 endcase
 246
 247 '-------------------------------------------------------------------------------------------
 248
 249 testcase tInsertGraphic_3
 250
 251   PrintLog "- Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File..."
 252  '/// Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File
 253
 254   Call hNewDocument
 255
 256   try
 257      InsertGraphicsFromFile
 258      Kontext "GrafikEinfuegenDlg"
 259
 260      if GrafikEinfuegenDlg.Exists then
 261         GrafikEinfuegenDlg.Cancel
 262      else
 263         Warnlog "The dialogue can't be opened from Menu Insert - Graphics - From File..."
 264      end if
 265   catch
 266      Warnlog "Something wrong when calling up dialogue from Menu Insert - Graphics - From File..."
 267   endcatch
 268
 269   Call hCloseDocument
 270
 271 endcase
 272
 273 '-------------------------------------------------------------------------------------------
 274
 275 testcase tInsertGraphic_X
 276     Dim sShortcut as string
 277     PrintLog "- Call up dialog Insert / Picture via Alt+I+U+F ..."
 278     '/// Call up dialog Insert / Graphic via Alt+I+G+F
 279
 280     Select case iSprache
 281         case 01: sShortcut = "<MOD2 I U F>"
 282         case else
 283             QAErrorlog "Please add shortcut for Insert->Picture"
 284             goto endsub
 285     end select
 286
 287     Call hNewDocument
 288
 289     try
 290         Call wTypeKeys sShortcut
 291         Kontext "GrafikEinfuegenDlg"
 292
 293         if GrafikEinfuegenDlg.Exists then
 294             GrafikEinfuegenDlg.Cancel
 295         else
 296             Warnlog "The dialogue can't be opened from Menu Insert - Picture - From File..."
 297         end if
 298     catch
 299         Warnlog "Something wrong when calling up dialogue from Menu Insert - Picture - From File..."
 300     endcatch
 301
 302     Call hCloseDocument
 303
 304 endcase
 305
 306 '-------------------------------------------------------------------------------------------
 307
 308 testcase tInsertGraphic_4
 309
 310   PrintLog "- Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar "
 311  '/// Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar
 312
 313   Call hNewDocument
 314
 315   Call hToolbarSelect("INSERT", true )
 316   Sleep 2
 317   Grafik.Click
 318   Sleep 3
 319
 320   Kontext "GrafikEinfuegenDlg"
 321
 322   if GrafikEinfuegenDlg.Exists then
 323      GrafikEinfuegenDlg.Cancel
 324   else
 325      Warnlog "The dialogue can't be opened from Insert-Toolbox of the Toolbar"
 326   end if
 327
 328   Call hCloseDocument
 329
 330 endcase
 331
 332 '-------------------------------------------------------------------------------------------
 333
 334 testcase tInsertGraphic_5
 335
 336   PrintLog "- Insert a graphic with open button"
 337  '/// Insert a graphic with open button
 338
 339   Call hNewDocument
 340
 341   '/// Insert a Graphic , Insert/Graphics/From file
 342    InsertGraphicsFromFile
 343    Kontext "GrafikEinfuegenDlg"
 344    Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
 345    Sleep 1
 346    Oeffnen.Click
 347
 348    if NOT GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should be still there!"
 349
 350    Dateiname.Settext ("boy.gif")
 351
 352   '/// check if open button can insert a graphic or not
 353    Oeffnen.Click
 354    Sleep 2
 355
 356    if GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should NOT be there!"
 357
 358    try
 359       fFormatGraphic("TabZusaetze")
 360       Kontext "TabZusaetze"
 361       TabZusaetze.Cancel
 362    catch
 363       Warnlog "The graphic is NOT inserted correctly !"
 364    endcatch
 365
 366   Call hCloseDocument
 367
 368 endcase
 369
 370 '-------------------------------------------------------------------------------------------
 371
 372 testcase tInsertGraphic_6
 373
 374   PrintLog "- Insert a graphic with double click (Return)"
 375  '/// Insert a graphic with double click (Return)
 376
 377   Call hNewDocument
 378
 379   '/// Insert a Graphic , Insert/Graphics/From file
 380    InsertGraphicsFromFile
 381    Kontext "GrafikEinfuegenDlg"
 382    Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
 383    Sleep 1
 384    Oeffnen.Click
 385
 386    if NOT GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should be still there!"
 387
 388    Dateiname.Settext ("boy.gif")
 389
 390   '/// check if double click (return) can insert a graphic or not
 391   '/// [Note : the first is CVS directory]
 392    DateiAuswahl.Select 2
 393    Sleep 1
 394
 395    DateiAuswahl.TypeKeys "<Return>"
 396    Sleep 2
 397
 398    if GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should NOT be there!"
 399
 400    try
 401       fFormatGraphic("TabZusaetze")
 402       Kontext "TabZusaetze"
 403       TabZusaetze.Cancel
 404    catch
 405       Warnlog "The graphic is NOT inserted correctly !"
 406    endcatch
 407
 408   Call hCloseDocument
 409
 410 endcase
 411
 412 '-------------------------------------------------------------------------------------------
 413
 414 testcase tInsertGraphic_7
 415
 416   Dim iFileType   as Integer
 417   Dim sStyle      as String
 418
 419   iFileType = 1
 420
 421   select case iSprache
 422       case 01   : sStyle = "Graphics"
 423       case 31   : sStyle = "Afbeeldingen"
 424       case 33   : sStyle = "Image"
 425       case 34   : sStyle = "Imagen"
 426       case 39   : sStyle = "Immagine"
 427       case 46   : sStyle = "Grafik"
 428       case 49   : sStyle = "Grafik"
 429       case 55   : sStyle = "Figuras"
 430       case 81   : sStyle = "図"
 431       case 82   : sStyle = "그래픽"
 432       case 86   : sStyle = "图形"
 433       case 88   : sStyle = "圖形"
 434       case else : QAErrorLog "Now, this testcase does not support for the language " +iSprache
 435                   exit sub
 436   end select
 437
 438   PrintLog "- Default setting in insert/graphic dialog"
 439  '/// Default setting in insert/graphic dialog
 440
 441   Call hNewDocument
 442
 443   '/// Insert a Graphic , Insert/Graphics/From file
 444    InsertGraphicsFromFile
 445    Kontext "GrafikEinfuegenDlg"
 446     if Stil.GetItemText(Stil.GetSelIndex) <> sStyle    then Warnlog "The default setting for Style is wrong ! should be "+ sStyle + " but get " + Stil.GetItemText(Stil.GetSelIndex)
 447     if Dateityp.GetSelIndex               <> iFileType then Warnlog "The default setting for file type is wrong ! should be "+ Dateityp.GetItemText(iFileType) + " but get " + Dateityp.GetItemText(Dateityp.GetSelIndex)
 448    GrafikEinfuegenDlg.Cancel
 449
 450   Call hCloseDocument
 451
 452 endcase
 453
 454 '-------------------------------------------------------------------------------------------
 455
 456 testcase tInsertGraphic_8
 457
 458   Dim iFileType      as Integer
 459   Dim iFileNumber as Integer
 460
 461     iFileType = 1  'filter (Format <All>)
 462
 463     if gPlatGroup = "unx" then
 464         iFileNumber = 4  '4 graphic files. (directory hidden on Unix)
 465     else
 466         iFileNumber = 5  '4 graphic files and 1 directory.
 467     end if
 468
 469   PrintLog "- Test preselect Filter (Format <All>)"
 470  '/// Test preselect Filter (Format <All>)
 471
 472   Call hNewDocument
 473
 474   '/// Insert a Graphic , Insert/Graphics/From file
 475    InsertGraphicsFromFile
 476
 477   '/// Select filter (Format <All>)
 478    Kontext "GrafikEinfuegenDlg"
 479     Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
 480     Sleep 1
 481     Oeffnen.Click
 482
 483     Dateityp.Select iFileType
 484     Sleep 1
 485
 486   '/// Check if Filter (Format <All>) works well
 487     if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter (Format <All>) does NOT work well"
 488    GrafikEinfuegenDlg.Cancel
 489
 490   Call hCloseDocument
 491
 492 endcase
 493
 494 '-------------------------------------------------------------------------------------------
 495
 496 testcase tInsertGraphic_9
 497
 498   Dim iFileType      as Integer
 499   Dim iFileNumber as Integer
 500
 501     iFileType   = 2  'another filter except for (Format <All>) -- bmp
 502
 503     if gPlatGroup = "unx" then
 504       iFileNumber = 1
 505     else
 506       iFileNumber = 2  'the first is the .svn-directory
 507     end if
 508
 509   PrintLog "- Test preselect Filter excepte for (Format <All>)"
 510  '/// Test preselect Filter excepte for (Format <All>)
 511
 512   Call hNewDocument
 513
 514   '/// Insert a Graphic , Insert/Graphics/From file
 515    InsertGraphicsFromFile
 516
 517   '/// Select filter 'BMP'
 518    Kontext "GrafikEinfuegenDlg"
 519     Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
 520     Sleep 1
 521     Oeffnen.Click
 522
 523     Dateityp.Select iFileType
 524     Sleep 1
 525
 526   '/// Check if Filter BMP works well
 527     if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter BMP does NOT work well"
 528    GrafikEinfuegenDlg.Cancel
 529
 530   Call hCloseDocument
 531
 532 endcase
 533
 534 '-------------------------------------------------------------------------------------------
 535
 536 testcase tInsertGraphic_10
 537
 538     Dim sTestFile as String
 539
 540     sTestFile = ConvertPath(gOfficepath + "user\work\tInsertGraphic_5.sxw")
 541
 542     PrintLog "- Insert linked graphics and break the links via Menu Edit - Link"
 543     '/// Insert linked graphics and break the links via Menu Edit - Link
 544
 545     Call hNewDocument
 546
 547     Call wTypeKeys "<Return>" , 2
 548
 549     '/// Insert a jpg  Graphic
 550     Call fInsertGraphics("Bughunter.jpg")
 551
 552     '/// + and set name as TEST1
 553     Call fFormatGraphic("TabZusaetze")
 554      sleep(1)
 555      Kontext "TabZusaetze"
 556      ObjektName.SetText "TEST1"
 557     TabZusaetze.OK
 558     sleep(1)
 559
 560     Kontext "DocumentWriter"
 561     Call wTypeKeys "<ESCAPE>"
 562     Call wTypeKeys "<Return>" , 2
 563     sleep(2)
 564
 565     '/// Insert a gif  Graphic  (animated)
 566     Call fInsertGraphics("boy.gif")
 567
 568     '/// + and set name as TEST2
 569     Call fFormatGraphic("TabZusaetze")
 570      sleep(1)
 571      Kontext "TabZusaetze"
 572      ObjektName.SetText "TEST2"
 573     TabZusaetze.OK
 574     sleep(1)
 575
 576     Kontext "DocumentWriter"
 577     Call wTypeKeys "<ESCAPE>"
 578     Call wTypeKeys "<Return>" , 2
 579     sleep(2)
 580
 581     '/// Insert a bmp Graphic
 582     Call fInsertGraphics("game.bmp")
 583
 584     '/// + and set name as TEST3
 585     Call fFormatGraphic("TabZusaetze")
 586      sleep(2)
 587      Kontext "TabZusaetze"
 588      ObjektName.SetText "TEST3"
 589     TabZusaetze.OK
 590     sleep(1)
 591
 592     Kontext "DocumentWriter"
 593     Call wTypeKeys "<ESCAPE>"
 594     Call wTypeKeys "<Return>" , 2
 595     sleep(2)
 596
 597     '/// Edit / Links
 598     EditLinksWriter
 599     Kontext "VerknuepfungenBearbeiten"
 600
 601     '/// Select all graphics
 602     Liste.TypeKeys "<Shift End>"
 603     sleep(1)
 604
 605     '/// Remove link
 606      Loesen.Click
 607      sleep(1)
 608      Kontext "Active"
 609      if Active.Exists(1) then
 610         Active.YES
 611      else
 612         warnlog "Messagebox should appear!"
 613      end if
 614      sleep(2)
 615
 616     '/// Close the edit/link dialogue
 617     Kontext "VerknuepfungenBearbeiten"
 618     VerknuepfungenBearbeiten.Close
 619     sleep(1)
 620
 621     '/// Check if the inserted graphics are still there
 622     Kontext "DocumentWriter"
 623     Call wTypeKeys ( "<Shift F4>" )
 624     sleep(1)
 625     fFormatGraphic("TabZusaetze")
 626     sleep(1)
 627     Kontext "TabZusaetze"
 628     if ObjektName.GetText <> "TEST1" then  warnlog "The first graphic isn't right!"
 629     TabZusaetze.OK
 630     sleep(1)
 631
 632     Kontext "DocumentWriter"
 633     Call wTypeKeys "<Tab>"
 634     Call fFormatGraphic("TabZusaetze")
 635     sleep(1)
 636     Kontext "TabZusaetze"
 637     if ObjektName.GetText <> "TEST2" then  Warnlog "The second graphic isn't right!"
 638     TabZusaetze.OK
 639     sleep(1)
 640
 641     Kontext "DocumentWriter"
 642     Call wTypeKeys "<Tab>"
 643     Call fFormatGraphic("TabZusaetze")
 644     sleep(1)
 645     Kontext "TabZusaetze"
 646     if ObjektName.GetText <> "TEST3" then  Warnlog "The third graphic isn't right!"
 647     TabZusaetze.OK
 648     sleep(1)
 649
 650     Kontext "DocumentWriter"
 651     Call wTypeKeys "<ESCAPE><Home>"
 652     PrintLog "- Save and Reload the file"
 653
 654     '/// Save the file and close the file
 655     Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\tInsertGraphic_5.odt", "writer8")
 656     sleep(2)
 657     Call hCloseDocument
 658     sleep(2)
 659
 660     '/// Reload the file
 661     Call hFileOpen(gOfficepath + "user\work\tInsertGraphic_5.odt")
 662     sleep(2)
 663     Call sMakeReadOnlyDocumentEditable
 664
 665     '/// Check if the inserted graphics are still there
 666     Kontext "DocumentWriter"
 667     Call wTypeKeys ( "<Shift F4>" )
 668     sleep(1)
 669     if fFormatGraphic("TabZusaetze") = false then
 670         Warnlog "#i46300#linked JPEG pictures will disappear when doc is modified."
 671         Call hCloseDocument
 672         goto endsub
 673     end if
 674     sleep(1)
 675     Kontext "TabZusaetze"
 676     if ObjektName.GetText <> "TEST1" then  Warnlog "The first graphic isn't right!"
 677     TabZusaetze.OK
 678     sleep(1)
 679
 680     Kontext "DocumentWriter"
 681     Call wTypeKeys "<Tab>"
 682     sleep(1)
 683     Call fFormatGraphic("TabZusaetze")
 684     sleep(1)
 685     Kontext "TabZusaetze"
 686     if ObjektName.GetText <> "TEST2" then  Warnlog "The second graphic isn't right!"
 687     TabZusaetze.OK
 688     sleep(2)
 689
 690     Kontext "DocumentWriter"
 691     Call wTypeKeys "<Tab>"
 692     sleep(1)
 693     Call fFormatGraphic("TabZusaetze")
 694     sleep(1)
 695     Kontext "TabZusaetze"
 696     if ObjektName.GetText <> "TEST3" then  Warnlog "The third graphic isn't right!"
 697     TabZusaetze.OK
 698     sleep(1)
 699
 700     Call hCloseDocument
 701 endcase
 702
 703 '-------------------------------------------------------------------------------------------
 704
 705 testcase tInsertGraphic_11
 706
 707   Dim sGraphicName  as String
 708   Dim sWidth as String
 709   Dim sHeight as String
 710   Dim sLeft as String
 711   Dim sUp as String
 712   Dim iFromLeft as Integer
 713   Dim iFromUp as Integer
 714   Dim sURL as String
 715
 716   sGraphicName = "TEST1"
 717   sWidth       = "5"+ gSeperator + "00" + gMeasurementUnit
 718   sHeight      = "4"+ gSeperator + "00" + gMeasurementUnit
 719   sLeft        = "2"+ gSeperator + "00" + gMeasurementUnit
 720   sUp          = "3"+ gSeperator + "00" + gMeasurementUnit
 721
 722   iFromLeft = 4
 723   iFromUp   = 4
 724
 725   sURL      = "http://www.sun.com/"
 726
 727   PrintLog "- Insert graphics from clipboard -- Edit/Paste"
 728  '/// Insert graphics from clipboard -- Edit/Paste
 729
 730   Call hNewDocument
 731
 732   '/// Insert a jpg  Graphic and do some configuration
 733    fInsertGraphics("Bughunter.jpg")
 734
 735    fFormatGraphic("TabZusaetze")
 736    Sleep 1
 737    Kontext "TabZusaetze"
 738    ObjektName.SetText sGraphicName
 739    TabZusaetze.OK
 740    sleep(2)
 741    fFormatGraphic("TabType")
 742    Kontext "TabType"
 743    KeepRatio.UnCheck
 744    Sleep 1
 745    Width.SetText        sWidth
 746    wait 500
 747    Height.SetText       sHeight
 748    wait 500
 749    Horizontal.Select    iFromLeft
 750    wait 500
 751    Vertical.Select      iFromUp
 752    wait 500
 753    HorizontalBy.SetText sLeft
 754    wait 500
 755    VerticalBy.SetText   sUp
 756    wait 500
 757    TabType.OK
 758    sleep(1)
 759    Call fFormatGraphic("TabHyperlinkRahmen")
 760    Kontext "TabHyperlinkRahmen"
 761    Sleep 1
 762    URL.SetText  sURL
 763    wait 500
 764    TabHyperlinkRahmen.OK
 765
 766    '/// copy graphic to clipboard
 767    EditCopy
 768    Sleep 1
 769
 770   Call hCloseDocument
 771
 772   Call hNewDocument
 773
 774    '/// paste the graphic from clipboard
 775    EditPaste
 776    Sleep 1
 777
 778   '/// Check if the pasted graphic is correct
 779    Call fFormatGraphic("TabZusaetze")
 780    Sleep 1
 781    Kontext "TabZusaetze"
 782    if ObjektName.GetText <> sGraphicName   then Warnlog "The graphic's name is not correct ! "
 783    TabZusaetze.Cancel
 784    sleep(1)
 785    Call fFormatGraphic("TabType")
 786    Sleep 1
 787    Kontext "TabType"
 788    if Width.GetText          <> sWidth     then Warnlog "The graphic's width is not correct ! "
 789    wait 500
 790    if Height.GetText         <> sHeight    then Warnlog "The graphic's height is not correct ! "
 791    wait 500
 792    if Horizontal.GetSelIndex <> iFromLeft  then Warnlog "The graphic's Horizontal option is not correct ! "
 793    wait 500
 794    if Vertical.GetSelIndex   <> iFromUp    then Warnlog "The graphic's vertical option is not correct ! "
 795    wait 500
 796    if HorizontalBy.GetText   <> sLeft      then Warnlog "The graphic's Horizontal is not correct ! "
 797    wait 500
 798    if VerticalBy.GetText     <> sUp        then Warnlog "The graphic's vertical is not correct ! "
 799    wait 500
 800    TabType.Cancel
 801
 802    Call fFormatGraphic("TabHyperlinkRahmen")
 803    Sleep 1
 804    Kontext "TabHyperlinkRahmen"
 805    if URL.GetText <>  sURL  then Warnlog "The graphic's URL is not correct ! "
 806    wait 500
 807    TabHyperlinkRahmen.Cancel
 808    sleep(1)
 809   Call hCloseDocument
 810 endcase
 811
 812 '-------------------------------------------------------------------------------------------
 813
 814 testcase tInsertGraphic_12
 815
 816     Dim sGraphicName as String
 817     Dim sOriginalGraphicName as String
 818     Dim sWidth as String
 819     Dim sHeight as String
 820     Dim sLeft as String
 821     Dim sUp as String
 822     Dim sOriginalWidth as String
 823     Dim sOriginalHeight as String
 824     Dim sOriginalLeft as String
 825     Dim sOriginalUp as String
 826     Dim iFromLeft as Integer
 827     Dim iFromUp as Integer
 828     Dim iOriginalFromLeft as Integer
 829     Dim iOriginalFromUp as Integer
 830     Dim sURL as String
 831     Dim i as integer
 832
 833     sGraphicName = "TEST1"
 834     sWidth       = "5"+ gSeperator + "00" + gMeasurementUnit
 835     sHeight      = "4"+ gSeperator + "00" + gMeasurementUnit
 836     sLeft        = "2"+ gSeperator + "00" + gMeasurementUnit
 837     sUp          = "3"+ gSeperator + "00" + gMeasurementUnit
 838
 839     iFromLeft = 4
 840     iFromUp   = 4
 841
 842     sURL      = "http://www.sun.com/"
 843
 844     PrintLog "- Insert graphics from clipboard -- Edit/Paste special"
 845     '/// Insert graphics from clipboard -- Edit/Paste special
 846
 847     Call hNewDocument
 848
 849     '/// Insert a jpg  Graphic and do some configuration
 850     fInsertGraphics("Bughunter.jpg")
 851
 852     fFormatGraphic("TabZusaetze")
 853     Sleep 1
 854     sOriginalGraphicName = ObjektName.GetText
 855     wait 500
 856     ObjektName.SetText sGraphicName
 857     wait 500
 858     TabZusaetze.OK
 859
 860     fFormatGraphic("TabType")
 861     KeepRatio.UnCheck
 862
 863     sOriginalWidth    =  Width.GetText
 864     sOriginalHeight   =  Height.GetText
 865     iOriginalFromLeft =  Horizontal.GetSelIndex
 866     iOriginalFromUp   =  Vertical.GetSelIndex
 867     sOriginalLeft     =  HorizontalBy.GetText
 868     sOriginalUp       =  VerticalBy.GetText
 869
 870     Sleep 1
 871     Width.SetText        sWidth
 872     wait 500
 873     Height.SetText       sHeight
 874     wait 500
 875     Horizontal.Select    iFromLeft
 876     wait 500
 877     Vertical.Select      iFromUp
 878     wait 500
 879     HorizontalBy.SetText sLeft
 880     wait 500
 881     VerticalBy.SetText   sUp
 882     wait 500
 883     TabType.OK
 884
 885     fFormatGraphic("TabHyperlinkRahmen")
 886     Sleep 1
 887     URL.SetText  sURL
 888     wait 500
 889     TabHyperlinkRahmen.OK
 890
 891     '/// copy graphic to clipboard
 892     EditCopy
 893     Sleep 1
 894
 895     '/// delete the graphic
 896     Call wTypeKeys "<Delete>"
 897     Sleep 1
 898
 899     '/// 1. Edit/Paste special the graphic from
 900     '/// +  Graphic [StarOffice Writer]
 901     EditPasteSpecialWriter
 902     Sleep 1
 903     Kontext "InhaltEinfuegen"
 904     if Auswahl.GetItemCount < 4 then
 905         QAErrorlog "#i47320#Only " & Auswahl.GetItemCount & " graphic formats available"
 906         InhaltEinfuegen.Cancel
 907     else
 908         Auswahl.Select 1
 909         PrintLog "- " & Auswahl.GetSelText
 910         InhaltEinfuegen.OK
 911         Sleep 1
 912
 913         '/// Check if the pasted graphic properties are correct
 914         FormatGraphics
 915         Kontext
 916         Active.Setpage TabZusaetze
 917         Kontext "TabZusaetze"
 918         Sleep 1
 919         if ObjektName.GetText     <> sGraphicName  then Warnlog "The graphic's name is not correct ! "
 920
 921         Kontext
 922         Active.Setpage TabType
 923         Kontext "TabType"
 924         Sleep 1
 925         if Width.GetText          <> sWidth        then Warnlog "The graphic's width is not correct ! "
 926         wait 500
 927         if Height.GetText         <> sHeight       then Warnlog "The graphic's height is not correct ! "
 928         wait 500
 929         if Horizontal.GetSelIndex <> iFromLeft     then Warnlog "The graphic's Horizontal option is not correct ! "
 930         wait 500
 931         if Vertical.GetSelIndex   <> iFromUp       then Warnlog "The graphic's vertical option is not correct ! "
 932         wait 500
 933         if HorizontalBy.GetText   <> sLeft         then Warnlog "The graphic's Horizontal is not correct ! "
 934         wait 500
 935         if VerticalBy.GetText     <> sUp           then Warnlog "The graphic's vertical is not correct ! "
 936         wait 500
 937
 938         Kontext
 939         Active.Setpage TabHyperlinkRahmen
 940         Kontext "TabHyperlinkRahmen"
 941         Sleep 1
 942         if URL.GetText <> sURL then Warnlog "The graphic's URL is not correct ! "
 943         wait 500
 944         TabHyperlinkRahmen.Ok
 945
 946         'delete the graphic
 947         Call wTypeKeys "<Delete>"
 948         Sleep 1
 949     end if
 950
 951     Call hCloseDocument
 952 endcase
 953
 954 '-------------------------------------------------------------------------------------------
 955
 956 function fInsertGraphics (sFileName as String)
 957    'This function will insert a graphic with Link checked
 958
 959    InsertGraphicsFromFile
 960    Kontext "GrafikEinfuegenDlg"
 961    Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic\" + sFileName) )
 962    Sleep 1
 963    Link.Check
 964    Sleep 1
 965    Oeffnen.Click
 966    Sleep 2
 967
 968 end function