diff options
author | Helge Delfs [hde] <hde@openoffice.org> | 2010-10-19 15:13:52 +0200 |
---|---|---|
committer | Helge Delfs [hde] <hde@openoffice.org> | 2010-10-19 15:13:52 +0200 |
commit | b7a5df0023d447e13f8ac30c33f0bc2b1d9069bb (patch) | |
tree | 5f412dbb3c6f2afbf2439f247072c9ff147988b0 /testautomation | |
parent | ff21396cb6517476d4392175389e46adf376ff3c (diff) |
automationdev300m87#i115106#Corrected scripting failures opening context menu and closing Hyperlink Dialog.
Diffstat (limited to 'testautomation')
-rw-r--r--[-rwxr-xr-x] | testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc | 27 |
1 files changed, 10 insertions, 17 deletions
diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc index c4d79cece29a..4e399309d018 100755..100644 --- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc +++ b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc @@ -187,19 +187,12 @@ testcase tPickGraphic Call wTypeKeys "<Escape>" Call wTypeKeys "Don't be afraid !" - Call DocumentWriter.MouseMove 50,30 + Call gMouseClick ( 50,30 ) Printlog " Open context menu upon graphic with mouse" Call wOpenContextMenu(true) printlog " Select 'ImageMap' in context menu" - try - CALL hMenuFindSelect (".uno:ImageMapDialog", true, 9, true) 'Find "ImageMap" and call the slot. - wait 500 - catch - Warnlog "Unable to open context menu" - Call hCloseDocument - goto endsub - endcatch + Call hMenuSelectNr(9) Printlog " The graphic has to be selected and the context menu has to show graphics related commands" Kontext "ImageMapEditor" if Not ImageMapEditor.Exists(3) then @@ -277,19 +270,19 @@ testcase tHyperlinkEdit Call wTypeKeys " " Call wTypeKeys "<HOME>" printlog " Open context menu on hyperlink" - Call wTypeKeys "<SHIFT F10>" + Call wTypeKeys "<SHIFT F10>" printlog " Open contextmenu, find the entry 'Edit Hyperlink', and call the slot..." - CALL hMenuFindSelect (21835, true, 18, true) 'Find "Edit Hyperlink" and call the slot. + CALL hMenuFindSelect (21835, true, 18, true) 'Find "Edit Hyperlink" and call the slot. printlog " Check if the Hyperlink-dialogue comes up correctly." - kontext "TabHyperlinkInternet" - if NOT TabHyperlinkInternet.Exists(3) then - Warnlog "No Hyperlink-Dialog visible!" + kontext "HyperlinkDialog" + if NOT HyperlinkDialog.Exists(3) then + Warnlog "No Hyperlink-Dialog visible!" else - TabHyperlinkInternet.Close - end if + HyperlinkDialog.Close + end if printlog " Close text document" - CALL hCloseDocument + CALL hCloseDocument endcase ' ----------------------------------------------------------------------------- |