testautomation/writer/optional/includes/textframes/w_textframes4.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_textframes4.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:38:00 $
  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 - 4
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_textframes4
  41     Call tTextframes_49         ''Follow text flow' should be OFF by default
  42     Call tTextframes_50         ''Follow text flow' should be ON if document is older than StarOffice 8
  43     Call tTextframes_51         ''Follow text flow' should be OFF when wrapping mode is 'in front of text'
  44     Call tTextframes_52         ''Follow text flow' should be OFF when wrapping mode is 'behind text'
  45     Call tTextframes_53         ''Follow text flow' should be OFF when wrapping mode is 'tight'
  46     Call tTextframes_54         ''Follow text flow' should be ON when wrapping mode is 'square'
  47     Call tTextframes_55         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)
  48     Call tTextframes_56         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, page area)
  49     Call tTextframes_57         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)
  50     Call tTextframes_58         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, header)
  51     Call tTextframes_59         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)
  52     Call tTextframes_60         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, table)
  53     Call tTextframes_61         'Exceeding layout environment at the top - 'Follow text flow'(ON , footer)
  54     Call tTextframes_62         'Exceeding layout environment at the top - 'Follow text flow'(OFF, footer)
  55     Call tTextframes_63         'Exceeding layout environment at the left - 'Follow text flow'(ON , table)
  56     Call tTextframes_64         'Exceeding layout environment at the left - 'Follow text flow'(OFF, table)
  57     Call tTextframes_65         'Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)
  58     Call tTextframes_66         'Exceeding layout environment at the left - 'Follow text flow'(OFF, Frame)
  59     Call tTextframes_67         'Exceeding layout environment at the right - 'Follow text flow'(ON , table)
  60     Call tTextframes_68         'Exceeding layout environment at the right - 'Follow text flow'(OFF, table)
  61     Call tTextframes_69         'Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)
  62     Call tTextframes_70         'Exceeding layout environment at the right - 'Follow text flow'(OFF, Frame)
  63 end sub
  64
  65 '---------------------------------------------------
  66
  67 testcase tTextframes_49
  68
  69     printlog "- 'Follow text flow' should be OFF by default"
  70     '/// 'Follow text flow' should be OFF by default
  71
  72     Call hNewDocument
  73
  74     '/// insert a frame
  75     Call wInsertFrame
  76
  77     '/// Format/Frame / Type ,
  78     '/// + Check box 'Follow text flow' should be OFF
  79     Call fFormatFrame("TabType")
  80     if FollowTextflow.IsChecked then
  81         Warnlog "'Follow text flow' should be turned off!"
  82     end if
  83     TabType.Cancel
  84
  85     Call hCloseDocument
  86
  87 endcase
  88
  89 '-----------------------------------------------------------------
  90
  91 testcase tTextframes_50
  92
  93     Dim sTestFile as String
  94
  95     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frame.sxw")
  96
  97     printlog "- 'Follow text flow' should be ON if document is older than StarOffice 8"
  98     '/// Follow text flow' should be ON if document is older than StarOffice 8
  99
 100     Call hNewDocument
 101
 102     '/// Open a test file , which includes a frame and
 103     '/// + it is StarOffice 7 format
 104     Call hFileOpen(sTestFile,false)
 105     Call sMakeReadOnlyDocumentEditable
 106
 107     '/// Set focus to frame
 108     Call wTypeKeys ( "<Shift F4>" )
 109     Sleep 1
 110
 111     '/// Format/Frame / Type ,
 112     '/// + Check box 'Follow text flow' should be ON
 113     Call fFormatFrame("TabType")
 114     if NOT FollowTextflow.IsChecked then
 115         Warnlog "'Follow text flow' should be turned on!"
 116     end if
 117     TabType.Cancel
 118
 119     printlog " Close active document "
 120     Do Until GetDocumentCount = 0
 121         Call hCloseDocument
 122     Loop
 123
 124 endcase
 125
 126 '-----------------------------------------------------------------
 127
 128 testcase tTextframes_51
 129
 130     Dim sTestFile as String
 131
 132     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\inFrontText.doc")
 133
 134     printlog "- 'Follow text flow' should be OFF when wrapping mode is 'in front of text'"
 135     '/// 'Follow text flow' should be OFF when wrapping mode is 'in front of text'
 136
 137     Call hNewDocument
 138
 139     '/// Open a test file , which is a Word file and includes
 140     '/// + a frame that is in 'in front of text' mode
 141     Call hFileOpen(sTestFile,false)
 142     Call sMakeReadOnlyDocumentEditable
 143
 144     '/// Set focus to frame
 145     Call wTypeKeys ( "<Shift F4>" )
 146     Sleep 1
 147
 148     '/// Format/Frame / Type ,
 149     '/// + Check box 'Follow text flow' should be OFF
 150     Call fFormatFrame("TabType")
 151     if FollowTextflow.IsChecked then
 152         Warnlog "'Follow text flow' should be turned off!"
 153     end if
 154     TabType.Cancel
 155
 156     printlog " Close active document "
 157     Do Until GetDocumentCount = 0
 158         Call hCloseDocument
 159     Loop
 160
 161 endcase
 162
 163 '-----------------------------------------------------------------
 164
 165 testcase tTextframes_52
 166
 167     Dim sTestFile as  String
 168
 169     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\behindText.doc")
 170
 171     printlog "- 'Follow text flow' should be OFF when wrapping mode is 'behind text'"
 172     '/// 'Follow text flow' should be OFF when wrapping mode is 'behind text'
 173
 174     Call hNewDocument
 175
 176     '/// Open a test file , which is a Word file and includes
 177     '/// + a frame that is in 'behind text' mode
 178     Call hFileOpen(sTestFile,false)
 179     Call sMakeReadOnlyDocumentEditable
 180
 181     '/// Set focus to the frame
 182     Call wTypeKeys ( "<Shift F4>" )
 183     Sleep 1
 184
 185     '/// Format/Frame / Type ,
 186     '/// + Check box 'Follow text flow' should be OFF
 187     Call fFormatFrame("TabType")
 188     if FollowTextflow.IsChecked then
 189         Warnlog "'Follow text flow' should be turned off!"
 190     end if
 191     TabType.Cancel
 192
 193     printlog " Close active document "
 194     Do Until GetDocumentCount = 0
 195         Call hCloseDocument
 196     Loop
 197
 198 endcase
 199
 200 '-----------------------------------------------------------------
 201
 202 testcase tTextframes_53
 203
 204     Dim sTestFile as  String
 205
 206     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\tight.doc")
 207
 208     printlog "- 'Follow text flow' should be OFF when wrapping mode is 'tight'"
 209     '/// 'Follow text flow' should be OFF when wrapping mode is 'tight'
 210
 211     Call hNewDocument
 212
 213     '/// Open a test file , which is a Word file and includes
 214     '/// + a frame that is in 'tight' mode
 215     Call hFileOpen(sTestFile,false)
 216     Call sMakeReadOnlyDocumentEditable
 217
 218     '/// Set focus to the frame
 219     Call wTypeKeys ( "<Shift F4>" )
 220     Sleep 1
 221
 222     '/// Format/Frame / Type ,
 223     '/// + Check box 'Follow text flow' should be OFF
 224     Call fFormatFrame("TabType")
 225     if FollowTextflow.IsChecked then
 226         Warnlog "'Follow text flow' should be turned off!"
 227     end if
 228     TabType.Cancel
 229
 230     printlog " Close active document "
 231     Do Until GetDocumentCount = 0
 232         Call hCloseDocument
 233     Loop
 234
 235 endcase
 236
 237 '-----------------------------------------------------------------
 238
 239 testcase tTextframes_54
 240
 241     Dim sTestFile as  String
 242
 243     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\square.doc")
 244
 245     printlog "- 'Follow text flow' should be OFF when wrapping mode is 'square'"
 246     '/// 'Follow text flow' should be OFF when wrapping mode is 'square'
 247
 248     Call hNewDocument
 249
 250     '/// Open a test file , which is a Word file and includes
 251     '/// + a frame that is in 'square' mode
 252     Call hFileOpen(sTestFile,false)
 253     Call sMakeReadOnlyDocumentEditable
 254
 255     '/// Set focus to the frame
 256     Call wTypeKeys ( "<Shift F4>" )
 257     Sleep 1
 258
 259     '/// Format/Frame / Type ,
 260     '/// + Check box 'Follow text flow' should be OFF
 261     Call fFormatFrame("TabType")
 262     if FollowTextflow.IsChecked then
 263         Warnlog "'Follow text flow' should be turned off!"
 264     end if
 265     TabType.Cancel
 266
 267     printlog " Close active document "
 268     Do Until GetDocumentCount = 0
 269         Call hCloseDocument
 270     Loop
 271
 272 endcase
 273
 274 '-----------------------------------------------------------------
 275
 276 testcase tTextframes_55
 277
 278     Dim iVertical   as Integer
 279     Dim sVerticalBy as String
 280
 281     iVertical    = 4 'From top
 282     sVerticalBy  = "50"
 283
 284     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)"
 285     '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)
 286
 287     Call hNewDocument
 288
 289     '/// Insert/Frame / Type ,
 290     '/// + Select 'from top' in Vertical ,
 291     '/// + Set 50cm in vertical by area
 292     '/// + Check 'Follow text flow'
 293     InsertFrame
 294     Kontext
 295     Active.Setpage TabType
 296     Kontext "TabType"
 297     Vertical.Select  iVertical
 298     Sleep 1
 299     VerticalBy.SetText sVerticalBy
 300     Sleep 1
 301     FollowTextflow.Check
 302     TabType.Ok
 303
 304     '/// Check if the frame is in 2nd page
 305     Kontext
 306     ViewNavigator
 307     Kontext "NavigatorWriter"
 308     Sleep 1
 309     if Seitennummer.GetText <> "2" then
 310         Warnlog "The test frame isn't in the second page!"
 311     end if
 312
 313     Call fCloseNavigator
 314
 315     Call hCloseDocument
 316
 317 endcase
 318
 319 '-----------------------------------------------------------------
 320
 321 testcase tTextframes_56
 322
 323     Dim iVertical   as Integer
 324     Dim sVerticalBy as String
 325
 326     iVertical    = 4 'From top
 327     sVerticalBy  = "50"
 328
 329     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , page area)"
 330     '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , page area)
 331
 332     Call hNewDocument
 333
 334     '/// Insert/Frame / Type ,
 335     '/// + Select 'from top' in Vertical ,
 336     '/// + Set 50cm in vertical by area
 337     '/// + UnCheck 'Follow text flow'
 338     InsertFrame
 339     Kontext
 340     Active.Setpage TabType
 341     Kontext "TabType"
 342     Vertical.Select  iVertical
 343     Sleep 1
 344     VerticalBy.SetText sVerticalBy
 345     Sleep 1
 346     FollowTextflow.UnCheck
 347     TabType.Ok
 348
 349     '/// Check if the frame is in 1st page
 350     Kontext
 351     ViewNavigator
 352     Kontext "NavigatorWriter"
 353     Sleep 1
 354     if Seitennummer.GetText <> "1" then
 355         Warnlog "The test frame isn't in the first page!"
 356     end if
 357
 358     Call fCloseNavigator
 359
 360     Call hCloseDocument
 361
 362 endcase
 363
 364 '-----------------------------------------------------------------
 365
 366 testcase tTextframes_57
 367
 368     Dim sTestFile   as String
 369     Dim iVertical   as Integer
 370     Dim sVerticalBy as String
 371     Dim sPositionY1 as String
 372     Dim sPositionY2 as String
 373
 374     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInHeader.sxw")
 375     iVertical    = 4 'From top
 376     sVerticalBy  = "50"
 377
 378     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)"
 379     '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)
 380
 381     Call hNewDocument
 382
 383     '/// Open a test file , which includes a frame in header and
 384     '/// + a picture which is anchored to frame
 385     Call hFileOpen(sTestFile,false)
 386     Call sMakeReadOnlyDocumentEditable
 387
 388     'Set focus to the picture
 389     Call wTypeKeys ( "<Shift F4>" )
 390     Sleep 1
 391     Call wTypeKeys "<Tab>"
 392     Sleep 1
 393
 394     'Get the pic Y position
 395     FormatAnchorToPage
 396     Sleep 1
 397
 398     Call fPositionAndSize("TabPositionAndSizeWriter")
 399     sPositionY1 = Verticalby.Gettext
 400     TabPositionAndSizeWriter.Cancel
 401
 402     FormatAnchorToFrame
 403     Sleep 1
 404
 405     '/// Set focus to the frame
 406     Call wTypeKeys "<Tab>"
 407     Sleep 1
 408
 409     '/// Format/Frame / Type ,
 410     '/// + Check box 'Follow text flow'
 411     '/// + set a much bigger values in from top
 412     Call fFormatFrame("TabType")
 413     FollowTextflow.Check
 414     Vertical.Select  iVertical
 415     Sleep 1
 416     VerticalBy.SetText sVerticalBy
 417     Sleep 1
 418     TabType.OK
 419
 420     'Set focus to picture
 421     Call wTypeKeys "<Tab>"
 422     Sleep 1
 423
 424     'Get the pic Y position
 425     FormatAnchorToPage
 426     Sleep 1
 427     Call fPositionAndSize("TabPositionAndSizeWriter")
 428     sPositionY2 = Verticalby.Gettext
 429     TabPositionAndSizeWriter.Cancel
 430
 431     '/// Check if frame is still in the header
 432     if fCalculateTolerance( sPositionY1, sPositionY2) > 0.3 then
 433         Warnlog "Something is wrong ! Perhaps the frame isn't in the header!"
 434     end if
 435
 436     printlog " Close active document "
 437     Do Until GetDocumentCount = 0
 438         Call hCloseDocument
 439     Loop
 440
 441 endcase
 442
 443 '-----------------------------------------------------------------
 444
 445 testcase tTextframes_58
 446
 447     Dim sTestFile   as String
 448     Dim iVertical   as Integer
 449     Dim sVerticalBy as String
 450     Dim sPositionY1 as String
 451     Dim sPositionY2 as String
 452
 453     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInHeader.sxw")
 454     iVertical    = 4 'From top
 455     sVerticalBy  = "50"
 456
 457     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , header)"
 458     '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , header)
 459
 460     Call hNewDocument
 461
 462     '/// Open a test file , which includes a frame in header and
 463     '/// + a picture which is anchored to frame
 464     Call hFileOpen(sTestFile,false)
 465     Call sMakeReadOnlyDocumentEditable
 466
 467     'Set focus to the picture
 468     Call wTypeKeys ( "<Shift F4>" )
 469     Sleep 1
 470     Call wTypeKeys "<Tab>"
 471     Sleep 1
 472
 473     'Get the pic Y position
 474     FormatAnchorToPage
 475     Sleep 1
 476     Call fPositionAndSize("TabPositionAndSizeWriter")
 477     sPositionY1 = Verticalby.Gettext
 478     TabPositionAndSizeWriter.Cancel
 479
 480     FormatAnchorToFrame
 481     Sleep 1
 482
 483     '/// Set focus to the frame
 484     Call wTypeKeys "<Tab>"
 485     Sleep 1
 486
 487     '/// Format/Frame / Type ,
 488     '/// + UnCheck box 'Follow text flow'
 489     '/// + set a much bigger values in from top
 490     Call fFormatFrame("TabType")
 491     FollowTextflow.UnCheck
 492     Vertical.Select  iVertical
 493     Sleep 1
 494     VerticalBy.SetText sVerticalBy
 495     Sleep 1
 496     TabType.OK
 497
 498     'Set focus to picture
 499     Call wTypeKeys "<Tab>"
 500     Sleep 1
 501
 502     'Get the pic Y position
 503     FormatAnchorToPage
 504     Sleep 1
 505     Call fPositionAndSize("TabPositionAndSizeWriter")
 506     sPositionY2 = Verticalby.Gettext
 507     TabPositionAndSizeWriter.Cancel
 508
 509     '/// Check if frame is still in the header
 510     if fCalculateTolerance( sPositionY1, sPositionY2 ) < 18 then
 511         Warnlog "Something is wrong ! Perhaps the frame is still in the header!"
 512     end if
 513
 514     printlog " Close active document "
 515     Do Until GetDocumentCount = 0
 516         Call hCloseDocument
 517     Loop
 518
 519 endcase
 520
 521 '-----------------------------------------------------------------
 522
 523 testcase tTextframes_59
 524
 525     Dim sTestFile   as String
 526     Dim sPositionY1 as String
 527     Dim sPositionY2 as String
 528
 529     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
 530
 531     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)"
 532     '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)
 533
 534     Call hNewDocument
 535
 536     '/// Open a test file , which includes a frame in table and
 537     '/// + a picture which is anchored to frame
 538     Call hFileOpen(sTestFile,false)
 539     Call sMakeReadOnlyDocumentEditable
 540
 541     'Set focus to the picture
 542     Call wTypeKeys ( "<Shift F4>" )
 543     Sleep 1
 544     Call wTypeKeys ( "<Tab>" )
 545
 546     FormatAnchorToFrame
 547     Sleep 1
 548
 549     'Get the pic Y position
 550     Sleep 1
 551     Call fFormatGraphic("TabType")
 552     sPositionY1 = Verticalby.Gettext
 553     TabType.Cancel
 554
 555     '/// Set focus to the frame
 556     Call wTypeKeys "<Tab>"
 557     Sleep 1
 558
 559     '/// Format/Frame / Type ,
 560     '/// + Check box 'Follow text flow'
 561     '/// + set a much bigger values in from top
 562     Call fFormatFrame("TabType")
 563     FollowTextflow.Check
 564     Vertical.Select 4
 565     Sleep 1
 566     VerticalBy.SetText "50"
 567     Sleep 1
 568     TabType.OK
 569
 570     'Set focus to picture
 571     Call wTypeKeys "<Tab>"
 572     Sleep 1
 573
 574     'Get the pic Y position
 575     Sleep 1
 576     Call fFormatGraphic("TabType")
 577     sPositionY2 = Verticalby.Gettext
 578     TabType.Cancel
 579
 580     '/// Check if frame is still in the table
 581     if fCalculateTolerance( sPositionY1, sPositionY2) > 0.3 then
 582         Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
 583     end if
 584
 585     'Set focus to frame
 586     Call wTypeKeys "<Tab>"
 587     Sleep 1
 588
 589     'if the frame is in the table, the focus should be in the table
 590     Call wTypeKeys "<ESCape>"
 591     Sleep 1
 592
 593     try
 594         Call fFormatTable("TabTabelle")
 595         TabTabelle.Cancel
 596     catch
 597         Warnlog "The frame isn't in the table!"
 598     endcatch
 599
 600     printlog " Close active document "
 601     Do Until GetDocumentCount = 0
 602         Call hCloseDocument
 603     Loop
 604
 605 endcase
 606
 607 '-----------------------------------------------------------------
 608
 609 testcase tTextframes_60
 610
 611     Dim sTestFile   as String
 612     Dim sPositionY1 as String
 613     Dim sPositionY2 as String
 614
 615     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
 616
 617     printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , table)"
 618     '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , table)
 619
 620     Call hNewDocument
 621
 622     '/// Open a test file , which includes a frame in table and
 623     '/// + a picture which is anchored to frame
 624     Call hFileOpen(sTestFile,false)
 625     Call sMakeReadOnlyDocumentEditable
 626
 627     'Set focus to the frame
 628     Call wTypeKeys ( "<Shift F4>" )
 629     Sleep 1
 630
 631     printlog "Move the frame into the document-area."
 632     Call wTypeKeys "<RIGHT>",10
 633     Call wTypeKeys "<DOWN>",7
 634
 635     'Set focus to the picture
 636     Call wTypeKeys ( "<Tab>" )
 637
 638     'Get the pic Y position
 639     Sleep 1
 640     Call fFormatGraphic("TabType")
 641     sPositionY1 = Verticalby.Gettext
 642     TabType.Cancel
 643
 644     FormatAnchorToFrame
 645     Sleep 1
 646
 647     '/// Set focus to the frame
 648     Call wTypeKeys "<Tab>"
 649     Sleep 1
 650
 651     '/// Format/Frame / Type ,
 652     '/// + UnCheck box 'Follow text flow'
 653     '/// + set a much bigger values in from top
 654     Call fFormatFrame("TabType")
 655     FollowTextflow.UnCheck
 656     Vertical.Select 4
 657     Sleep 1
 658     VerticalBy.ToMax
 659     Sleep 1
 660     TabType.OK
 661
 662     'Set focus to picture
 663     Call wTypeKeys "<Tab>"
 664     Sleep 1
 665
 666     'Get the pic Y position
 667     Sleep 1
 668     Call fFormatGraphic("TabType")
 669     sPositionY2 = Verticalby.Gettext
 670     TabType.Cancel
 671
 672     '/// Check if frame is still in the table
 673     if fCalculateTolerance( sPositionY1, sPositionY2) <> 0 then
 674         Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
 675     end if
 676
 677     'Set focus to frame
 678     Call wTypeKeys "<Tab>"
 679     Sleep 1
 680
 681     'if the frame is in the table, the focus should be in the table
 682     Call wTypeKeys "<ESCape>"
 683     Sleep 1
 684
 685     try
 686         Call fFormatTable("TabTabelle")
 687         TabTabelle.Cancel
 688         Warnlog "The frame should be in the table!"
 689     catch
 690     endcatch
 691
 692     printlog " Close active document "
 693     Do Until GetDocumentCount = 0
 694         Call hCloseDocument
 695     Loop
 696
 697 endcase
 698
 699 '-----------------------------------------------------------------
 700
 701 testcase tTextframes_61
 702
 703     Dim sTestFile   as String
 704     Dim iVertical   as Integer
 705     Dim sVerticalBy as String
 706     Dim sPositionY1 as String
 707     Dim sPositionY2 as String
 708
 709     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFooter.sxw")
 710     iVertical    = 4 'From top
 711     sVerticalBy  = "-50"
 712
 713     printlog "- Exceeding layout environment at the top - 'Follow text flow'(ON , footer)"
 714     '/// Exceeding layout environment at the top - 'Follow text flow'(ON , footer)
 715
 716     Call hNewDocument
 717
 718     '/// Open a test file , which includes a frame in footer and
 719     '/// + a picture which is anchored to frame
 720     Call hFileOpen(sTestFile,false)
 721     Call sMakeReadOnlyDocumentEditable
 722
 723     'Set focus to the picture
 724     Call wTypeKeys ( "<Shift F4>" )
 725     Sleep 1
 726     Call wTypeKeys "<Tab>"
 727     Sleep 1
 728
 729     'Get the pic Y position
 730     FormatAnchorToPage
 731     Sleep 1
 732     Call fPositionAndSize("TabPositionAndSizeWriter")
 733     sPositionY1 = Verticalby.Gettext
 734     TabPositionAndSizeWriter.Cancel
 735
 736     FormatAnchorToFrame
 737     Sleep 1
 738
 739     '/// Set focus to the frame
 740     Call wTypeKeys "<Tab>"
 741     Sleep 1
 742
 743     '/// Format/Frame / Type ,
 744     '/// + Check box 'Follow text flow'
 745     '/// + set a much bigger values in from top
 746     Call fFormatFrame("TabType")
 747     FollowTextflow.Check
 748     Vertical.Select  iVertical
 749     Sleep 1
 750     VerticalBy.SetText sVerticalBy
 751     Sleep 1
 752     TabType.OK
 753
 754     'Set focus to picture
 755     Call wTypeKeys "<Tab>"
 756     Sleep 1
 757
 758     'Get the pic Y position
 759     FormatAnchorToPage
 760     Sleep 1
 761     Call fPositionAndSize("TabPositionAndSizeWriter")
 762     sPositionY2 = Verticalby.Gettext
 763     TabPositionAndSizeWriter.Cancel
 764
 765     '/// Check if frame is still in the header
 766     if fCalculateTolerance( sPositionY1, sPositionY2) > 0.8 then
 767         Warnlog "Something is wrong ! Perhaps the frame isn't in the footer!"
 768     end if
 769
 770     printlog " Close active document "
 771     Do Until GetDocumentCount = 0
 772         Call hCloseDocument
 773     Loop
 774
 775 endcase
 776
 777 '-----------------------------------------------------------------
 778
 779 testcase tTextframes_62
 780
 781     Dim sTestFile   as String
 782     Dim iVertical   as Integer
 783     Dim sVerticalBy as String
 784     Dim sPositionY1 as String
 785     Dim sPositionY2 as String
 786
 787     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFooter.sxw")
 788     iVertical    = 4 'From top
 789     sVerticalBy  = "-50"
 790
 791     printlog "- Exceeding layout environment at the top - 'Follow text flow'(OFF , footer)"
 792     '/// Exceeding layout environment at the top - 'Follow text flow'(OFF , footer)
 793
 794     Call hNewDocument
 795
 796     '/// Open a test file , which includes a frame in footer and
 797     '/// + a picture which is anchored to frame
 798     Call hFileOpen(sTestFile,false)
 799     Call sMakeReadOnlyDocumentEditable
 800
 801     'Set focus to the picture
 802     Call wTypeKeys ( "<Shift F4>" )
 803     Sleep 1
 804     Call wTypeKeys "<Tab>"
 805     Sleep 1
 806
 807     'Get the pic Y position
 808     FormatAnchorToPage
 809     Sleep 1
 810     Call fPositionAndSize("TabPositionAndSizeWriter")
 811     sPositionY1 = Verticalby.Gettext
 812     TabPositionAndSizeWriter.Cancel
 813
 814     FormatAnchorToFrame
 815     Sleep 1
 816
 817     '/// Set focus to the frame
 818     Call wTypeKeys "<Tab>"
 819     Sleep 1
 820
 821     '/// Format/Frame / Type ,
 822     '/// + UnCheck box 'Follow text flow'
 823     '/// + set a much bigger values in from top
 824     Call fFormatFrame("TabType")
 825     FollowTextflow.UnCheck
 826     Vertical.Select  iVertical
 827     Sleep 1
 828     VerticalBy.SetText sVerticalBy
 829     Sleep 1
 830     TabType.OK
 831
 832     'Set focus to picture
 833     Call wTypeKeys "<Tab>"
 834     Sleep 1
 835
 836     'Get the pic Y position
 837     FormatAnchorToPage
 838     Sleep 1
 839     Call fPositionAndSize("TabPositionAndSizeWriter")
 840     sPositionY2 = Verticalby.Gettext
 841     TabPositionAndSizeWriter.Cancel
 842
 843     '/// Check if frame is still in the header
 844     if fCalculateTolerance( sPositionY1, sPositionY2 ) < 18 then
 845         Warnlog "Something is wrong ! Perhaps the frame is still in the footer!"
 846     end if
 847
 848     printlog " Close active document "
 849     Do Until GetDocumentCount = 0
 850         Call hCloseDocument
 851     Loop
 852
 853 endcase
 854
 855 '-----------------------------------------------------------------
 856
 857 testcase tTextframes_63
 858
 859     Dim sTestFile     as String
 860     Dim iHorizontal   as Integer
 861     Dim sHorizontalBy as String
 862     Dim sPositionX1   as String
 863     Dim sPositionX2   as String
 864
 865     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
 866     iHorizontal    = 4 'From Left
 867     sHorizontalBy  = "-50"
 868
 869     printlog "- Exceeding layout environment at the left - 'Follow text flow'(ON , table)"
 870     '/// Exceeding layout environment at the left - 'Follow text flow'(ON , table)
 871
 872     Call hNewDocument
 873
 874     '/// Open a test file , which includes a frame in table and
 875     '/// + a picture which is anchored to frame
 876     Call hFileOpen(sTestFile,false)
 877     Call sMakeReadOnlyDocumentEditable
 878
 879     'Set focus to the picture
 880     Call wTypeKeys ( "<Shift F4>" )
 881     Sleep 1
 882         Call wTypeKeys ( "<Tab>" )
 883
 884     'Get the pic X position
 885     Sleep 1
 886     Call fFormatGraphic("TabType")
 887     sPositionX1 = Horizontalby.Gettext
 888     TabType.Cancel
 889
 890     FormatAnchorToFrame
 891     Sleep 1
 892
 893     '/// Set focus to the frame
 894     Call wTypeKeys "<Tab>"
 895     Sleep 1
 896
 897     '/// Format/Frame / Type ,
 898     '/// + Check box 'Follow text flow'
 899     '/// + set a much bigger values in from left
 900     Call fFormatFrame("TabType")
 901     FollowTextflow.Check
 902     Horizontal.Select iHorizontal
 903     Sleep 1
 904     HorizontalBy.SetText sHorizontalBy
 905     Sleep 1
 906     TabType.OK
 907
 908     'Set focus to picture
 909     Call wTypeKeys "<Tab>"
 910     Sleep 1
 911
 912     'Get the pic X position
 913     Sleep 1
 914     Call fFormatGraphic("TabType")
 915     sPositionX2 = Horizontalby.Gettext
 916     TabType.Cancel
 917
 918     '/// Check if frame is still in the table
 919     if fCalculateTolerance( sPositionX1, sPositionX2) > 0.3 then
 920         Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
 921     end if
 922
 923     'Set focus to frame
 924     Call wTypeKeys "<Tab>"
 925     Sleep 1
 926
 927     'if the frame is in the table, the focus should be in the table
 928     Call wTypeKeys "<ESCape>"
 929     Sleep 1
 930
 931     try
 932         Call fFormatTable("TabTabelle")
 933         TabTabelle.Cancel
 934     catch
 935         Warnlog "The frame isn't in the table!"
 936     endcatch
 937
 938     printlog " Close active document "
 939     Do Until GetDocumentCount = 0
 940         Call hCloseDocument
 941     Loop
 942
 943 endcase
 944
 945 '-----------------------------------------------------------------
 946
 947 testcase tTextframes_64
 948
 949     Dim sTestFile     as String
 950     Dim iHorizontal   as Integer
 951     Dim sHorizontalBy as String
 952     Dim sPositionX1   as String
 953     Dim sPositionX2   as String
 954
 955     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
 956     iHorizontal    = 4 'From Left
 957     sHorizontalBy  = "-50"
 958
 959     printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , table)"
 960     '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , table)
 961
 962     Call hNewDocument
 963
 964     '/// Open a test file , which includes a frame in table and
 965     '/// + a picture which is anchored to frame
 966     Call hFileOpen(sTestFile,false)
 967     Call sMakeReadOnlyDocumentEditable
 968
 969     'Set focus to the picture
 970     Call wTypeKeys ( "<Shift F4>" )
 971     Sleep 1
 972         Call wTypeKeys ( "<Tab>" )
 973
 974     'Get the pic Y position
 975     Sleep 1
 976     Call fFormatGraphic("TabType")
 977     sPositionX1 = Horizontalby.Gettext
 978     TabType.Cancel
 979
 980     FormatAnchorToFrame
 981     Sleep 1
 982
 983     '/// Set focus to the frame
 984     Call wTypeKeys "<Tab>"
 985     Sleep 1
 986
 987     '/// Format/Frame / Type ,
 988     '/// + UnCheck box 'Follow text flow'
 989     '/// + set a much bigger values in from left
 990     Call fFormatFrame("TabType")
 991     FollowTextflow.UnCheck
 992     Horizontal.Select iHorizontal
 993     Sleep 1
 994     HorizontalBy.SetText sHorizontalBy
 995     Sleep 1
 996     TabType.OK
 997
 998     'Set focus to picture
 999     Call wTypeKeys "<Tab>"
