1 files changed, 14 insertions, 29 deletions
diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc
index 2fb21db18373..e6f154f169c8 100644
--- a/testautomation/graphics/required/includes/global/id_004.inc
+++ b/testautomation/graphics/required/includes/global/id_004.inc
@@ -29,26 +29,7 @@
 '*
 '* 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