testautomation/writer/optional/includes/textframes/w_textframes3.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_textframes3.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:37:48 $
  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 - 3
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_textframes3
  41
  42     Call tTextframes_33         'Test attribute 'AutoSize' in linked frames
  43     Call tTextframes_34         'Insert text into original frame must flow into target frame, when first one is full
  44     Call tTextframes_35         'Show link - under Format.Frame.Options (previous link, next link)
  45     Call tTextframes_36         'Test link frames which are placed on different pages
  46     Call tTextframes_37         'Test link frames which are placed on header
  47     Call tTextframes_38         'Test link frames which are placed on footer
  48     Call tTextframes_39         'Test drag&drop with a linked frame - keyboard
  49     Call tTextframes_40         'Test Undo on drag&drop of frames (keyboard)
  50     Call tTextframes_41         'Test Undo on removing the link
  51     Call tTextframes_42         'Link frame in header with frame in bodytext should be forbidden
  52     Call tTextframes_43         'Link frame in footer with frame in bodytext should be forbidden
  53     Call tTextframes_44         'Link frame when target frame is not empty  should be forbidden
  54     Call tTextframes_45         'Recursed links should be forbidden
  55     Call tTextframes_46         'Frames which couldn't be linked with the current one is part of another 'chain'
  56     Call tTextframes_47         'Frames couldn't be linked with the current one is in protected section
  57     Call tTextframes_48         'Frames could be linked with the current one is set to "editable in protected documents" even it is in protected section
  58
  59 end sub
  60
  61 '---------------------------------------------------
  62
  63 testcase tTextframes_33
  64
  65     printlog "- Test attribute 'AutoSize' in linked frames"
  66     '/// Test attribute 'AutoSize' in linked frames
  67
  68     Call hNewDocument
  69
  70     '/// insert a frame
  71     Call fInsertFrame(30,30 , 50,50)
  72
  73     Call wTypeKeys "<ESCAPE>"
  74     WaitSlot (5)
  75
  76     '/// insert another frame
  77     Call fInsertFrame(50,50 , 80,80)
  78
  79     printlog "Move the second frame away from the first one."
  80     Call wTypeKeys "<RIGHT>",10
  81
  82     '/// Set focus to first frame
  83     Call wTypeKeys "<TAB>"
  84     Wait 500
  85
  86     '/// Active frame bar
  87     Call hToolbarSelect("FRAME", true )
  88     Wait 500
  89
  90     '/// Click link frame button
  91     Verketten.Click
  92     Wait 500
  93
  94     '/// Target the second frame
  95     Call gMouseClick(60,70)
  96     Wait 500
  97
  98     '/// Format/Frame / Type ,
  99     '/// + 'AutoSize' should be turned off in 1st frame (origination)
 100     Call fFormatFrame("TabType")
 101     try
 102         AutoHoehe.Check
 103         Warnlog "'AutoSize' should be turned off!"
 104     catch
 105     endcatch
 106     TabType.Cancel
 107
 108     '/// Set focus to second frame
 109     Call wTypeKeys "<TAB>"
 110     Wait 500
 111
 112     '/// + 'AutoSize' should be actived in 2nd frame (target)
 113     Call fFormatFrame("TabType")
 114     try
 115         AutoHoehe.Check
 116     catch
 117         Warnlog "'AutoSize' should be actived!"
 118     endcatch
 119     TabType.Cancel
 120
 121     Call hCloseDocument
 122
 123 endcase
 124
 125 '-----------------------------------------------------------------
 126
 127 testcase tTextframes_34
 128
 129     Dim sText         as String
 130     Dim sOriginalName as String
 131     Dim sTargetName   as String
 132
 133     sOriginalName = "TEST1"
 134     sTargetName   = "TEST2"
 135
 136     printlog "- Test attribute 'AutoSize' in linked frames"
 137     '/// Test attribute 'AutoSize' in linked frames
 138
 139     Call hNewDocument
 140
 141     '/// insert a frame , set frame name
 142     Call fInsertFrame(30,30 , 50,50)
 143
 144     Call fFormatFrame("TabZusaetze")
 145     ObjektName.SetText sOriginalName
 146     TabZusaetze.OK
 147
 148     Call wTypeKeys "<ESCAPE>"
 149     Wait 500
 150
 151     '/// insert another frame , set frame name
 152     Call fInsertFrame(50,50 , 80,80)
 153
 154     printlog "Move second frame away from the first frame."
 155     Call wTypeKeys "<RIGHT>", 12
 156
 157     printlog "Name second object."
 158     Call fFormatFrame("TabZusaetze")
 159     ObjektName.SetText sTargetName
 160     TabZusaetze.OK
 161
 162     '/// Set focus to first frame
 163     Call wTypeKeys "<TAB>"
 164     Wait 500
 165
 166     '/// Active frame bar
 167     Call hToolbarSelect("FRAME", true )
 168     Wait 500
 169
 170     '/// Click link frame button
 171     Verketten.Click
 172     Wait 500
 173
 174     '/// Target the second frame
 175     Call gMouseClick(60,70)
 176     Wait 500
 177
 178     Call wTypeKeys "<RETURN>"
 179     Wait 500
 180
 181     Call wBlindtextEinfuegen
 182     Wait 500
 183
 184     '/// set focus to the frame which the focus is in
 185     Call wTypeKeys "<ESCAPE>"
 186     Sleep 1
 187
 188     '/// Check if the link is showed correctly (Format.Frame.Options)
 189     Call fFormatFrame("TabZusaetze")
 190     if ObjektName.GetText <> sTargetName then Warnlog "The focus should be in 2nd frame!"
 191     TabZusaetze.Cancel
 192
 193     Call hCloseDocument
 194
 195 endcase
 196
 197 '-----------------------------------------------------------------
 198
 199 testcase tTextframes_35
 200
 201     Dim iNoLink as Integer
 202     Dim iLink   as Integer
 203
 204     iNoLink = 1
 205     iLink   = 2
 206
 207     printlog "- Show link - under Format.Frame.Options (previous link, next link)"
 208     '/// Show link - under Format.Frame.Options (previous link, next link)
 209
 210     Call hNewDocument
 211
 212     '/// insert a frame
 213     Call fInsertFrame(30,30 , 50,50)
 214
 215     Call wTypeKeys "<ESCAPE>"
 216     Wait 500
 217
 218     '/// insert another frame
 219     Call fInsertFrame(50,50 , 80,80)
 220
 221     printlog "Move the second frame away from the first one."
 222     Call wTypeKeys "<RIGHT>",10
 223
 224     '/// Set focus to first frame
 225     Call wTypeKeys "<TAB>"
 226     Wait 500
 227
 228     '/// Active frame bar
 229     Call hToolbarSelect("FRAME", true )
 230     Wait 500
 231
 232     '/// Click link frame button
 233     Verketten.Click
 234     Wait 500
 235
 236     '/// Target the second frame
 237     Call gMouseClick(60,70)
 238     Wait 500
 239
 240     '/// Check if the link is showed correctly (Format.Frame.Options)
 241     Call fFormatFrame("TabZusaetze")
 242     if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
 243     if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
 244     TabZusaetze.Cancel
 245
 246     '/// Set focus to second frame
 247     Call wTypeKeys "<TAB>"
 248     Wait 500
 249
 250     '/// Check if the link is showed correctly (Format.Frame.Options)
 251     Call fFormatFrame("TabZusaetze")
 252     if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
 253     if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
 254     TabZusaetze.Cancel
 255
 256     Call hCloseDocument
 257
 258 endcase
 259
 260 '-----------------------------------------------------------------
 261
 262 testcase tTextframes_36
 263
 264     Dim sTestFile as String
 265     Dim sTestText as String
 266     Dim iNoLink   as Integer
 267     Dim iLink     as Integer
 268
 269     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\twopages.sxw")
 270     iNoLink   = 1
 271     iLink     = 2
 272
 273     printlog "- Test link frames which are placed on different pages"
 274     '/// Test link frames which are placed on different pages
 275
 276     Call hNewDocument
 277
 278     '/// Open a test file
 279     '/// + This test file is designed for testing link
 280     '/// + frames which are placed on different pages
 281     '/// + There are 2 pages in the file and 1 frame/page
 282     Call hFileOpen(sTestFile,false)
 283     Call sMakeReadOnlyDocumentEditable
 284
 285     'Set focus to first frame
 286     Call wTypeKeys ( "<Shift F4>" )
 287     Wait 500
 288
 289     'Check if frame is in 1st page
 290     Kontext
 291     ViewNavigator
 292     Kontext "NavigatorWriter"
 293     Sleep 1
 294     if Seitennummer.GetText <> "1" then
 295         Warnlog "The test frame isn't in the first page!"
 296     end if
 297     Call fCloseNavigator
 298
 299     'Set focus to second frame
 300     Call wTypeKeys "<TAB>"
 301     Wait 500
 302
 303     'Check if frame is in 2nd page
 304     Kontext
 305     ViewNavigator
 306     Kontext "NavigatorWriter"
 307     Sleep 1
 308     if Seitennummer.GetText <> "2" then
 309         Warnlog "The test frame isn't in the second page!"
 310     end if
 311     Call fCloseNavigator
 312
 313     '/// Set focus to first frame
 314     Call wTypeKeys "<TAB>"
 315     Wait 500
 316
 317     '/// Set link in Format/Frame/Options
 318     Call fFormatFrame("TabZusaetze")
 319     try
 320         NextLink.Select iLink
 321         Sleep 1
 322     catch
 323         Warnlog "Can't link 2 frames which are placed on different pages!"
 324     endcatch
 325     TabZusaetze.OK
 326
 327     '/// Check if the link is correctly
 328     Call fFormatFrame("TabZusaetze")
 329     if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
 330     if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
 331     TabZusaetze.Cancel
 332
 333     '/// Set focus to second frame
 334     Call wTypeKeys "<TAB>"
 335     Wait 500
 336
 337     '/// Check if the link is correctly
 338     Call fFormatFrame("TabZusaetze")
 339     if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
 340     if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
 341     TabZusaetze.Cancel
 342
 343     printlog " Close active document "
 344     Do Until GetDocumentCount = 0
 345         Call hCloseDocument
 346     Loop
 347
 348 endcase
 349
 350 '-----------------------------------------------------------------
 351
 352 testcase tTextframes_37
 353
 354     Dim sTestFile as String
 355     Dim sTestText as String
 356     Dim iNoLink   as String
 357     Dim iLink     as  Integer
 358
 359     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\Header.sxw")
 360     iNoLink   = 1
 361     iLink     = 2
 362
 363     printlog "- Test link frames which are placed on header"
 364     '/// Test link frames which are placed on header
 365
 366     Call hNewDocument
 367
 368     '/// Open a test file
 369     '/// + This test file is designed for testing link
 370     '/// + frames which are placed on header
 371     '/// + There are 2 frames in the header
 372
 373     Call hFileOpen(sTestFile,false)
 374     Call sMakeReadOnlyDocumentEditable
 375
 376     '/// Set focus to first frame
 377     Call wTypeKeys ( "<Shift F4>" )
 378
 379     Wait 500
 380
 381     '/// Set link in Format.Frame.Options
 382     Call fFormatFrame("TabZusaetze")
 383     try
 384         NextLink.Select iLink
 385         Sleep 1
 386     catch
 387         Warnlog "Can't link 2 frames which are in the header"
 388     endcatch
 389     TabZusaetze.OK
 390
 391     '/// Check if the link is correctly
 392     Call fFormatFrame("TabZusaetze")
 393     if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
 394     if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
 395     TabZusaetze.Cancel
 396
 397     '/// Set focus to second frame
 398     Call wTypeKeys "<TAB>"
 399     Wait 500
 400
 401     '/// Check if the link is correctly
 402     Call fFormatFrame("TabZusaetze")
 403     if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
 404     if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
 405     TabZusaetze.Cancel
 406
 407     printlog " Close active document "
 408     Do Until GetDocumentCount = 0
 409         Call hCloseDocument
 410     Loop
 411
 412 endcase
 413
 414 '-----------------------------------------------------------------
 415
 416 testcase tTextframes_38
 417
 418     Dim sTestFile as String
 419     Dim sTestText as  String
 420     Dim iNoLink   as String
 421     Dim iLink     as  Integer
 422
 423     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\Footer.sxw")
 424     iNoLink   = 1
 425     iLink     = 2
 426
 427     printlog "- Test link frames which are placed on footer"
 428     '/// Test link frames which are placed on footer
 429
 430     Call hNewDocument
 431
 432     '/// Open a test file
 433     '/// + This test file is designed for testing link
 434     '/// + frames which are placed on header
 435     '/// + There are 2 frames in the header
 436     Call hFileOpen(sTestFile,false)
 437     Call sMakeReadOnlyDocumentEditable
 438
 439     '/// Set focus to first frame
 440     Call wTypeKeys ( "<Shift F4>" )
 441     Wait 500
 442
 443     '/// Set link in Format.Frame.Options
 444     Call fFormatFrame("TabZusaetze")
 445     try
 446         NextLink.Select iLink
 447         Sleep 1
 448     catch
 449         Warnlog "Can't link 2 frames which are in the header"
 450     endcatch
 451     TabZusaetze.OK
 452
 453     '/// Check if the link is correctly
 454     Call fFormatFrame("TabZusaetze")
 455     if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
 456     if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
 457     TabZusaetze.Cancel
 458
 459     '/// Set focus to second frame
 460     Call wTypeKeys "<TAB>"
 461     Wait 500
 462
 463     '/// Check if the link is correctly
 464     Call fFormatFrame("TabZusaetze")
 465     if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
 466     if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
 467     TabZusaetze.Cancel
 468
 469     printlog " Close active document "
 470     Do Until GetDocumentCount = 0
 471         Call hCloseDocument
 472     Loop
 473
 474 endcase
 475
 476 '-----------------------------------------------------------------
 477
 478 testcase tTextframes_39
 479
 480     Dim sHorizontalBy1    as String
 481     Dim sHorizontalBy2    as String
 482     Dim sVerticalBy1      as String
 483     Dim sVerticalBy2      as String
 484     Dim sHorizontalByNew1 as String
 485     Dim sHorizontalByNew2 as String
 486     Dim sVerticalByNew1   as String
 487     Dim sVerticalByNew2   as String
 488
 489     sHorizontalBy1    = "2"+ gSeperator + "00" + gMeasurementUnit
 490     sVerticalBy1      = "1"+ gSeperator + "00" + gMeasurementUnit
 491     sHorizontalBy2    = "7"+ gSeperator + "00" + gMeasurementUnit
 492     sVerticalBy2      = "4"+ gSeperator + "00" + gMeasurementUnit
 493     sHorizontalByNew1 = "3"+ gSeperator + "00" + gMeasurementUnit
 494     sVerticalByNew1   = "2"+ gSeperator + "00" + gMeasurementUnit
 495     sHorizontalByNew2 = "7"+ gSeperator + "00" + gMeasurementUnit
 496     sVerticalByNew2   = "4"+ gSeperator + "00" + gMeasurementUnit
 497
 498     printlog "- Test drag&drop with a linked frame - keyboard"
 499     '/// Test drag&drop with a linked frame - keyboard
 500
 501     Call hNewDocument
 502
 503     '/// insert a frame and set Horizontal and Vertical
 504     Call fInsertFrame(30,30 , 49,49)
 505
 506     Call fFormatFrame("TabType")
 507     HorizontalBy.SetText sHorizontalBy1
 508     wait 500
 509     VerticalBy.SetText sVerticalBy1
 510     wait 500
 511     TabType.OK
 512
 513     Call wTypeKeys "<ESCAPE>"
 514     Wait 500
 515
 516     '/// insert another frame and set Horizontal and Vertical
 517     Call fInsertFrame(51,51 , 80,80)
 518
 519     Call fFormatFrame("TabType")
 520     HorizontalBy.SetText sHorizontalBy2
 521     wait 500
 522     VerticalBy.SetText sVerticalBy2
 523     wait 500
 524     TabType.OK
 525
 526     Call wTypeKeys "<Tab>"
 527
 528     '/// link two frames
 529     Call fFormatFrame("TabZusaetze")
 530     NextLink.Select 2
 531     Sleep 1
 532     TabZusaetze.OK
 533
 534     '/// Move 1st frame with keyboard (right and down)
 535     Call wTypeKeys "<Right>"
 536     Sleep 1
 537     Call wTypeKeys "<Down>"
 538     Sleep 1
 539
 540     Call fFormatFrame("TabType")
 541     if HorizontalBy.GetText <> sHorizontalByNew1 then QAErrorLog "#110726#1st frame: Horizontal by isn't right!"
 542     if VerticalBy.GetText   <> sVerticalByNew1   then QAErrorLog "#110726#1st frame: Vertical by isn't right!"
 543     TabType.Cancel
 544
 545     Call wTypeKeys "<Tab>"
 546
 547     '/// Move 2nd frame with keyboard (right and down)
 548     Call wTypeKeys "<Right>"
 549     Sleep 1
 550     Call wTypeKeys "<Down>"
 551     Sleep 1
 552
 553     '/// Check the result
 554     Call fFormatFrame("TabType")
 555     if HorizontalBy.GetText <> sHorizontalByNew2 then QAErrorLog "#110726# 2nd frame: Horizontal by isn't right! "
 556     if VerticalBy.GetText   <> sVerticalByNew2   then QAErrorLog "#110726# 2nd frame: Vertical by isn't right! "
 557     TabType.Cancel
 558
 559     Call hCloseDocument
 560
 561 endcase
 562
 563 '-----------------------------------------------------------------
 564
 565 testcase tTextframes_40
 566
 567     Dim sHorizontalBy as String
 568
 569     sHorizontalBy = "2"+ gSeperator + "00" + gMeasurementUnit
 570
 571     printlog "- Test Undo on drag&drop of frames (keyboard)"
 572     '/// Test Undo on drag&drop of frames (keyboard)
 573
 574     Call hNewDocument
 575
 576     '/// insert a frame
 577     Call fInsertFrame(30,30 , 49,49)
 578
 579     Call fFormatFrame("TabType")
 580     HorizontalBy.SetText sHorizontalBy
 581     wait 500
 582     TabType.OK
 583
 584     Call wTypeKeys "<ESCAPE>"
 585     Wait 500
 586
 587     '/// insert another frame
 588     Call fInsertFrame(51,51 , 80,80)
 589
 590     printlog "Move the second frame away from the first one."
 591     Call wTypeKeys "<RIGHT>",10
 592 '    Call wTypeKeys "<DOWN>",7
 593
 594     Call wTypeKeys "<Tab>"
 595
 596     '/// Active frame bar
 597     Call hToolbarSelect("FRAME", true )
 598     Wait 500
 599
 600     '/// Click link frame button
 601     Verketten.Click
 602     Wait 500
 603
 604     '/// Target the second frame
 605     Call gMouseClick(75,30)
 606     Wait 500
 607
 608     '/// Move 1st frame with keyboard (Left)
 609     Call wTypeKeys "<Left>"
 610     Sleep 1
 611
 612     '/// Edit / Undo
 613     EditUndo
 614     Wait 500
 615
 616     '/// Check if the frame is moved
 617     Call fFormatFrame("TabType")
 618     if HorizontalBy.GetText <> sHorizontalBy then Warnlog "Undo on drag&drop of frames doesn't work!"
 619     TabType.Cancel
 620
 621     Call hCloseDocument
 622
 623 endcase
 624
 625 '-----------------------------------------------------------------
 626
 627 testcase tTextframes_41
 628
 629     Dim iLink as String
 630     Dim iNolink as Integer
 631
 632     iLink   =  2
 633     iNolink =  1
 634
 635     printlog "- Test Undo on removing the link"
 636     '/// Test Undo on removing the link
 637
 638     Call hNewDocument
 639
 640     '/// insert a frame
 641     Call fInsertFrame(30,30 , 49,49)
 642
 643     Call wTypeKeys "<ESCAPE>"
 644     WaitSlot (5)
 645
 646     '/// insert another frame
 647     Call fInsertFrame(51,51 , 80,80)
 648
 649     printlog "Move the second frame away from the first one."
 650     Call wTypeKeys "<RIGHT>",10
 651
 652     '/// Set focus to 1st frame
 653     Call wTypeKeys "<Tab>"
 654
 655     '/// Active frame bar
 656     Call hToolbarSelect("FRAME", true )
 657     Wait 500
 658
 659     '/// Click link frame button
 660     Verketten.Click
 661     Wait 500
 662
 663     '/// Target the second frame
 664     Call gMouseClick(60,70)
 665     Wait 500
 666
 667     '/// Remove link
 668     Kontext "FrameObjectbar"
 669     VerkettungLoesen.Click
 670     Wait 500
 671
 672     Call fFormatFrame("TabZusaetze")
 673     if NextLink.GetSelIndex  <> iNoLink then Warnlog "Remove link doesn't work!"
 674     TabZusaetze.Cancel
 675
 676     '/// Edit / Undo
 677     EditUndo
 678     Wait 500
 679
 680     '/// check if the frame is moved
 681     Call fFormatFrame("TabZusaetze")
 682     if NextLink.GetSelIndex  <> iLink then Warnlog "Undo on removing link doesn't work!"
 683     TabZusaetze.Cancel
 684
 685     Call hCloseDocument
 686
 687 endcase
 688
 689 '-----------------------------------------------------------------
 690
 691 testcase tTextframes_42
 692
 693     Dim iNoLink as Integer
 694
 695     iNoLink  =  1
 696
 697     printlog "- Link frame in header with frame in bodytext should be forbidden"
 698     '/// Link frame in header with frame in bodytext should be forbidden
 699
 700     Call hNewDocument
 701
 702     '/// insert a frame in header
 703     DocumentWriter.UseMenu
 704     MenuSelect(Menugetitemid(4))
 705     Sleep 2
 706     MenuSelect(Menugetitemid(9))
 707     Sleep 2
 708     MenuSelect(Menugetitemid(1))
 709     Sleep 2
 710
 711     Call wInsertFrame
 712
 713     Call wTypeKeys "<ESCAPE>"
 714     Wait 500
 715
 716     '/// insert another frame in bodytext
 717     Call fInsertFrame(50,50 , 70,65)
 718
 719     Call wTypeKeys "<Tab>"
 720
 721     '/// Try to link two frames
 722     Call hToolbarSelect("FRAME", true )
 723     Wait 500
 724     Verketten.Click
 725     Wait 500
 726     Call gMouseClick(60,60)
 727     Wait 500
 728
 729     Call fFormatFrame("TabZusaetze")
 730     if NextLink.GetSelIndex  <> iNoLink then Warnlog "There should be no link between 2 frames!"
 731     TabZusaetze.Cancel
 732
 733     Call hCloseDocument
 734
 735 endcase
 736
 737 '-----------------------------------------------------------------
 738
 739 testcase tTextframes_43
 740
 741     Dim iLink as Integer
 742
 743     iLink = 2
 744
 745     printlog "- Link frame in footer with frame in bodytext should be forbidden"
 746     '/// Link frame in footer with frame in bodytext should be forbidden
 747
 748     Call hNewDocument
 749
 750     '/// insert a frame in footer
 751     DocumentWriter.UseMenu
 752     MenuSelect(Menugetitemid(4))
 753     Sleep 2
 754     MenuSelect(Menugetitemid(10))
 755     Sleep 2
 756     MenuSelect(Menugetitemid(1))
 757     Sleep 2
 758
 759     Call wInsertFrame
 760
 761     Call wTypeKeys "<ESCAPE>"
 762     Wait 500
 763
 764     '/// insert another frame in bodytext
 765     Call fInsertFrame(50,50 , 70,70)
 766
 767     Call wTypeKeys "<Tab>"
 768
 769     '/// Try to link two frames
 770     Call fFormatFrame("TabZusaetze")
 771     Sleep 1
 772     try
 773         NextLink.Select iLink
 774         Sleep 1
 775         Warnlog "There should be no link between 2 frames!"
 776     catch
 777     endcatch
 778     TabZusaetze.Cancel
 779
 780     Call hCloseDocument
 781
 782 endcase
 783
 784 '-----------------------------------------------------------------
 785
 786 testcase tTextframes_44
 787
 788     Dim sText   as String
 789     Dim iNoLink as Integer
 790
 791     sText    =  "Test"
 792     iNoLink  =  1
 793
 794     printlog "- Link frame in footer with frame in bodytext should be forbidden"
 795     '/// Link frame in footer with frame in bodytext should be forbidden
 796
 797     Call hNewDocument
 798
 799     '/// insert a frame
 800     Call fInsertFrame(50,30 , 50,40)
 801
 802     Call wTypeKeys "<ESCAPE>"
 803     Wait 500
 804
 805     '/// insert another frame
 806     Call fInsertFrame(60,50 , 70,65)
 807     Call wTypeKeys "<ESCAPE>"
 808
 809     '/// input some text in the target frame(2nd frame)
 810     Call gMouseClick(65,60)
 811     Call wTypeKeys sText
 812
 813     Call wTypeKeys ( "<Shift F4>" )
 814
 815     '/// link two frames
 816     Call hToolbarSelect("FRAME", true )
 817     Wait 500
 818     Verketten.Click
 819     Wait 500
 820     Call gMouseClick(50,60)
 821     Wait 500
 822
 823     Call fFormatFrame("TabZusaetze")
 824     if NextLink.GetSelIndex  <> iNoLink then Warnlog "There should be no link between 2 frames!"
 825     TabZusaetze.Cancel
 826
 827     Call hCloseDocument
 828
 829 endcase
 830
 831 '-----------------------------------------------------------------
 832
 833 testcase tTextframes_45
 834
 835     Dim iNoLink as Integer
 836
 837     iNoLink  =  1
 838
 839     printlog "- Recursed links should be forbidden"
 840     '/// Recursed links should be forbidden
 841
 842     Call hNewDocument
 843
 844     '/// insert a frame
 845     Call fInsertFrame(30,30 , 45,45)
 846
 847     Call wTypeKeys "<ESCAPE>"
 848     Wait 500
 849
 850     '/// insert another frame
 851     Call fInsertFrame(50,50 , 70,70)
 852
 853     printlog "Move the second frame away from the first one."
 854     Call wTypeKeys "<RIGHT>",1
 855
 856     '/// set focus to 1st frame
 857     Call wTypeKeys "<TAB>"
 858     Sleep 1
 859
 860     '/// link two frames (2nd frame is target frame)
 861     Kontext "FrameObjectbar"
 862     Sleep 2
 863     Verketten.Click
 864     Wait 500
 865     Call gMouseClick(60,60)
 866     Wait 500
 867
 868     '/// link two frames (1st frame is target frame)
 869     Call wTypeKeys "<TAB>"
 870     Call hToolbarSelect("FRAME", true )
 871     Wait 500
 872     Verketten.Click
 873     Wait 500
 874     Call gMouseClick(35,35)
 875     Wait 500
 876
 877     Call fFormatFrame("TabZusaetze")
 878     if NextLink.GetItemCount <> iNoLink then Warnlog "There should be no link between 2 frames!" & NextLink.GetItemCount
 879     TabZusaetze.Cancel
 880     Wait 500
 881
 882     Call hCloseDocument
 883 endcase
 884
 885 '-----------------------------------------------------------------
 886
 887 testcase tTextframes_46
 888
 889     Dim iNoLink as Integer
 890
 891     iNoLink = 1
 892
 893     printlog "- Frames couldn't be linked with the current one is part of another 'chain'"
 894     '/// Frames couldn't be linked with the current one is part of another 'chain'
 895
 896     Call hNewDocument
 897
 898     '/// insert a frame
 899     Call fInsertFrame(30,30 , 49,49)
 900
 901     Call wTypeKeys "<ESCAPE>"
 902     Wait 500
 903
 904     '/// insert another frame
 905     Call fInsertFrame(51,51 , 65,65)
 906
 907     printlog "Move the frame away from the position of the first one."
 908     Call wTypeKeys "<RIGHT>",4
 909     Call wTypeKeys "<DOWN>",4
 910
 911     Call wTypeKeys "<ESCAPE>"
 912     Wait 500
 913
 914     '/// insert 3rd frame
 915     Call fInsertFrame(70,70 , 80,80)
 916     Wait 500
 917
 918     printlog "Move the frame away from the position of the first one."
 919     Call wTypeKeys "<LEFT>",8
 920     Call wTypeKeys "<UP>",8
 921
 922     '/// set focus to 1st frame
 923     Call wTypeKeys "<SHIFT F4>" 'make sure object is selected.
 924     Call wTypeKeys "<TAB>"
 925     Sleep 1
 926
 927     '/// link two frames 1 & 2 (2nd frame is target frame)
 928     '/// Active frame bar
 929     Call hToolbarSelect("FRAME", true )
 930     Sleep 1
 931     Verketten.Click
 932     Sleep 1
 933     Call gMouseClick(70,70)
 934     Wait 500
 935
 936     '/// set focus to 3rd frame
 937     Call wTypeKeys "<TAB>" , 2
 938
 939     '/// link two frames 3 & 2 (2nd frame is target frame)
 940     Kontext "FrameObjectbar"
 941     Sleep 2
 942     Verketten.Click
 943     Sleep 1
 944     Call gMouseClick(70,70)
 945     Wait 500
 946
 947     Call fFormatFrame("TabZusaetze")
 948     if NextLink.GetSelIndex  <> iNoLink then Warnlog "Shouldn't link to 2nd frame ! "
 949     TabZusaetze.Cancel
 950     Wait 500
 951
 952     Call hCloseDocument
 953 endcase
 954
 955 '-----------------------------------------------------------------
 956
 957 testcase tTextframes_47
 958
 959     Dim iLink as Integer
 960
 961     iLink = 2
 962
 963     printlog "- Frames couldn't be linked with the current one is in protected section"
 964     '/// Frames couldn't be linked with the current one is in protected section
 965
 966     Call hNewDocument
 967
 968     '/// Insert a section
 969     InsertSection
 970     wait 500
 971     Kontext
 972     Active.Setpage TabBereiche
 973     Kontext "TabBereiche"
 974     wait 500
 975     TabBereiche.OK
 976     wait 500
 977
 978     Call wTypeKeys "<UP>" , 1
 979     Call wTypeKeys "<RETURN>", 6
 980
 981     '/// Insert a frame (A) in the section
 982     Call wInsertFrame
 983     Call wTypeKeys "<UP>" , 2
 984     Call wTypeKeys "<ESCAPE>"
 985
 986     '/// Set the section to be protected
 987     FormatSections
 988     Kontext "BereicheBearbeiten"
 989     Geschuetzt.Check
 990     sleep 1
 991     BereicheBearbeiten.OK
 992
 993     Call wTypeKeys "<DOWN>" , 10
 994
 995     '/// Insert another frame (B) out of the section
 996     Call fInsertFrame(30,70 , 60,90)
 997
 998     Call wTypeKeys "<RIGHT>" , 8
 999     Call wTypeKeys "<DOWN>" , 8
