testautomation/writer/optional/includes/table/w_204a_.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_204a_.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:37:02 $
  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 the table functionality in Writer
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_204a_
  41
  42     Call sTableName
  43     Call sTableAlignment
  44     Call sTableMergeCell
  45     Call TableSplit_copy_heading
  46     Call TableSplit_custom_heading
  47     Call TableSplit_custom_heading_apply_style
  48     Call TableSplit_no_heading
  49     Call sTableMerge
  50     Call sTablePagebreak
  51     Call sTableBorder
  52     Call sTableIndent
  53     Call sTableSort
  54
  55 end sub
  56
  57 ' ----------------------------------------------------------------------
  58
  59 testcase sTableName
  60     dim temp(10) as string
  61     Call hNewDocument
  62
  63     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
  64     Call wTypeKeys "<mod1 end><mod1 end>"
  65     temp (1) = "Garfield"
  66     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
  67
  68     printlog "'///  Format table via Format->Table ///"
  69     Printlog "'///      change tablename ///"
  70     TableTableProperties                ' get into existing table
  71     Sleep (2)
  72     Kontext "TabelleEinfuegenWriter"
  73     sleep (2)
  74     Kontext
  75     Active.SetPage TabTabelle
  76     Kontext "TabTabelle"
  77
  78     '  0. right table ?? ///'
  79     if (TabellenName.GetText <> temp (1) ) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+TabellenName.GetText
  80
  81     '///  1. try: space included ///'
  82     temp (1) = "Gar field"
  83     try
  84         TabellenName.SetText temp (1)
  85     catch
  86         printlog " - couldn't insert : " + temp (1)
  87     endcatch
  88     if (TabellenName.GetText = temp (1) ) then warnlog " --- ups, could insert smth. with space? : "+TabellenName.GetText
  89
  90     '///  2. try: dot included ///'
  91     temp (1) = "Gar.field"
  92     try
  93         TabellenName.SetText temp (1)
  94     catch
  95         printlog " - couldn't insert : "+temp (1)
  96     endcatch
  97     if (TabellenName.GetText = temp (1) ) then warnlog " --- ups, could insert smth. with dot? : "+TabellenName.GetText
  98
  99     TabTabelle.cancel
 100     Call hCloseDocument
 101 endcase
 102
 103 ' ----------------------------------------------------------------------
 104
 105 testcase sTableAlignment
 106     dim temp(10) as string
 107     dim PAGEWIDTH as double
 108     dim ac as integer, fc as integer
 109     dim i as integer
 110     dim sBug as string
 111
 112     Call hNewDocument
 113     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 114     Call wTypeKeys "<mod1 end><mod1 end>"
 115     temp (1) = "Garfield"
 116     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
 117
 118     '   ' get text to init some constances for this test
 119     '   temp(2) = NachOben.GetText '----------------------------------------------------
 120     ' initialisation of some constantzen for this test  '------------------------------
 121     PAGEWIDTH = hGetPageWidth()
 122     printlog "--- Pagewidth is: " + PAGEWIDTH
 123     'MEASUNIT =  GetMeasUnit (temp(2))
 124     'DECSEP = GetDecimalSeperator(temp(2))
 125
 126     Printlog "'///     set alignment of table ///"
 127     TableTableProperties
 128     Kontext
 129     Active.SetPage TabTabelle
 130     Kontext "TabTabelle"
 131     Printlog "'///      Left ///"
 132     Links.check
 133     sleep (1)
 134     if ((Breite.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active "
 135     if (LiberalMeasurement(PAGEWIDTH ,(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))) <> TRUE) then
 136         if PAGEWIDTH < 0 then
 137             warnlog "Cdbl returns wrong values"
 138         else
 139             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))+" should: " + PAGEWIDTH
 140         end if
 141     end if
 142     NachRechts.SetText "2"
 143     sleep (1)
 144     temp(1) = NachRechts.GetText
 145     TabTabelle.OK
 146     TableTableProperties
 147     Kontext
 148     Active.SetPage TabTabelle
 149     Kontext "TabTabelle"
 150     if (Links.Ischecked <> TRUE) then warnlog "links state changed"
 151     if ((Breite.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active"
 152     if (temp(1) <> NachRechts.GetText) then warnlog "value changed"
 153     if (LiberalMeasurement(PAGEWIDTH ,(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))) <> TRUE) then
 154         if PAGEWIDTH < 0 then
 155             warnlog "Cdbl returns wrong values"
 156         else
 157             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
 158         end if
 159     end if
 160     '--------------------------------
 161     NachRechts.SetText "0"
 162     sleep (1)
 163     Printlog "'///       FromLeft ///"
 164     VonLinks.check
 165     sleep (1)
 166     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 167     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
 168         if PAGEWIDTH < 0 then
 169             warnlog "Cdbl returns wrong values"
 170         else
 171             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 172         end if
 173     end if
 174     NachLinks.SetText "2"
 175     sleep (1)
 176     temp(1) = NachLinks.GetText
 177     TabTabelle.OK
 178     sleep 1
 179     TableTableProperties
 180     Kontext "TabelleEinfuegenWriter"
 181     Kontext
 182     Active.SetPage TabTabelle
 183     Kontext "TabTabelle"
 184     if (VonLinks.Ischecked <> TRUE) then warnlog "VonLinks state changed"
 185     'sBug = NachLinks.GetText
 186     if ((Breite.IsEnabled AND NachLinks.IsEnabled) <> TRUE) then warnlog "edit field not active "
 187     'if (NachLinks.IsWritable <> TRUE) then warnlog "edit field not active "
 188     'if sBug <> NachLinks.GetText then warnlog "TESTOOL BUG; is writable loescht feld "
 189     if (temp(1) <> NachLinks.GetText) then warnlog "value changed"+" should: "+temp(1)+" is:  "+ NachLinks.GetText
 190     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
 191         if PAGEWIDTH < 0 then
 192             warnlog "Cdbl returns wrong values"
 193         else
 194                 warnlog "measurement value error  "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 195         end if
 196     end if
 197     '--------------------------------
 198     NachLinks.SetText "0"
 199     Printlog "'///     Right ///"
 200     rechts.check
 201     sleep (1)
 202     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 203     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
 204         if PAGEWIDTH < 0 then
 205             warnlog "Cdbl returns wrong values"
 206         else
 207              warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 208         end if
 209     end if
 210     NachLinks.SetText "2"
 211     sleep (1)
 212     temp(1) = NachLinks.GetText
 213     TabTabelle.OK
 214     TableTableProperties
 215     Kontext
 216     Active.SetPage TabTabelle
 217     Kontext "TabTabelle"
 218     if (rechts.Ischecked <> TRUE) then warnlog "rechts state changed"
 219     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 220     if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
 221     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
 222         if PAGEWIDTH < 0 then
 223             warnlog "Cdbl returns wrong values"
 224         else
 225             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 226         end if
 227     end if
 228     '--------------------------------
 229     NachLinks.SetText "0"
 230     Printlog "'///      center ///"
 231     Zentriert.check
 232     sleep (1)
 233     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 234     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + (2 * StrToDouble (NachLinks.GetText))) <> TRUE) then
 235         if PAGEWIDTH < 0 then
 236             warnlog "Cdbl returns wrong values"
 237         else
 238             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 239         end if
 240     end if
 241     NachLinks.SetText "2"
 242     sleep (1)
 243     temp(1) = NachLinks.GetText
 244     TabTabelle.OK
 245     TableTableProperties
 246     Kontext
 247     Active.SetPage TabTabelle
 248     Kontext "TabTabelle"
 249     if (Zentriert.Ischecked <> TRUE) then warnlog "state changed"
 250     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 251     if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
 252     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + (2 * StrToDouble (NachLinks.GetText))) <> TRUE) then
 253         if PAGEWIDTH < 0 then
 254             warnlog "Cdbl returns wrong values"
 255         else
 256             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
 257         end if
 258     end if
 259     '--------------------------------
 260     NachLinks.SetText "0"
 261     Printlog "'///     manual ///"
 262     Manuell.check
 263     sleep (1)
 264     if ((Breite.IsWritable AND NachLinks.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active "
 265     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText) + StrToDouble (NachRechts.GetText)) <> TRUE) then
 266         if PAGEWIDTH < 0 then
 267             warnlog "Cdbl returns wrong values"
 268         else
 269             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText)+ StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
 270         end if
 271     end if
 272     NachLinks.SetText "2"
 273     NachRechts.SetText "2"
 274     sleep (1)
 275     temp(1) = NachLinks.GetText
 276     temp(2) = NachRechts.GetText
 277     TabTabelle.OK
 278     TableTableProperties
 279     Kontext
 280     Active.SetPage TabTabelle
 281     Kontext "TabTabelle"
 282     if (Manuell.Ischecked <> TRUE) then warnlog "state changed"
 283     if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
 284     if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
 285     if (temp(2) <> NachRechts.GetText) then warnlog "value changed"
 286     if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText) + StrToDouble (NachRechts.GetText)) <> TRUE) then
 287         if PAGEWIDTH < 0 then
 288             warnlog "Cdbl returns wrong values"
 289         else
 290              warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText)+ StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
 291         end if
 292     end if
 293     '--------------------------------
 294     NachLinks.SetText "0"
 295     NachRechts.SetText "0"
 296     TabTabelle.OK
 297     Printlog "'///    <font color=#FF0000>TODO TBO automatical ---------- MISSING yet </FONT> ///"
 298     Call hCloseDocument
 299 endcase
 300
 301 ' ----------------------------------------------------------------------
 302
 303 testcase sTablePagebreak
 304     Dim temp(10) as string
 305
 306     Call hNewDocument
 307     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 308     Call wTypeKeys "<mod1 end><mod1 end>"
 309     temp (1) = "Garfield"
 310     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
 311
 312     Printlog "'///     Check TextFlow: pagebreak ///"
 313
 314     InsertFieldsPagenumbers          ' get pagenumber & leave it for next calculation
 315     Call wTypeKeys "<shift home>"
 316     ToolsCalculate
 317     temp(1) = val(GetClipboardText)
 318
 319     TableTableProperties
 320     Kontext "TabelleEinfuegenWriter"
 321     Kontext
 322     Active.SetPage TabTextFlusstabelle
 323     Kontext "TabTextFlusstabelle"
 324     Umbruch.Check
 325     if ((Seite.IsChecked AND Davor.IsChecked) <> TRUE) then
 326         printlog "--- defaultvalue changed..."
 327         Seite.Check
 328         Davor.Check
 329     end if
 330     TabTextFlusstabelle.OK
 331
 332     ToolsUpdateUpdateAll             ' update field & get pagenumber & clear
 333     Call wTypeKeys "<shift end>"
 334     ToolsCalculate
 335     temp(2) = val(GetClipboardText)
 336     if ((val(temp(1))+1) <> temp(2)) then
 337         warnlog "--- Table didn't move, that's not good "+ "from: "+val(temp(1))+" to: "+ temp(2) +" 1+1= "+(val(temp(1))+1)
 338     else
 339         printlog "    works , moved, ok!"
 340     end if
 341
 342     Call wTypeKeys "<mod1 end><mod1 end><return>"
 343
 344     Call hCloseDocument
 345 endcase
 346
 347 ' ----------------------------------------------------------------------
 348
 349 testcase sTableMergeCell
 350     dim temp(10) as string
 351
 352     dim PAGEWIDTH as double
 353     dim ac as integer, fc as integer
 354     dim i as integer
 355
 356     Call hNewDocument
 357
 358     ' set marks to find
 359     Call wTypeKeys "NULL<return>"
 360     Call wTypeKeys "Start<return>"
 361     Call wTypeKeys "End<return>"
 362     Call wTypeKeys "NULL<return><up><up>"
 363
 364     temp (1) = "Table1"
 365         '/// Insert a table with 10 columns and 7 rows
 366     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
 367     Call wTypeKeys "<MOD1 END>", 2
 368     Call wTypeKeys "<up><up>"
 369
 370         '/// Insert a table with 10 columns and 10 rows
 371     temp (1) = "Table2"
 372     Call TBOhTabelleEinfuegen (temp (1) ,0,0,1,1,"10",tHeight:="10")  ' insert table
 373
 374     Printlog "merging of cells & undo"
 375     temp (2) = hGetTableName()
 376     if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
 377
 378     Printlog " - merging of cells"
 379     ac=0   ' ActionCount
 380     fc=100 ' FieldCount
 381     Call wTypeKeys "<down><shift right>"     ' 2 horizontal (0,1) & (1,1) (x,y)
 382     TableMergeCells : inc ac : dec fc '   FormatZelleVerbinden
 383     Call wTypeKeys "<down><shift down>"      ' 2 vertical (1,2) & (1,3)
 384     TableMergeCells : inc ac : dec fc
 385     Call wTypeKeys "<down><up><shift down><shift up>"      ' merge again
 386     'Warnlog "Merge cells will crash when only one cell is selected (#i33394)"
 387     TableMergeCells
 388
 389     ' go to top of table, move to end & count
 390     Call wTypeKeys "<mod1 home>"
 391     for i=1 to fc
 392         Call wTypeKeys "<right>"
 393     next i
 394     Call wTypeKeys "<down>"
 395     Call wTypeKeys "<shift end>" ' right after/outside the table ->
 396         try
 397             EditCopy
 398         catch
 399                 Warnlog "Test didn't find the end of the table, stops here!"
 400                 Call hCloseDocument
 401                 goto endsub
 402         endcatch
 403     if (GetClipboardText <> "End") then
 404                 Warnlog "Test didn't find the end of the table, stops here! Found:" & GetClipboardtext
 405                 Call hCloseDocument
 406                 goto endsub
 407     end if
 408     ' undo & check where we are
 409     for i=1 to ac
 410         EditUndo
 411     next i
 412
 413     sleep (3)
 414     temp (2) = hGetTableName()
 415     if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
 416     EditUndo ' go one step further
 417     EditUndo ' go one step further
 418     Call wTypeKeys "<up><shift end>"
 419     EditCopy
 420     temp(2) = GetClipboardText
 421     Call wTypeKeys "<down><shift home>"
 422     EditCopy
 423     temp(3) = GetClipboardText
 424     if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
 425         warnlog "there is smth. wrong with the undo stuff !!! is:"+temp(3) +" and:"+temp(2)+" should:End Start"
 426     end if
 427
 428     '/// Close document
 429     Call hCloseDocument
 430 endcase
 431
 432 ' ----------------------------------------------------------------------
 433
 434 testcase sTableBorder
 435     dim temp(10) as string
 436     temp(1) = "bloed"
 437
 438     dim PAGEWIDTH as double
 439     dim ac as integer, fc as integer
 440     dim i as integer
 441     Call hNewDocument
 442
 443     ' set marks to find
 444     Call wTypeKeys "<mod1 end><mod1 end>"
 445     Call wTypeKeys "NULL<return>"
 446     Call wTypeKeys "Start<return>"
 447     Call wTypeKeys "End<return>"
 448     Call wTypeKeys "NULL<return><up><up>"
 449
 450     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
 451
 452     Printlog "'///       set border & undo ///"
 453     ' assign border to whole table
 454     Call wTypeKeys "<shift mod1 end>"
 455     TableTableProperties                ' get into existing table
 456     Sleep (1)
 457     Kontext "TabelleEinfuegenWriter"
 458     sleep (1)
 459     Kontext
 460     if active.exists (5) then
 461         Active.SetPage TabUmrandung
 462         Sleep (1)
 463         Kontext "TabUmrandung"
 464         Sleep (1)
 465         Vorgaben.Typekeys "<end>" ' set border
 466         StilFarbe.Select StilFarbe.GetItemCount
 467
 468         'links.IsWriteable 'si checkable, but not now!...
 469         Position.TypeKeys "<home><right><right><right>" ' 3. from the left
 470         if (groesse.IsEnabled <> TRUE) then warnlog "position of shadow is not changeable "
 471         SchattenFarbe.Select SchattenFarbe.GetItemCount - 1
 472     else
 473         TableTableProperties                ' get into existing table
 474         Kontext "TabelleEinfuegenWriter"
 475         sleep (1)
 476         Kontext
 477         warnlog  "2.trie"
 478         if active.exists (5) then
 479             Active.SetPage TabUmrandung
 480             Sleep (1)
 481             Kontext "TabUmrandung"
 482             Sleep (1)
 483             Vorgaben.Typekeys "<end>" ' set border
 484             StilFarbe.Select StilFarbe.GetItemCount
 485
 486             'links.IsWriteable 'si checkable, but not now!...
 487             Position.TypeKeys "<home><right><right><right>" ' 3. from the left
 488             if (groesse.IsEnabled <> TRUE) then warnlog "position of shadow is not changeable "
 489             SchattenFarbe.Select SchattenFarbe.GetItemCount - 1
 490         else
 491             warnlog "baeh!"
 492         end if
 493     end if
 494     Kontext
 495     Active.SetPage TabHintergrund
 496     Sleep (1)
 497     Kontext "TabHintergrund"
 498     Sleep (1)
 499     Hintergrundfarbe.TypeKeys "<home><down><right><down><right><down><right><down><right>"
 500     TabHintergrund.OK
 501     ' just an idea of checking this type of control
 502     i=0
 503     TableTableProperties                ' get into existing table
 504     Sleep (1)
 505     Kontext "TabelleEinfuegenWriter"
 506     sleep (1)
 507     Kontext
 508     Active.SetPage TabUmrandung
 509     Sleep (1)
 510     Kontext "TabUmrandung"
 511     Sleep (1)
 512     while (groesse.IsEnabled)
 513         Position.TypeKeys "<left>"
 514         inc i
 515     wend
 516     TabUmrandung.cancel
 517     if (i <> 3) then warnlog "wrong shadow selected should be 3, was: "+i
 518
 519     ' undo & check where we are ///'
 520     EditUndo
 521     temp (2) = hGetTableName()
 522     if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
 523     EditUndo ' go one step further
 524     Call wTypeKeys "<up><shift end>"
 525     EditCopy
 526     temp(2) = GetClipboardText
 527     Call wTypeKeys "<down><shift home>"
 528     EditCopy
 529     temp(3) = GetClipboardText
 530     if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
 531         warnlog "there is smth. wrong with the undo stuff !!!"
 532         print "whats wrong with the undo stuff"
 533     end if
 534     EditRedo ' and back again
 535     Call wTypeKeys "<up><mod1 home>" ' now we are in (0,0)
 536     Call hCloseDocument
 537 endcase
 538
 539 ' ----------------------------------------------------------------------
 540
 541 testcase sTableIndent
 542     dim temp(10) as string
 543     dim ac as integer, fc as integer
 544
 545     Call hNewDocument
 546     ' set marks to find
 547     Call wTypeKeys "NULL<return>"
 548     Call wTypeKeys "Start<return>"
 549     Call wTypeKeys "End<return>"
 550     Call wTypeKeys "NULL<return><up><up>"
 551
 552     temp (1) = "Garfield"
 553     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
 554
 555     Printlog "'///    tab, paragraph indent & UNDO ///"
 556
 557     ac=0   ' ActionCount
 558     fc=100 ' FieldCount
 559     ' : inc ac : dec fc
 560     FormatParagraph
 561     Kontext
 562     Active.SetPage TabTabulator
 563     Sleep (1)
 564     Kontext "TabTabulator"
 565     Sleep (1)
 566     Position.SetText "1"
 567     TypZentriert.Check
 568     Fuellzeichen5.Check
 569     FuellzeichenZeichen.SetText "%"
 570     Neu.Click
 571     Kontext
 572     Active.SetPage TabEinzuegeUndAbstaende
 573     Sleep (1)
 574     Kontext "TabEinzuegeUndAbstaende"
 575     Sleep (1)
 576     Vonlinks.SetText "-1"
 577     VonRechts.SetText "-1"
 578     TabEinzuegeUndAbstaende.OK
 579
 580
 581     Printlog "'///     text attributes ///"
 582     Call wTypeKeys "John"  : inc ac
 583     Call wTypeKeys "<shift home>"
 584     FormatCharacter
 585     Kontext
 586     Active.SetPage TabFontEffects
 587     Sleep (1)
 588     Kontext "TabFontEffects"
 589     Sleep (1)
 590     FontColor.Select FontColor.GetItemCount - 1
 591     Kontext
 592     Active.SetPage TabFontPosition
 593     Sleep (1)
 594     Kontext "TabFontPosition"
 595     Sleep (1)
 596     Super.Check
 597     n90Degree.Check
 598     TabFontPosition.OK
 599
 600     EditUndo
 601     EditUndo
 602
 603     Printlog "'///      cell protection ///"
 604     Call wTypeKeys "<LEFT><UP>", 10
 605     Call wTypeKeys "<DOWN>", 3
 606     Call wTypeKeys "<down><shift down><shift right><Right><Left><Shift right><Shift left>"
 607     TableCellProtect
 608     Call wTypeKeys "<LEFT>"
 609     Call wTypeKeys "x"
 610     Kontext
 611     if (Active.Exists <> TRUE) then
 612         Call wTypeKeys "<LEFT><UP>", 10
 613         Call wTypeKeys "<DOWN>", 3
 614         Call wTypeKeys "<down><shift down><shift right><Right><Left><Shift right><Shift left>"
 615         try
 616             EditCopy
 617         catch
 618         endcatch
 619         if GetClipboardtext <> "" then
 620             QAErrorLog "#110549#Protection of cell does not work correct!"
 621         end if
 622         ' If protection fails, reselect table with Navigator!
 623         Call wNavigatorAuswahl(2,1)
 624     else
 625         Active.OK
 626         EditUndo
 627         Call wTypeKeys "x"
 628         Kontext
 629         if (Active.Exists = TRUE) then
 630             Warnlog "ReProtection of table does not work!" + Active.GetText
 631             active.OK
 632         end if
 633
 634         EditUndo
 635         EditUndo
 636         'Printlog "undoCheck is here"
 637         temp (2) = hGetTableName()
 638         if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
 639         EditUndo ' go one step further
 640         Call wTypeKeys "<up><shift end>"
 641         EditCopy
 642         temp(2) = GetClipboardText
 643         Call wTypeKeys "<down><shift home>"
 644         EditCopy
 645         temp(3) = GetClipboardText
 646         if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
 647             warnlog "there is smth. wrong with the undo stuff !!! is: "+temp(2)+" should: Start; is: "+temp(3)+" should: End;"
 648         end if
 649         EditRedo ' and back again
 650         Call wTypeKeys "<up><mod1 home>" ' now we are in (0,0)
 651     end if
 652
 653     Printlog "'///      Set graphic in table as background ///"
 654     try
 655         TableTableProperties
 656     catch
 657         Warnlog "Dialog 'Insert Table' not up!"
 658         Call hCloseDocument
 659         goto endsub
 660     endcatch
 661
 662     try
 663         Kontext
 664         Active.SetPage TabHintergrund
 665         Sleep (1)
 666         Kontext "TabHintergrund"
 667         Sleep (1)
 668         Fuer.Select(2) ' Zeile
 669         Als.Select(2)  ' Grafik
 670         Durchsuchen.Click
 671         Kontext "GrafikEinfuegenDlg"
 672         Dateiname.SetText convertPath(gTesttoolPath +"writer\optional\input\options\ga000907.gif")
 673         Oeffnen.Click
 674         Kontext "TabHintergrund"
 675         TabHintergrund.OK
 676
 677         FormatColumnWidthWriter ' thre is a bigger test in the option test
 678         Kontext "SpaltenBreite"
 679         Spalte.SetText "2"
 680         Breite.SetText "2"
 681         SpaltenBreite.OK
 682         FormatRowHeight
 683         Kontext "ZellenHoehe"
 684         Hoehe.SetText "2"
 685         ZellenHoehe.OK
 686         EditUndo
 687         EditUndo
 688
 689         EditUndo
 690
 691         ' Printlog "undoCheck is here"
 692         sleep (3)
 693         temp (2) = hGetTableName()
 694         if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
 695         EditUndo ' go one step further
 696         Call wTypeKeys "<up><shift end>"
 697         EditCopy
 698         temp(2) = GetClipboardText
 699         Call wTypeKeys "<down><shift home>"
 700         EditCopy
 701         temp(3) = GetClipboardText
 702         if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
 703             warnlog "there is smth. wrong with the undo stuff !!! is: "+temp(2)+" should: Start; is: "+temp(3)+" should: End;"
 704         end if
 705         EditRedo ' and back again
 706         Call wTypeKeys "<mod1 end>" ' go to end of doc
 707     catch
 708         Warnlog "Dialog 'Insert Table' not up!"
 709     endcatch
 710     Call hCloseDocument
 711 endcase
 712
 713 ' ----------------------------------------------------------------------
 714
 715 testcase sTableSort
 716     dim temp(10) as string
 717     dim PAGEWIDTH as double
 718     dim ac as integer, fc as integer
 719     dim i as integer
 720
 721     Call hNewDocument
 722     '   Kontext "DocumentWriter"
 723     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 724     Call wTypeKeys "<mod1 end><mod1 end>"
 725     temp (1) = "Sort"
 726     Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="10")  ' insert table
 727
 728     fc = 99
 729     randomize()
 730     for i=1 to fc
 731         Call wTypeKeys str(rnd()) + "<right>"
 732     next i
 733     Call wTypeKeys "<shift mod1 home>"
 734     ToolsSort '-----------------------------------------------------------11111111111111111
 735     Kontext "Sortieren"
 736     Spalten.Check  'direction 1
 737     for i = 1 to Schluesseltyp1.GetItemCount
 738         Schluesseltyp1.select i
 739         printlog "possible values for sorting :" + Schluesseltyp1.Getseltext
 740     next i
 741     Sortieren.OK
 742     Kontext
 743     if active.exists (5) then printlog "active1: "+active.gettext
 744     Call wTypeKeys "<shift mod1 end>",2
 745     try
 746         ToolsSort '-----------------------------------------------------------22222222222222222
 747     catch
 748         printlog "WorkAround only seen on linux, can't select immediately, cursor movement needed "
 749         Call wTypeKeys "<right><left>"
 750         Call wTypeKeys "<shift mod1 end>",2
 751         ToolsSort
 752     endcatch
 753     Kontext
 754     if active.exists (5) then
 755         printlog "active2: "+active.gettext
 756         active.ok
 757     end if
 758     Kontext "Sortieren"
 759     Zeilen.Check
 760     Sortieren.OK
 761     Kontext
 762     if active.exists (5) then
 763         printlog "active3: "+active.gettext
 764         active.ok
 765     end if
 766
 767     'Schluessel1
 768     'Spalte1
 769     'Schluesseltyp1
 770     'Aufsteigend1
 771     'Absteigend1
 772     '
 773     'Schluessel2
 774     'Spalte2
 775     'Schluesseltyp2
 776     'Aufsteigend2
 777     'Absteigend2
 778     '
 779     'Schluessel3
 780     'Spalte3
 781     'Schluesseltyp3
 782     'Aufsteigend3
 783     'Absteigend3
 784     '
 785     'Tabulator
 786     'Zeichen
 787     'Zeichentext
 788     'Sonderzeichen
 789     'Sprache
 790     'ExakterVergleich
 791     Call hCloseDocument
 792 endcase
 793
 794 ' ----------------------------------------------------------------------
 795
 796 testcase TableSplit_copy_heading
 797     printlog "'/// Splitting Tables & UNDO ///"
 798     printlog "'///     check 'copy heading' ///"
 799     dim temp(10) as string
 800     dim PAGEWIDTH as double
 801     dim ac as integer, fc as integer
 802     dim i as integer
 803
 804     Call hNewDocument
 805     ' Kontext "DocumentWriter"
 806     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 807     Call wTypeKeys "<mod1 end><mod1 end>"
 808     temp (1) = "Split"
 809     Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
 810
 811     Printlog "'/// Splitting Tables & UNDO ///"
 812     Printlog "'///     check 'copy heading' ///"
 813     temp(2) = "Jon"
 814     Call wTypeKeys temp(2)+"<down>"
 815     FormatSplitTable
 816     Kontext "TabelleAuftrennen"
 817     UeberschriftKopieren.Check      '<------------- this is the key
 818     TabelleAuftrennen.OK
 819     ' check where am i
 820     temp (6) = hGetTableName ()
 821     if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
 822 '   if (temp(6) <> (fLocaleString("LocaleTable")+"2")) then warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"2")
 823
 824     Call wTypeKeys "<up>"  ' im in the content of the table
 825     Sleep 1
 826     ' -------------check if heading (style)
 827     Kontext "TextObjectbar"
 828     if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
 829         Warnlog "tabel heading did not work!is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
 830     end if
 831     '----------------------------------
 832     Call wTypeKeys "<end><shift home>" ' check heading in 'new' table (content)
 833     EditCopy
 834     temp(3) = GetClipboardText
 835     if (temp(2) <> temp(3)) then  warnlog "wrong heading! Is: "+temp(3)+" Should: "+temp(2)
 836     Call wTypeKeys "<up><up>"
 837     if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work?"
 838     Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
 839     EditCopy
 840     temp(3) = GetClipboardText
 841     if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+" should: "+temp(2)
 842     EditUndo
 843     EditUndo
 844
 845     Printlog "'///     check 'custom heading (apply style)' ///"
 846     ' splitting headers doesn't work -> move down 1 line
 847     temp(2) = temp(1)
 848     Call wTypeKeys temp(2)
 849     ' set some style to verify
 850     FormatParagraph
 851     Kontext
 852     Active.SetPage TabEinzuegeUndAbstaende
 853     Sleep (1)
 854     Kontext "TabEinzuegeUndAbstaende"
 855     Sleep (1)
 856     Vonlinks.SetText "-1"
 857     VonRechts.SetText "-1"
 858     temp (4) = Vonlinks.GetText
 859     temp (5) = Vonrechts.GetText
 860     TabEinzuegeUndAbstaende.OK
 861     Call wTypeKeys "<down>",2
 862     FormatSplitTable
 863     Kontext "TabelleAuftrennen"
 864     EigeneMitVorlage.Check    '<------------- this is the key
 865     TabelleAuftrennen.OK
 866     ' check where am i
 867     temp (6) = hGetTableName ()
 868     if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then
 869         warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
 870     end if
 871     ' -------------check if heading
 872     Kontext "TextObjectbar"
 873     if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
 874         Warnlog "Table heading did not work!"
 875         Warnlog "is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
 876         Call wTypeKeys "<Escape>"
 877     end if
 878     '----------------------------------
 879
 880     FormatParagraph         ' check style
 881     Kontext
 882     Active.SetPage TabEinzuegeUndAbstaende
 883     Sleep (1)
 884     Kontext "TabEinzuegeUndAbstaende"
 885     Sleep (1)
 886     '         if ((Vonlinks.GetText <>temp (4) ) OR (Vonrechts.GetText <>temp (5) )) then warnlog "style didn't get inherited. is: "+Vonlinks.GetText+"; should: "+temp (4) +";; is: "+Vonrechts.GetText+"; should: "+temp (5) +";;"
 887     TabEinzuegeUndAbstaende.OK
 888     Call wTypeKeys "<up><up><up>"               ' goto old table
 889     if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
 890     Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
 891     EditCopy
 892     temp(3) = GetClipboardText
 893     if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+"; should: "+temp(2)
 894
 895     sleep (3)
 896     Call hCloseDocument
 897 endcase
 898
 899 ' ----------------------------------------------------------------------
 900
 901 testcase TableSplit_custom_heading
 902     dim temp(10) as string
 903     dim PAGEWIDTH as double
 904     dim ac as integer, fc as integer
 905     dim i as integer
 906
 907     Call hNewDocument
 908     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 909     Call wTypeKeys "<mod1 end><mod1 end>"
 910     temp (1) = "Header"
 911     Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
 912     Printlog "'///     check  'custom heading' ///"
 913     Call wTypeKeys "Header"
 914     FormatStylesCatalog ' set a style to verify
 915     Kontext "Vorlagenkatalog"
 916     Ansicht.TypeKeys "<up><up><up><up>"
 917     temp (4) = Ansicht.GetText
 918     Vorlagenkatalog.OK
 919     ' set some style to verify
 920     FormatParagraph
 921     Kontext
 922     Active.SetPage TabEinzuegeUndAbstaende
 923     Sleep (1)
 924     Kontext "TabEinzuegeUndAbstaende"
 925     Sleep (1)
 926     Vonlinks.SetText "-1"
 927     VonRechts.SetText "-1"
 928     temp (2) = Vonlinks.GetText
 929     temp (3) = Vonrechts.GetText
 930     TabEinzuegeUndAbstaende.OK
 931     Call wTypeKeys ("<down>")
 932     FormatSplitTable
 933     Kontext "TabelleAuftrennen"
 934     Eigene.Check                 '<------------- this is the key
 935     TabelleAuftrennen.OK
 936     ' check where am i
 937     temp (5) = hGetTableName ()
 938     if (temp(5) <> ( fLocaleString("LocaleTable") + "1" )) then warnlog "Split table didn't work! is: "+ temp(5) + "; should: "+(fLocaleString("LocaleTable") + "1")
 939     ' -------------check if NO heading (would be a custom style...))
 940     Call wTypeKeys "<Up>",2
 941     Call wTypeKeys "<mod1 a>"
 942     EditCopy
 943     temp(6) = GetClipboardText
 944     FormatParagraph         ' check style
 945     Kontext
 946     Active.SetPage TabEinzuegeUndAbstaende
 947     Sleep (1)
 948     Kontext "TabEinzuegeUndAbstaende"
 949     Sleep (1)
 950     if temp (2) <> Vonlinks.GetText then Warnlog "Indent 'Before text' has been changed!"
 951     if temp (3) <> Vonrechts.GetText then Warnlog "Indent 'After text' has been changed!"
 952     TabEinzuegeUndAbstaende.OK
 953     FormatStylesCatalog ' verify
 954     Kontext "Vorlagenkatalog"
 955     if Ansicht.Gettext <> temp(4) then Warnlog "Style in Header has been changed!"
 956     Vorlagenkatalog.Cancel
 957     if (hGetTableName () <> temp(1)) then warnlog "Split table didn't work? is: "+hGetTableName () +"; should: "+temp(1)
 958     if (temp(6) <> temp(1)) then  warnlog "wrong heading! is: " + temp(6) + " should: " + temp(1)
 959     Call hCloseDocument
 960 endcase
 961
 962 ' ----------------------------------------------------------------------
 963
 964 testcase TableSplit_custom_heading_apply_style
 965     ' SHOULD BE EASIER TO WORK ON ODIE TOOOOOO
 966     dim temp(10) as string
 967     dim PAGEWIDTH as double
 968     dim ac as integer, fc as integer
 969     dim i as integer
 970
 971     Call hNewDocument
 972     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
 973     Call wTypeKeys "<mod1 end><mod1 end>"
 974     temp (1) = "Split"
 975     TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
 976
 977     Printlog "'/// Splitting Tables & UNDO ///"
 978     Printlog "'///     check 'custom heading (apply style)' ///"
 979     temp(2) = temp(1)
 980     Call wTypeKeys temp(2)
 981     ' set some style to verify
 982     FormatParagraph
 983     Kontext "TabTabulator"
 984     Kontext
 985     Active.SetPage TabEinzuegeUndAbstaende
 986     Sleep (1)
 987     Kontext "TabEinzuegeUndAbstaende"
 988     Sleep (1)
 989     Vonlinks.SetText "-1"
 990     VonRechts.SetText "-1"
 991     temp (4) = Vonlinks.GetText
 992     temp (5) = Vonrechts.GetText
 993     TabEinzuegeUndAbstaende.OK
 994     Call wTypeKeys "<down>",2
 995     FormatSplitTable
 996     Kontext "TabelleAuftrennen"
 997     EigeneMitVorlage.Check    '<------------- this is the key
 998     TabelleAuftrennen.OK
 999     ' check where am i
