path: root/testautomation/graphics/optional/includes/global/g_paneview.inc

'encoding UTF-8  Do not remove or change this line!
'**************************************************************************
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'* 
'* Copyright 2008 by Sun Microsystems, Inc.
'*
'* OpenOffice.org - a multi-platform office productivity suite
'*
'* $RCSfile: g_paneview.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
'*
'* This file is part of OpenOffice.org.
'*
'* OpenOffice.org is free software: you can redistribute it and/or modify
'* it under the terms of the GNU Lesser General Public License version 3
'* only, as published by the Free Software Foundation.
'*
'* OpenOffice.org is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'* GNU Lesser General Public License version 3 for more details
'* (a copy is included in the LICENSE file that accompanied this code).
'*
'* You should have received a copy of the GNU Lesser General Public License
'* version 3 along with OpenOffice.org.  If not, see
'* <http://www.openoffice.org/license.html>
'* for a copy of the LGPLv3 License.
'*
'/************************************************************************
'*
'* Owner : wolfram.garten@sun.com
'*
'* short description: includefile for Paneview-testing
'*
'**************************************************************************************
' #1 tiMinimize_Maximize_Docking_SlidePane
' #1 tiMinimize_Maximize_Docking_TaskPane
' #1 tdMinimize_Maximize_Docking_Pagepane
' #1 tiPaneview_LoadSave_Windowsstate
' #1 tdPaneview_LoadSave_Windowsstate
'\*************************************************************************************

testcase tiMinimize_Maximize_Docking_SlidePane
    Dim xPos%
    Dim yPos%
    Dim xSize%
    Dim ySize%

    printlog "- SlidePane : using all possible things to manipulate the SlidePane"
    '/// open application ///'
    Call  hNewDocument
    Kontext "Slides"
    '/// Check if SlidePane is there. Expected: not there ///'
    if (Slides.isVisible = false) Then   'isReallyVisible ?
       qaErrorLog "- Expected SlidePane to be open; But is closed. Check tests."
       Kontext "DocumentImpress"
       ViewTaskSlide
       sleep 1
    else
       printlog "SlidePane was open - good."
    end if
    Kontext "Slides"

'Only because of overflow-error when some part of the pane is outside the window.

    '/// if SlidePane is docked; undock ///'
    if Slides.IsDocked then Slides.UnDock

    '/// move Slides to 15,15 ///'
    Slides.Move 15, 15


    '/// save SlidePane size ///'
    xSize% = Slides.GetSizeX
    ySize% = Slides.GetSizeY
    '/// save TaskPane position and size ///'
    xPos% = Slides.GetPosX
    yPos% = Slides.GetPosY
    printlog "  -   '///move SlidePane ///"
    '/// move SlidePane to 300,400 ///'
    Slides.Move 300, 400
    Sleep 1
    '/// move SlidePane to 590,790 ///'
    Slides.Move 590, 790
    Sleep 1
    '/// move SlidePane to 10,10 ///'
    Slides.Move 10, 10
    Sleep 1

    printlog "  -   '/// size SlidePane ///"
    '/// change size to 200,200 ///'
    Slides.Size 200, 200
    Sleep 1
    '/// change size to 300,400 ///'
    Slides.Size 300, 400
    Sleep 1
    '/// change size to 150,250 ///'
    Slides.Size 150, 250
    Sleep 1
    '/// change size back to saved size ///'
    Slides.Size xSize%, ySize%
    Sleep 1

    printlog "  -   Close the SlidePane, reopen it, check if appearence is same as before"
    '/// save SlidePane position and size ///'
    xPos% = Slides.GetPosX
    yPos% = Slides.GetPosY
    xSize% = Slides.GetSizeX
    ySize% = Slides.GetSizeY
    '/// close SlidePane Format->SlidePane ///'
    Kontext "DocumentImpress"
    ViewTaskSlide
    ViewTaskSlide
    Kontext "Slides"
    Sleep 1
    '/// open SlidePane Format->SlidePane ///'
    if xPos% <> Slides.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Slides.GetPosX
    if yPos% <> Slides.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Slides.GetPosY
    if xSize% <> Slides.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Slides.GetSizeX
    if ySize% <> Slides.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Slides.GetSizeY

    printlog "  -   dock SlidePane"
    '/// dock SlidePane ///'
    Slides.Dock
    Sleep 1
    if (NOT Slides.IsDocked) then
       Warnlog "SlidePane not docked but should be"
    end if
    '/// UNdock SlidePane ///'
    if (Slides.IsDocked) Then
       Slides.UnDock
    end if
    Sleep 1

    printlog "  -   maximize/minimize SlidePane"
    '/// minimize SlidePane ///'
    Slides.Minimize
    Sleep 1
    '/// Maximize SlidePane ///'
    Slides.Maximize
    Sleep 1
    if (NOT Slides.IsMax) then
       Warnlog "The Slides-docking-window did not return to maximized state"
    end if
    '/// Close SlidePane ///'
    Slides.Close
    '/// Open the SlidePane ///'
    Kontext "DocumentImpress"
    ViewTaskSlide
    Sleep (2)
    Kontext "Slides"
    '/// Make sure the SlidePane is visible ///'
    if (Slides.isVisible = false) Then   'isReallyVisible ?
       warnlog "the Slidepane wasnt visible"
    end if
    '/// move SlidePane back to saved start position ///'
    Sleep (1)
    Slides.Move xPos%, yPos%
    Sleep 1
    '/// Make sure the SlidePane is docked ///'
    if (Slides.IsDocked = True) then
       warnlog "the SlidePane was docked - should have been undocked."
    else
       printlog "the SlidePane was not docked, good."
       Slides.Dock
    end if
    Call  hCloseDocument