1000
1001     '/// Link B->A (A is target)
1002     Call fFormatFrame("TabZusaetze")
1003     try
1004         NextLink.Select iLink
1005         Sleep 1
1006         QAErrorLog "#110862# Should NOT link 2 frames when target frame is in the protected section!"
1007     catch
1008     endcatch
1009     TabZusaetze.Cancel
1010
1011     Call hCloseDocument
1012
1013 endcase
1014
1015 '-----------------------------------------------------------------
1016
1017 testcase tTextframes_48
1018
1019     Dim iLink as Integer
1020
1021     iLink = 2
1022
1023     printlog "- Frames could be linked with the current one is set to 'editable in protected documents' even it is in protected section "
1024
1025     Call hNewDocument
1026
1027     printlog "Insert a section"
1028     InsertSection
1029     wait 500
1030     Kontext
1031     Active.Setpage TabBereiche
1032     Kontext "TabBereiche"
1033     wait 500
1034     TabBereiche.OK
1035     wait 500
1036
1037     Call wTypeKeys "<UP>" , 1
1038     Call wTypeKeys "<RETURN>", 6
1039
1040     printlog "Insert a frame (A) in the section , and check 'editable in protected documents'"
1041     Call wInsertFrame
1042     Call wTypeKeys "<UP>" , 2
1043
1044     Call fFormatFrame("TabZusaetze")
1045     Editierbar.Check
1046     wait 500
1047     TabZusaetze.OK
1048
1049     Call wTypeKeys "<ESCAPE>"
1050
1051     printlog "Set the section to be protected"
1052     FormatSections
1053     Kontext "BereicheBearbeiten"
1054     Geschuetzt.Check
1055     sleep 1
1056     BereicheBearbeiten.OK
1057
1058     Call wTypeKeys "<DOWN>" , 10
1059     printlog "nsert another frame (B) out of the section"
1060     Call fInsertFrame(50,50 , 60,60)
1061
1062     printlog "Link B->A (A is target)"
1063     Call fFormatFrame("TabZusaetze")
1064     try
1065         NextLink.Select iLink
1066         Sleep 1
1067     catch
1068         Warnlog "link 2 frames should work!"
1069     endcatch
1070     TabZusaetze.Cancel
1071
1072     Call hCloseDocument
1073
1074 endcase
1075
1076 '-----------------------------------------------------------------