testautomation/graphics/optional/includes/global/g_paneview.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: g_paneview.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description: includefile for Paneview-testing
  37 '*
  38 '**************************************************************************************
  39 ' #1 tiMinimize_Maximize_Docking_SlidePane
  40 ' #1 tiMinimize_Maximize_Docking_TaskPane
  41 ' #1 tdMinimize_Maximize_Docking_Pagepane
  42 ' #1 tiPaneview_LoadSave_Windowsstate
  43 ' #1 tdPaneview_LoadSave_Windowsstate
  44 '\*************************************************************************************
  45
  46 testcase tiMinimize_Maximize_Docking_SlidePane
  47     Dim xPos%
  48     Dim yPos%
  49     Dim xSize%
  50     Dim ySize%
  51
  52     printlog "- SlidePane : using all possible things to manipulate the SlidePane"
  53     Call  hNewDocument
  54     Kontext "Slides"
  55     if (Slides.isVisible = false) Then   'isReallyVisible ?
  56         qaErrorLog "- Expected SlidePane to be open; But is closed. Check tests."
  57         Kontext "DocumentImpress"
  58         ViewTaskSlide
  59         sleep 1
  60     else
  61         printlog "SlidePane was open - good."
  62     end if
  63     Kontext "Slides"
  64
  65     'Only because of overflow-error when some part of the pane is outside the window.
  66
  67     if Slides.IsDocked then Slides.UnDock
  68
  69         Slides.Move 15, 15
  70
  71
  72         xSize% = Slides.GetSizeX
  73         ySize% = Slides.GetSizeY
  74         xPos% = Slides.GetPosX
  75         yPos% = Slides.GetPosY
  76         Slides.Move 300, 400
  77         Sleep 1
  78         Slides.Move 590, 790
  79         Sleep 1
  80         Slides.Move 10, 10
  81         Sleep 1
  82
  83         Slides.Size 200, 200
  84         Sleep 1
  85         Slides.Size 300, 400
  86         Sleep 1
  87         Slides.Size 150, 250
  88         Sleep 1
  89         Slides.Size xSize%, ySize%
  90         Sleep 1
  91
  92         printlog "  -   Close the SlidePane, reopen it, check if appearence is same as before"
  93         xPos% = Slides.GetPosX
  94         yPos% = Slides.GetPosY
  95         xSize% = Slides.GetSizeX
  96         ySize% = Slides.GetSizeY
  97         Kontext "DocumentImpress"
  98         ViewTaskSlide
  99         ViewTaskSlide
 100         Kontext "Slides"
 101         Sleep 1
 102         if xPos% <> Slides.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Slides.GetPosX
 103             if yPos% <> Slides.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Slides.GetPosY
 104                 if xSize% <> Slides.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Slides.GetSizeX
 105                     if ySize% <> Slides.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Slides.GetSizeY
 106
 107                         printlog "  -   dock SlidePane"
 108                         Slides.Dock
 109                         Sleep 1
 110                         if (NOT Slides.IsDocked) then
 111                             Warnlog "SlidePane not docked but should be"
 112                         end if
 113                         if (Slides.IsDocked) Then
 114                             Slides.UnDock
 115                         end if
 116                         Sleep 1
 117
 118                         printlog "  -   maximize/minimize SlidePane"
 119                         Slides.Minimize
 120                         Sleep 1
 121                         Slides.Maximize
 122                         Sleep 1
 123                         if (NOT Slides.IsMax) then
 124                             Warnlog "The Slides-docking-window did not return to maximized state"
 125                         end if
 126                         Slides.Close
 127                         Kontext "DocumentImpress"
 128                         ViewTaskSlide
 129                         Sleep (2)
 130                         Kontext "Slides"
 131                         if (Slides.isVisible = false) Then   'isReallyVisible ?
 132                             warnlog "the Slidepane wasnt visible"
 133                         end if
 134                         Sleep (1)
 135                         Slides.Move xPos%, yPos%
 136                         Sleep 1
 137                         if (Slides.IsDocked = True) then
 138                             warnlog "the SlidePane was docked - should have been undocked."
 139                         else
 140                             printlog "the SlidePane was not docked, good."
 141                             Slides.Dock
 142                         end if
 143                         Call  hCloseDocument
 144 endcase 'tiMinimize_Maximize_Docking_SlidePane
 145
 146 '------------------------------------------------------------------------------------'
 147
 148 testcase tiMinimize_Maximize_Docking_TaskPane
 149     Dim xPos%
 150     Dim yPos%
 151     Dim xSize%
 152     Dim ySize%
 153
 154     printlog "- TaskPane : using all possible things to manipulate the TaskPane"
 155     Call  hNewDocument
 156     Kontext "Tasks"
 157     if (Tasks.isVisible = false) Then   'isReallyVisible ?
 158         qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
 159         sleep 1
 160         Kontext "DocumentImpress"
 161         ViewTaskPane
 162     else
 163         printlog "TaskPane was open - good."
 164     end if
 165     Kontext "Tasks"
 166
 167     'Only because of overflow-error when some part of the pane is outside the window.
 168     if Tasks.IsDocked then Tasks.UnDock
 169
 170         Tasks.Move 15, 15
 171
 172         xSize% = Tasks.GetSizeX
 173         ySize% = Tasks.GetSizeY
 174
 175         xPos% = Tasks.GetPosX
 176         yPos% = Tasks.GetPosY
 177         Tasks.Move 300, 400
 178         Sleep 1
 179         Tasks.Move 590, 790
 180         Sleep 1
 181         Tasks.Move 10, 10
 182         Sleep 1
 183         Tasks.Size 200, 200
 184         Sleep 1
 185         Tasks.Size 300, 400
 186         Sleep 1
 187         Tasks.Size 150, 250
 188         Sleep 1
 189         Tasks.Size xSize%, ySize%
 190         Sleep 1
 191
 192         printlog "  -   Close the TaskPane, reopen it, check if appearence is same as before"
 193         xPos% = Tasks.GetPosX
 194         yPos% = Tasks.GetPosY
 195         xSize% = Tasks.GetSizeX
 196         ySize% = Tasks.GetSizeY
 197         Kontext "DocumentImpress"
 198         ViewTaskPane
 199         ViewTaskPane
 200         Sleep 1
 201         Kontext "Tasks"
 202         if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Tasks.GetPosX
 203             if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Tasks.GetPosY
 204                 if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + "  Is ->  "+ Tasks.GetSizeX
 205                     if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + "  Is ->  "+ Tasks.GetSizeY
 206
 207                         printlog "  -   dock TaskPane"
 208                         Tasks.Dock
 209                         Sleep 1
 210                         if (NOT Tasks.IsDocked) then
 211                             Warnlog "TaskPane not docked but should be"
 212                         end if
 213                         if (Tasks.IsDocked) Then
 214                             Tasks.UnDock
 215                         end if
 216                         Sleep 1
 217
 218                         printlog "  -   maximize/minimize TaskPane"
 219                         Tasks.Minimize
 220                         Sleep 1
 221                         Tasks.Maximize
 222                         Sleep 1
 223                         if (NOT Tasks.IsMax) then
 224                             Warnlog "The Task-docking-window did not return to maximized state"
 225                         end if
 226                         Tasks.Close
 227                         Sleep (1)
 228                         Kontext "DocumentImpress"
 229                         ViewTaskPane
 230                         Sleep (2)
 231                         Kontext "Tasks"
 232                         if (Tasks.isVisible = false) Then   'isReallyVisible ?
 233                             warnlog "the Taskpane wasnt visible"
 234                         end if
 235                         Tasks.Move xPos%, yPos%
 236                         Sleep 1
 237                         if (Tasks.IsDocked = True) then
 238                             warnlog "the TaskPane was docked - should have been undocked."
 239                         else
 240                             printlog "the TaskPane was not docked, good."
 241                             Tasks.Dock
 242                         end if
 243                         Call hCloseDocument
 244 endcase 'tiMinimize_Maximize_Docking_TaskPane
 245
 246 '------------------------------------------------------------------------------------'
 247
 248 testcase tiPaneview_LoadSave_Windowsstate
 249     QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
 250     goto endsub
 251     Dim xPos%
 252     Dim yPos%
 253     Dim xSize%
 254     Dim ySize%
 255     Dim Filenamex as string
 256     dim applicationchar as string
 257
 258     Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
 259
 260     printlog "- TaskPane : using all possible things to manipulate the TaskPane"
 261     Call  hNewDocument
 262     kontext "Tasks"
 263     if (Tasks.isVisible = false) Then   'isReallyVisible ?
 264         qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
 265         sleep 1
 266         Kontext "DocumentImpress"
 267         ViewTaskPane
 268     else
 269         printlog "TaskPane was open - good."
 270     end if
 271
 272     Kontext "Tasks"
 273     'Only because of overflow-error when some part of the pane is outside the window.
 274
 275     if Tasks.IsDocked then Tasks.UnDock
 276         Sleep (1)
 277         Tasks.Move 15, 15
 278
 279         xSize% = Tasks.GetSizeX
 280         ySize% = Tasks.GetSizeY
 281
 282         xPos% = Tasks.GetPosX
 283         yPos% = Tasks.GetPosY
 284         Sleep (2)
 285         Tasks.Size 200, 200
 286         Sleep 1
 287         Tasks.Move 10, 10
 288         Tasks.Size 300, 400
 289         Sleep 1
 290         Tasks.Move 550, 290
 291         Sleep 1
 292
 293         printlog "  -   Close the TaskPane, reopen it, check if appearence is same as before"
 294         xPos% = Tasks.GetPosX
 295         yPos% = Tasks.GetPosY
 296         xSize% = Tasks.GetSizeX
 297         ySize% = Tasks.GetSizeY
 298
 299         if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
 300
 301             printlog "OK   saved at ", Filenamex
 302             sleep 1
 303
 304             Call hCloseDocument
 305
 306             hDateiOeffnen (Filenamex + "." + ExtensionString)
 307
 308             Kontext "Tasks"
 309             if (Tasks.IsVisible = false) then
 310                 warnlog "Taskpanel wasnt visible"
 311                 Kontext "DocumentImpress"
 312                 ViewTaskPane
 313                 Sleep 1
 314             else
 315                 printlog "Taskpanel was visible, good"
 316             end if
 317
 318             Kontext "Tasks"
 319             if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Tasks.GetPosX
 320                 if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Tasks.GetPosY
 321                     if xSize% <> Tasks.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Tasks.GetSizeX
 322                         if ySize% <> Tasks.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Tasks.GetSizeY
 323                             Sleep (2)
 324                             Tasks.Size xSize%, ySize%
 325                             Sleep 1
 326
 327                             printlog "  -   dock TaskPane"
 328                             Tasks.Dock
 329                             Call hCloseDocument
 330 endcase
 331
 332 '----------------------------------------------------------------------------------------'
 333
 334 testcase tdPaneview_LoadSave_Windowsstate
 335     QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
 336     goto endsub
 337     Dim xPos%
 338     Dim yPos%
 339     Dim xSize%
 340     Dim ySize%
 341     Dim Filenamex as string
 342
 343     Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
 344
 345     printlog "- Pagepane : using all possible things to manipulate the Pagepane"
 346     Call  hNewDocument
 347     kontext "Pagepane"
 348     if (Pagepane.isVisible = false) Then   'isReallyVisible ?
 349         qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
 350         sleep 1
 351         Kontext "DocumentDraw"
 352         ViewPagepane
 353     else
 354         printlog "Pagepane was open - good."
 355     end if
 356
 357     'Only because of overflow-error when some part of the pane is outside the window.
 358
 359     if Pagepane.IsDocked then Pagepane.UnDock
 360
 361         Pagepane.Move 15, 15
 362
 363
 364         Kontext "Pagepane"
 365         xSize% = Pagepane.GetSizeX
 366         ySize% = Pagepane.GetSizeY
 367
 368         xPos% = Pagepane.GetPosX
 369         yPos% = Pagepane.GetPosY
 370         Pagepane.Size 200, 100
 371         Sleep 1
 372         Pagepane.Move 10, 10
 373         Pagepane.Size 300, 150
 374         Sleep 1
 375         Pagepane.Move 550, 290
 376         Sleep 1
 377
 378         printlog "  -   Close the Pagepane, reopen it, check if appearence is same as before"
 379         xPos% = Pagepane.GetPosX
 380         yPos% = Pagepane.GetPosY
 381         xSize% = Pagepane.GetSizeX
 382         ySize% = Pagepane.GetSizeY
 383
 384         if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
 385
 386             printlog "OK   saved at ", Filenamex
 387             sleep 1
 388
 389             Call hCloseDocument
 390
 391             hDateiOeffnen (Filenamex + "." + ExtensionString)
 392
 393             Kontext "Pagepane"
 394             if (Pagepane.IsVisible = false) then
 395                 warnlog "Pagepane wasnt visible"
 396                 Kontext "DocumentDraw"
 397                 ViewPagepane
 398                 Sleep 1
 399             else
 400                 printlog "Pagepane was visible, good"
 401             end if
 402
 403             Kontext "Pagepane"
 404             if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Pagepane.GetPosX
 405                 if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Pagepane.GetPosY
 406                     if xSize% <> Pagepane.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Pagepane.GetSizeX
 407                         if ySize% <> Pagepane.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Pagepane.GetSizeY
 408
 409                             Pagepane.Size xSize%, ySize%
 410                             Sleep 1
 411
 412                             printlog "  -   dock Pagepane"
 413                             Pagepane.Dock
 414                             Call hCloseDocument
 415 endcase 'tdPaneview_LoadSave_Windowsstate
 416
 417 '--------------------------------------------------------------------------------------'
 418
 419 testcase tdMinimize_Maximize_Docking_Pagepane
 420     Dim xPos%
 421     Dim yPos%
 422     Dim xSize%
 423     Dim ySize%
 424
 425     printlog "- Pagepane : using all possible things to manipulate the Pagepane"
 426     Call  hNewDocument
 427     Kontext "Pagepane"
 428     if (Pagepane.isVisible = false) Then   'isReallyVisible ?
 429         qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
 430         sleep 1
 431         Kontext "DocumentDraw"
 432         ViewPagepane
 433     else
 434         printlog "Pagepane was open - good."
 435     end if
 436     Kontext "Pagepane"
 437
 438     'Only because of overflow-error when some part of the pane is outside the window.
 439
 440     if Pagepane.IsDocked then Pagepane.UnDock
 441
 442         Pagepane.Move 10, 10
 443         Sleep 1
 444
 445         xPos% = Pagepane.GetPosX
 446         yPos% = Pagepane.GetPosY
 447         xSize% = Pagepane.GetSizeX
 448         ySize% = Pagepane.GetSizeY
 449         Pagepane.Move 300, 400
 450         Sleep 1
 451         Pagepane.Move 590, 790
 452         Sleep 1
 453         Pagepane.Move xPos%, yPos%
 454         Sleep 1
 455
 456         Pagepane.Size 200, 200
 457         Sleep 1
 458         Pagepane.Size 300, 400
 459         Sleep 1
 460         Pagepane.Size 150, 250
 461         Sleep 1
 462         Pagepane.Size xSize%, ySize%
 463         Sleep 1
 464
 465         printlog "  -   Close the Pagepane, reopen it, check if appearence is same as before"
 466         xPos% = Pagepane.GetPosX
 467         yPos% = Pagepane.GetPosY
 468         xSize% = Pagepane.GetSizeX
 469         ySize% = Pagepane.GetSizeY
 470         Kontext "DocumentDraw"
 471         ViewPagepane
 472         ViewPagepane
 473         Sleep 1
 474         Kontext "Pagepane"
 475         if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Pagepane.GetPosX
 476             if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Pagepane.GetPosY
 477                 if xSize% <> Pagepane.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Pagepane.GetSizeX
 478                     if ySize% <> Pagepane.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Pagepane.GetSizeY
 479
 480                         printlog "  -   dock Pagepane"
 481                         Pagepane.Dock
 482                         Sleep 1
 483                         if (NOT Pagepane.IsDocked) then
 484                             Warnlog "Pagepane not docked but should be"
 485                         end if
 486                         if (Pagepane.IsDocked) Then
 487                             Pagepane.UnDock
 488                         end if
 489                         Sleep 1
 490
 491                         printlog "  -   maximize/minimize Pagepane"
 492                         Pagepane.Minimize
 493                         Sleep 1
 494                         Pagepane.Maximize
 495                         Sleep 1
 496                         if (NOT Pagepane.IsMax) then
 497                             warnlog "The Pagepane-docking-window did not return to maximized state"
 498                         end if
 499                         Kontext "DocumentDraw"
 500                         ViewPagepane
 501                         sleep (1)
 502                         Kontext "Pagepane"
 503                         if Pagepane.Exists(5)  Then
 504                             warnlog "the Pagepane wasnt closed properly"
 505                         else
 506                             Kontext "DocumentDraw"
 507                             ViewPagepane
 508                         end if
 509                         sleep (1)
 510                         Kontext "Pagepane"
 511                         if (Pagepane.Exists = true) AND (Pagepane.isVisible = false) Then
 512                             warnlog "the Pagepane wasnt visible"
 513                         end if
 514
 515                         if (Pagepane.IsDocked = True) then
 516                             warnlog "the Pagepane was docked - should have been undocked."
 517                         else
 518                             printlog "the Pagepane was not docked, good."
 519                             Pagepane.Dock
 520                         end if
 521                         Call hCloseDocument
 522 endcase 'tdMinimize_Maximize_Docking_Pagepane
 523
 524 '--------------------------------------------------------------------------------------'
 525 'TODO FHA : testcase tClick_everywhere
 526 '   Call hNewDocument
 527 '   Kontext "LayerTabBar"
 528 'Click everywhere
 529
 530 'Draw:
 531 'Page Pane
 532
 533 'Imp:
 534 'Slides:SlidesControl
 535 '   kontext "Slides"
 536 '   SlidesControl.MouseClick
 537 '   kontext "Tasks"
 538 '   View = same as slidescontrol
 539 '   LayoutsPreview     HID_SD_TASK_PANE_PREVIEW_LAYOUTS
 540 'endcase 'tClick_everywhere
 541 '--------------------------------------------------------------------------------------'