endcase 'tiMinimize_Maximize_Docking_SlidePane

'------------------------------------------------------------------------------------'

testcase tiMinimize_Maximize_Docking_TaskPane
    Dim xPos%
    Dim yPos%
    Dim xSize%
    Dim ySize%

    printlog "- TaskPane : using all possible things to manipulate the TaskPane"
    '/// open application ///'
    Call  hNewDocument
    '/// Check if TaskPane is there. Expected: not there ///'
    Kontext "Tasks"
    if (Tasks.isVisible = false) Then   'isReallyVisible ?
       qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
       sleep 1
       Kontext "DocumentImpress"
       ViewTaskPane
    else
       printlog "TaskPane was open - good."
    end if
    Kontext "Tasks"

'Only because of overflow-error when some part of the pane is outside the window.
    '/// if TaskPane is docked; undock ///'
    if Tasks.IsDocked then Tasks.UnDock

    '/// move Tasks to 15,15 ///'
    Tasks.Move 15, 15

    '/// save TaskPane size ///'
    xSize% = Tasks.GetSizeX
    ySize% = Tasks.GetSizeY

    '/// save TaskPane position and size ///'
    xPos% = Tasks.GetPosX
    yPos% = Tasks.GetPosY
    printlog "  -   '///move TaskPane ///"
    '/// move TaskPane to 300,400 ///'
    Tasks.Move 300, 400
    Sleep 1
    '/// move TaskPane to 590,790 ///'
    Tasks.Move 590, 790
    Sleep 1
    '/// move TaskPane to 10,10 ///'
    Tasks.Move 10, 10
    Sleep 1
    printlog "  -   '/// size -TaskPane ///"
    '/// change size to 200,200 ///'
    Tasks.Size 200, 200
    Sleep 1
    '/// change size to 300,400 ///'
    Tasks.Size 300, 400
    Sleep 1
    '/// change size to 150,250 ///'
    Tasks.Size 150, 250
    Sleep 1
    '/// change size back to saved size ///'
    Tasks.Size xSize%, ySize%
    Sleep 1

    printlog "  -   Close the TaskPane, reopen it, check if appearence is same as before"
    '/// save TaskPane position and size ///'
    xPos% = Tasks.GetPosX
    yPos% = Tasks.GetPosY
    xSize% = Tasks.GetSizeX
    ySize% = Tasks.GetSizeY
    '/// close TaskPane Format->SlidePane ///'
    Kontext "DocumentImpress"
    ViewTaskPane
    ViewTaskPane
    Sleep 1
    Kontext "Tasks"
    '/// open TaskPane Format->TaskPane ///'
    if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Tasks.GetPosX
    if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Tasks.GetPosY
    if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + "  Is ->  "+ Tasks.GetSizeX
    if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + "  Is ->  "+ Tasks.GetSizeY

    printlog "  -   dock TaskPane"
    '/// dock TaskPane ///'
    Tasks.Dock
    Sleep 1
    if (NOT Tasks.IsDocked) then
       Warnlog "TaskPane not docked but should be"
    end if
    '/// UNdock TaskPane ///'
    if (Tasks.IsDocked) Then
       Tasks.UnDock
    end if
    Sleep 1

    printlog "  -   maximize/minimize TaskPane"
    '/// minimize TaskPane ///'
    Tasks.Minimize
    Sleep 1
    '/// Maximize TaskPane ///'
    Tasks.Maximize
    Sleep 1
    if (NOT Tasks.IsMax) then
        Warnlog "The Task-docking-window did not return to maximized state"
    end if
    '/// Close TaskPane ///'
    Tasks.Close
    Sleep (1)
    '/// Open the TaskPane ///'
    Kontext "DocumentImpress"
    ViewTaskPane
    Sleep (2)
    Kontext "Tasks"
    '/// Make sure the TaskPane is visible ///'
    if (Tasks.isVisible = false) Then   'isReallyVisible ?
       warnlog "the Taskpane wasnt visible"
    end if
    '/// move TaskPane back to saved start position ///'
    Tasks.Move xPos%, yPos%
    Sleep 1
    '/// Make sure the TaskPane is docked ///'
    if (Tasks.IsDocked = True) then
       warnlog "the TaskPane was docked - should have been undocked."
    else
       printlog "the TaskPane was not docked, good."
       Tasks.Dock
    end if
   Call hCloseDocument
