testautomation/writer/optional/includes/navigator/w_navigator.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_navigator.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:31:20 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Navigator test
  36 '*
  37 '\***********************************************************************
  38
  39 sub w_navigator
  40     printLog Chr(13) + "---------   Navigator Functions -   ----------"
  41
  42     Call tViewNavigator1                ' alle Methoden am Dockingwindow  - Navigator
  43     Call tViewNavigator2            ' dokument?bergreifenden Methoden am Dockingwindow
  44     Call tViewNavigator3            ' Funktionen testen
  45     Call tViewNavigator4            ' Inhaltsansicht des Navigators ?berpr?fen
  46     Call tViewNavigator5            ' Anspringen von Punkten im Dokument ?ber die Inhaltsansicht
  47     Call tViewNavigator6            ' Umbenennen von Objekten aus dem Navigator
  48
  49 end sub
  50
  51 ' **********************************************************************
  52
  53 testcase tViewNavigator1
  54     Dim xPos as long : Dim yPos as long: Dim xSize% : Dim ySize%
  55
  56     '/// Edit / Navigator ( all methods from Navigator as Window ) ///
  57     printlog "- Edit / Navigator : all methods from Navigator as Window"
  58     '/// New document ///
  59     Call hNewDocument
  60     '/// Call Navigator with 'F5' ///
  61     printlog "  - Call Navigator with F5"
  62     call wTypeKeys "<F5>"
  63
  64     Kontext "Navigator"
  65     if Navigator.NotExists then
  66         Warnlog "No Navigator with F5"
  67         ViewNavigator
  68     end if
  69
  70     '/// Move Navigator ///
  71     printlog "  - move Navigator"
  72     Navigator.Move 300, 400
  73     Sleep 1
  74     Navigator.Move 590, 790
  75     Sleep 1
  76     Navigator.Move 10, 10
  77     Sleep 1
  78
  79     xPos = Navigator.GetPosX
  80     yPos = Navigator.GetPosY
  81     xSize% = Navigator.GetSizeX
  82     ySize% = Navigator.GetSizeY
  83
  84     '/// Size Navigator ///
  85     printlog "  - size Navigator"
  86     try
  87                 Navigator.Size (300, 400)
  88         catch
  89                 Warnlog "Sizen Navigator doesn't work.. see #i32449"
  90         endcatch
  91     Sleep 1
  92     try
  93                 Navigator.Size (xSize%, ySize%)
  94         catch
  95                 Printlog "Sizen Navigator doesn't work.. see #i32449"
  96         endcatch
  97
  98     Sleep 1
  99
 100     '/// Close and reopen Navigator, size should not change ///
 101     printlog "  - Close Navigator and reopen, the size has to be the same"
 102     xPos = Navigator.GetPosX
 103     yPos = Navigator.GetPosY
 104     xSize% = Navigator.GetSizeX
 105     ySize% = Navigator.GetSizeY
 106     ViewNavigator
 107     Sleep 1
 108     ViewNavigator
 109     if xPos <> Navigator.GetPosX then Warnlog "X-Pos. has been changed : Should -> "+ xPos + "  Is -> "+ Navigator.GetPosX
 110     if yPos <> Navigator.GetPosY then Warnlog "Y-Pos. has been changed : Should -> "+ yPos + "  Is -> "+ Navigator.GetPosY
 111     if xSize% <> Navigator.GetSizeX then Warnlog "X-Size has been changed : Should -> "+ xSize% + "  Is -> "+ Navigator.GetSizeX
 112     if ySize% <> Navigator.GetSizeY then Warnlog "Y-Size has been changed : Should -> "+ ySize% + "  Is -> "+ Navigator.GetSizeY
 113
 114     '/// Close Navigator ///
 115     try
 116         Navigator.Close
 117     catch
 118         Warnlog "Unable to close Navigator!"
 119     endcatch
 120     '/// Close document ///
 121     Call hCloseDocument
 122 endcase
 123
 124 ' **********************************************************************
 125
 126 testcase tViewNavigator2
 127     Dim xPos% : Dim yPos% : Dim xSize% : Dim ySize%
 128     Dim datgeht as boolean
 129     if gApplication <> "WRITER" then
 130         goto endsub
 131     endif
 132     '/// Edit / Navigator ( document-spreading methods with Navigator as Window ) ///
 133     printlog "- Edit / Navigator : document-spreading methods with Navigator as Window"
 134     '/// New document ///
 135     Call hNewDocument
 136     printlog "  - Call Navigator in Document and check in another"
 137     '/// Insert some text in first document ///
 138         call wTypeKeys "Navigator test document 1"
 139
 140         '///  Edit / Navigator ///
 141     Kontext "Navigator"
 142     if Navigator.NotExists then ViewNavigator
 143     '/// New document ///
 144     Call hNewDocument
 145         '/// Insert some text in second document ///
 146         call wTypeKeys "Navigator test document 1"
 147
 148     Kontext "Navigator"
 149     '/// Check if Navigator has been opened in new document ///
 150     if Navigator.NotExists then Warnlog "In new Document is no Navigator"
 151
 152     '/// Close both documents and reopen one ///
 153     printlog "  - Close all documents and reopen one"
 154     Call hCloseDocument
 155     Sleep 2
 156     Call hCloseDocument
 157     Sleep 2
 158     Call hNewDocument
 159     '/// Check if Navigator has been opened with document ///
 160     Kontext "NavigatorWriter"
 161     if NavigatorWriter.NotExists then Warnlog "In new Document is no Navigator"
 162         call wTypeKeys "This is a navigator test!"
 163
 164     '/// Dock Navigator ///
 165     printlog "  - dock Navigator in Document and check in another"
 166     Kontext "Navigator"
 167     Navigator.Dock
 168     Sleep 1
 169     '/// New Document ///
 170     Call hNewDocument
 171     '/// Check if Navigator is in new document docked ///
 172     Kontext "Navigator"
 173     if NOT Navigator.IsDocked then Warnlog "In new Document Navigator is not docked"
 174
 175     '/// Close all documents reopen a new and check if Navigator is docked ///
 176     printlog "  - Close all documents reopen a new and check if Navigator is docked"
 177     Call hCloseDocument
 178     Sleep 2
 179     Call hCloseDocument
 180     Sleep 2
 181     '/// New document ///
 182     Call hNewDocument
 183     Call wDocSetContext
 184     try
 185         DocumentWriter.FadeOut
 186     catch
 187         Warnlog "#i35096#Unable to Fade out Navigator!"
 188     endcatch
 189     try
 190         DocumentWriter.FadeIn
 191     catch
 192         Warnlog "#i35096#Unable to Fade out Navigator!"
 193     endcatch
 194
 195     Kontext "Navigator"
 196     if NOT Navigator.IsDocked then Warnlog "In new Document Navigator is not docked"
 197
 198     printlog "  - Close Navigator with <F5>"
 199     Navigator.Undock
 200     Sleep 1
 201     '/// Undock Navigator and close with 'F5' ///
 202     call wTypeKeys "<F5>"
 203
 204     Kontext "Navigator"
 205     if NOT Navigator.NotExists then
 206         Warnlog "Navigator is already open"
 207         try
 208             Navigator.Close
 209         catch
 210             Warnlog "Could not close Navigator!"
 211         endcatch
 212     end if
 213     '/// Close document ///
 214     Call hCloseDocument
 215 endcase
 216
 217 ' **********************************************************************
 218
 219 testcase tViewNavigator3
 220     WarnLog "#i94614# - tViewNavigator3 outcommented"
 221     goto endsub
 222
 223     Dim NavigationTearOff as boolean
 224         '/// Edit / Navigator : check some Navigator-Functions ///
 225     printlog "- Edit / Navigator : check some Navigator-Functions"
 226     '/// Open document ( navigator.odt ) ///
 227     Call hFileOpen ( gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
 228     Call sMakeReadOnlyDocumentEditable
 229     '/// Open Navigator ///
 230     Kontext "Navigator"
 231     if Navigator.NotExists then ViewNavigator
 232     Kontext "NavigatorWriter"
 233         '/// Enter Pagenumber '5' in Navigator
 234         Seitennummer.Settext "5"
 235     printlog "  - Navigation"
 236     '/// Tear Off Navigation Window ///
 237     NavigationTearOff = False
 238         try
 239                 Navigation.TearOff
 240                 NavigationTearOff = true
 241         catch
 242                 Warnlog "Unable to tear off Navigation Toolbar! (#i32092)"
 243         endcatch
 244         if NavigationTearOff = true then
 245                 Sleep 1
 246                 Kontext "NavigationsFenster"
 247                 '/// Move Navigation Window ///
 248                 NavigationsFenster.Move 300, 400
 249                 sleep 1
 250                 '/// Minimize Navigation Window ///
 251                 NavigationsFenster.Minimize
 252                 sleep 1
 253                 '/// Maximize Navigation Window ///
 254                 NavigationsFenster.Maximize
 255                 sleep 1
 256                 Auswahl.MouseDoubleClick ( 45, 20 )
 257                 sleep 1
 258                 '/// Close Navigation Window ///
 259                 NavigationsFenster.Close
 260         end if
 261
 262         '/// Functions in Navigator ///
 263     printlog "  - next Page"
 264     Kontext "NavigatorWriter"
 265
 266     '/// previous page ///
 267     printlog "  - previous page"
 268         VorherigeSeite.Click
 269         wait 200
 270         Call gMouseClick ( 20, 30 )
 271         call wTypeKeys "   <Left>"
 272
 273         InsertFieldsPageNumbers
 274         call wTypeKeys "+0<Shift Left><Shift Left><Shift Left>"
 275
 276         wait 200
 277         ToolsCalculate
 278         Sleep 1
 279         if GetClipboardText <> "4" then QAErrorlog "#i94614#Previous Page isn't  4 but " & GetClipboardText
 280     Kontext "NavigatorWriter"
 281
 282     '/// Click Next page 2 times ///
 283     NaechsteSeite.Click
 284     wait 200
 285         NaechsteSeite.Click
 286         wait 200
 287     Call gMouseClick 20, 60
 288     call wTypeKeys "   <Left>"
 289
 290     InsertFieldsPageNumbers
 291     call wTypeKeys "+0<Shift Left><Shift Left><Shift Left>"
 292
 293     wait 200
 294     ToolsCalculate
 295     if GetClipboardText <> "6" then QAErrorlog "#i94614#Next Page isn't 6 but " & GetClipboardText
 296     Kontext "NavigatorWriter"
 297
 298     printlog "  - switch Selectbox off and on"
 299     '/// Switsch Select box off and on ///
 300     if Auswahlliste.Exists then Auswahlbox.Click
 301     wait 500
 302     Auswahlbox.Click
 303     wait 500
 304     if Auswahlliste.NotExists then
 305         Warnlog "Navigator hasn't been sized to default size"
 306         Auswahlbox.Click
 307     end if
 308     Kontext "NavigatorWriter"
 309
 310     printlog "  - Set Reminder"
 311     '/// Set Reminder ///
 312     Merker.Click
 313     wait 500
 314
 315     printlog "  - jump to header"
 316     '/// Select Jump to header ///
 317     Kopfzeile.Click
 318     wait 500
 319     call wTypeKeys "<Home><Shift End>"
 320
 321     EditCopy
 322     if GetClipboardText <> "Kopfzeile" then Warnlog "Cursorposition wrong: Not in Header"
 323     Kontext "NavigatorWriter"
 324
 325     '/// Select Jump to Footer ///
 326     printlog "  - jump to footer"
 327     Fusszeile.Click
 328     wait 500
 329     call wTypeKeys "<Home><Shift End>"
 330
 331     EditCopy
 332     if GetClipboardText <> "Fusszeile" then Warnlog "Cursorposition wrong: Not in Footer"
 333     Kontext "NavigatorWriter"
 334
 335     printlog "  - to Anchor <-> Text"
 336     '/// Select Anchor to Text ///
 337     AnkerText.Click
 338     wait 500
 339     call wTypeKeys "<Right><Shift Mod1 Right><Shift Left>"
 340
 341     EditCopy
 342     if GetClipboardText <> "sed" then Warnlog "Cursorposition wrong: Not in Footer"
 343     wait 500
 344     Kontext "NavigatorWriter"
 345     AnkerText.Click
 346     wait 200
 347     call wTypeKeys "<Home><Shift End>"
 348
 349     EditCopy
 350     if GetClipboardText <> "Fussnote" then Warnlog "Cursorposition wrong: Not in Footer"
 351
 352     '/// Close Navigator ///
 353     Kontext "Navigator"
 354     try
 355         Navigator.Close
 356     catch
 357         Warnlog "Could not close Navigator!"
 358     endcatch
 359     '/// Close document ///
 360     Call hCloseDocument
 361 endcase
 362
 363 ' **********************************************************************
 364
 365 testcase tViewNavigator4
 366     Dim i : Dim j : Dim Ende : Dim k
 367     Dim AlteGruppe$ : Dim AlterUnterwert$
 368     Ende=1000
 369     if gApplication <> "WRITER" then
 370         goto endsub
 371     endif
 372     printlog "- Edit / Navigator : check entry's in Navigator Index"
 373     '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\navigator.odt"' ///
 374     Call hFileOpen ( gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
 375     Call sMakeReadOnlyDocumentEditable
 376     '/// Open Navigator through Edit / Navigator ///
 377     ViewNavigator
 378     Kontext "NavigatorWriter"
 379     '/// Check all entrys in Navigator and notice the name ///
 380     for i= 1 to 12
 381         Call wNavigatorAuswahl(i,0)   ' Gruppe im Navigator
 382         Kontext "NavigatorWriter"
 383         printlog "-  " + Auswahlliste.Gettext
 384         AlteGruppe$ = Auswahlliste.Gettext    ' Gruppe merken
 385         select case i
 386             case 1  : Ende = 7          ' Headings does not work ( Testtoolproblem )
 387             case 2  : Ende = 4          ' Tables
 388             case 3  : Ende = 1          ' text frame
 389             case 4  : Ende = 3          ' Graphics
 390             case 5  : Ende = 0          ' OLE-Objects
 391             case 6  : Ende = 3          ' Bookmarks
 392             case 7  : Ende = 0          ' Sections
 393             case 8  : Ende = 2          ' Hyperlinks
 394             case 9  : Ende = 0          ' References
 395             case 10 : Ende = 0          ' Indexes
 396             case 11 : Ende = 0          ' Notes
 397             case 12 : Ende = 0          ' Drawing objects
 398         end select
 399
 400         Call wNavigatorAuswahl(i,Ende)   ' Eintrag im Navigator
 401         Kontext "NavigatorWriter"
 402         '/// Switch in Navigator to Index View ///
 403         AlterUnterwert$ = Auswahlliste.Gettext   ' Eintrag merken
 404         Inhaltsansicht.Click
 405         Auswahlliste.TypeKeys "<Up>", 12
 406         if Auswahlliste.Gettext <>AlteGruppe$ then
 407             if i <> 1 then Warnlog "- Wrong group with switching to Index View"
 408         else
 409             Auswahlliste.TypeKeys "<Down>",Ende + 1
 410             if Auswahlliste.Gettext <> AlterUnterwert$ then Warnlog "Not all Subpoints in Index View are visible"
 411         end if
 412     next i
 413     '/// Compare entrys in index view with entrys in Navigator///
 414
 415     Kontext "Navigator"
 416     try
 417         Navigator.Close
 418     catch
 419         Warnlog "Could not close Navigator!"
 420     endcatch
 421     '/// Close Navigator ///
 422     Call hCloseDocument
 423     '/// Close document ///
 424 endcase
 425
 426 ' **********************************************************************
 427
 428 testcase tViewNavigator5
 429     QaErrorLog "#i94614# - tViewNavigator5 outcommented"
 430     goto endsub
 431
 432     if gApplication <> "WRITER" then
 433         goto endsub
 434     endif
 435
 436     Dim j as integer
 437     Dim Dummy as String
 438     Dim Bildname as string
 439     Dim Abbild as String
 440
 441     printlog "- Edit / Navigator : Check Jumpmark from Index in Navigator"
 442     '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\navigator.odt"'  ///
 443     Call hFileOpen ( gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
 444     Call sMakeReadOnlyDocumentEditable
 445     '/// Open Navigator ///
 446     Kontext "NavigatorWriter"
 447     if Not NavigatorWriter.Exists then
 448         ViewNavigator
 449         Kontext "NavigatorWriter"
 450     end if
 451
 452     printlog "  - Header"
 453     '/// In Navigator switch to Index view ///
 454         Call wNavigatorAuswahl(1,0)
 455     Kontext "NavigatorWriter"
 456         wait 500
 457         Inhaltsansicht.Click
 458     '/// In Navigator select 'Headings' and jump to headers in document ///
 459         wait 500
 460     Auswahlliste.TypeKeys "<Home>"
 461         Auswahlliste.TypeKeys "<+>"
 462     if Auswahlliste.GetItemCount = 8 then
 463         for j=2 to 6
 464             Auswahlliste.Select j
 465             Auswahlliste.TypeKeys "<return>"
 466             Sleep 1
 467             call wTypeKeys "<Home><Shift End>"
 468
 469             EditCopy
 470             Sleep 1
 471             '/// Check if the correct header has been selected ///
 472             if GetClipboardText <> "Heading " & j - 1 then Warnlog "Wrong Jumppoint: Should -> Heading " & j - 1 & "  Is ->  " & GetClipboardText
 473             Kontext "NavigatorWriter"
 474         next j
 475         for j=2 to 3
 476             Auswahlliste.TypeKeys "<down>"
 477             Dummy = Auswahlliste.GetText
 478             Auswahlliste.TypeKeys "<return>"
 479             wait 200
 480             call wTypeKeys "<Home><Shift End>"
 481
 482             EditCopy
 483             wait 100
 484             Kontext "NavigatorWriter"
 485         next j
 486     else
 487         Warnlog "There are not 7 but " & Auswahlliste.GetItemCount & " headings in navigator list"
 488     end if
 489     '/// Select in Navigator entry 'Tables' and jump via Navigator to tables in document ///
 490     printlog "  - Tables"
 491         Call wNavigatorAuswahl(2,0)
 492         Kontext "NavigatorWriter"
 493         wait 500
 494         Inhaltsansicht.Click
 495         wait 500
 496         Auswahlliste.TypeKeys "<Home>"
 497     wait 500
 498     for j=1 to 4
 499         Auswahlliste.TypeKeys "<down><return>"
 500         Sleep 2
 501         call wTypeKeys "<Home>"
 502         call wTypeKeys "<Mod1 A>"
 503
 504         EditCopy
 505         '/// Check if correct tables has been selected ///
 506         if GetClipboardText <> "Tabelle" + j then Warnlog "Wrong Cursorposition: Should -> Tabelle" + j + "  Is ->  " + GetClipboardText
 507         Kontext "NavigatorWriter"
 508     next j
 509
 510     '/// Select in Navigator entry 'Text frames' and jump via Navigator to text frames in document ///
 511     printlog "  - Text frames"
 512     Call wNavigatorAuswahl(3,0)
 513         Kontext "NavigatorWriter"
 514         wait 500
 515         Inhaltsansicht.Click
 516         wait 500
 517     Auswahlliste.TypeKeys "<Home>"
 518     Auswahlliste.TypeKeys "<Down><Return>"
 519     Sleep 2
 520     call wTypeKeys "<Home><Shift End>"
 521
 522     '/// Check if correct text frames have been selected ///
 523     try
 524         EditCopy
 525         if Left$(GetClipboardText,6) <> "Figura" then Warnlog "Wrong Cursorposition: Should -> Figura" + "  Is ->  "+ Left(GetClipboardText,6)
 526     catch
 527         Printlog "Unable to go into the Text frame with testtool"
 528     endcatch
 529     Kontext "NavigatorWriter"
 530
 531     '/// Select in Navigator entry 'Graphics' and jump via Navigator to graphics in document ///
 532     printlog "  - Graphics"
 533         Call wNavigatorAuswahl(4,0)
 534     Kontext "NavigatorWriter"
 535         wait 500
 536         Inhaltsansicht.Click
 537         wait 500
 538         Auswahlliste.TypeKeys "<Home>"
 539     '/// Check if correct graphic have been selected ///
 540     for j=1 to 3
 541         Auswahlliste.TypeKeys "<down><return>"
 542         Sleep 2
 543         FormatGraphics
 544         Kontext
 545         Active.SetPage TabZusaetze
 546         Kontext "TabZusaetze"
 547         Bildname = ObjektName.GetText
 548         select case j
 549             case 1 : if Bildname <> "Der Baer" then Warnlog "Wrong Graphicname: Not -> 'Der B�r'   But -> "+ Bildname
 550             case 2 : if Bildname <> "Star Division" then Warnlog "Wrong Graphicname: Not -> 'Star Division'   But -> "+ Bildname
 551             case 3 : if Bildname <> "Der Hase" then Warnlog "Wrong Graphicname: Not -> 'Der Hase'   But -> "+ Bildname
 552         end select
 553         TabZusaetze.Cancel
 554         Kontext "NavigatorWriter"
 555     next j
 556
 557     '/// Select in Navigator entry 'Bookmarks' and jump via Navigator to references in document ///
 558     printlog "  - Bookmarks"
 559         Call wNavigatorAuswahl(6,0)
 560     Kontext "NavigatorWriter"
 561         wait 500
 562         Inhaltsansicht.Click
 563         wait 500
 564     Auswahlliste.TypeKeys "<Home>"
 565     for j=1 to 3
 566         Auswahlliste.TypeKeys "<down><return>"
 567         Sleep 2
 568         call wTypeKeys "<Shift Mod1 Right>"
 569
 570         wait 200
 571         EditCopy
 572         '/// Check if correct reference have been selected ///
 573         select case j
 574             case 1 : if GetClipboardText <> "rerum" then Warnlog "Wrong Bookmark: Should -> 'rerum'   Is -> "+ GetClipboardText
 575             case 2 : if GetClipboardText <> "non " then Warnlog "Wrong Bookmark: Should -> 'non'   Is -> "+ GetClipboardText
 576             case 3 : if GetClipboardText <> "invenietur" then Warnlog "Wrong Bookmark: Should -> 'invenietur'   Is -> "+ GetClipboardText
 577         end select
 578         Kontext "NavigatorWriter"
 579     next j
 580     wait 500
 581
 582     '/// Select in Navigator entry 'Hyperlinks' and jump via Navigator to hyperlinks in document ///
 583     printlog "  - Hyperlinks"
 584         Call wNavigatorAuswahl(8,0)
 585     Kontext "NavigatorWriter"
 586         wait 500
 587         Inhaltsansicht.Click
 588         wait 500
 589     Auswahlliste.TypeKeys "<Home>"
 590     wait 500
 591     for j=1 to 2
 592         Auswahlliste.TypeKeys "<down><return>"
 593         Sleep 2
 594         wait 200
 595         EditCopy
 596         '/// Check if correct hyperlinks have been selected ///
 597         select case j
 598             case 1 : if GetClipboardText <> "offensantes" then Warnlog "Wrong Hyperlink: Should -> 'offensantes'   Is -> "+ GetClipboardText
 599             case 2 : if GetClipboardText <> "decreverint" then Warnlog "Wrong Hyperlink: Should -> 'decreverint'   Is -> "+ GetClipboardText
 600         end select
 601         Kontext "NavigatorWriter"
 602     next j
 603     Inhaltsansicht.Click
 604
 605     '/// Close Navigator ///
 606     Kontext "Navigator"
 607     try
 608         Navigator.Close
 609     catch
 610         Warnlog "Could not close Navigator!"
 611     endcatch
 612     '/// Close document ///
 613     Call hCloseDocument
 614 endcase
 615
 616 ' **********************************************************************
 617
 618 testcase tViewNavigator6
 619     Dim j as integer
 620     Dim datIsderAlte(4) as string
 621
 622     if gApplication <> "WRITER" then
 623         goto endsub
 624     endif
 625
 626     printlog "- Edit / Navigator : Rename Objects"
 627     '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\st1_1.sxw" ' ///
 628     Call hFileOpen ( gTesttoolpath + "writer\optional\input\navigator\st1_1.sxw" )
 629     Call sMakeReadOnlyDocumentEditable
 630     Kontext "Navigator"
 631     '/// Open Navigator ///
 632     if Navigator.NotExists then ViewNavigator
 633     Kontext "NavigatorWriter"
 634     Call wNavigatorAuswahl(1,0)
 635
 636     printlog "- rename Objects"
 637     '/// Rename Objects in Navigator through context menue (4 Objects) ///
 638
 639     Kontext "NavigatorWriter"
 640     for j= 1 to 4
 641         Auswahlliste.Select j + 1
 642         printlog "-  Now "+ Auswahlliste.GetItemText(j+1) +" is selected!"
 643         Auswahlliste.TypeKeys "+"
 644         Auswahlliste.Select j + 2
 645
 646         datIsderAlte(j) = Auswahlliste.GetitemText(j+2)
 647
 648         Auswahlliste.OpenContextMenu
 649         Call hMenuSelectNr(4)  ' Object nmenu
 650         Sleep 2
 651         Call hMenuSelectNr(3)  ' Rename entry
 652         Sleep 2
 653
 654         Kontext "ObjekteUmbenennen"
 655         if Not ObjekteUmbenennen.Exists then
 656             Warnlog "- Dialog to rename object isn't up!"
 657         else
 658             Objektname.Settext "RenamingObjects" + j
 659             Sleep 1
 660             try
 661                 ObjekteUmbenennen.Ok
 662             catch
 663                 Warnlog "- Object could not be renamed!"
 664                 ObjekteUmbenennen.Cancel
 665             endcatch
 666         end if
 667
 668         '/// Check in Navigator if Object has been renamed ///
 669         Sleep 1
 670         Kontext "NavigatorWriter"
 671         if Auswahlliste.GetItemText(j+2) = datIsderAlte(j) then Warnlog "- Entry " + datIsderAlte(j) + " wasn't renamed in Navigator!"
 672
 673         Auswahlliste.Select j+1
 674         Auswahlliste.TypeKeys "-"
 675     next j
 676     wait 500
 677     Call gMouseDoubleClick(99,50)
 678     '/// Save document///
 679     Call hFileSaveAsWithFilterKill (gOfficePath + "user\work\uvobj.odt", "writer8")
 680     '/// Close document and reopen previous saved document ///
 681     Call hCloseDocument
 682     Sleep 2
 683
 684     printlog "- Saving and Loading the document, check settings"
 685     Call hFileOpen(gOfficePath + "user\work\uvobj.odt")
 686     '/// Navigator has to be opened with document ///
 687     Kontext "Navigator"
 688     if Navigator.NotExists then
 689         Warnlog "- The Navigator should have been opened!"
 690         ViewNavigator
 691     end if
 692     Kontext "NavigatorWriter"
 693
 694     For j= 1 to 12
 695         Auswahlliste.Select j
 696         Auswahlliste.TypeKeys "-"
 697     next j
 698
 699     '/// Check table names in Navigator ///
 700     printlog  "-  Table"
 701     Auswahlliste.Select 2
 702     Auswahlliste.TypeKeys "+"
 703     Auswahlliste.Select 3
 704     Auswahlliste.OpenContextMenu
 705     Sleep 1
 706     try
 707         Call hMenuSelectNr(4)
 708         Sleep 1
 709         Call hMenuSelectNr(1)
 710         Sleep 4
 711     catch
 712         Warnlog "Unable to open Context-menu!"
 713         FormatTable
 714     endcatch
 715     Kontext
 716
 717     Kontext
 718     Active.Setpage TabTabelle
 719     Kontext "TabTabelle"
 720     if Tabellenname.Gettext<>"RenamingObjects1" then Warnlog "- Name of Table in Properties is wrong!"
 721     Sleep 1
 722     TabTabelle.Cancel
 723     Kontext "NavigatorWriter"
 724     Auswahlliste.Select 2
 725     Auswahlliste.TypeKeys "-"
 726
 727     '/// Check Text frames names in Navigator ///
 728     printlog  "-  Text Frames"
 729     Auswahlliste.Select 3
 730     Auswahlliste.TypeKeys "+"
 731     Auswahlliste.Select 4
 732     Auswahlliste.OpenContextMenu
 733     Sleep 1
 734     Call hMenuSelectNr(4)
 735     Sleep 1
 736     Call hMenuSelectNr(1)
 737     Sleep 2
 738     Kontext
 739     try
 740         Active.Setpage TabZusaetze
 741     catch
 742         FormatFrame
 743         Sleep 2
 744         Kontext
 745         Active.Setpage TabZusaetze
 746     endcatch
 747     Kontext "TabZusaetze"
 748     if Objektname.Gettext<>"RenamingObjects2" then Warnlog "- Name of textframe in Properties is wrong!"
 749     Sleep 1
 750     TabZusaetze.Cancel
 751     Kontext "NavigatorWriter"
 752     Auswahlliste.Select 3
 753     Auswahlliste.TypeKeys "-"
 754
 755     '/// Check graphic names in Navigator ///
 756     printlog  "-  Graphic"
 757     Auswahlliste.Select 4
 758     Auswahlliste.TypeKeys "+"
 759     Auswahlliste.Select 5
 760     Auswahlliste.OpenContextMenu
 761     Call hMenuSelectNr(4)
 762     Sleep 1
 763     Call hMenuSelectNr(1)
 764     Sleep 2
 765     Kontext
 766     try
 767         Active.Setpage TabZusaetze
 768     catch
 769         FormatGraphics
 770         Kontext
 771         Active.Setpage TabZusaetze
 772     endcatch
 773     Kontext "TabZusaetze"
 774     if Objektname.Gettext<>"RenamingObjects3" then Warnlog "- Name of graphic in Properties is wrong!"
 775     Sleep 1
 776     TabZusaetze.Cancel
 777     Kontext "NavigatorWriter"
 778     Auswahlliste.Select 4
 779     Auswahlliste.TypeKeys "-"
 780
 781         '/// Check OLE-Objects names in Navigator ///
 782         printlog  "-  Ole-Object"
 783         Auswahlliste.Select 5
 784         Auswahlliste.TypeKeys "+"
 785         Auswahlliste.Select 6
 786         Auswahlliste.OpenContextMenu
 787         try
 788                 Call hMenuSelectNr(4)
 789                 Sleep 1
 790                 Call hMenuSelectNr(1)
 791                 Sleep 5
 792         catch
 793                 Warnlog "Unable to open context menu!"
 794                 FormatFrame
 795         endcatch
 796         Kontext
 797         try
 798                 Active.Setpage TabZusaetze
 799         catch
 800                 FormatFrame
 801                 Kontext
 802                 Active.Setpage TabZusaetze
 803         endcatch
 804
 805         Kontext "TabZusaetze"
 806         if Objektname.Gettext<>"RenamingObjects4" then Warnlog "- Name of OLE-Oblect is wrong!"
 807         Sleep 1
 808         TabZusaetze.Cancel
 809     Kontext
 810     '/// Close Navigator ///
 811     ViewNavigator
 812     Sleep 1
 813     '/// Close document ///
 814     Call hCloseDocument
 815 endcase