summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_paneview.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_paneview.inc')
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_paneview.inc673
1 files changed, 673 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_paneview.inc b/testautomation/graphics/optional/includes/global/g_paneview.inc
new file mode 100755
index 000000000000..c027200478a0
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_paneview.inc
@@ -0,0 +1,673 @@
+'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
+'--------------------------------------------------------------------------------------'
generated by cgit (git 2.34.1) at 2024-07-03 17:56:47 +0000