endcase 'tiMinimize_Maximize_Docking_TaskPane

'------------------------------------------------------------------------------------'

testcase tiPaneview_LoadSave_Windowsstate
    QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
    goto endsub
   Dim xPos%
   Dim yPos%
   Dim xSize%
   Dim ySize%
   Dim Filenamex as string
   dim applicationchar as string

   Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")

   printlog "- TaskPane : using all possible things to manipulate the TaskPane"
   '/// open application ///'
   Call  hNewDocument
   '/// Check if TaskPane is there. Expected: not there ///'
   kontext "Tasks"
   if (Tasks.isVisible = false) Then   'isReallyVisible ?
      qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
      sleep 1
      Kontext "DocumentImpress"
      ViewTaskPane
   else
      printlog "TaskPane was open - good."
   end if

   Kontext "Tasks"
'Only because of overflow-error when some part of the pane is outside the window.

   '/// if TaskPane is docked; undock ///'
   if Tasks.IsDocked then Tasks.UnDock
   Sleep (1)
   '/// move Tasks to 15,15 ///'
   Tasks.Move 15, 15

   '/// save TaskPane size ///'
   xSize% = Tasks.GetSizeX
   ySize% = Tasks.GetSizeY

   '/// save TaskPane position and size ///'
   xPos% = Tasks.GetPosX
   yPos% = Tasks.GetPosY
   printlog "  -   '/// size -TaskPane ///"
   '/// change size to 200,200 ///'
   Sleep (2)
   Tasks.Size 200, 200
   Sleep 1
   printlog "  -   '/// move TaskPane ///"
   '/// move TaskPane to 10,10 ///'
   Tasks.Move 10, 10
   printlog "  -   '/// size -TaskPane ///"
   '/// change size to 300,400 ///'
   Tasks.Size 300, 400
   Sleep 1
   printlog "  -   '/// move TaskPane ///"
   '/// move TaskPane to 550,690 ///'
   Tasks.Move 550, 290
   Sleep 1

   printlog "  -   Close the TaskPane, reopen it, check if appearence is same as before"
   '/// save TaskPane position and size ///'
   xPos% = Tasks.GetPosX
   yPos% = Tasks.GetPosY
   xSize% = Tasks.GetSizeX
   ySize% = Tasks.GetSizeY

   '/// Delete any documents from the past ///'
   if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file

   '/// Save document ///'
   call hFileSaveAsKill (Filenamex)		'/// save document  ///'
   printlog "OK   saved at ", Filenamex
   sleep 1

   '/// Close the document ///'
   Call hCloseDocument

   '/// Open document ///'
   hDateiOeffnen (Filenamex + "." + ExtensionString)

   '/// Make sure the TaskPane is open ///'
   Kontext "Tasks"
   '/// close TaskPane Format->SlidePane ///'
   if (Tasks.IsVisible = false) then
      warnlog "Taskpanel wasnt visible"
      Kontext "DocumentImpress"
      ViewTaskPane
      Sleep 1
   else
      printlog "Taskpanel was visible, good"
   end if

   '/// Check if the position is the same or if it has changed ///'
   Kontext "Tasks"
   if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Tasks.GetPosX
   if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Tasks.GetPosY
   if xSize% <> Tasks.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Tasks.GetSizeX
   if ySize% <> Tasks.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Tasks.GetSizeY
   Sleep (2)
   '/// change size back to saved size ///'
   Tasks.Size xSize%, ySize%
   Sleep 1

   printlog "  -   dock TaskPane"
   '/// Dock TaskPane ///'
   Tasks.Dock
   '/// Close Document ///'
   Call hCloseDocument
