testautomation/writer/optional/includes/textframes/w_textframes2.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_textframes2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:37:37 $
  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 - 2
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_textframes2
  41
  42     Call tTextframes_17         'Test protect contents - text insertion in frame must be suppressed
  43     Call tTextframes_18         'Test protect position - moving frame with mouse/keyboard suppressed
  44     Call tTextframes_19         'Test if frame can move when protect content is checked
  45     Call tTextframes_20         'Test frame without wrap
  46     Call tTextframes_21         'Test frame with wrap ( through)
  47     Call tTextframes_22         'Test wrap - before/after - 1
  48     Call tTextframes_23         'Test wrap - before/after - 2
  49     Call tTextframes_24         'Set more than 1 columns for the frame
  50     Call tTextframes_25         'Test columns' width
  51     Call tTextframes_26         'Test columns' spacing
  52     Call tTextframes_27         'Test columns' seperator line
  53     Call tTextframes_28         'Test overlap with different wrapping types
  54     Call tTextframes_29         'Test 'synchronize' distances for border (Check Synchronize)
  55     Call tTextframes_30         'Test 'synchronize' distances for border (UnCheck Synchronize)
  56     Call tTextframes_31         'Frame should be non-editable in read-only documents
  57     Call tTextframes_32         'Test input text into frame in read-only document when checking "Editable in read-only document"
  58
  59 end sub
  60
  61 '---------------------------------------------------
  62
  63 testcase tTextframes_17
  64
  65     Dim sTestText
  66
  67     sTestText = "T"
  68
  69     printlog "- Test protect contents - text insertion in frame must be suppressed"
  70
  71     Call hNewDocument
  72
  73     '/// insert a frame
  74     Call fInsertFrame(30,30 , 60,60)
  75
  76     '/// Format / Frame / Options , check contents
  77     Call fFormatFrame("TabZusaetze")
  78     InhaltSchuetzen.Check
  79     TabZusaetze.OK
  80
  81     Call wTypeKeys "<ESCAPE>"
  82     Wait 500
  83
  84     Call gMouseClick(40,40)
  85     Wait 500
  86
  87     '/// check if contents can be inserted into frame
  88     Call wTypeKeys sTestText
  89
  90     Kontext "Active"
  91     if Active.Exists then
  92         Active.Ok
  93     else
  94         Warnlog "The contents should not be inserted into frame!"
  95     end if
  96
  97     Call hCloseDocument
  98
  99 endcase
 100
 101 '---------------------------------------------------
 102
 103 testcase tTextframes_18
 104
 105     Dim sTestText as String
 106
 107     sTestText = "T"
 108
 109     printlog "- Test protect position - moving frame with mouse/keyboard suppressed"
 110
 111     Call hNewDocument
 112
 113     '/// insert a frame
 114     Call fInsertFrame(30,30 , 70,70)
 115
 116     '/// Format / Frame / Options , check contents
 117     Call fFormatFrame("TabZusaetze")
 118     InhaltSchuetzen.Check
 119     PositionSchuetzen.Check
 120     TabZusaetze.OK
 121
 122     '/// Move the frame to right (Right key 4 times)
 123     Call wTypeKeys "<Right>" , 4
 124     Wait 500
 125     Call wTypeKeys "<ESCAPE>"
 126     Wait 500
 127
 128     Call gMouseClick(40,40)
 129     Sleep 2
 130
 131     '/// check if the frame is moved
 132     Call wTypeKeys sTestText
 133
 134     Kontext "Active"
 135     if Active.Exists then
 136         Active.Ok
 137     else
 138         Warnlog "The contents should NOT be inserted into the frame!"
 139     end if
 140
 141     Call wTypeKeys "<Shift Left>"
 142     try
 143         EditCopy
 144         Wait 500
 145         if GetClipboardText = sTestText then Warnlog "Something wrong in the test !"
 146     catch
 147     endcatch
 148
 149     Call hCloseDocument
 150
 151 endcase
 152
 153 '---------------------------------------------------
 154
 155 testcase tTextframes_19
 156
 157     Dim sTestText
 158
 159     sTestText = "T"
 160
 161     printlog "- Test if frame can move when protect content is checked"
 162
 163     Call hNewDocument
 164
 165     '/// insert a frame
 166     Call fInsertFrame(30,30 , 70,70)
 167
 168     '/// Format / Frame / Options , check contents
 169     Call fFormatFrame("TabZusaetze")
 170     InhaltSchuetzen.Check
 171     TabZusaetze.OK
 172
 173     '/// Move the frame to right (Right key 4 times)
 174     Call wTypeKeys "<Right>" , 4
 175     Wait 500
 176     Call wTypeKeys "<ESCAPE>"
 177     Wait 500
 178
 179     Call gMouseClick(15,15)
 180     Wait 500
 181
 182     '/// check if the frame is moved
 183     Call wTypeKeys sTestText
 184
 185     Kontext "Active"
 186     if Active.Exists then
 187         Warnlog "#i40348# The frame should move by keyboard!"
 188         Active.Ok
 189     end if
 190
 191     Call wTypeKeys "<Shift Left>"
 192     try
 193         EditCopy
 194         Wait 500
 195         if GetClipboardText <> sTestText then Warnlog "Something wrong in the test . Clipboard:" +GetClipboardText
 196     catch
 197         Warnlog "#i40348#"
 198     endcatch
 199
 200     Call hCloseDocument
 201
 202 endcase
 203
 204 '---------------------------------------------------
 205
 206 testcase tTextframes_20
 207
 208     Dim sTestFile as String
 209     Dim sTestText as String
 210
 211     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\wrap.sxw")
 212     sTestText = "Test"
 213
 214     printlog "- Test frame without wrap"
 215
 216     '/// Open a test file
 217     '/// + This test file is designed for without wrap test
 218     '/// + There are 1 page in the file.
 219     '/// + The frame is ocupied in the whole 1st page and wraped as Through
 220     '/// + Some text are behind the frame
 221     Call hFileOpen(sTestFile,false)
 222     Call sMakeReadOnlyDocumentEditable
 223
 224     '/// Set focus to frame
 225     Call wTypeKeys ( "<Shift F4>" )
 226     Sleep 1
 227
 228     '/// Format / Frame / Wrap , check None in setting area
 229     Call fFormatFrame("TabUmlauf")
 230     Kein.Check
 231     wait 500
 232     TabUmlauf.OK
 233
 234     '/// Check if frame is in 1st page
 235     Kontext
 236     ViewNavigator
 237     Kontext "NavigatorWriter"
 238     Sleep 1
 239     if Seitennummer.GetText <> "1" then
 240         Warnlog "The test frame isn't in the first page!"
 241     end if
 242     Call fCloseNavigator
 243
 244     '/// Check if test text are in 2nd page
 245     Call wTypeKeys "<ESCAPE>"
 246     Call wTypeKeys "<Home><Shift End>"
 247
 248     try
 249         EditCopy
 250         Wait 500
 251         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 252     catch
 253         Warnlog "EditCopy can't be executed !"
 254     endcatch
 255
 256     Kontext
 257     ViewNavigator
 258     Kontext "NavigatorWriter"
 259     Sleep 1
 260     if Seitennummer.GetText <> "2" then
 261         Warnlog "The test text isn't in the second page!"
 262     end if
 263
 264     Call fCloseNavigator
 265
 266     printlog " Close active document "
 267     Do Until GetDocumentCount = 0
 268         Call hCloseDocument
 269     Loop
 270
 271 endcase
 272
 273 '-----------------------------------------------------------------
 274
 275 testcase tTextframes_21
 276
 277     Dim sTestFile as String
 278     Dim sTestText as String
 279
 280     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\through.sxw")
 281     sTestText = "Test"
 282
 283     printlog "- Test frame with wrap "
 284
 285     '/// Open a test file
 286     '/// + This test file is designed for with through wrap test
 287     '/// + There are 2 page in the file.
 288     '/// + The frame is ocupied in the whole 1st page and wraped as None
 289     '/// + Some text are in the 2nd page
 290
 291     Call hFileOpen(sTestFile,false)
 292     Call sMakeReadOnlyDocumentEditable
 293
 294     '/// Set focus to frame
 295     Call wTypeKeys ( "<Shift F4>" )
 296     Sleep 1
 297
 298     '/// Format / Frame / Wrap , check through in setting area
 299     Call fFormatFrame("TabUmlauf")
 300     Durchlauf.Check
 301     wait 500
 302     TabUmlauf.OK
 303
 304     '/// Check if frame are in 1st page
 305     Kontext
 306     ViewNavigator
 307     Kontext "NavigatorWriter"
 308     Sleep 1
 309     if Seitennummer.GetText <> "1" then
 310         Warnlog "The test frame isn't in the first page!"
 311     end if
 312     Call fCloseNavigator
 313
 314     '/// Check if test text are in 1st page
 315     Call wTypeKeys "<ESCAPE>"
 316     Call wTypeKeys "<Home><Shift End>"
 317
 318     try
 319         EditCopy
 320         Wait 500
 321         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 322     catch
 323         Warnlog "EditCopy can't be executed !"
 324     endcatch
 325
 326     Kontext
 327     ViewNavigator
 328     Kontext "NavigatorWriter"
 329     Sleep 1
 330     if Seitennummer.GetText <> "1" then
 331         Warnlog "The test text isn't in the first page!"
 332     end if
 333
 334     Call fCloseNavigator
 335
 336     printlog " Close active document "
 337     Do Until GetDocumentCount = 0
 338         Call hCloseDocument
 339     Loop
 340
 341 endcase
 342
 343 '-----------------------------------------------------------------
 344
 345 testcase tTextframes_22
 346
 347     Dim sTestFile as String
 348     Dim sTestText as String
 349
 350     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\before.sxw")
 351     sTestText = "Test"
 352
 353     printlog "- Test wrap - before/after - 1"
 354
 355     '/// Open a test file
 356     '/// + This test file is designed for with before/after wrap test
 357     '/// + There are 2 page in the file.
 358     '/// + The frame is ocupied in the whole 1st page and wraped as None
 359     '/// + there are some space in the left of the frame.
 360     '/// + Some text are in the 2nd page
 361
 362     Call hFileOpen(sTestFile,false)
 363     Call sMakeReadOnlyDocumentEditable
 364
 365     printlog "- Test wrap - before"
 366
 367     '/// Set focus to frame
 368     Call wTypeKeys ( "<Shift F4>" )
 369     Sleep 1
 370
 371     '/// Format / Frame / Wrap , check before in setting area
 372     Call fFormatFrame("TabUmlauf")
 373     Links.Check
 374     wait 500
 375     TabUmlauf.OK
 376
 377     '/// Check if frame are in 1st page
 378     Kontext
 379     ViewNavigator
 380     Kontext "NavigatorWriter"
 381     Sleep 1
 382     if Seitennummer.GetText <> "1" then
 383         Warnlog "The test frame isn't in the first page!"
 384     end if
 385     Call fCloseNavigator
 386
 387     '/// Check if test text are in 1st page
 388     Call wTypeKeys "<ESCAPE>"
 389     Sleep 1
 390     Call wTypeKeys "<Home><Shift End>"
 391
 392     try
 393         EditCopy
 394         Wait 500
 395         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 396     catch
 397         Warnlog "EditCopy can't be executed !"
 398     endcatch
 399
 400     Kontext
 401     ViewNavigator
 402     Kontext "NavigatorWriter"
 403     Sleep 1
 404     if Seitennummer.GetText <> "1" then
 405         Warnlog "The test text isn't in the first page!"
 406     end if
 407
 408     Call fCloseNavigator
 409
 410     printlog "- Test wrap - after"
 411
 412     'Set focus to frame
 413     Call wTypeKeys ( "<Shift F4>" )
 414     Sleep 1
 415
 416     '/// Format / Frame / Wrap , check after in setting area
 417     Call fFormatFrame("TabUmlauf")
 418     Rechts.Check
 419     wait 500
 420     TabUmlauf.OK
 421
 422     '/// Check if frame are in 1st page
 423     Kontext
 424     ViewNavigator
 425     Kontext "NavigatorWriter"
 426     Sleep 1
 427     if Seitennummer.GetText <> "1" then
 428         Warnlog "The test frame isn't in the first page!"
 429     end if
 430     Call fCloseNavigator
 431
 432     '/// Check if test text are in 2nd page
 433     Call wTypeKeys "<ESCAPE>"
 434     Sleep 1
 435     Call wTypeKeys "<Home><Shift End>"
 436
 437     try
 438         EditCopy
 439         Wait 500
 440         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 441     catch
 442         Warnlog "EditCopy can't be executed !"
 443     endcatch
 444
 445     Kontext
 446     ViewNavigator
 447     Kontext "NavigatorWriter"
 448     Sleep 1
 449     if Seitennummer.GetText <> "2" then
 450         Warnlog "The test text isn't in the first page!"
 451     end if
 452
 453     Call fCloseNavigator
 454
 455     printlog " Close active document "
 456     Do Until GetDocumentCount = 0
 457         Call hCloseDocument
 458     Loop
 459
 460 endcase
 461
 462 '-----------------------------------------------------------------
 463
 464 testcase tTextframes_23
 465
 466     Dim sTestFile as String
 467     Dim sTestText as String
 468
 469     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\after.sxw")
 470     sTestText = "Test"
 471
 472     printlog "- Test wrap - before/after - 2"
 473
 474     '/// Open a test file
 475     '/// + This test file is designed for with before/after wrap test
 476     '/// + There are 2 page in the file.
 477     '/// + The frame is ocupied in the whole 1st page and wraped as None
 478     '/// + there are some space in the right of the frame.
 479     '/// + Some text are in the 2nd page
 480
 481     Call hFileOpen(sTestFile,false)
 482     Call sMakeReadOnlyDocumentEditable
 483
 484     printlog "- Test wrap - before"
 485
 486     '/// Set focus to frame
 487     Call wTypeKeys ( "<Shift F4>" )
 488     Sleep 1
 489
 490     '/// Format / Frame / Wrap , check before in setting area
 491     Call fFormatFrame("TabUmlauf")
 492     Links.Check
 493     wait 500
 494     TabUmlauf.OK
 495
 496     '/// Check if frame are in 1st page
 497     Kontext
 498     ViewNavigator
 499     Kontext "NavigatorWriter"
 500     Sleep 1
 501     if Seitennummer.GetText <> "1" then
 502         Warnlog "The test frame isn't in the first page!"
 503     end if
 504     Call fCloseNavigator
 505
 506     '/// Check if test text are in 1st page
 507     Call wTypeKeys "<ESCAPE>"
 508     Sleep 1
 509     Call wTypeKeys "<Home><Shift End>"
 510
 511     try
 512         EditCopy
 513         Wait 500
 514         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 515     catch
 516         Warnlog "EditCopy can't be executed !"
 517     endcatch
 518
 519     Kontext
 520     ViewNavigator
 521     Kontext "NavigatorWriter"
 522     Sleep 1
 523     if Seitennummer.GetText <> "2" then
 524         Warnlog "The test text isn't in the first page!"
 525     end if
 526
 527     Call fCloseNavigator
 528
 529     printlog "- Test wrap - after"
 530
 531     '/// Set focus to frame
 532     Call wTypeKeys ( "<Shift F4>" )
 533     Sleep 1
 534
 535     '/// Format / Frame / Wrap , check after in setting area
 536     Call fFormatFrame("TabUmlauf")
 537     Rechts.Check
 538     wait 500
 539     TabUmlauf.OK
 540
 541     '/// Check if frame are in 1st page
 542     Kontext
 543     ViewNavigator
 544     Kontext "NavigatorWriter"
 545     Sleep 1
 546     if Seitennummer.GetText <> "1" then
 547         Warnlog "The test frame isn't in the first page!"
 548     end if
 549     Call fCloseNavigator
 550
 551     '/// Check if test text are in 2nd page
 552     Call wTypeKeys "<ESCAPE>"
 553     Sleep 1
 554     Call wTypeKeys "<Home><Shift End>"
 555
 556     try
 557         EditCopy
 558         Wait 500
 559         if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
 560     catch
 561         Warnlog "EditCopy can't be executed !"
 562     endcatch
 563
 564     Kontext
 565     ViewNavigator
 566     Kontext "NavigatorWriter"
 567     Sleep 1
 568     if Seitennummer.GetText <> "1" then
 569         Warnlog "The test text isn't in the first page!"
 570     end if
 571
 572     Call fCloseNavigator
 573
 574     printlog " Close active document "
 575     Do Until GetDocumentCount = 0
 576         Call hCloseDocument
 577     Loop
 578
 579 endcase
 580
 581 '-----------------------------------------------------------------
 582
 583 testcase tTextframes_24
 584
 585     Dim sColumn as String
 586
 587     sColumn = "3"
 588
 589     printlog "- Set more than 1 columns for the frame"
 590
 591     Call hNewDocument
 592
 593     '/// Insert a frame
 594     Call wInsertFrame
 595
 596     '/// Format / Frame / columns , set columns to 3 , close the dialogue
 597     Call fFormatFrame("TabSpalten")
 598     Anzahl.SetText sColumn
 599     wait 500
 600     TabSpalten.OK
 601
 602     '/// Check if the column is set correctly
 603     Call fFormatFrame("TabSpalten")
 604     if Anzahl.GetText <> sColumn then Warnlog "the column isn't set correctly ! The column you get is:Anzahl.GetText"
 605     TabSpalten.Cancel
 606
 607     Call hCloseDocument
 608
 609 endcase
 610
 611 '-----------------------------------------------------------------
 612
 613 testcase tTextframes_25
 614
 615     Dim sWidth            as String
 616     Dim sSpacingToContent as String
 617     Dim sColumn           as String
 618     Dim sWidthColumn1     as String
 619     Dim sWidthColumn2     as String
 620     Dim sWidthColumn3     as String
 621
 622     sWidth            = "6"+ gSeperator + "00" + gMeasurementUnit
 623     sSpacingToContent = "0"+ gSeperator + "00"
 624
 625     sColumn = "3"
 626
 627     sWidthColumn1 = "1"+ gSeperator + "00" + gMeasurementUnit
 628     sWidthColumn2 = "2"+ gSeperator + "00" + gMeasurementUnit
 629     sWidthColumn3 = "3"+ gSeperator + "00" + gMeasurementUnit
 630
 631     printlog "- Test columns' width"
 632
 633     Call hNewDocument
 634
 635     '/// Insert a frame
 636     Call wInsertFrame
 637
 638     'Set frame's width
 639     Call fFormatFrame("TabType")
 640     Width.SetText sWidth
 641     wait 500
 642     TabType.OK
 643
 644     'Set frame's Spacing to Content
 645     Call fFormatFrame("TabUmrandung")
 646     Synchronisieren.Check
 647     wait 500
 648     TabUmrandung.TypeKeys "<SHIFT TAB>"
 649     Links.SetText sSpacingToContent
 650     Rechts.SetText sSpacingToContent
 651     Oben.SetText sSpacingToContent
 652     Unten.SetText sSpacingToContent
 653     wait 500
 654     TabUmrandung.TypeKeys "<SHIFT TAB>"
 655     TabUmrandung.OK
 656
 657     '/// Format / Frame / columns , set columns to 3
 658     Call fFormatFrame("TabSpalten")
 659     Anzahl.SetText sColumn
 660     wait 500
 661     TabSpalten.OK
 662
 663     '/// + Set 3 columns to different width
 664     Call fFormatFrame("TabSpalten")
 665     AutomBreite.Uncheck
 666     Sleep 1
 667     TabSpalten.TypeKeys "<SHIFT TAB>"
 668     Spaltenbreite1.SetText sWidthColumn1
 669     wait 500
 670     TabSpalten.TypeKeys "<SHIFT TAB>"
 671     Spaltenbreite2.SetText sWidthColumn2
 672     wait 500
 673     TabSpalten.TypeKeys "<SHIFT TAB>"
 674     Spaltenbreite3.SetText sWidthColumn3
 675     wait 500
 676     TabSpalten.TypeKeys "<SHIFT TAB>"
 677     TabSpalten.OK
 678
 679     '/// Check if the columns' width is set correctly
 680     Call fFormatFrame("TabSpalten")
 681     if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
 682     if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
 683     if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
 684     TabSpalten.Cancel
 685
 686     Call hCloseDocument
 687
 688 endcase
 689
 690 '-----------------------------------------------------------------
 691
 692 testcase tTextframes_26
 693
 694     Dim sWidth            as String
 695     Dim sSpacingToContent as String
 696     Dim sColumn           as String
 697     Dim sWidthColumn1     as String
 698     Dim sWidthColumn2     as String
 699     Dim sWidthColumn3     as String
 700     Dim sSpacing1         as String
 701     Dim sSpacing2         as String
 702     Dim sNewWidthColumn1  as String
 703     Dim sNewWidthColumn2  as String
 704     Dim sNewWidthColumn3  as String
 705     Dim sNewWidthColumn4  as String
 706
 707     sWidth            = "6"+ gSeperator + "00" + gMeasurementUnit
 708     sSpacingToContent = "0"+ gSeperator + "00"
 709
 710     sColumn = "3"
 711
 712     sWidthColumn1     = "1"+ gSeperator + "00" + gMeasurementUnit
 713     sWidthColumn2     = "2"+ gSeperator + "00" + gMeasurementUnit
 714     sWidthColumn3     = "3"+ gSeperator + "00" + gMeasurementUnit
 715
 716     sSpacing1         = "0"+ gSeperator + "10" + gMeasurementUnit
 717     sSpacing2         = "0"+ gSeperator + "20" + gMeasurementUnit
 718
 719     sNewWidthColumn1  = "1"+ gSeperator + "00" + gMeasurementUnit
 720     sNewWidthColumn2  = "1"+ gSeperator + "90" + gMeasurementUnit
 721     sNewWidthColumn3  = "2"+ gSeperator + "80" + gMeasurementUnit
 722     sNewWidthColumn4  = "2"+ gSeperator + "81" + gMeasurementUnit
 723
 724     printlog "- Test columns' spacing"
 725
 726     Call hNewDocument
 727
 728     '/// Insert a frame
 729     Call wInsertFrame
 730
 731     'Set frame's width
 732     Call fFormatFrame("TabType")
 733     Width.SetText sWidth
 734     wait 500
 735     TabType.TypeKeys "<SHIFT TAB>"
 736     TabType.OK
 737
 738     'Set frame's Spacing to Content
 739     Call fFormatFrame("TabUmrandung")
 740     Synchronisieren.Check
 741     wait 500
 742     Links.SetText sSpacingToContent
 743     Rechts.SetText sSpacingToContent
 744     Oben.SetText sSpacingToContent
 745     Unten.SetText sSpacingToContent
 746     wait 500
 747     TabUmrandung.TypeKeys "<SHIFT TAB>"
 748     TabUmrandung.OK
 749
 750     '/// Format / Frame / columns , set columns to 3
 751     Call fFormatFrame("TabSpalten")
 752     Anzahl.SetText sColumn
 753     wait 500
 754     TabSpalten.OK
 755
 756     '/// + Set 3 columns to different width
 757     Call fFormatFrame("TabSpalten")
 758     AutomBreite.Uncheck
 759     Sleep 1
 760     TabSpalten.TypeKeys "<SHIFT TAB>"
 761     Spaltenbreite1.SetText sWidthColumn1
 762     wait 500
 763     TabSpalten.TypeKeys "<SHIFT TAB>"
 764     Spaltenbreite2.SetText sWidthColumn2
 765     wait 500
 766     TabSpalten.TypeKeys "<SHIFT TAB>"
 767     Spaltenbreite3.SetText sWidthColumn3
 768     wait 500
 769     TabSpalten.TypeKeys "<SHIFT TAB>"
 770     TabSpalten.OK
 771
 772     '/// + Set Spacing1 and Spacing2
 773     Call fFormatFrame("TabSpalten")
 774     Abstand12.SetText sSpacing1
 775     Sleep 2
 776     Abstand23.SetText sSpacing2
 777     Sleep 3
 778     Art.Select 1
 779     Sleep 1
 780     TabSpalten.OK
 781     Sleep 2
 782
 783     '/// Check if the columns' width is set correctly
 784     Call fFormatFrame("TabSpalten")
 785     if Spaltenbreite1.GetText <> sNewWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
 786     if Spaltenbreite2.GetText <> sNewWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
 787     if (Spaltenbreite3.GetText <> sNewWidthColumn3) then
 788         if (Spaltenbreite3.GetText <> sNewWidthColumn4) then
 789             Warnlog "the column3's width isn't set correctly ! (not" & Spaltenbreite3.GetText & " but " & sNewWidthColumn3 & ")"
 790         end if
 791     end if
 792     if Abstand12.GetText <> sSpacing1 then Warnlog "the 1st spacing isn't set correctly !"
 793     if Abstand23.GetText <> sSpacing2 then Warnlog "the 2nd spacing isn't set correctly !"
 794     TabSpalten.Cancel
 795
 796     Call hCloseDocument
 797
 798 endcase
 799
 800 '-----------------------------------------------------------------
 801
 802 testcase tTextframes_27
 803
 804     Dim iLine     as Integer
 805     Dim iPosition as Integer
 806     Dim sHeight   as String
 807
 808     iLine     = 3
 809     iPosition = 2
 810     sHeight   = "50%"
 811
 812     printlog "- Test columns' seperator line"
 813
 814     Call hNewDocument
 815
 816     '/// Insert a frame
 817     Call wInsertFrame
 818
 819     '/// Format / Frame / columns , set columns to 4
 820     '/// + default : column is 1 , Line and Height and Position isn't enabled
 821     Call fFormatFrame("TabSpalten")
 822     if Anzahl.GetText <> "1" then  Warnlog "the default column number is 1 , but get " +Anzahl.GetText
 823
 824     try
 825         Art.Select      iLine
 826         Warnlog "Line : should be inactived !"
 827         Hoehe.SetText   sHeight
 828         Warnlog "Height : should be inactived !"
 829         Position.Select iPosition
 830         Warnlog "Position : should be inactived !"
 831     catch
 832     endcatch
 833
 834     Anzahl.SetText "2"
 835     Wait 500
 836     TabSpalten.OK
 837
 838     '/// Check if the columns' width is set correctly
 839     Call fFormatFrame("TabSpalten")
 840     Art.Select      iLine
 841     Sleep 2
 842     Hoehe.SetText   sHeight
 843     Sleep 2
 844     Position.Select iPosition
 845     Sleep 2
 846     TabSpalten.OK
 847
 848     Call fFormatFrame("TabSpalten")
 849     if Art.GetSelIndex      <> iLine      then Warnlog "Line isn't correct!"
 850     Sleep 1
 851     if Hoehe.GetText        <> sHeight    then Warnlog "Height isn't correct!"
 852     Sleep 1
 853     if Position.GetSelIndex <> iPosition  then Warnlog "Position isn't correct!"
 854     Sleep 1
 855     TabSpalten.Cancel
 856
 857     Call hCloseDocument
 858
 859 endcase
 860
 861 '-----------------------------------------------------------------
 862
 863 testcase tTextframes_28
 864
 865     Dim sFrameName1 as String
 866     Dim sFrameName2 as String
 867
 868     sFrameName1 = "Test1"
 869     sFrameName2 = "Test2"
 870
 871     printlog "- Test overlap with different wrapping types"
 872
 873     Call hNewDocument
 874
 875     printlog "Insert a frame"
 876     Call fInsertFrame(30, 30, 60, 60)
 877
 878     printlog "Naming the frame"
 879     Call fFormatFrame("TabZusaetze")
 880     ObjektName.SetText sFrameName1
 881     TabZusaetze.OK
 882
 883     printlog "Set the frame's wrap"
 884     Call fFormatFrame("TabUmlauf")
 885     Kein.Check
 886     Sleep 1
 887     TabUmlauf.OK
 888     Sleep 2
 889     Call wTypeKeys "<ESCAPE>"
 890     Sleep 2
 891
 892     printlog "Insert another frame"
 893     Call fInsertFrame(50, 50, 80, 80)
 894
 895     printlog "Naming the frame"
 896     Call fFormatFrame("TabZusaetze")
 897     ObjektName.SetText sFrameName2
 898     TabZusaetze.OK
 899
 900     printlog "Set the frame's wrap"
 901     Call fFormatFrame("TabUmlauf")
 902     Sleep 1
 903     Durchlauf.Check
 904     Sleep 1
 905     TabUmlauf.OK
 906
 907     Call wTypeKeys "<ESCAPE>"
 908     Sleep 2
 909
 910     printlog "Set focus to second frame"
 911     Call gMouseClick(60,60) ' Click into frame
 912     wait 500
 913     Call wTypeKeys "<ESCAPE>" ' Selects frame holding the cursor
 914     wait 500
 915
 916     printlog "Check second frame's name"
 917     Call fFormatFrame("TabZusaetze")
 918     if ObjektName.GetText <> sFrameName2 then Warnlog "The 2nd frame's name is wrong ! Get " +ObjektName.GetText
 919     TabZusaetze.Cancel
 920
 921     printlog "Check second frame's wrap status"
 922     Call fFormatFrame("TabUmlauf")
 923     if Durchlauf.IsChecked <> TRUE then Warnlog "The 2nd frame's wrap status is wrong ! "
 924     TabUmlauf.Cancel
 925
 926     printlog "Set focus to first frame"
 927     Call wTypeKeys "<TAB>"
 928     Sleep 2
 929
 930     printlog "Check first frame's name"
 931     Call fFormatFrame("TabZusaetze")
 932     if ObjektName.GetText <> sFrameName1 then Warnlog "The 1st frame's name is wrong ! Get " +ObjektName.GetText
 933     TabZusaetze.Cancel
 934
 935     printlog "Check first frame's wrap status"
 936     Call fFormatFrame("TabUmlauf")
 937     if Kein.IsChecked <> TRUE then Warnlog "The 1st frame's wrap status is wrong ! "
 938     TabUmlauf.Cancel
 939
 940     Call hCloseDocument
 941
 942 endcase
 943
 944 '-----------------------------------------------------------------
 945
 946 testcase tTextframes_29
 947
 948     Dim sLeft1   as String
 949     Dim sRight1  as String
 950     Dim sTop1    as String
 951     Dim sBottom1 as String
 952
 953     sLeft1   =  "0"+ gSeperator + "1"
 954     sRight1  =  "0"+ gSeperator + "2"
 955     sTop1    =  "0"+ gSeperator + "3"
 956     sBottom1 =  "0"+ gSeperator + "4"
 957
 958     printlog "- Test 'synchronize' distances for border (Check Synchronize)"
 959
 960     Call hNewDocument
 961
 962     '/// insert a frame
 963     Call wInsertFrame
 964
 965     '/// Format / Frame / Borders , check Synchronize ,
 966     '/// + then set spacing to contents
 967     '/// + to differect number (left, right, top, bottom)
 968     Call fFormatFrame("TabUmrandung")
 969     Synchronisieren.Check
 970     wait 500
 971     Links.SetText    sLeft1
 972     wait 500
 973     TabUmrandung.TypeKeys "<SHIFT TAB>"
 974     Rechts.SetText   sRight1
 975     wait 500
 976     TabUmrandung.TypeKeys "<SHIFT TAB>"
 977     Oben.SetText     sTop1
 978     wait 500
 979     TabUmrandung.TypeKeys "<SHIFT TAB>"
 980     Unten.SetText    sBottom1
 981     wait 500
 982     TabUmrandung.TypeKeys "<SHIFT TAB>"
 983     TabUmrandung.OK
 984
 985     '/// Check if the spacing to contents is right
 986     Call fFormatFrame("TabUmrandung")
 987     if Synchronisieren.IsChecked <> TRUE     then Warnlog "checkbox synchronize should be checked!"
 988     if Instr(Links.Gettext, sBottom1) = false then Warnlog "spacing to contents (left) isn't right!"
 989     if Instr(Rechts.GetText, sBottom1) = false then Warnlog "spacing to contents (right) isn't right!"
 990     if Instr(Oben.GetText, sBottom1) = false then Warnlog "spacing to contents (top) isn't right!"
 991     if Instr(Unten.GetText, sBottom1) = false then Warnlog "spacing to contents (bottom) isn't right!"
 992     TabUmrandung.Cancel
 993
 994     Call hCloseDocument
 995
 996 endcase
 997
 998 '-----------------------------------------------------------------
 999