1000     temp (6) = hGetTableName ()
1001     if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then
1002         warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
1003     end if
1004     ' -------------check if heading
1005     Kontext "TextObjectbar"
1006     if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
1007         Warnlog "table heading did not work!"
1008         warnlog "is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
1009         'GetSelText bleibt in der box
1010         Call wTypeKeys "<Escape>"
1011     end if
1012     '----------------------------------
1013     FormatParagraph         ' check style
1014     Kontext "TabTabulator"
1015     Kontext
1016     Active.SetPage TabEinzuegeUndAbstaende
1017     Sleep (1)
1018     Kontext "TabEinzuegeUndAbstaende"
1019     Sleep (1)
1020     TabEinzuegeUndAbstaende.OK
1021     Call wTypeKeys "<up><up><up>"               ' goto old table
1022     if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
1023     Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
1024     EditCopy
1025     temp(3) = GetClipboardText
1026     if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+"; should: "+temp(2)
1027     sleep (3)
1028     Call hCloseDocument
1029 endcase
1030
1031 ' ----------------------------------------------------------------------
1032
1033 testcase TableSplit_no_heading
1034     ' SHOULD BE EASIER TO WORK ON ODIE TOOOOOO
1035     dim temp(10) as string
1036     dim PAGEWIDTH as double
1037     dim ac as integer, fc as integer
1038     dim i as integer
1039
1040     Call hNewDocument
1041     Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
1042     Call wTypeKeys "<mod1 end><mod1 end>"
1043     temp (1) = "Split"
1044     Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
1045
1046     Printlog "'/// Splitting Tables & UNDO ///"
1047     Printlog "'///     check 'no heading' ///"
1048     temp(2) = "Header"
1049     temp(3) = "Content"
1050     Call wTypeKeys ( temp(2) )
1051     Call wTypeKeys ( "<down>" )
1052     Call wTypeKeys ( temp(3) )
1053     Call wTypeKeys ( "<Home>" )
1054     ' set some style to verify
1055     FormatParagraph
1056     Kontext
1057     Active.SetPage TabEinzuegeUndAbstaende
1058     Sleep (1)
1059     Kontext "TabEinzuegeUndAbstaende"
1060     Sleep (1)
1061     Vonlinks.SetText "-1"
1062     VonRechts.SetText "-1"
1063     temp (4) = Vonlinks.GetText
1064     temp (5) = Vonrechts.GetText
1065     TabEinzuegeUndAbstaende.OK
1066     FormatSplitTable
1067     Kontext "TabelleAuftrennen"
1068     Keine.Check
1069     TabelleAuftrennen.OK
1070     ' check where am i
1071     temp (6) = hGetTableName ()
1072     if (temp(6) <> ( fLocaleString("LocaleTable") + "1" )) then warnlog "Split table didn't work! is: " + temp(6) + "; should: " + (fLocaleString("LocaleTable") + "1" )
1073     ' -------------check if NO heading (would be a custom style...))
1074     Kontext "TextObjectbar"
1075     Call wTypeKeys "<end><shift home>" ' check heading in 'new' table
1076     try
1077         EditCopy
1078         ' Should be 'Content'
1079         if (GetClipboardText   <> temp(3)) then  warnlog "wrong content! is: " + GetClipboardText + " should: " + temp(3)
1080     catch
1081         Warnlog "Unable to copy content! Maybe not selected!"
1082     endcatch
1083     FormatParagraph         ' check style
1084     Kontext
1085     Active.SetPage TabEinzuegeUndAbstaende
1086     Sleep (1)
1087     Kontext "TabEinzuegeUndAbstaende"
1088     Sleep (1)
1089     if ((Vonlinks.GetText <>temp (4) ) OR (Vonrechts.GetText <>temp (5) )) then warnlog "style didn't get inherited"
1090     TabEinzuegeUndAbstaende.OK
1091     Call wTypeKeys "<up><up>"               ' goto header
1092     if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
1093     Call wTypeKeys "<Mod1 A>" ' check heading in 'old' table
1094     try
1095         EditCopy
1096     catch
1097         Warnlog "Unable to copy content! Maybe not selected!"
1098     endcatch
1099     if (GetClipboardText  <> temp(2)) then  warnlog "wrong heading! is: " + GetClipboardText + " should: " + temp(2)
1100     Call hCloseDocument
1101 endcase
1102
1103 ' ----------------------------------------------------------------------
1104
1105 testcase sTableMerge
1106     dim temp(10) as string
1107
1108     Call hNewDocument
1109     Call wTypeKeys "<return><mod1 end><mod1 end>"
1110     Call wTypeKeys "<mod1 end><mod1 end>"
1111
1112     temp(2) = "Arlene"
1113     temp(3) = "Pooky"
1114     temp(4) = "Nermal"
1115
1116     Call TBOhTabelleEinfuegen (temp (2) ,0,1,0,1,"10",tHeight:="7")  ' insert table Arlene
1117     sleep (3)
1118     Call wTypeKeys "<mod1 end><mod1 end>"
1119     Call TBOhTabelleEinfuegen (temp (3) ,0,1,0,1,"10",tHeight:="7")  ' insert table Pooky
1120     sleep (3)
1121     Call wTypeKeys "<mod1 end><mod1 end>"
1122     Call TBOhTabelleEinfuegen (temp (4) ,0,1,0,1,"10",tHeight:="7")  ' insert table Nermal
1123     sleep (3)
1124
1125     Printlog "'///  Join tables & UNDO///"
1126     Printlog "'///      insert 3 tables: 'Arlene' 'Pooky' 'Nermal' ///"
1127
1128     ' usually lowwer to upper one...
1129     ' update formulars ....
1130     Printlog "'///     join Nermal with pooky -> Nermal has to be under Arlene -> undo ///"
1131     FormatMergeTables
1132     if (hGetTableName () <> temp(4)) then warnlog "Merge table didn't work? 1 "
1133     Call wTypeKeys "<mod1 home><up>"
1134     if (hGetTableName () <> temp(2)) then warnlog "Merge table didn't work? 1+ "
1135     EditUndo
1136     Call wTypeKeys "<up><mod1 home>"
1137
1138     Printlog "'///     join Nermal with pooky -> choose lowerTable -> Nermal has to be under Arlene again -> undo  ///"
1139     FormatMergeTables
1140     Kontext "TabellenVerbinden"
1141     if TabellenVerbinden.exists (5) <> TRUE then
1142         warnlog "there is only one table around no question for which table should be connected "
1143     end if
1144     MitNachfolgenderTabelleVerbinden.Check
1145     TabellenVerbinden.OK
1146     temp (5) = hGetTableName ()
1147     if (temp (5) <> temp(3)) then warnlog "Merge table didn't work? 2 is:"+temp (5)+" should: "+temp(3)
1148     Call wTypeKeys "<up>"
1149     if (hGetTableName () <> temp(2)) then warnlog "Merge table didn't work? 2+ "
1150     EditUndo
1151     Call wTypeKeys "<up><mod1 home>"
1152
1153     Printlog "'///     join Pooky with Arlene -> choose upperTable -> Pooky is now above Nermal -> undo  ///"
1154     FormatMergeTables
1155     Kontext "TabellenVerbinden"
1156     MitVorherigerTabelleVerbinden.Check
1157     TabellenVerbinden.OK
1158     temp (5) = hGetTableName ()
1159     if (temp (5) <> temp(3)) then warnlog "Merge table didn't work? 3 is:"+temp (5)+" should: "+temp(3)
1160     Call wTypeKeys "<up>"
1161     if (hGetTableName () <> temp(3)) then warnlog "Merge table didn't work? 3+ "
1162     EditUndo
1163     Call wTypeKeys "<up><mod1 home>"
1164
1165     Printlog "'///     join Arlene with Pooky -> Pooky is above Nermal -> undo ///"
1166     FormatMergeTables
1167     Kontext "TabellenVerbinden"
1168     if TabellenVerbinden.exists then
1169         warnlog "tzhere shouldn't be a table connect dialog; yust one table to connect to available "
1170         TabellenVerbinden.cancel
1171     end if
1172     sleep (2)
1173     temp (5) = hGetTableName ()
1174     if (temp (5) <> temp(2)) then warnlog "Merge table didn't work? 4 is:"+temp (5)+" should: "+temp(2)
1175     sleep (2)
1176     Call wTypeKeys "<mod1 end><down>"
1177     sleep (3)
1178     if (hGetTableName () <> temp(4)) then warnlog "Merge table didn't work? 4+ "
1179     sleep (3)
1180     EditUndo
1181     sleep (3)
1182     Call hCloseDocument
1183 endcase
1184
1185 ' ----------------------------------------------------------------------
1186
1187 function hGetPageWidth() as double
1188     Dim tWidth as double
1189     try
1190         FormatPageWriter
1191     catch
1192         warnlog ":couldn't get menuentry: FormatPageWriter"
1193         exit function
1194     endcatch
1195     Kontext
1196     Active.SetPage TabSeite
1197     Kontext "TabSeite"
1198     printlog "Test: "+ Breite.GetText +" " +Links.GetText  +" " +Rechts.GetText
1199         tWidth = (StrToDouble(Breite.GetText) - ( StrToDouble(Links.GetText) + StrToDouble(Rechts.GetText)) )
1200     hGetPageWidth = tWidth
1201     TabSeite.cancel
1202 end function
1203