endcase

'----------------------------------------------------------------------------------------'

testcase tdPaneview_LoadSave_Windowsstate
    QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
    goto endsub
   Dim xPos%
   Dim yPos%
   Dim xSize%
   Dim ySize%
   Dim Filenamex as string

   Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")

   printlog "- Pagepane : using all possible things to manipulate the Pagepane"
   '/// open application ///'
   Call  hNewDocument
   '/// Check if Pagepane is there. Expected: not there ///'
   kontext "Pagepane"
   if (Pagepane.isVisible = false) Then   'isReallyVisible ?
      qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
      sleep 1
      Kontext "DocumentDraw"
      ViewPagepane
   else
      printlog "Pagepane was open - good."
   end if

'Only because of overflow-error when some part of the pane is outside the window.

   '/// if Pagepane is docked; undock ///'
   if Pagepane.IsDocked then Pagepane.UnDock

   '/// move Pagepane to 15,15 ///'
   Pagepane.Move 15, 15


   Kontext "Pagepane"
   '/// save Pagepane size ///'
   xSize% = Pagepane.GetSizeX
   ySize% = Pagepane.GetSizeY

    '/// save TaskPane position and size ///'
   xPos% = Pagepane.GetPosX
   yPos% = Pagepane.GetPosY
   printlog "  -   '/// size -Pagepane ///"
   '/// change size to 200,100 ///'
   Pagepane.Size 200, 100
   Sleep 1
   printlog "  -   '/// move Pagepane ///"
   '/// move Pagepane to 10,10 ///'
   Pagepane.Move 10, 10
   printlog "  -   '/// size -Pagepane ///"
   '/// change size to 300,150 ///'
   Pagepane.Size 300, 150
   Sleep 1
   printlog "  -   '/// move Pagepane ///"
   '/// move Pagepane to 550,690 ///'
   Pagepane.Move 550, 290
   Sleep 1

   printlog "  -   Close the Pagepane, reopen it, check if appearence is same as before"
   '/// save Pagepane position and size ///'
   xPos% = Pagepane.GetPosX
   yPos% = Pagepane.GetPosY
   xSize% = Pagepane.GetSizeX
   ySize% = Pagepane.GetSizeY

   '/// Delete any documents from the past ///'
   if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file

   '/// Save document ///'
   call hFileSaveAsKill (Filenamex)		'/// save document  ///'
   printlog "OK   saved at ", Filenamex
   sleep 1

   '/// Close the document ///'
   Call hCloseDocument

   '/// Open document ///'
   hDateiOeffnen (Filenamex + "." + ExtensionString)

   '/// Make sure the Pagepane is open ///'
   Kontext "Pagepane"
   '/// close Pagepane Format->SlidePane ///'
   if (Pagepane.IsVisible = false) then
      warnlog "Pagepane wasnt visible"
      Kontext "DocumentDraw"
      ViewPagepane
      Sleep 1
   else
      printlog "Pagepane was visible, good"
   end if

   '/// Check if the position is the same or if it has changed ///'
   Kontext "Pagepane"
   if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Pagepane.GetPosX
   if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Pagepane.GetPosY
   if xSize% <> Pagepane.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Pagepane.GetSizeX
   if ySize% <> Pagepane.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Pagepane.GetSizeY

   '/// change size back to saved size ///'
   Pagepane.Size xSize%, ySize%
   Sleep 1

   printlog "  -   dock Pagepane"
   '/// Dock Pagepane ///'
   Pagepane.Dock
   '/// Close Document ///'
   Call hCloseDocument
endcase 'tdPaneview_LoadSave_Windowsstate

'--------------------------------------------------------------------------------------'

testcase tdMinimize_Maximize_Docking_Pagepane
    Dim xPos%
    Dim yPos%
    Dim xSize%
    Dim ySize%

    printlog "- Pagepane : using all possible things to manipulate the Pagepane"
    '/// open application ///'
    Call  hNewDocument
    '/// Check if TaskPane is there. Expected: not there ///'
    Kontext "Pagepane"
    if (Pagepane.isVisible = false) Then   'isReallyVisible ?
       qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
       sleep 1
       Kontext "DocumentDraw"
       ViewPagepane
    else
       printlog "Pagepane was open - good."
    end if
    Kontext "Pagepane"

