diff options
| author | Helge Delfs <hde@openoffice.org> | 2009-12-11 06:54:40 +0000 |
|---|---|---|
| committer | Helge Delfs <hde@openoffice.org> | 2009-12-11 06:54:40 +0000 |
| commit | 56c617e490712d308ca19ebdb2e8a0244c6aa448 (patch) | |
| tree | af1c1d2bf2c4d09b40e1cb03250407a26f0769c0 /testautomation/writer/tools | |
| parent | FIX: initial dialog closed that opened after loading document, close all docu... (diff) | |
| download | core-56c617e490712d308ca19ebdb2e8a0244c6aa448.tar.gz core-56c617e490712d308ca19ebdb2e8a0244c6aa448.zip | |
Introduce new sub to change default page layout
Diffstat (limited to 'testautomation/writer/tools')
| -rwxr-xr-x | testautomation/writer/tools/includes/w_tool2.inc | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 280d18b51677..a68a5eea9ea4 100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -409,3 +409,21 @@ function wDeleteAutotext(vAutotextName as string) as boolean next ik end function + + +sub wChangeDefaultView() + + ' #i107038: This code forces the writer to display one page only which is + ' zoomed to pagewidth, filling the entire - previously maximized - window. + ' This is required because the VCL Testtool might eventually draw objects + ' outside the document window depending on display size + + Call hNewDocument + ViewZoom + Kontext "Massstab" + Vergroesserung100.check + Singlepage.check + Massstab.Ok + Call hCloseDocument + +end sub
\ No newline at end of file |