1000 testcase tTextframes_30
1001
1002     Dim sLeft1   as String
1003     Dim sRight1  as String
1004     Dim sTop1    as String
1005     Dim sBottom1 as String
1006
1007     sLeft1   =  "0"+ gSeperator + "1"
1008     sRight1  =  "0"+ gSeperator + "2"
1009     sTop1    =  "0"+ gSeperator + "3"
1010     sBottom1 =  "0"+ gSeperator + "4"
1011
1012     printlog "- Test 'synchronize' distances for border (UnCheck Synchronize)"
1013
1014     Call hNewDocument
1015
1016     '/// insert a frame
1017     Call wInsertFrame
1018
1019     '/// Format / Frame / Borders , Uncheck Synchronize ,
1020     '/// + then set spacing to contents
1021     '/// + to differect number (left, right, top, bottom)
1022     Call fFormatFrame("TabUmrandung")
1023     Synchronisieren.UnCheck
1024     wait 500
1025     Links.SetText    sLeft1
1026     wait 500
1027     TabUmrandung.TypeKeys "<SHIFT TAB>"
1028     TabUmrandung.TypeKeys "<SHIFT TAB>"
1029     Rechts.SetText   sRight1
1030     wait 500
1031     TabUmrandung.TypeKeys "<SHIFT TAB>"
1032     Oben.SetText     sTop1
1033     wait 500
1034     TabUmrandung.TypeKeys "<SHIFT TAB>"
1035     Unten.SetText    sBottom1
1036     wait 500
1037     TabUmrandung.TypeKeys "<SHIFT TAB>"
1038     TabUmrandung.OK
1039
1040     '/// Check if the spacing to contents is right
1041     Call fFormatFrame("TabUmrandung")
1042     if Synchronisieren.IsChecked = TRUE then Warnlog "checkbox synchronize should be checked!"
1043     if Instr(Links.Gettext, sLeft1) = false  then Warnlog "spacing to contents (left) isn't right!"  '<> sLeft1
1044     if Instr(Rechts.GetText, sRight1) = false then Warnlog "spacing to contents (right) isn't right!"
1045     if Instr(Oben.GetText, sTop1) = false then Warnlog "spacing to contents (top) isn't right!"
1046     if Instr(Unten.GetText, sBottom1) = false then Warnlog "spacing to contents (bottom) isn't right!"
1047     TabUmrandung.Cancel
1048
1049     Call hCloseDocument
1050
1051 endcase
1052
1053 '-----------------------------------------------------------------
1054
1055 testcase tTextframes_31
1056
1057     Dim sTestFile as String
1058
1059     sTestFile = ConvertPath (gOfficePath + "user\work\testFileReadOnly.odt" )
1060
1061     if Dir(sTestFile) <> "" then
1062         setattr sTestFile , 0
1063         Sleep 2
1064         kill sTestFile
1065     end if
1066
1067     printlog "- Frame should be non-editable in read-only documents"
1068
1069     Call hNewDocument
1070
1071     '/// insert a frame
1072     Call wInsertFrame
1073
1074     '/// Save the file and set the file's property to Read-only
1075     Call hFileSaveAs (sTestFile ,true)
1076
1077     Call hCloseDocument
1078     Sleep 1
1079
1080     setattr sTestFile , 1
1081     Sleep 2
1082
1083     '/// Check if the frame is non-editable
1084     Call hFileOpen(sTestFile,false)
1085
1086     Call wTypeKeys ( "<Shift F4>" )
1087
1088     try
1089         FormatFrame
1090         Kontext
1091         Active.SetPage TabType
1092         Kontext "TabType"
1093         TabType.Cancel
1094         Warnlog "The frame should be non-editable!"
1095     catch
1096     endcatch
1097
1098     Call hCloseDocument
1099
1100 endcase
1101
1102 '-----------------------------------------------------------------
1103
1104 testcase tTextframes_32
1105
1106     Dim sTestFile as String
1107     Dim sText     as String
1108
1109     sText     = "Test"
1110     sTestFile = ConvertPath (gOfficePath + "user\work\testFileReadOnly.odt" )
1111
1112     if Dir(sTestFile) <> "" then
1113         setattr sTestFile , 0
1114         Sleep 2
1115         kill sTestFile
1116     end if
1117
1118     printlog "- Test input text into frame in read-only document when checking 'Editable in read-only document'"
1119
1120     Call hNewDocument
1121
1122     '/// insert a frame
1123     Call fInsertFrame(30,30 , 70,70)
1124
1125     '/// Format / Frame / Options , check "Editable in read-only document"
1126     Call fFormatFrame("TabZusaetze")
1127     Editierbar.Check
1128     wait 500
1129     TabZusaetze.OK
1130     Call wTypeKeys "<ESCAPE>"
1131
1132     '/// Save the file and set the file's property to Read-only
1133     Call hFileSaveAs (sTestFile ,true)
1134
1135     Call hCloseDocument
1136
1137     setattr sTestFile , 1
1138     Sleep 2
1139
1140     '/// Check if the text can be inputed into frame
1141     Call hFileOpen(sTestFile,false)
1142
1143     Call wTypeKeys "<SHIFT F4><RETURN>"
1144     Wait 500
1145
1146     try
1147         Call wTypeKeys sText
1148         Sleep 1
1149     catch
1150         Warnlog "Can't input text into frame !"
1151     endcatch
1152
1153     Call wTypeKeys "<Shift Home>"
1154     Sleep 1
1155
1156     EditCopy
1157     Sleep 1
1158
1159     if GetClipboardText <> sText then Warnlog "The inputed text isn't right!"
1160
1161     Call hCloseDocument
1162
1163 endcase
1164
1165 ' ------------------------------------------------------------------------------