'Only because of overflow-error when some part of the pane is outside the window.

    '/// if Pagepane is docked; undock ///'
    if Pagepane.IsDocked then Pagepane.UnDock

    '/// move Pagepane to 10,10 ///'
    Pagepane.Move 10, 10
    Sleep 1

    '/// save TaskPane position and size ///'
    xPos% = Pagepane.GetPosX
    yPos% = Pagepane.GetPosY
    xSize% = Pagepane.GetSizeX
    ySize% = Pagepane.GetSizeY
    printlog "  -   '///move Pagepane ///"
    '/// move Pagepane to 300,400 ///'
    Pagepane.Move 300, 400
    Sleep 1
    '/// move Pagepane to 590,790 ///'
    Pagepane.Move 590, 790
    Sleep 1
    '/// move Pagepane back to saved start position ///'
    Pagepane.Move xPos%, yPos%
    Sleep 1

    printlog "  -   '/// size -Pagepane ///"
    '/// change size to 200,200 ///'
    Pagepane.Size 200, 200
    Sleep 1
    '/// change size to 300,400 ///'
    Pagepane.Size 300, 400
    Sleep 1
    '/// change size to 150,250 ///'
    Pagepane.Size 150, 250
    Sleep 1
    '/// change size back to saved size ///'
    Pagepane.Size xSize%, ySize%
    Sleep 1

    printlog "  -   Close the Pagepane, reopen it, check if appearence is same as before"
    '/// save TaskPane position and size ///'
    xPos% = Pagepane.GetPosX
    yPos% = Pagepane.GetPosY
    xSize% = Pagepane.GetSizeX
    ySize% = Pagepane.GetSizeY
    '/// close Pagepane Format->SlidePane ///'
    Kontext "DocumentDraw"
    ViewPagepane
    ViewPagepane
    Sleep 1
    Kontext "Pagepane"
    '/// open Pagepane Format->TaskPane ///'
    if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed :  Should be ->  "+ xPos% + "  Is -> "+ Pagepane.GetPosX
    if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed :  Should be ->  "+ yPos% + "  Is -> "+ Pagepane.GetPosY
    if xSize% <> Pagepane.GetSizeX then Warnlog  "The x-Size has changed   : Should be -> "+ xSize% + "  Is ->  "+ Pagepane.GetSizeX
    if ySize% <> Pagepane.GetSizeY then Warnlog  "Die y-Size has changed   : Should be -> "+ ySize% + "  Is ->  "+ Pagepane.GetSizeY

    printlog "  -   dock Pagepane"
    '/// dock Pagepane ///'
    Pagepane.Dock
    Sleep 1
    if (NOT Pagepane.IsDocked) then
       Warnlog "Pagepane not docked but should be"
    end if
    '/// UNdock Pagepane ///'
    if (Pagepane.IsDocked) Then
       Pagepane.UnDock
    end if
    Sleep 1

    printlog "  -   maximize/minimize Pagepane"
    '/// minimize Pagepane ///'
    Pagepane.Minimize
    Sleep 1
    '/// Maximize Pagepane ///'
    Pagepane.Maximize
    Sleep 1
    if (NOT Pagepane.IsMax) then
       warnlog "The Pagepane-docking-window did not return to maximized state"
    end if
    '/// Close Pagepane ///'
    Kontext "DocumentDraw"
    ViewPagepane
    sleep (1)
    Kontext "Pagepane"
    '/// Make sure the Pagepane was closed ///'
    if Pagepane.Exists(5)  Then
       warnlog "the Pagepane wasnt closed properly"
    else
       '/// Open the Pagepane ///'
       Kontext "DocumentDraw"
       ViewPagepane
    end if
    sleep (1)
    Kontext "Pagepane"
    '/// Make sure the Pagepane is visible ///'
    if (Pagepane.Exists = true) AND (Pagepane.isVisible = false) Then 
       warnlog "the Pagepane wasnt visible"
    end if

    '/// Make sure the Pagepane is docked ///'
    if (Pagepane.IsDocked = True) then
       warnlog "the Pagepane was docked - should have been undocked."
    else
       printlog "the Pagepane was not docked, good."
       Pagepane.Dock
    end if
   Call hCloseDocument
endcase 'tdMinimize_Maximize_Docking_Pagepane

'--------------------------------------------------------------------------------------'
'TODO FHA : testcase tClick_everywhere
'   Call hNewDocument
'   Kontext "LayerTabBar"
   'Click everywhere

   'Draw:
   'Page Pane

   'Imp:
   'Slides:SlidesControl
'   kontext "Slides"
'   SlidesControl.MouseClick
'   kontext "Tasks"
'   View = same as slidescontrol
'   LayoutsPreview     HID_SD_TASK_PANE_PREVIEW_LAYOUTS
'endcase 'tClick_everywhere
'--------------------------------------------------------------------------------------'