testautomation/writer/optional/includes/textframes/w_textframes1.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_textframes1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:37:25 $
  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 textframe - 1
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_textframes1
  41
  42     Call tTextframes_1         'Test Insert Frame with four ways
  43     Call tTextframes_2         'Test check Autosize
  44     Call tTextframes_3         'Test Uncheck Autosize
  45     Call tTextframes_4         'Test Uncheck Keep ratio
  46     Call tTextframes_5         'Test check Keep ratio
  47     Call tTextframes_6         'Test Anchor to page - frame doesn't move with text
  48     Call tTextframes_7         'Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph
  49     Call tTextframes_8         'Test Anchor to Character - the frame follows the vertical position of the character it is anchored to
  50     Call tTextframes_9         'Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it
  51     Call tTextframes_10        'Test Anchor in gathering pages&columns test.
  52     Call tTextframes_11        'Test Anchor in gathering paragraph test.
  53     Call tTextframes_12        'Horizontal should not be available when frame is anchored as Character
  54     Call tTextframes_13        'Test Horizontal
  55     Call tTextframes_14        'Test Vertical
  56     Call tTextframes_15        'Frame name can be actualized in Navigator - solution 1
  57     Call tTextframes_16        'Frame name can be actualized in Navigator - solution 2
  58
  59 end sub
  60
  61 '---------------------------------------------------
  62
  63 testcase tTextframes_1
  64
  65     printlog "- Insert / Frame"
  66     '/// Test Insert Frame
  67
  68     Call hNewDocument
  69
  70     '/// 1. Insert a Frame (with Menu)
  71     InsertFrame
  72     Kontext
  73     try
  74         Active.Setpage TabType
  75         Kontext "TabType"
  76         TabType.Ok
  77         Wait 500
  78     catch
  79         Warnlog "Unable to insert a frame (Dialog is not up)!"
  80     endcatch
  81
  82     try
  83         Call fFormatFrame("TabType")
  84         TabType.Cancel
  85     catch
  86         Warnlog "Frame has not been inserted correct with menu!"
  87     endcatch
  88
  89     Call hCloseDocument
  90
  91     '/// 2. Insert a frame over Toolbox / Insert / Frame
  92     Call hNewDocument
  93
  94     Call wDocSetContext
  95     Call gMouseClick (30, 50)
  96
  97     Call hToolbarSelect("INSERT", true )
  98     Sleep 1
  99     Kontext "Insertbar"
 100     Rahmen.Click
 101     Sleep 1
 102
 103     Call gMouseDown  ( 30,50 )
 104     Call gMouseMove  ( 30,50,30,60 )
 105     Call gMouseUp    ( 30,60 )
 106     Call gMouseClick ( 50,70 )
 107     Sleep 1
 108
 109     'set focus to the frame
 110     Call wTypeKeys ( "<Shift F4>" )
 111
 112     Sleep 2
 113
 114     try
 115         Call fFormatFrame("TabType")
 116         TabType.Cancel
 117     catch
 118         Warnlog "Frame has not been inserted correct over toolbox !"
 119     endcatch
 120
 121     Call hCloseDocument
 122
 123     '/// Create Multi-Column frames over toolbox is not possible with testtool
 124
 125     '/// 3. Paste a frame from clipboard
 126     Call hNewDocument
 127
 128     '/// -- insert a frame first
 129     Call wInsertFrame
 130     '/// -- Copy frame to clipboard
 131     try
 132         EditCopy
 133     catch
 134         Warnlog "Unable to access 'Edit / Copy'. Maybe disabled !"
 135         Call hCloseDocument
 136         goto endsub
 137     endcatch
 138
 139     Call hCloseDocument
 140
 141     Call hNewDocument
 142
 143     '/// -- Paste Frame into document from clipboard
 144     EditPaste
 145     Sleep 1
 146
 147     try
 148         Call fFormatFrame("TabType")
 149         TabType.Cancel
 150     catch
 151         Warnlog "Frame has not been pasted via clipboard !"
 152     endcatch
 153     Call hCloseDocument
 154
 155     '/// 4. Insert a frame via 'Insert / File '
 156     Call hNewDocument
 157
 158     InsertFileWriter
 159     Kontext "OeffnenDlg"
 160     Dateiname.Settext Convertpath (gTesttoolpath + "writer\optional\input\textframe\frame.sxw")
 161     Oeffnen.Click
 162     Wait 500
 163
 164     'set focus to the frame
 165     Call wTypeKeys ( "<Shift F4>" )
 166     Wait 500
 167
 168     try
 169         Call fFormatFrame("TabType")
 170         TabType.Cancel
 171     catch
 172         Warnlog "Frame has not been inserted via insert/file !"
 173     endcatch
 174
 175     Call hCloseDocument
 176
 177 endcase
 178
 179 '---------------------------------------------------
 180
 181 testcase tTextframes_2
 182
 183     Dim sText    as String
 184     Dim sHeight  as String
 185     Dim sSpacing as String
 186
 187     sText    = "ABCDEFG"
 188     sSpacing = "0"
 189
 190     printlog "- Test check Autosize"
 191     '/// Test check Autosize
 192
 193     Call hNewDocument
 194
 195     '/// insert/frame / Type , Check Autosize
 196     InsertFrame
 197     Kontext
 198     Active.SetPage TabType
 199     Kontext "TabType"
 200     AutoHoehe.Check
 201     Sleep 1
 202     TabType.OK
 203
 204     '/// A return on a selected frame points cursor into frame
 205     Call wTypeKeys "<Return>"
 206     Wait 500
 207
 208     '/// Input text full of frame
 209     Call wTypeKeys sText
 210     Wait 500
 211
 212     Call wTypeKeys "<End>"
 213     Call wTypeKeys "<Shift Home>"
 214     Wait 500
 215
 216     EditCopy
 217     Wait 500
 218
 219     ' Choosed Text length because selected text depends on selected font
 220     if Len(GetClipboardText) = Len(sText) then Warnlog "Don't get expected text ! Autosize doesn't seem to work properly"
 221     Call hCloseDocument
 222
 223 endcase
 224
 225 '-----------------------------------------------------------------
 226
 227 testcase tTextframes_3
 228
 229     Dim sText    as String
 230     Dim sExpect  as String
 231     Dim sHeight  as String
 232     Dim sSpacing as String
 233
 234     sText    = "ABCDEFG"
 235     sExpect  = "ABCDEFG"
 236     sSpacing = "0"
 237
 238     printlog "- Test Uncheck Autosize"
 239     '/// Test Uncheck Autosize
 240
 241     Call hNewDocument
 242
 243     '/// insert/frame / Type , UnCheck Autosize
 244     InsertFrame
 245     Kontext
 246     Active.SetPage TabType
 247     Kontext "TabType"
 248     AutoHoehe.UnCheck
 249     Sleep 1
 250     TabType.OK
 251
 252     '/// A return on a selected frame points cursor into frame
 253     Call wTypeKeys "<Return>"
 254     Wait 500
 255
 256     '/// Input text full of frame
 257     Call wTypeKeys sText
 258     Wait 500
 259
 260     Call wTypeKeys "<End>"
 261     Call wTypeKeys "<Shift Home>"
 262     Wait 500
 263
 264     EditCopy
 265     Wait 500
 266
 267     if GetClipboardText <> sExpect then QAerrorlog "#i31690# - Don't get expected text ! Hope to get " + sExpect + " but get " + GetClipboardText
 268     Call hCloseDocument
 269
 270 endcase
 271
 272 '-----------------------------------------------------------------
 273
 274 testcase tTextframes_4
 275
 276     Dim sWidth      as String
 277     Dim sHeight     as String
 278     Dim sWidthNew1  as String
 279     Dim sHeightNew1 as String
 280     Dim sWidthNew2  as String
 281     Dim sHeightNew2 as String
 282
 283     sWidth      = "2"+ gSeperator + "00" + gMeasurementUnit
 284     sHeight     = "1"+ gSeperator + "00" + gMeasurementUnit
 285
 286     sWidthNew1  = "4"+ gSeperator + "00" + gMeasurementUnit
 287     sHeightNew1 = "1"+ gSeperator + "00" + gMeasurementUnit
 288
 289     sWidthNew2  = "4"+ gSeperator + "00" + gMeasurementUnit
 290     sHeightNew2 = "3"+ gSeperator + "00" + gMeasurementUnit
 291
 292     printlog "- Test Uncheck Keep ratio"
 293     '/// Test Uncheck Keep ratio
 294
 295     Call hNewDocument
 296
 297     '/// insert a frame
 298     Call wInsertFrame
 299
 300     '/// Format / Frame / Type
 301     Call fFormatFrame("TabType")
 302
 303     '/// + UnCheck Keep ratio
 304     KeepRatio.UnCheck
 305
 306
 307     '/// + Set width and height
 308     Width.SetText   sWidth
 309     Sleep 1
 310     Height.SetText  sHeight
 311     Sleep 1
 312
 313     if Width.GetText  <> sWidth  then Warnlog "Keep ration(Uncheck) doesn't work - width!"
 314     if Height.GetText <> sHeight then Warnlog "Keep ration(Uncheck) doesn't work - heigth!"
 315
 316     '/// Check if height is changed after width is changed.
 317     Width.SetText   sWidthNew1
 318     Sleep 1
 319
 320     if Width.GetText  <> sWidthNew1  then Warnlog "Keep ration(Uncheck) doesn't work - widthNew1 !"
 321     if Height.GetText <> sHeightNew1 then Warnlog "Keep ration(Uncheck) doesn't work - heigthNew1 !"
 322
 323     '/// Check if width is changed after height is changed.
 324     Height.SetText sHeightNew2
 325     Sleep 1
 326
 327     if Width.GetText  <> sWidthNew2  then Warnlog "Keep ration(Uncheck) doesn't work - widthNew2 !"
 328     if Height.GetText <> sHeightNew2 then Warnlog "Keep ration(Uncheck) doesn't work - heigthNew2 !"
 329
 330     TabType.Cancel
 331
 332     Call hCloseDocument
 333
 334 endcase
 335
 336 '-----------------------------------------------------------------
 337
 338 testcase tTextframes_5
 339
 340     Dim sWidth      as String
 341     Dim sHeight     as String
 342     Dim sWidthNew1  as String
 343     Dim sHeightNew1 as String
 344     Dim sWidthNew2  as String
 345     Dim sHeightNew2 as String
 346
 347     sWidth      = "2"+ gSeperator + "00" + gMeasurementUnit
 348     sHeight     = "1"+ gSeperator + "00" + gMeasurementUnit
 349
 350     sWidthNew1  = "4"+ gSeperator + "00" + gMeasurementUnit
 351     sHeightNew1 = "2"+ gSeperator + "00" + gMeasurementUnit
 352
 353     sWidthNew2  = "6"+ gSeperator + "00" + gMeasurementUnit
 354     sHeightNew2 = "3"+ gSeperator + "00" + gMeasurementUnit
 355
 356     printlog "- Test check Keep ratio"
 357     '/// Test check Keep ratio
 358
 359     Call hNewDocument
 360
 361     '/// insert a frame
 362     Call wInsertFrame
 363
 364     '/// Format / Frame / Type
 365     Call fFormatFrame("TabType")
 366
 367     '/// + UnCheck Keep ratio
 368     KeepRatio.UnCheck
 369
 370     '/// + Set width and height
 371     Width.SetText sWidth
 372     Sleep 1
 373     Height.SetText sHeight
 374     Sleep 1
 375
 376     '/// + Check Keep ratio
 377     KeepRatio.Check
 378     Sleep 1
 379
 380     '/// Check if height is changed after width is changed.
 381     Width.SetText sWidthNew1
 382     Sleep 1
 383
 384     if Width.GetText  <> sWidthNew1  then Warnlog "Keep ration(check) doesn't work - widthNew1 !"
 385     if Height.GetText <> sHeightNew1 then Warnlog "Keep ration(check) doesn't work - heigthNew1 !"
 386
 387     '/// Check if width is changed after height is changed.
 388     Height.SetText sHeightNew2
 389     Sleep 1
 390
 391     if Width.GetText  <> sWidthNew2  then Warnlog "Keep ration(check) doesn't work - widthNew2 !"
 392     if Height.GetText <> sHeightNew2 then Warnlog "Keep ration(check) doesn't work - heigthNew2 !"
 393
 394     TabType.Cancel
 395
 396     Call hCloseDocument
 397
 398 endcase
 399
 400 '-----------------------------------------------------------------
 401
 402 testcase tTextframes_6
 403
 404     Dim sTestFile as String
 405     Dim sTestText as String
 406
 407     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToPage.sxw")
 408     sTestText = "Bottom"
 409
 410     printlog "- Test Anchor to page - frame doesn't move with text"
 411     '/// Test Anchor to page - frame doesn't move with text
 412
 413     '/// Open a test file
 414     '/// + This test file is designed for Anchor To Page test.
 415     '/// + There are 2 pages in the file , and the frame is in
 416     '/// + the bottom of first page
 417     Call hFileOpen(sTestFile,false)
 418     Call sMakeReadOnlyDocumentEditable
 419
 420     Check1:
 421     EditSearchAndReplace
 422     Kontext "FindAndReplace"
 423     SearchFor.SetText sTestText
 424     Wait 500
 425     SearchAll.Click
 426     Sleep 1
 427     Kontext "Active"
 428     if Active.Exists then
 429         if Active.GetRT = 304 then
 430             try
 431                 Active.Ok
 432             catch
 433                 Active.No
 434             endcatch
 435         end if
 436     end if
 437     Kontext "FindAndReplace"
 438     FindAndReplace.Cancel
 439
 440     Kontext "Navigator"
 441     if Not Navigator.Exists then ViewNavigator
 442     Kontext "NavigatorWriter"
 443     Sleep 1
 444     if Seitennummer.GetText <> "1" then
 445         fCloseNavigator
 446         Wait 500
 447         Call wTypeKeys "<Home>"
 448         Wait 500
 449         Call wTypeKeys "<BackSpace>"
 450         Wait 500
 451         Goto Check1
 452     end if
 453
 454     fCloseNavigator
 455     Wait 500
 456
 457     Call wTypeKeys "<Home>"
 458
 459     '/// Press Return before "bottom" , now the "bottom"
 460     '/// + should be in the second page
 461     Call wTypeKeys "<Return>" , 15
 462     Wait 500
 463
 464     Call wTypeKeys "<Shift End>"
 465     Wait 500
 466     EditCopy
 467     if GetClipboardText <> sTestText then Warnlog "The test text isn't right !"
 468
 469     Kontext "Navigator"
 470     if Not Navigator.Exists then ViewNavigator
 471     Kontext "NavigatorWriter"
 472     Sleep 1
 473     if Seitennummer.GetText <> "2" then Warnlog "The test text should be in second page !"
 474     fCloseNavigator
 475     Wait 500
 476
 477     '/// Set focus to the frame  , the frame should be
 478     '/// + still in the first page
 479     Call wTypeKeys ( "<Shift F4>" )
 480     Sleep 1
 481
 482     Kontext "Navigator"
 483     if Not Navigator.Exists then ViewNavigator
 484     Kontext "NavigatorWriter"
 485     Sleep 1
 486     if Seitennummer.GetText <> "1" then Warnlog "The test frame should be still in first page !"
 487     fCloseNavigator
 488     Wait 500
 489
 490     printlog " Close active document "
 491     Do Until GetDocumentCount = 0
 492         Call hCloseDocument
 493     Loop
 494
 495 endcase
 496
 497 '-----------------------------------------------------------------
 498
 499 testcase tTextframes_7
 500
 501     Dim sTestFile as String
 502     Dim sDummy    as String
 503
 504     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToParagraph.sxw")
 505     sDummy    = "She heard"
 506
 507     printlog "- Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph"
 508     '/// Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph
 509
 510     '/// Open a test file
 511     '/// + This test file is designed for Anchor To Paragraph test.
 512     '/// + There are 2 paragraphs in the file , and the head of 2nd
 513     '/// + paragraph is in the bottom of the first page .
 514     '/// + The frame is in the first line of 2nd paragraph
 515     Call hFileOpen(sTestFile,false)
 516     Call sMakeReadOnlyDocumentEditable
 517
 518     '/// check if the frame is in the first page
 519     Call wTypeKeys ( "<Shift F4>" )
 520     Sleep 1
 521
 522     Check:
 523     Kontext
 524     ViewNavigator
 525     Kontext "NavigatorWriter"
 526     Sleep 1
 527     if Seitennummer.GetText <> "1" then
 528         fCloseNavigator
 529         Sleep 1
 530
 531         Call wTypeKeys "<ESCAPE>"
 532         Call wTypeKeys "<MOD1 Home>"
 533
 534         EditSearchAndReplace
 535         Kontext "FindAndReplace"
 536         SearchFor.SetText sDummy
 537         Wait 500
 538         SearchAll.Click
 539         Sleep 1
 540         FindAndReplace.Cancel
 541
 542         Call wTypeKeys "<Home>"
 543         Call wTypeKeys "<Backspace>"
 544         Goto Check
 545     else
 546         fCloseNavigator
 547         Wait 500
 548     end if
 549
 550     Call wTypeKeys "<ESCAPE>"
 551     Sleep 1
 552     Call wTypeKeys "<MOD1 Home>"
 553
 554     '/// Press Return before the second paragraph
 555     Call wTypeKeys "<Return>" , 3
 556     Wait 500
 557
 558     '/// Set focus to the frame  , the frame should be in the second page
 559     Call wTypeKeys ( "<Shift F4>" )
 560     Sleep 1
 561
 562     Kontext
 563     ViewNavigator
 564     Kontext "NavigatorWriter"
 565     Sleep 1
 566     if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
 567     fCloseNavigator
 568     Wait 500
 569
 570     printlog " Close active document "
 571     Do Until GetDocumentCount = 0
 572         Call hCloseDocument
 573     Loop
 574
 575 endcase
 576
 577 '-----------------------------------------------------------------
 578
 579 testcase tTextframes_8
 580
 581     Dim sTestFile as String
 582     Dim sDummy    as String
 583
 584     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToCharacter.sxw")
 585     sDummy    = "He heard"
 586
 587     printlog "- Test Anchor to Character - the frame follows the vertical position of the character it is anchored to"
 588     '/// Test Anchor to Character - the frame follows the vertical position of the character it is anchored to
 589
 590     '/// Open a test file
 591     '/// + This test file is designed for Anchor To Character test.
 592     '/// + The frame is anchored to the character 't' of That .
 593     '/// + The frame is in the bottom of the first page
 594
 595     Call hFileOpen(sTestFile,false)
 596     Call sMakeReadOnlyDocumentEditable
 597
 598     '/// check if the frame is in the first page
 599     Call wTypeKeys ( "<Shift F4>" )
 600     Sleep 1
 601
 602     Check1:
 603     Kontext
 604     ViewNavigator
 605     Kontext "NavigatorWriter"
 606     Sleep 1
 607     if Seitennummer.GetText <> "1" then
 608         fCloseNavigator
 609         Sleep 1
 610
 611         Call wTypeKeys "<ESCAPE>"
 612         Call wTypeKeys "<MOD1 Home>"
 613
 614         EditSearchAndReplace
 615         Kontext "FindAndReplace"
 616         SearchFor.SetText sDummy
 617         Wait 500
 618         SearchAll.Click
 619         Sleep 1
 620         FindAndReplace.Cancel
 621
 622         Call wTypeKeys "<Home>"
 623         Call wTypeKeys "<Backspace>"
 624         Goto Check1
 625     else
 626         fCloseNavigator
 627         Wait 500
 628     end if
 629
 630     Call wTypeKeys "<ESCAPE>"
 631     Sleep 1
 632     Call wTypeKeys "<End>"
 633
 634     '/// Press Return behind the character which the frame is anchored.
 635     Call wTypeKeys "<Return>" , 8
 636     Wait 500
 637
 638     '/// Set focus to the frame  , the frame should be still in the first page
 639     Call wTypeKeys ( "<Shift F4>" )
 640     Sleep 1
 641
 642     Kontext
 643     ViewNavigator
 644     Kontext "NavigatorWriter"
 645     Sleep 1
 646     if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page !"
 647     fCloseNavigator
 648     Wait 500
 649
 650     Call hCloseDocument
 651
 652     Call hFileOpen(sTestFile,false)
 653     Call sMakeReadOnlyDocumentEditable
 654
 655     Call wTypeKeys ( "<Shift F4>" )
 656     Sleep 1
 657
 658     Check2:
 659     Kontext
 660     ViewNavigator
 661     Kontext "NavigatorWriter"
 662     Sleep 1
 663     if Seitennummer.GetText <> "1" then
 664         fCloseNavigator
 665         Sleep 1
 666
 667         Call wTypeKeys "<ESCAPE>"
 668         Call wTypeKeys "<MOD1 Home>"
 669
 670         EditSearchAndReplace
 671         Kontext "FindAndReplace"
 672         SearchFor.SetText sDummy
 673         Wait 500
 674         SearchAll.Click
 675         Sleep 1
 676         FindAndReplace.Cancel
 677
 678         Call wTypeKeys "<Home>"
 679         Call wTypeKeys "<Backspace>"
 680         Goto Check2
 681     else
 682         fCloseNavigator
 683         Wait 500
 684     end if
 685
 686     '/// Press Return  in front of the character which the frame is anchored.
 687     Call wTypeKeys "<MOD1 Home>"
 688     Call wTypeKeys "<Return>" , 8
 689     Wait 500
 690
 691     '/// Set focus to the frame  , the frame should be in the second page
 692     Call wTypeKeys ( "<Shift F4>" )
 693     Sleep 1
 694
 695     Kontext
 696     ViewNavigator
 697     Kontext "NavigatorWriter"
 698     Sleep 1
 699     if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
 700     fCloseNavigator
 701     Wait 500
 702
 703     printlog " Close active document "
 704     Do Until GetDocumentCount = 0
 705         Call hCloseDocument
 706     Loop
 707
 708 endcase
 709
 710 '-----------------------------------------------------------------
 711
 712 testcase tTextframes_9
 713
 714     Dim sTestFile as String
 715     Dim sDummy    as String
 716
 717     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorAsCharacter.sxw")
 718     sDummy    = "He heard"
 719
 720     printlog "- Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it"
 721     '/// Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it
 722
 723     '/// Open a test file
 724     '/// + This test file is designed for Anchor as Character test.
 725     '/// + The frame is anchored as the character.
 726     '/// + The frame is in the right and bottom of the first page
 727     Call hFileOpen(sTestFile,false)
 728     Call sMakeReadOnlyDocumentEditable
 729
 730     'check if the frame is in the first page
 731     Call wTypeKeys ( "<Shift F4>" )
 732     Sleep 1
 733
 734     Check1:
 735     Kontext
 736     ViewNavigator
 737     Kontext "NavigatorWriter"
 738     Sleep 1
 739     if Seitennummer.GetText <> "1" then
 740         fCloseNavigator
 741         Sleep 1
 742
 743         Call wTypeKeys "<ESCAPE>"
 744         Call wTypeKeys "<MOD1 Home>"
 745
 746         EditSearchAndReplace
 747         Kontext "FindAndReplace"
 748         SearchFor.SetText sDummy
 749         Wait 500
 750         SearchAll.Click
 751         Sleep 1
 752         FindAndReplace.Cancel
 753
 754         Call wTypeKeys "<Home>"
 755         Call wTypeKeys "<Backspace>"
 756         Goto Check1
 757     else
 758         fCloseNavigator
 759         Wait 500
 760     end if
 761
 762     Call wTypeKeys "<ESCAPE>"
 763     Sleep 1
 764     Call wTypeKeys "<End>"
 765
 766     '/// Press Return behind the the frame.
 767     Call wTypeKeys "<Return>" , 8
 768     Wait 500
 769
 770     '/// Set focus to the frame  , the frame should be still in the first page
 771     Call wTypeKeys ( "<Shift F4>" )
 772     Sleep 1
 773
 774     Kontext
 775     ViewNavigator
 776     Kontext "NavigatorWriter"
 777     Sleep 1
 778     if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page !"
 779     fCloseNavigator
 780     Wait 500
 781
 782     Call hCloseDocument
 783
 784     Call hFileOpen(sTestFile,false)
 785     Call sMakeReadOnlyDocumentEditable
 786
 787     Check2:
 788     Kontext
 789     ViewNavigator
 790     Kontext "NavigatorWriter"
 791     Sleep 1
 792     if Seitennummer.GetText <> "1" then
 793         fCloseNavigator
 794         Sleep 1
 795
 796         Call wTypeKeys "<ESCAPE>"
 797         Call wTypeKeys "<MOD1 Home>"
 798
 799         EditSearchAndReplace
 800         Kontext "FindAndReplace"
 801         SearchFor.SetText sDummy
 802         Wait 500
 803         SearchAll.Click
 804         Sleep 1
 805         FindAndReplace.Cancel
 806
 807         Call wTypeKeys "<Home>"
 808         Call wTypeKeys "<Backspace>"
 809         Goto Check2
 810     else
 811         fCloseNavigator
 812         Wait 500
 813     end if
 814
 815     '/// Press Return  in front of the frame
 816     Call wTypeKeys "<ESCAPE>"
 817     Sleep 1
 818     Call wTypeKeys "<Home>"
 819     Call wTypeKeys "<Return>" , 8
 820     Wait 500
 821
 822     '/// Set focus to the frame  , the frame should be in the second page
 823     Call wTypeKeys ( "<Shift F4>" )
 824     Sleep 1
 825
 826     Kontext
 827     ViewNavigator
 828     Kontext "NavigatorWriter"
 829     Sleep 1
 830     if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
 831     fCloseNavigator
 832     Wait 500
 833
 834     printlog " Close active document "
 835     Do Until GetDocumentCount = 0
 836         Call hCloseDocument
 837     Loop
 838
 839 endcase
 840
 841 '-----------------------------------------------------------------
 842
 843 testcase tTextframes_10
 844
 845     Dim sColumn1   as String
 846     Dim sColumn2   as String
 847     Dim sTestFile1 as String
 848     Dim sTestFile2 as String
 849
 850     sColumn1   = "1"
 851     sColumn2   = "2"
 852     sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageColumn1.sxw")
 853     sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageColumn2.sxw")
 854
 855     printlog "- Test Anchor in gathering pages&columns test."
 856     '/// Test Anchor in gathering pages&columns test.
 857
 858     '/// Open a test file
 859     '/// + This test file is designed for Anchor in gathering pages&columns test.
 860     '/// + There are 2 columns in the page. And the frame is in the second column.
 861     Call hFileOpen(sTestFile1,false)
 862     Call sMakeReadOnlyDocumentEditable
 863
 864     'Press return to ensure the frame is in 2nd column
 865     Call wTypeKeys "<MOD1 Home>"
 866     Sleep 1
 867     Call wTypeKeys "<Return>" , 8
 868     Sleep 1
 869
 870     '/// Set the column to 1
 871     fFormatPageWriter("TabSpalten")
 872     Anzahl.SetText sColumn1
 873     Sleep 1
 874     TabSpalten.OK
 875
 876     '/// Check if the frame is in the second page
 877     Call wTypeKeys ( "<Shift F4>" )
 878     Sleep 1
 879
 880     Kontext
 881     ViewNavigator
 882     Kontext "NavigatorWriter"
 883     Sleep 1
 884     if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page -1!"
 885     fCloseNavigator
 886     Wait 500
 887
 888     Call hCloseDocument
 889
 890     printlog "- Test Anchor in seperating pages&columns test"
 891     '/// Test Anchor in seperating pages&columns test
 892
 893     '/// Open a test file2
 894     '/// + This test file is designed for Anchor in seperating
 895     '/// + pages&columns test.
 896     '/// + There are 2 pages. And the frame is in the second page.
 897     Call hFileOpen(sTestFile2,false)
 898     Call sMakeReadOnlyDocumentEditable
 899
 900     'check if the frame is in the 2nd page
 901     Call wTypeKeys ( "<Shift F4>" )
 902     Sleep 1
 903
 904     Kontext
 905     ViewNavigator
 906     Kontext "NavigatorWriter"
 907     Sleep 1
 908     if Seitennummer.GetText <> "2" then
 909         Call wTypeKeys "<ESCAPE>"
 910         Call wTypeKeys "<MOD1 Home>"
 911         Sleep 1
 912         Call wTypeKeys "<Return>" , 8
 913         Sleep 1
 914     end if
 915     fCloseNavigator
 916     Wait 500
 917
 918     Call wTypeKeys "<ESCAPE>"
 919     Sleep 1
 920
 921     '/// Set the column to 2
 922     fFormatPageWriter("TabSpalten")
 923     Anzahl.SetText sColumn2
 924     Sleep 1
 925     TabSpalten.OK
 926
 927     '/// Check if the frame is in the first page
 928     Call wTypeKeys ( "<Shift F4>" )
 929     Sleep 1
 930
 931     Kontext
 932     ViewNavigator
 933     Kontext "NavigatorWriter"
 934     Sleep 1
 935     if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page ! -2"
 936     fCloseNavigator
 937     Wait 500
 938
 939     printlog " Close active document "
 940     Do Until GetDocumentCount = 0
 941         Call hCloseDocument
 942     Loop
 943
 944 endcase
 945
 946 '-----------------------------------------------------------------
 947
 948 testcase tTextframes_11
 949
 950     Dim sTestFile as String
 951     Dim sDummy1   as String
 952     Dim sDummy2   as String
 953
 954     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageParagraph.sxw")
 955     sDummy1   = "He heard"
 956     sDummy2   = "after he"
 957
 958     printlog "- Test Anchor in gathering paragraph test"
 959     '/// Test Anchor in gathering paragraph test
 960
 961     '/// Open a test file
 962     '/// + This test file is designed for Anchor in gathering paragraph test.
 963     '/// + There are 2 paragraph in the file .
 964     '/// + The 1st paragraph is in 1st page and the 2nd paragraph is in 2nd page
 965     '/// + Two paragraphs, a frame is anchored to the second one. When deleting the paragraph mark, the anchor of the frame has to move the the first paragraph.
 966     Call hFileOpen(sTestFile,false)
 967     Call sMakeReadOnlyDocumentEditable
 968
 969 Check1:
 970     'First check
 971     EditSearchAndReplace
 972     Kontext "FindAndReplace"
 973
 974     SearchFor.SetText sDummy1
 975     Wait 500
 976
 977     SearchAll.Click
 978
 979     Sleep 1
 980     Kontext "Active"
 981     if Active.Exists then
 982         if Active.GetRT = 304 then
 983             try
 984                 Active.Ok
 985             catch
 986                 Active.No
 987             endcatch
 988         end if
 989     end if
 990     Kontext "FindAndReplace"
 991     FindAndReplace.Cancel
 992
 993     Kontext "Navigator"
 994     if Not Navigator.Exists then ViewNavigator
 995     Kontext "NavigatorWriter"
 996     Sleep 1
 997     if Seitennummer.GetText <> "1" then
 998         fCloseNavigator
 999         Wait 500
