testautomation/graphics/optional/includes/global/id_005.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_005.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 ' #1 tiFormatDefault
  40 ' #1 tiFormatLine
  41 ' #1 tdFormatArea
  42 ' #1 tiFormatText
  43 ' #1 tiFormatPositionAndSize
  44 ' #1 tiFormatCharacter
  45 ' #1 tiFormatControlForm
  46 ' #1 tiFormatDimensions
  47 ' #1 tiFormatConnector
  48 ' #1 tiFormat3D_Effects
  49 ' #1 tiFormatNumberingBullets
  50 ' #1 tiFormatCaseCharacter
  51 ' #1 tiFormatParagraph
  52 ' #1 tiFormatPage
  53 ' #1 tiFormatStylesAndFormatting
  54 ' #1 tiFormatStylesSlideDesign
  55 ' #1 tiFormatFontwork
  56 ' #1 tiFormatGroup
  57 ' #1 hWalkTheStyles
  58 '\**********************************************************************************
  59
  60 testcase tiFormatDefault
  61
  62     Call hNewDocument
  63     gMouseClick 50,50
  64     Call hRechteckErstellen ( 10, 10, 20, 40 )
  65     FormatStandardDraw
  66     Call hCloseDocument
  67 endcase
  68
  69 testcase tiFormatLine
  70     hNewDocument
  71     gMouseClick 50,50
  72     Call hRechteckErstellen ( 10, 10, 20, 40 )
  73     FormatLine
  74     Kontext
  75     Messagebox.SetPage TabLinie
  76     kontext "TabLinie"
  77     Call DialogTest ( TabLinie )
  78
  79     Kontext
  80     Messagebox.SetPage TabLinienstile
  81     kontext "TabLinienstile"
  82     Call DialogTest ( TabLinienstile )
  83     Hinzufuegen.click
  84     Kontext "NameDLG"
  85     Call DialogTest ( NameDlg )
  86     NameDlg.Cancel
  87
  88     kontext "TabLinienstile"
  89     Aendern.Click
  90     Kontext "NameDlg"
  91     Call DialogTest ( NameDlg )
  92     NameDlg.Cancel
  93     kontext "TabLinienstile"
  94     Loeschen.Click
  95     Kontext "Messagebox"
  96     Messagebox.no
  97
  98     kontext "TabLinienstile"
  99     Oeffnen.click
 100     Kontext "OeffnenDLG"
 101     call Dialogtest (OeffnenDLG)
 102     OeffnenDLG.Cancel
 103     kontext "TabLinienstile"
 104     Speichern.click
 105     Kontext "SpeichernDLG"
 106     call Dialogtest (SpeichernDLG)
 107     SpeichernDLG.Cancel
 108     Kontext
 109     Messagebox.SetPage TabLinienenden
 110     kontext "TabLinienenden"
 111     Call DialogTest ( TabLinienenden )
 112     Hinzufuegen.Click
 113     Kontext "NameDLG"
 114     Call DialogTest ( NameDlg )
 115     NameDlg.Cancel
 116
 117     kontext "TabLinienenden"
 118     Aendern.Click
 119     Kontext "Messagebox"
 120     try
 121         Messagebox.OK
 122     catch
 123         'print "TabLinienenden"
 124     endcatch
 125
 126     kontext "NameDlg"
 127     Call DialogTest ( NameDlg )
 128     NameDlg.Cancel
 129
 130     kontext "TabLinienenden"
 131     Loeschen.Click
 132     Kontext "Messagebox"
 133     Messagebox.no
 134
 135     kontext "TabLinienenden"
 136     Oeffnen.click
 137     Kontext "OeffnenDLG"
 138     call Dialogtest (OeffnenDLG)
 139     OeffnenDLG.Cancel
 140     kontext "TabLinienenden"
 141     Speichern.click
 142     Kontext "SpeichernDLG"
 143     call Dialogtest (SpeichernDLG)
 144     SpeichernDlg.Cancel
 145     kontext "TabLinienenden"
 146     TabLinienenden.cancel
 147     Call hCloseDocument
 148 endcase
 149
 150 testcase tdFormatArea
 151     Call hNewDocument
 152     gMouseClick 50,50
 153     Call hRechteckErstellen (15,15,65,65)
 154     gMouseClick 30,30
 155     FormatArea
 156     WaitSlot (1000)
 157     Kontext
 158     Messagebox.SetPage TabArea
 159     Kontext "TabArea"
 160     Call DialogTest ( TabArea )
 161     Kontext
 162     Messagebox.SetPage TabSchatten
 163     kontext "TabSchatten"
 164     Anzeigen.Check
 165     Call DialogTest ( TabSchatten )
 166     Kontext
 167     Messagebox.SetPage TabFarben
 168     kontext "TabFarben"
 169     Farbe.select 1
 170     Farbmodell.Select 1
 171     Call DialogTest ( TabFarben,1 )
 172     Farbmodell.Select 2
 173     Call DialogTest ( TabFarben,2 )
 174
 175     Hinzufuegen.click
 176     Kontext "Messagebox"
 177     Messagebox.OK
 178     kontext "NameDlg"
 179     Call DialogTest ( NameDlg )
 180     NameDlg.Cancel
 181     kontext "TabFarben"
 182     Loeschen.click
 183     Kontext "Messagebox"
 184     Messagebox.no
 185
 186     kontext "TabFarben"
 187     sleep 1
 188     Speichern.click
 189     Kontext "SpeichernDLG"
 190     call Dialogtest (SpeichernDLG)
 191     SpeichernDlg.Cancel
 192     sleep 1
 193
 194     kontext "TabFarben"
 195     Oeffnen.click
 196     Kontext "OeffnenDLG"
 197     call Dialogtest (OeffnenDLG)
 198     OeffnenDLG.Cancel
 199     Kontext "TabFarben"
 200
 201     Kontext
 202     Messagebox.SetPage TabFarbverlaeufe
 203     kontext "TabFarbverlaeufe"
 204     Call DialogTest ( TabFarbverlaeufe )
 205
 206     Hinzufuegen.click
 207     Kontext "NameDlg"
 208     Call DialogTest ( NameDlg )
 209     NameDlg.Cancel
 210
 211     kontext "TabFarbverlaeufe"
 212     Aendern.Click
 213     Kontext "NameDlg"
 214     Call DialogTest ( NameDlg )
 215     NameDlg.Cancel
 216
 217     kontext "TabFarbverlaeufe"
 218     loeschen.click
 219     try
 220         kontext "Messagebox"
 221         Messagebox.no
 222     catch
 223         warnlog "nobody cares about deleting a gradient :-("
 224     endcatch
 225
 226     kontext "TabFarbverlaeufe"
 227     Oeffnen.click
 228     Kontext "OeffnenDLG"
 229     call Dialogtest (OeffnenDLG)
 230     OeffnenDLG.Cancel
 231     kontext "TabFarbverlaeufe"
 232     Speichern.click
 233     Kontext "SpeichernDLG"
 234     call Dialogtest (SpeichernDLG)
 235     SpeichernDLG.Cancel
 236
 237     Kontext
 238     Messagebox.SetPage TabSchraffuren
 239     kontext "TabSchraffuren"
 240     Call DialogTest ( TabSchraffuren)
 241
 242     Hinzufuegen.click
 243     Kontext "NameDlg"
 244     Call DialogTest ( NameDlg )
 245     NameDlg.Cancel
 246
 247     kontext "TabSchraffuren"
 248     Aendern.Click
 249     Kontext "NameDlg"
 250     Call DialogTest ( NameDlg )
 251     NameDlg.Cancel
 252
 253     kontext "TabSchraffuren"
 254     Loeschen.click
 255     kontext "Messagebox"
 256     Messagebox.no
 257
 258     kontext "TabSchraffuren"
 259     Oeffnen.click
 260     Kontext "OeffnenDLG"
 261     call Dialogtest (OeffnenDLG)
 262     OeffnenDLG.Cancel
 263     kontext "TabSchraffuren"
 264     Speichern.click
 265     Kontext "SpeichernDLG"
 266     call Dialogtest (SpeichernDLG)
 267     SpeichernDLG.Cancel
 268
 269     Kontext
 270     Messagebox.SetPage TabBitmap
 271     kontext "TabBitmap"
 272     Call DialogTest ( TabBitmap )
 273     zurueck.click
 274     sleep 1
 275     hinzufuegen.click
 276     Kontext "NameDlg"
 277     Call DialogTest ( NameDlg )
 278     NameDlg.cancel
 279
 280     kontext "TabBitmap"
 281     try
 282         Aendern.Click
 283         Kontext "NameDlg"
 284         Call DialogTest ( NameDlg )
 285         NameDlg.cancel
 286     catch
 287         WarnLog "Control is disabled - modify bitmap"
 288     endcatch
 289     kontext "TabBitmap"
 290     Import.Click
 291     try
 292         Kontext "GrafikEinfuegenDlg"
 293         Call DialogTest ( GrafikEinfuegenDlg )
 294         Kontext "GrafikEinfuegenDlg"
 295         GrafikEinfuegenDlg.Cancel
 296     catch
 297         Warnlog "Insert graphic does not work"
 298     endcatch
 299
 300     kontext "TabBitmap"
 301     loeschen.click
 302     kontext "Messagebox"
 303     Messagebox.no
 304
 305     kontext "TabBitmap"
 306     Oeffnen.click
 307     Kontext "OeffnenDLG"
 308     call Dialogtest (OeffnenDLG)
 309     OeffnenDLG.Cancel
 310     kontext "TabBitmap"
 311     Speichern.click
 312     Kontext "SpeichernDLG"
 313     call Dialogtest (SpeichernDLG)
 314     SpeichernDLG.Cancel
 315     kontext "TabBitmap"
 316     TabBitmap.Cancel
 317     Call hCloseDocument
 318 endcase
 319
 320 testcase tiFormatText
 321     Call  hNewDocument
 322     FormatTextDraw
 323     Kontext
 324     Messagebox.SetPage TabText
 325     Kontext "TabText"
 326     DialogTest ( TabText )
 327     Kontext
 328     Messagebox.SetPage TabLauftext
 329     Kontext "TabLauftext"
 330     DialogTest ( TabLauftext )
 331     TabLauftext.Cancel
 332     Call hCloseDocument
 333 endcase
 334
 335 testcase tiFormatPositionAndSize
 336     Call  hNewDocument
 337     Call hRechteckErstellen ( 10, 10, 20, 40 )
 338     ContextPositionAndSize
 339     Kontext
 340     Messagebox.setpage TabPositionAndSize
 341     Kontext "TabPositionAndSize"
 342     call Dialogtest ( TabPositionAndSize )
 343     kontext "PositionPosition"
 344     PositionPosition.TypeKeys ("<right>", 2)
 345     kontext "SizePosition"
 346     SizePosition.TypeKeys ("<down>", 2)
 347     Kontext
 348     Messagebox.setPage TabDrehung
 349     Kontext "TabDrehung"
 350     call Dialogtest ( TabDrehung )
 351     Kontext
 352     Messagebox.setpage TabSchraegstellen
 353     Kontext "TabSchraegstellen"
 354     call Dialogtest ( TabSchraegstellen )
 355     TabSchraegstellen.cancel
 356     Call hCloseDocument
 357 endcase
 358
 359 testcase tiFormatCharacter
 360     Call  hNewDocument
 361     FormatCharacter
 362     WaitSlot (1000)
 363     Kontext
 364     Messagebox.SetPage TabFont
 365     kontext "TabFont"
 366     sleep 1
 367     Call DialogTest ( TabFont )
 368     Kontext
 369     Messagebox.SetPage TabFontEffects
 370     kontext "TabFontEffects"
 371     sleep 1
 372     Call DialogTest ( TabFontEffects )
 373     sleep 1
 374     Kontext
 375     Messagebox.SetPage TabFontPosition
 376     Kontext "TabFontPosition"
 377     sleep 1
 378     Call DialogTest ( TabFontPosition )
 379     sleep 2
 380     TabFontPosition.Cancel
 381     Call hCloseDocument
 382 endcase
 383
 384 testcase tiFormatControlForm
 385
 386     printlog "testcase: check if controls are available"
 387
 388     printlog "open new document"
 389     Call  hNewDocument
 390
 391     'click in the document to get the focus into the document
 392     if ( UCase(gApplication) = "DRAW" ) then
 393         Kontext "DocumentDraw"
 394         DocumentDraw.MouseDown(50,50)
 395         DocumentDraw.MouseUp(50,50)
 396     else 'Impress
 397         Kontext "DocumentImpress"
 398         DocumentImpress.MouseDown(50,50)
 399         DocumentImpress.MouseUp(50,50)
 400     endif
 401
 402     printlog "open the form controls toolbar"
 403     call hToolbarSelect("FormControls",true)
 404
 405     kontext "FormControls"
 406     printlog "insert a PushButton"
 407     Pushbutton.Click
 408     Sleep 1
 409     gMouseMove (50, 20,70, 40)
 410
 411     printlog "open the control properties dialog"
 412     FormatControl
 413
 414     Kontext "ControlPropertiesDialog"
 415     WaitSlot (1000)
 416     printlog "close the control properties dialog"
 417     ControlPropertiesDialog.Close
 418
 419     printlog "open the form properties dialog"
 420     FormatForm
 421     Kontext "ControlPropertiesDialog"
 422     WaitSlot (1000)
 423     printlog "close the form properties dialog"
 424     ControlPropertiesDialog.Close
 425
 426     printlog "close the form control toolbar"
 427     call hToolbarSelect("FormControls",false)
 428
 429     printlog "close application"
 430     Call hCloseDocument
 431
 432 endcase
 433
 434 testcase tiFormatDimensions
 435     Call  hNewDocument
 436     FormatDimensioning
 437     Kontext "Bemassung"
 438     DialogTest ( Bemassung )
 439     Bemassung.Cancel
 440     Call hCloseDocument
 441 endcase
 442
 443 testcase tiFormatConnector
 444     Call  hNewDocument
 445     FormatConnector
 446     Kontext "Verbinder"
 447     DialogTest ( Verbinder )
 448     Verbinder.Cancel
 449     Call hCloseDocument
 450 endcase
 451
 452 testcase tiFormat3D_Effects
 453     Call  hNewDocument
 454     Format3D_Effects
 455     Kontext "Drei_D_Effekte"
 456     Call DialogTest ( Drei_D_Effekte,1 )
 457     Geometrie.Click
 458     Call DialogTest ( Drei_D_Effekte,2 )
 459     Darstellung.Click
 460     Call DialogTest ( Drei_D_Effekte,3 )
 461     Beleuchtung.Click
 462     Call DialogTest ( Drei_D_Effekte,4 )
 463     Texturen.Click
 464     Call DialogTest ( Drei_D_Effekte,5 )
 465     Material.Click
 466     Call DialogTest ( Drei_D_Effekte,6 )
 467     Kontext "Drei_D_Effekte"
 468     Drei_D_Effekte.Close
 469     Call hCloseDocument
 470 endcase
 471
 472 '---------------------------------------------------------------------------------------
 473
 474 testcase tiFormatNumberingBullets
 475     Call hNewDocument
 476     WaitSlot (2000)
 477     FormatNumberingBulletsDraw
 478     WaitSlot (2000)
 479     Kontext
 480     Messagebox.SetPage TabBullet
 481     Kontext "TabBullet"
 482     Call DialogTest ( TabBullet )
 483     Kontext
 484     Messagebox.SetPage TabNumerierungsart
 485     Kontext "TabNumerierungsart"
 486     Call DialogTest ( TabNumerierungsart )
 487     Kontext
 488     Messagebox.SetPage TabGrafiken
 489     Kontext "TabGrafiken"
 490     Call DialogTest ( TabGrafiken )
 491     Kontext
 492     Messagebox.SetPage TabPositionNumerierung
 493     Kontext "TabPositionNumerierung"
 494     Call DialogTest ( TabPositionNumerierung )
 495     Kontext
 496     Messagebox.SetPage TabOptionenNumerierung
 497     Kontext "TabOptionenNumerierung"
 498     Call DialogTest ( TabOptionenNumerierung )
 499     Numerierung.Select 9 ' last one always ? -> graphics
 500     TabOptionenNumerierung.MouseDown 50,60
 501     TabOptionenNumerierung.MouseUp 50,60
 502     Auswahl.TypeKeys "<SPACE>"
 503     hMenuSelectNr (1)
 504     sleep 3
 505     Kontext "OeffnenDlg"
 506     OeffnenDlg.Cancel
 507     sleep 1
 508     sleep 1
 509     Kontext
 510     Messagebox.SetPage TabOptionenNumerierung
 511     Kontext "TabOptionenNumerierung"
 512     sleep 1
 513     try
 514         Auswahl.TypeKeys "<SPACE>"
 515         hMenuSelectNr (2)
 516         hMenuSelectNr (3)
 517         Sleep 2
 518     catch
 519         warnlog "couldn't do something :-) (1)"
 520         Exceptlog
 521         Call hMenuClose
 522     endcatch
 523     TabOptionenNumerierung.Cancel
 524     sleep 1
 525     Call hCloseDocument
 526 endcase
 527
 528 '---------------------------------------------------------------------------------------
 529
 530 testcase tiFormatCaseCharacter
 531     Call  hNewDocument
 532     Call hTextrahmenErstellen ("testit",20,20,50,30)
 533     sleep 1
 534     hTypeKeys "<left>"
 535
 536     FormatChangeCaseUpper
 537     WaitSlot (1000)
 538     FormatChangeCaseLower
 539     WaitSlot (2000)
 540     if bAsianLan then
 541         if not gAsianSup then
 542             qaerrorlog "This is an asian language-office, but asian support was disabled in a previous test?"
 543         end if
 544         try
 545             FormatChangeCaseHalfWidth
 546         catch
 547             Warnlog "Format / Change Case / Half Width does not work."
 548         endcatch
 549         WaitSlot (1000)
 550         try
 551             FormatChangeCaseFullWidth
 552         catch
 553             Warnlog "Format / Change Case / Full Width does not work!"
 554         endcatch
 555         sleep 1
 556         try
 557             FormatChangeCaseHiragana
 558         catch
 559             Warnlog "Format / Change Case / Hiragana does not work."
 560         endcatch
 561         sleep 1
 562         try
 563             FormatChangeCaseKatagana
 564         catch
 565             Warnlog "Format / Change Case / Katagana does not work."
 566         endcatch
 567     end if
 568     Call hCloseDocument
 569 endcase
 570
 571 '---------------------------------------------------------------------------------------
 572
 573 testcase tiFormatParagraph
 574     Call  hNewDocument
 575     FormatParagraph
 576     Kontext
 577     Messagebox.SetPage TabEinzuegeUndAbstaende
 578     kontext "TabEinzuegeUndAbstaende"
 579     Call DialogTest ( TabEinzuegeUndAbstaende )
 580     Kontext
 581     Messagebox.SetPage TabAusrichtungAbsatz
 582     Kontext "TabAusrichtungAbsatz"
 583     Call DialogTest ( TabAusrichtungAbsatz )
 584     Kontext
 585     Messagebox.SetPage TabTabulator
 586     kontext "TabTabulator"
 587     Call DialogTest ( TabTabulator )
 588     TabTabulator.Cancel
 589     Call hCloseDocument
 590 endcase
 591
 592 '---------------------------------------------------------------------------------------
 593
 594 testcase tiFormatPage
 595     Call hNewDocument
 596     FormatSlideDraw
 597     kontext
 598     if Messagebox.exists (5) then
 599         Messagebox.SetPage TabSeite
 600         Kontext "TabSeite"
 601         if TabSeite.exists (5) then
 602             Call Dialogtest (TabSeite)
 603         else
 604             warnlog "nope :-(1"
 605         endif
 606         sleep 1
 607         kontext
 608         Messagebox.SetPage TabArea
 609         sleep 1
 610         kontext
 611         if messagebox.GetRT = 304 then
 612             printlog "active about pagesize != printersettings, will say NO: " + Messagebox.GetText
 613             try
 614                 Messagebox.No
 615             catch
 616                 warnlog messagebox.getText
 617                 Messagebox.ok ' should be Error loading BASIC of document ##?
 618                 kontext
 619                 if messagebox.GetRT = 304 then
 620                     try
 621                         warnlog messagebox.getText
 622                         Messagebox.ok
 623                     catch
 624                         printlog "not expected state."
 625                     endcatch
 626                 endif
 627             endcatch
 628         endif
 629         sleep 1
 630         kontext
 631         Messagebox.SetPage TabArea
 632         Kontext "TabArea"
 633         if TabArea.exists (5) then
 634             Call Dialogtest (TabArea)
 635         endif
 636         sleep 1
 637         TabArea.Cancel
 638     else
 639         warnlog "FormatPage doesn't come up with dialog :-("
 640     endif
 641     Call hCloseDocument
 642 endcase
 643
 644 '---------------------------------------------------------------------------------------
 645
 646 testcase tiFormatStylesAndFormatting
 647     Dim sTemp as String
 648     dim sSettings(20,3) ' Control_name; control_type; value
 649     dim i as integer
 650     dim abctemp
 651
 652     Call  hNewDocument
 653     sleep 5
 654
 655     hTextrahmenErstellen ("I love Wednesdays...",20,20,80,40)
 656     sleep 1
 657     printlog "Checking if TextObjectBar is up"
 658     Kontext "TextObjectbar"
 659     if TextObjectbar.Exists Then
 660         printlog "TextObjectbar.Exists = " + TextObjectbar.Exists
 661     else
 662         ViewToolbarsTextFormatting
 663     endif
 664     FormatStylist
 665     WaitSlot (1000)
 666     Kontext "Stylist"
 667     if (Stylist.NotExists) then
 668         qaErrorLog "There is no stylist open, trying again now"
 669         FormatStylist
 670     end if
 671     WaitSlot (1000)
 672     Vorlagenliste.TypeKeys "<End>"
 673     Vorlagenliste.TypeKeys "<Up>"
 674     Vorlagenliste.TypeKeys "<Up>"
 675     sleep 1
 676     Vorlagenliste.OpenContextMenu
 677     sleep 1
 678     hMenuSelectNr (1)
 679     sleep 1
 680
 681     Kontext
 682     if Messagebox.exists (5) then
 683         try
 684             Messagebox.SetPage TabVerwalten
 685             Kontext "TabVerwalten"
 686             TabVerwalten.TypeKeys "<TAB>"
 687             VorlagenName.setText("1Test")
 688             sTemp = VorlagenName.getText
 689             VerknuepftMit.getSelText
 690             Bereich.getSelText
 691             TabVerwalten.OK
 692         catch
 693             warnlog "Under Gnome we have a focus problem here."
 694         endcatch
 695     end if
 696     sleep 1
 697     Kontext "Stylist"
 698     Vorlagenliste.TypeKeys "<Home>"  'to go to the style we've created ourselves.
 699     sleep 1
 700     Vorlagenliste.OpenContextMenu
 701     sleep 1
 702     hMenuSelectNr (2) 'modify...
 703     sleep 1
 704     Kontext
 705     if Messagebox.exists (5) then
 706         try
 707             Messagebox.SetPage TabVerwalten
 708             Kontext "TabVerwalten"
 709             VorlagenName.setText("2Test")
 710             TabVerwalten.OK
 711         catch
 712             warnlog "Under Gnome we have a focus problem here."
 713         endcatch
 714     end if
 715
 716     sleep 3
 717     Kontext "Stylist"
 718     Vorlagenliste.TypeKeys "<Home>"  'to go to the style we've created ourselves.
 719     sleep 1
 720     try
 721         Vorlagenliste.TypeKeys "<Delete>" 'To delete the style.
 722         Kontext "Active" 'do you really wish to delete?
 723         Active.YES
 724         sleep 2
 725     catch
 726         Warnlog "Couldnt delete the new Style, or maybe wrong position?"
 727     endcatch
 728     Kontext "Stylist"
 729     if (Stylist.NotExists) then
 730         ErrorLog "There was no Stylist open, should be."
 731     else
 732         hTypekeys "<F11>"
 733         Kontext "Stylist"
 734         if (Stylist.Exists) then
 735             ErrorLog "The Stylist should be closed now."
 736         endif
 737     endif
 738     Call hCloseDocument
 739 endcase
 740
 741 '---------------------------------------------------------------------------------------
 742
 743 testcase tiFormatFontwork
 744     Call hNewDocument
 745     Call hTextrahmenErstellen ("Flightplanning via www.aua.com is hard!",20,20,50,30)
 746     sleep 1
 747     FormatFontwork
 748     Kontext "FontWork"
 749     if FontWork.exists (5) then
 750         DialogTest ( FontWork )
 751         sleep 1
 752         FontWork.Close
 753     else
 754         warnlog "FontWork didn't came up :-("
 755     endif
 756     Call hCloseDocument
 757 endcase
 758
 759 '---------------------------------------------------------------------------------------
 760
 761 testcase tiFormatGroup
 762     Call hNewDocument
 763     hRechteckErstellen ( 10, 10, 20, 20 )
 764     hRechteckErstellen ( 30, 30, 40, 40 )
 765     EditSelectAll
 766     FormatGroupDraw
 767     WaitSlot (1000)
 768     FormatEditGroupDraw
 769     WaitSlot (1000)
 770     FormatExitGroupDraw
 771     WaitSlot (1000)
 772     FormatUngroupDraw
 773     WaitSlot (1000)
 774     Call hCloseDocument
 775 endcase
 776
 777 '---------------------------------------------------------------------------------------
 778
 779 testcase tiFormatStylesSlideDesign
 780     ' create recktanglr; click outside ?
 781     Call hNewDocument
 782     WaitSlot (3000)
 783     FormatModifyLayout ' is OK : Format->Styles->Slide Design; 27064; SID_PRESENTATION_LAYOUT
 784     WaitSlot (1000)
 785     Kontext "Seitenvorlage"
 786     Call DialogTest ( Seitenvorlage )
 787     HintergrundseiteAustauschen.check
 788     DeleteUnusedBackgrounds.check
 789     Laden.Click
 790     kontext "Neu"
 791     Zusaetze.click
 792     sleep 1
 793     kontext "Neu"
 794     try
 795         Vorschau.check
 796     catch
 797         printlog "Preview wasn't checkable :-( hopfully now:"
 798         Zusaetze.click
 799         sleep 1
 800         Vorschau.check
 801         printlog "... OK :-)"
 802     endcatch
 803     Neu.cancel
 804     Kontext "Seitenvorlage"
 805     Seitenvorlage.Cancel
 806     sleep 2
 807     Call hCloseDocument
 808 endcase
 809
 810 '---------------------------------------------------------------------------------------