diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_004.inc')
-rw-r--r-- | testautomation/graphics/required/includes/global/id_004.inc | 45 |
1 files changed, 15 insertions, 30 deletions
diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc index 2fb21db18373..3e4d3d86c07a 100644 --- a/testautomation/graphics/required/includes/global/id_004.inc +++ b/testautomation/graphics/required/includes/global/id_004.inc @@ -25,30 +25,11 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'*********************************************************************************** -' #1 tiInsertSlide -' #1 tiInsertDuplicateSlide -' #1 tiInsertField -' #1 tiInsertSpecialCharacter -' #1 tiInsertHyperlink -' #1 tiInsertGraphic -' #1 tiInsertObjectSound -' #1 tiInsertObjectVideo -' #1 tiInsertChart -' #1 tiInsertObjectOLEObjects -' #1 tiInsertSpreadsheet -' #1 tiInsertFormula -' #1 tiInsertFloatingFrame -' #1 tiInsertFile -' #1 tiInsertPlugin -' #1 tiInsertScan -' #1 tiInsertSnappointLine -' #1 tdInsertLayer -'\********************************************************************************** +'\****************************************************************************** testcase tiInsertSlide printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) " @@ -177,15 +158,16 @@ testcase tiInsertHyperlink Call hNewDocument printlog "Insert->Hyperlink " InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" - if Hyperlink.exists (5) then + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "TabHyperlinkInternet" + Auswahl.MouseDown 50, 5 Auswahl.MouseUp 50, 5 Auswahl.typekeys "<PAGEDOWN><PAGEUP>" Auswahl.typekeys "<TAB>" - sleep 3 - Kontext "TabHyperlinkInternet" printlog "Workaround to get rid of a Focusing-problem..." NameText.Typekeys "alal <RETURN>" @@ -195,10 +177,13 @@ testcase tiInsertHyperlink printlog "End of workaround..." Internet.Check - ZielUrl.Settext "http://mahler" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close + ZielUrl.Settext "http://www.nowhere.com" + + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else warnlog "Failed to open hyperlink ??!!" end if |