1000         Call wTypeKeys "<Home>"
1001         Wait 500
1002         Call wTypeKeys "<BackSpace>"
1003         Wait 500
1004         Goto Check1
1005     end if
1006
1007     fCloseNavigator
1008     Wait 500
1009
1010 Check2:
1011     'Second check
1012     EditSearchAndReplace
1013     Kontext "FindAndReplace"
1014
1015     SearchFor.SetText sDummy2
1016     Wait 500
1017
1018     SearchAll.Click
1019     Sleep 1
1020     Kontext "Active"
1021     if Active.Exists then
1022         if Active.GetRT = 304 then
1023             try
1024                 Active.Ok
1025             catch
1026                 Active.No
1027             endcatch
1028         end if
1029     end if
1030     Kontext "FindAndReplace"
1031     FindAndReplace.Close
1032
1033     Kontext "Navigator"
1034     if Not Navigator.Exists then ViewNavigator
1035     Kontext "NavigatorWriter"
1036     Sleep 1
1037     if Seitennummer.GetText <> "2" then
1038         fCloseNavigator
1039         Wait 500
1040         Call wTypeKeys "<MOD1 Home>"
1041         Wait 500
1042         Call wTypeKeys "<Return>"
1043         Wait 500
1044         Goto Check2
1045     end if
1046
1047     fCloseNavigator
1048     Wait 500
1049
1050     '/// Delete the 1st paragraph mark
1051     Call wTypeKeys "<Home>"
1052     Wait 500
1053     Call wTypeKeys "<Backspace>"
1054     Sleep 1
1055
1056     Call wTypeKeys ( "<Shift F4>" )
1057     Sleep 1
1058
1059     '/// Check if frame is in 1st page
1060     Kontext "Navigator"
1061     if Not Navigator.Exists then ViewNavigator
1062     Kontext "NavigatorWriter"
1063     Sleep 1
1064     if Seitennummer.GetText <> "1" then
1065         Warnlog "The test frame should be in the first page! "
1066     end if
1067     fCloseNavigator
1068     Wait 500
1069
1070     printlog " Close active document "
1071     Do Until GetDocumentCount = 0
1072         Call hCloseDocument
1073     Loop
1074
1075 endcase
1076
1077 '-----------------------------------------------------------------
1078
1079 testcase tTextframes_12
1080
1081     printlog "- Horizontal should not be available when frame is anchored as Character"
1082     '/// Horizontal should not be available when frame is anchored as Character
1083
1084     Call hNewDocument
1085
1086     '/// insert a frame
1087     Call wInsertFrame
1088
1089     '/// format / frame / type
1090     Call fFormatFrame("TabType")
1091
1092     '/// + Check Anchor as Character
1093     AnchorAsCharacter.Check
1094     wait 500
1095
1096     '/// + Check if Horizontal is available
1097     try
1098         Horizontal.Select 1
1099         Warnlog "Horizontal Should NOT be available when anchor as Character!"
1100     catch
1101     endcatch
1102
1103     try
1104         HorizontalBy.SetText "1"
1105         Warnlog "HorizontalBy Should NOT be available when anchor as Character!"
1106     catch
1107     endcatch
1108
1109     try
1110         HorizontalTo.Select 1
1111         Warnlog "HorizontalTo Should NOT be available when anchor as Character!"
1112     catch
1113     endcatch
1114
1115     TabType.Cancel
1116
1117     Call hCloseDocument
1118
1119 endcase
1120
1121 '-----------------------------------------------------------------
1122
1123 testcase tTextframes_13
1124
1125     Dim sHorizontalBy       as String
1126     Dim iHorizontalLeft     as Integer
1127     Dim iHorizontalRight    as Integer
1128     Dim iHorizontalCenter   as Integer
1129     Dim iHorizontalFromLeft as Integer
1130
1131     sHorizontalBy       = "1"+ gSeperator + "00" + gMeasurementUnit
1132
1133     iHorizontalLeft     = 1
1134     iHorizontalRight    = 2
1135     iHorizontalCenter   = 3
1136     iHorizontalFromLeft = 4
1137
1138     printlog "Test Horizontal"
1139     '/// Test Horizontal
1140
1141     Call hNewDocument
1142
1143     '/// insert a frame
1144     Call wInsertFrame
1145
1146     '/// format / frame / type
1147     Call fFormatFrame("TabType")
1148     '/// + Select Horizontal as Left
1149     printlog "- Horizontal as Left"
1150
1151     Horizontal.Select iHorizontalLeft
1152
1153     try
1154         HorizontalBy.SetText   sHorizontalBy
1155         Warnlog "HorizontalBy Should NOT be available !"
1156     catch
1157     endcatch
1158
1159     HorizontalTo.Select 1
1160     wait 500
1161     TabType.OK
1162
1163     Call fFormatFrame("TabType")
1164     if Horizontal.GetSelIndex   <> iHorizontalLeft then Warnlog "Horizontal option is not correct !"
1165     if HorizontalTo.GetSelIndex <> 1               then Warnlog "HorizontalTo option is not correct !"
1166     TabType.Cancel
1167
1168     '/// + Select Horizontal as Right
1169     printlog "- Horizontal as Right"
1170
1171     Call fFormatFrame("TabType")
1172     Horizontal.Select iHorizontalRight
1173
1174     try
1175         HorizontalBy.SetText   sHorizontalBy
1176         Warnlog "HorizontalBy Should NOT be available !"
1177     catch
1178     endcatch
1179
1180     HorizontalTo.Select 2
1181     TabType.OK
1182
1183     Call fFormatFrame("TabType")
1184     if Horizontal.GetSelIndex   <> iHorizontalRight then Warnlog "Horizontal option is not correct !"
1185     if HorizontalTo.GetSelIndex <> 2                then Warnlog "HorizontalTo option is not correct !"
1186     TabType.Cancel
1187
1188     Call fFormatFrame("TabType")
1189     '/// + Select Horizontal as Center
1190     printlog "- Horizontal as Center"
1191
1192     Horizontal.Select iHorizontalCenter
1193
1194     try
1195         HorizontalBy.SetText   sHorizontalBy
1196         Warnlog "HorizontalBy Should NOT be available !"
1197     catch
1198     endcatch
1199
1200     HorizontalTo.Select 3
1201     TabType.OK
1202
1203     Call fFormatFrame("TabType")
1204     if Horizontal.GetSelIndex   <> iHorizontalCenter then Warnlog "Horizontal option is not correct !"
1205     if HorizontalTo.GetSelIndex <> 3                 then Warnlog "HorizontalTo option is not correct !"
1206     TabType.Cancel
1207
1208     Call fFormatFrame("TabType")
1209     '/// + Select Horizontal as From left
1210     printlog "- Horizontal as From left "
1211
1212     Horizontal.Select iHorizontalFromLeft
1213
1214     try
1215         HorizontalBy.SetText   sHorizontalBy
1216     catch
1217         Warnlog "HorizontalBy Should be available !"
1218     endcatch
1219
1220     HorizontalTo.Select 3
1221     wait 500
1222     TabType.OK
1223
1224     Call fFormatFrame("TabType")
1225     if Horizontal.GetSelIndex   <> iHorizontalFromLeft then Warnlog "Horizontal option is not correct !"
1226     if HorizontalBy.GetText     <> sHorizontalBy       then Warnlog "HorizontalBy option is not correct !"
1227     if HorizontalTo.GetSelIndex <> 3                   then Warnlog "HorizontalTo option is not correct !"
1228     TabType.Cancel
1229
1230     Call hCloseDocument
1231
1232 endcase
1233
1234 '-----------------------------------------------------------------
1235
1236 testcase tTextframes_14
1237
1238     Dim sVerticalBy      as String
1239     Dim iVerticalTop     as Integer
1240     Dim iVerticalBottom  as Integer
1241     Dim iVerticalCenter  as Integer
1242     Dim iVerticalFromTop as Integer
1243
1244     sVerticalBy      = "1"+ gSeperator + "00" + gMeasurementUnit
1245
1246     iVerticalTop     = 1
1247     iVerticalBottom  = 2
1248     iVerticalCenter  = 3
1249     iVerticalFromTop = 4
1250
1251     printlog "Test Vertical"
1252     '/// Test Vertical
1253
1254     Call hNewDocument
1255
1256     '/// insert a frame
1257     Call wInsertFrame
1258
1259     '/// format / frame / type
1260     Call fFormatFrame("TabType")
1261     '/// + Select Vertical as Top
1262     printlog "- Vertical as Top"
1263
1264     Vertical.Select iVerticalTop
1265
1266     try
1267         VerticalBy.SetText  sVerticalBy
1268         Warnlog "VerticalBy Should NOT be available !"
1269     catch
1270     endcatch
1271
1272     VerticalTo.Select 1
1273     wait 500
1274     TabType.OK
1275
1276     Call fFormatFrame("TabType")
1277     if Vertical.GetSelIndex   <> iVerticalTop then Warnlog "Vertical option is not correct !"
1278     if VerticalTo.GetSelIndex <> 1            then Warnlog "VerticalTo option is not correct !"
1279     TabType.Cancel
1280
1281     '/// + Select Vertical as Right
1282     printlog "- Vertical as Right"
1283
1284     Call fFormatFrame("TabType")
1285     Vertical.Select iVerticalBottom
1286
1287     try
1288         VerticalBy.SetText  sVerticalBy
1289         Warnlog "VerticalBy Should NOT be available !"
1290     catch
1291     endcatch
1292
1293     VerticalTo.Select 2
1294     TabType.OK
1295
1296     Call fFormatFrame("TabType")
1297     if Vertical.GetSelIndex   <> iVerticalBottom then Warnlog "Vertical option is not correct !"
1298     if VerticalTo.GetSelIndex <> 2               then Warnlog "VerticalTo option is not correct !"
1299     TabType.Cancel
1300
1301     Call fFormatFrame("TabType")
1302     '/// + Select Vertical as Center
1303     printlog "- Vertical as Center"
1304
1305     Vertical.Select iVerticalCenter
1306
1307     try
1308         VerticalBy.SetText  sVerticalBy
1309         Warnlog "VerticalBy Should NOT be available !"
1310     catch
1311     endcatch
1312
1313     VerticalTo.Select 1
1314     TabType.OK
1315
1316     Call fFormatFrame("TabType")
1317     if Vertical.GetSelIndex   <> iVerticalCenter then Warnlog "Vertical option is not correct !"
1318     if VerticalTo.GetSelIndex <> 1               then Warnlog "VerticalTo option is not correct !"
1319     TabType.Cancel
1320
1321     Call fFormatFrame("TabType")
1322     '/// + Select Vertical as From top
1323     printlog "- Vertical as From top"
1324
1325     Vertical.Select iVerticalFromTop
1326
1327     try
1328         VerticalBy.SetText  sVerticalBy
1329     catch
1330         Warnlog "VerticalBy Should be available !"
1331     endcatch
1332
1333     VerticalTo.Select 2
1334     wait 500
1335     TabType.OK
1336
1337     Call fFormatFrame("TabType")
1338     if Vertical.GetSelIndex   <> iVerticalFromTop then Warnlog "Vertical option is not correct !"
1339     if VerticalBy.GetText     <> sVerticalBy      then Warnlog "VerticalBy option is not correct !"
1340     if VerticalTo.GetSelIndex <> 2                then Warnlog "VerticalTo option is not correct !"
1341     TabType.Cancel
1342
1343     Call hCloseDocument
1344
1345 endcase
1346
1347 '-----------------------------------------------------------------
1348
1349 testcase tTextframes_15
1350
1351     Dim sOriginalName as String
1352     Dim sNewName      as String
1353
1354     sOriginalName = "TEST1"
1355     sNewName      = "TEST2"
1356
1357     printlog "- Frame name can be actualized in Navigator - solution 1"
1358     '/// Frame name can be actualized in Navigator - solution 1
1359
1360     Call hNewDocument
1361
1362     '/// insert a frame and name as "TEST1"
1363     Call wInsertFrame
1364
1365     Call fFormatFrame("TabZusaetze")
1366     ObjektName.SetText sOriginalName
1367     TabZusaetze.OK
1368
1369     '/// Open Navigator,
1370     Call fStartupNavigator("TextFrame" , 1)
1371     Auswahlliste.TypeKeys "<Down>"
1372     Auswahlliste.OpenContextMenu
1373
1374     '/// + ContextMenu  TextFrame / Edit,
1375     Call hMenuSelectNr(4)
1376     Sleep 2
1377     Call hMenuSelectNr(1)
1378     Sleep 1
1379     Kontext "TabZusaetze"
1380     '/// + Change the frame name in the opened dialogue ,
1381     try
1382         ObjektName.SetText sNewName
1383         TabZusaetze.OK
1384     catch
1385         Warnlog "format/grame dialogue isn't opened correctly!"
1386         Call fCloseNavigator
1387         goto endsub
1388     endcatch
1389
1390     '/// + close the navigator
1391     Call fCloseNavigator
1392
1393     Call wTypeKeys ( "<Shift F4>" )
1394
1395     '/// Check if the name is changed correctly
1396     Call fFormatFrame("TabZusaetze")
1397     if ObjektName.GetText <> sNewName then Warnlog "frame name isn't renamed correctly!"
1398     TabZusaetze.Cancel
1399
1400     Call hCloseDocument
1401
1402 endcase
1403
1404 '---------------------------------------------------
1405
1406 testcase tTextframes_16
1407
1408     Dim sOriginalName as String
1409     Dim sNewName      as String
1410
1411     sOriginalName = "TEST1"
1412     sNewName      = "TEST2"
1413
1414     printlog "- Frame name can be actualized in Navigator - solution 2"
1415     '/// Frame name can be actualized in Navigator - solution 2
1416
1417     Call hNewDocument
1418
1419     '/// insert a frame and name as "TEST1"
1420     Call wInsertFrame
1421
1422     Call fFormatFrame("TabZusaetze")
1423     ObjektName.SetText sOriginalName
1424     TabZusaetze.OK
1425
1426     '/// + Open Navigator ,
1427     Call fStartupNavigator("TextFrame" , 1)
1428
1429     Auswahlliste.TypeKeys "<Down>"
1430     Auswahlliste.OpenContextMenu
1431
1432     '/// + ContextMenu  TextFrame / Rename
1433     Call hMenuSelectNr(4)
1434     Sleep 2
1435     Call hMenuSelectNr(3)
1436     Sleep 1
1437
1438     Kontext "ObjekteUmbenennen"
1439
1440     '/// + Change the frame name in the opened dialogue ,
1441     try
1442         ObjektName.SetText sNewName
1443         ObjekteUmbenennen.OK
1444     catch
1445         Warnlog "Frame rename dialogue isn't opened correctly!"
1446         Call fCloseNavigator
1447         goto endsub
1448     endcatch
1449
1450     '/// + close navigaotr
1451     Call fCloseNavigator
1452
1453     Call wTypeKeys ( "<Shift F4>" )
1454
1455     '/// Check if the name is changed correctly
1456     Call fFormatFrame("TabZusaetze")
1457     if ObjektName.GetText <> sNewName then Warnlog "frame name isn't renamed correctly!"
1458     TabZusaetze.Cancel
1459
1460     Call hCloseDocument
1461
1462 endcase
1463
1464 '---------------------------------------------------