1000     Sleep 1
1001
1002     'Get the pic X position
1003     Sleep 1
1004     Call fFormatGraphic("TabType")
1005     sPositionX2 = Horizontalby.Gettext
1006     TabType.Cancel
1007
1008     '/// Check if frame is still in the table
1009     if fCalculateTolerance( sPositionX1, sPositionX2) <> 0 then
1010         Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
1011     end if
1012
1013     'Set focus to frame
1014     Call wTypeKeys "<Tab>"
1015     Sleep 1
1016
1017     'if the frame is in the table, the focus should be in the table
1018     Call wTypeKeys "<ESCape>"
1019     Sleep 1
1020
1021     try
1022         Call fFormatTable("TabTabelle")
1023         TabTabelle.Cancel
1024         Warnlog "The frame shouldn't in the table!"
1025     catch
1026     endcatch
1027
1028     printlog " Close active document "
1029     Do Until GetDocumentCount = 0
1030         Call hCloseDocument
1031     Loop
1032
1033 endcase
1034
1035 '-----------------------------------------------------------------
1036
1037 testcase tTextframes_65
1038
1039         Dim sTestFile     as String
1040     Dim iHorizontal   as Integer
1041     Dim sHorizontalBy as String
1042     Dim sPositionX1   as String
1043     Dim sPositionX2   as String
1044
1045     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
1046     iHorizontal    = 4 'From Left
1047     sHorizontalBy  = "-50"
1048
1049     printlog "- Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)"
1050     '/// Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)
1051
1052     Call hNewDocument
1053
1054     '/// Open a test file , which includes 2 frames ,
1055     '/// Frame A is anchored Frame B
1056     '/// + a picture which is anchored to Frame A
1057     Call hFileOpen(sTestFile,false)
1058     Call sMakeReadOnlyDocumentEditable
1059
1060     'Set focus to the picture
1061     Call wTypeKeys ( "<Shift F4>" )
1062     Sleep 1
1063     Call wTypeKeys "<Tab>"
1064     Sleep 1
1065
1066     'Get the pic X position
1067     FormatAnchorToPage
1068     Sleep 1
1069     Call fPositionAndSize("TabPositionAndSizeWriter")
1070     sPositionX1 = Horizontalby.Gettext
1071     TabPositionAndSizeWriter.Cancel
1072
1073     FormatAnchorToFrame
1074     Sleep 1
1075
1076     '/// Set focus to the frame
1077     Call wTypeKeys "<Tab>" , 2
1078     Sleep 1
1079
1080     '/// Format/Frame / Type ,
1081     '/// + Check box 'Follow text flow'
1082     '/// + set a much bigger values in from left
1083     Call fFormatFrame("TabType")
1084     FollowTextflow.Check
1085     Horizontal.Select iHorizontal
1086     Sleep 1
1087     HorizontalBy.SetText sHorizontalBy
1088     Sleep 1
1089     TabType.OK
1090
1091     'Set focus to picture
1092     Call wTypeKeys "<Tab>"
1093     Sleep 1
1094
1095     'Get the pic X position
1096     FormatAnchorToPage
1097     Sleep 1
1098     Call fPositionAndSize("TabPositionAndSizeWriter")
1099     sPositionX2 = Horizontalby.Gettext
1100     TabPositionAndSizeWriter.Cancel
1101
1102     '/// Check if frame is still in the frame
1103     if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
1104         Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
1105     end if
1106
1107     printlog " Close active document "
1108     Do Until GetDocumentCount = 0
1109         Call hCloseDocument
1110     Loop
1111
1112 endcase
1113
1114 '-----------------------------------------------------------------
1115
1116 testcase tTextframes_66
1117
1118     Dim sTestFile     as String
1119     Dim iHorizontal   as Integer
1120     Dim sHorizontalBy as String
1121     Dim sPositionX1   as String
1122     Dim sPositionX2   as String
1123
1124     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
1125     iHorizontal    = 4 'From Left
1126     sHorizontalBy  = "-50"
1127
1128     printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)"
1129     '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)
1130
1131     Call hNewDocument
1132
1133     '/// Open a test file , which includes 2 frames ,
1134     '/// Frame A is anchored Frame B
1135     '/// + a picture which is anchored to Frame A
1136     Call hFileOpen(sTestFile,false)
1137     Call sMakeReadOnlyDocumentEditable
1138
1139     'Set focus to the picture
1140     Call wTypeKeys ( "<Shift F4>" )
1141     Sleep 1
1142     Call wTypeKeys "<Tab>"
1143     Sleep 1
1144
1145     'Get the pic X position
1146     FormatAnchorToPage
1147     Sleep 1
1148     Call fPositionAndSize("TabPositionAndSizeWriter")
1149     sPositionX1 = Horizontalby.Gettext
1150     TabPositionAndSizeWriter.Cancel
1151
1152     FormatAnchorToFrame
1153     Sleep 1
1154
1155     '/// Set focus to the frame
1156     Call wTypeKeys "<Tab>" , 2
1157     Sleep 1
1158
1159     '/// Format/Frame / Type ,
1160     '/// + UnCheck box 'Follow text flow'
1161     '/// + set a much bigger values in from left
1162     Call fFormatFrame("TabType")
1163     FollowTextflow.UnCheck
1164     Horizontal.Select iHorizontal
1165     Sleep 1
1166     HorizontalBy.SetText sHorizontalBy
1167     Sleep 1
1168     TabType.OK
1169
1170     'Set focus to picture
1171     Call wTypeKeys "<Tab>"
1172     Sleep 1
1173
1174     'Get the pic X position
1175     FormatAnchorToPage
1176     Sleep 1
1177     Call fPositionAndSize("TabPositionAndSizeWriter")
1178     sPositionX2 = Horizontalby.Gettext
1179     TabPositionAndSizeWriter.Cancel
1180
1181     '/// Check if frame is still in the frame
1182     if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
1183         Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
1184     end if
1185
1186     printlog " Close active document "
1187     Do Until GetDocumentCount = 0
1188         Call hCloseDocument
1189     Loop
1190
1191 endcase
1192
1193 '-----------------------------------------------------------------
1194
1195 testcase tTextframes_67
1196
1197     Dim sTestFile     as String
1198     Dim iHorizontal   as Integer
1199     Dim sHorizontalBy as String
1200     Dim sPositionX1   as String
1201     Dim sPositionX2   as String
1202
1203     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
1204     iHorizontal    = 4 'From Left
1205     sHorizontalBy  = "50"
1206
1207     printlog "- Exceeding layout environment at the right - 'Follow text flow'(ON , table)"
1208     '/// Exceeding layout environment at the right - 'Follow text flow'(ON , table)
1209
1210     Call hNewDocument
1211
1212     '/// Open a test file , which includes a frame in table and
1213     '/// + a picture which is anchored to frame
1214     Call hFileOpen(sTestFile,false)
1215     Call sMakeReadOnlyDocumentEditable
1216
1217     'Set focus to the picture
1218     Call wTypeKeys ( "<Shift F4>" )
1219     Sleep 1
1220         Call wTypeKeys ( "<Tab>" )
1221
1222     'Get the pic X position
1223     Sleep 1
1224     Call fFormatGraphic("TabType")
1225     sPositionX1 = Horizontalby.Gettext
1226     TabType.Cancel
1227
1228     FormatAnchorToFrame
1229     Sleep 1
1230
1231     '/// Set focus to the frame
1232     Call wTypeKeys "<Tab>"
1233     Sleep 1
1234
1235     '/// Format/Frame / Type ,
1236     '/// + Check box 'Follow text flow'
1237     '/// + set a much bigger values in from left
1238     Call fFormatFrame("TabType")
1239     FollowTextflow.Check
1240     Horizontal.Select iHorizontal
1241     Sleep 1
1242     HorizontalBy.SetText sHorizontalBy
1243     Sleep 1
1244     TabType.OK
1245
1246     'Set focus to picture
1247     Call wTypeKeys "<Tab>"
1248     Sleep 1
1249
1250     'Get the pic X position
1251     Sleep 1
1252     Call fFormatGraphic("TabType")
1253     sPositionX2 = Horizontalby.Gettext
1254     TabType.Cancel
1255
1256     '/// Check if frame is still in the table
1257     if fCalculateTolerance( sPositionX1, sPositionX2) > 1 then
1258         Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
1259     end if
1260
1261     'Set focus to frame
1262     Call wTypeKeys "<Tab>"
1263     Sleep 1
1264
1265     'if the frame is in the table, the focus should be in the table
1266     Call wTypeKeys "<ESCape>"
1267     Sleep 1
1268
1269     try
1270         Call fFormatTable("TabTabelle")
1271         TabTabelle.Cancel
1272     catch
1273         Warnlog "The frame isn't in the table!"
1274     endcatch
1275
1276     printlog " Close active document "
1277     Do Until GetDocumentCount = 0
1278         Call hCloseDocument
1279     Loop
1280
1281 endcase
1282
1283 '-----------------------------------------------------------------
1284
1285 testcase tTextframes_68
1286
1287     Dim sTestFile     as String
1288     Dim iHorizontal   as Integer
1289     Dim sHorizontalBy as String
1290     Dim sPositionX1   as String
1291     Dim sPositionX2   as String
1292
1293     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
1294     iHorizontal    = 4 'From Left
1295     sHorizontalBy  = "50"
1296
1297     printlog "- Exceeding layout environment at the right - 'Follow text flow'(OFF , table)"
1298     '/// Exceeding layout environment at the right - 'Follow text flow'(OFF , table)
1299
1300     Call hNewDocument
1301
1302     '/// Open a test file , which includes a frame in table and
1303     '/// + a picture which is anchored to frame
1304     Call hFileOpen(sTestFile,false)
1305     Call sMakeReadOnlyDocumentEditable
1306
1307     'Set focus to the picture
1308     Call wTypeKeys ( "<Shift F4>" )
1309     Sleep 1
1310         Call wTypeKeys ( "<Tab>" )
1311
1312     'Get the pic Y position
1313     Sleep 1
1314     Call fFormatGraphic("TabType")
1315     sPositionX1 = Horizontalby.Gettext
1316     TabType.Cancel
1317
1318     FormatAnchorToFrame
1319     Sleep 1
1320
1321     '/// Set focus to the frame
1322     Call wTypeKeys "<Tab>"
1323     Sleep 1
1324
1325     '/// Format/Frame / Type ,
1326     '/// + UnCheck box 'Follow text flow'
1327     '/// + set a much bigger values in from left
1328     Call fFormatFrame("TabType")
1329     FollowTextflow.UnCheck
1330     Horizontal.Select iHorizontal
1331     Sleep 1
1332     HorizontalBy.SetText sHorizontalBy
1333     Sleep 1
1334     TabType.OK
1335
1336     'Set focus to picture
1337     Call wTypeKeys "<Tab>"
1338     Sleep 1
1339
1340     'Get the pic X position
1341     Sleep 1
1342     Call fFormatGraphic("TabType")
1343     sPositionX2 = Horizontalby.Gettext
1344     TabType.Cancel
1345
1346     '/// Check if frame is still in the table
1347     if fCalculateTolerance( sPositionX1, sPositionX2) <> 0 then
1348         Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
1349     end if
1350
1351     'Set focus to frame
1352     Call wTypeKeys "<Tab>"
1353     Sleep 1
1354
1355     'if the frame is in the table, the focus should be in the table
1356     Call wTypeKeys "<ESCape>"
1357     Sleep 1
1358
1359     try
1360         Call fFormatTable("TabTabelle")
1361         TabTabelle.Cancel
1362         Warnlog "The frame shouldn't in the table!"
1363     catch
1364     endcatch
1365
1366     printlog " Close active document "
1367     Do Until GetDocumentCount = 0
1368         Call hCloseDocument
1369     Loop
1370
1371 endcase
1372
1373 '-----------------------------------------------------------------
1374
1375 testcase tTextframes_69
1376
1377     Dim sTestFile     as String
1378     Dim iHorizontal   as Integer
1379     Dim sHorizontalBy as String
1380     Dim sPositionX1   as String
1381     Dim sPositionX2   as String
1382
1383     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
1384     iHorizontal    = 4 'From Left
1385     sHorizontalBy  = "50"
1386
1387     printlog "- Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)"
1388     '/// Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)
1389
1390     Call hNewDocument
1391
1392     '/// Open a test file , which includes 2 frames ,
1393     '/// Frame A is anchored Frame B
1394     '/// + a picture which is anchored to Frame A
1395     Call hFileOpen(sTestFile,false)
1396     Call sMakeReadOnlyDocumentEditable
1397
1398     'Set focus to the picture
1399     Call wTypeKeys ( "<Shift F4>" )
1400     Sleep 1
1401     Call wTypeKeys "<Tab>"
1402     Sleep 1
1403
1404     'Get the pic X position
1405     FormatAnchorToPage
1406     Sleep 1
1407     Call fPositionAndSize("TabPositionAndSizeWriter")
1408     sPositionX1 = Horizontalby.Gettext
1409     TabPositionAndSizeWriter.Cancel
1410
1411     FormatAnchorToFrame
1412     Sleep 1
1413
1414     '/// Set focus to the frame
1415     Call wTypeKeys "<Tab>" , 2
1416     Sleep 1
1417
1418     '/// Format/Frame / Type ,
1419     '/// + Check box 'Follow text flow'
1420     '/// + set a much bigger values in from left
1421     Call fFormatFrame("TabType")
1422     FollowTextflow.Check
1423     Horizontal.Select iHorizontal
1424     Sleep 1
1425     HorizontalBy.SetText sHorizontalBy
1426     Sleep 1
1427     TabType.OK
1428
1429     'Set focus to picture
1430     Call wTypeKeys "<Tab>"
1431     Sleep 1
1432
1433     'Get the pic X position
1434     FormatAnchorToPage
1435     Sleep 1
1436     Call fPositionAndSize("TabPositionAndSizeWriter")
1437     sPositionX2 = Horizontalby.Gettext
1438     TabPositionAndSizeWriter.Cancel
1439
1440     '/// Check if frame is still in the frame
1441     if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
1442         Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
1443     end if
1444
1445     printlog " Close active document "
1446     Do Until GetDocumentCount = 0
1447         Call hCloseDocument
1448     Loop
1449
1450 endcase
1451
1452 '-----------------------------------------------------------------
1453
1454 testcase tTextframes_70
1455
1456     Dim sTestFile     as String
1457     Dim iHorizontal   as Integer
1458     Dim sHorizontalBy as String
1459     Dim sPositionX1   as String
1460     Dim sPositionX2   as String
1461
1462     sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
1463     iHorizontal    = 4 'From Left
1464     sHorizontalBy  = "50"
1465
1466     printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)"
1467     '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)
1468
1469     Call hNewDocument
1470
1471     '/// Open a test file , which includes 2 frames ,
1472     '/// Frame A is anchored Frame B
1473     '/// + a picture which is anchored to Frame A
1474     Call hFileOpen(sTestFile,false)
1475     Call sMakeReadOnlyDocumentEditable
1476
1477     'Set focus to the picture
1478     Call wTypeKeys ( "<Shift F4>" )
1479     Sleep 1
1480     Call wTypeKeys "<Tab>"
1481     Sleep 1
1482
1483     'Get the pic X position
1484     FormatAnchorToPage
1485     Sleep 1
1486     Call fPositionAndSize("TabPositionAndSizeWriter")
1487     sPositionX1 = Horizontalby.Gettext
1488     TabPositionAndSizeWriter.Cancel
1489
1490     FormatAnchorToFrame
1491     Sleep 1
1492
1493     '/// Set focus to the frame
1494     Call wTypeKeys "<Tab>" , 2
1495     Sleep 1
1496
1497     '/// Format/Frame / Type ,
1498     '/// + UnCheck box 'Follow text flow'
1499     '/// + set a much bigger values in from left
1500     Call fFormatFrame("TabType")
1501     FollowTextflow.UnCheck
1502     Horizontal.Select iHorizontal
1503     Sleep 1
1504     HorizontalBy.SetText sHorizontalBy
1505     Sleep 1
1506     TabType.OK
1507
1508     'Set focus to picture
1509     Call wTypeKeys "<Tab>"
1510     Sleep 1
1511
1512     'Get the pic X position
1513     FormatAnchorToPage
1514     Sleep 1
1515     Call fPositionAndSize("TabPositionAndSizeWriter")
1516     sPositionX2 = Horizontalby.Gettext
1517     TabPositionAndSizeWriter.Cancel
1518
1519     '/// Check if frame is still in the table
1520     if fCalculateTolerance( sPositionX1, sPositionX2) < 3 then
1521         Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
1522     end if
1523
1524     printlog " Close active document "
1525     Do Until GetDocumentCount = 0
1526         Call hCloseDocument
1527     Loop
1528
1529 endcase
1530
1531 '-----------------------------------------------------------------