diff options
Diffstat (limited to 'testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc')
| -rw-r--r-- | testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc index 75db278c25ef..729659dfc54d 100644 --- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc +++ b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc @@ -194,7 +194,14 @@ testcase tPickGraphic Call wOpenContextMenu(true) printlog " Select 'ImageMap' in context menu" - Call hMenuSelectNr(9) + try + CALL hMenuFindSelect (".uno:ImageMapDialog", true, 11, true) 'Find "ImageMap" and call the slot. + wait 500 + catch + Warnlog "Unable to open context menu" + Call hCloseDocument + goto endsub + endcatch 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 @@ -240,13 +247,13 @@ testcase tPickHyperlink printlog " Empty clipboard" SetClipBoard = "" printlog " Insert a hyperlink in document" - Call wTypeKeys "www.sun.com" + Call wTypeKeys "www.oracle.com" Call wTypeKeys " " Call wTypeKeys "<HOME>" printlog " Open context menu on hyperlink" Call wTypeKeys "<SHIFT F10>" printlog " Last entry in menu has to be 'Open hyperlink' ...." - CALL hMenuFindSelect (10955, true, 17, true) 'Find "Hyperlink-dialog" and call the slot. + CALL hMenuFindSelect (10955, false, 17, true) 'Find "Hyperlink-dialog" and call the slot. kontext "TabHyperlinkInternet" if TabHyperlinkInternet.Exists(3) then Warnlog "Hyperlink-Dialog opened!" |