diff options
Diffstat (limited to 'testautomation/writer/tools/includes')
| -rwxr-xr-x | testautomation/writer/tools/includes/w_tool1.inc | 11 | ||||
| -rwxr-xr-x | testautomation/writer/tools/includes/w_tool2.inc | 18 |
2 files changed, 25 insertions, 4 deletions
diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc index 19ef41a711de..4515c86811ec 100755 --- a/testautomation/writer/tools/includes/w_tool1.inc +++ b/testautomation/writer/tools/includes/w_tool1.inc @@ -343,17 +343,20 @@ sub sMenufunktionen(Fuer_Was as string) Kontext try - FormatControl - Sleep 1 + FormatControl + WaitSlot() + Kontext "ControlPropertiesDialog" - if ControlPropertiesDialog.Exists then + if ControlPropertiesDialog.Exists( 2 ) then ControlPropertiesDialog.Close + ControlPropertiesDialog.notExists( 2 ) else FormatControl Wait 500 Kontext "ControlPropertiesDialog" - if ControlPropertiesDialog.Exists then + if ControlPropertiesDialog.Exists( 2 ) then ControlPropertiesDialog.Close + ControlPropertiesDialog.notExists( 2 ) else Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!" end if 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 |