vitomation01: #i109696 - hIsWebPageLoaded() is not called, removed the function

1 files changed, 5 insertions, 26 deletions

diff --git a/testautomation/global/tools/includes/required/t_files.inc b/testautomation/global/tools/includes/required/t_files.inc
index 14e1f99a8105..656af24133d5 100755
--- a/testautomation/global/tools/includes/required/t_files.inc
+++ b/testautomation/global/tools/includes/required/t_files.inc
@@ -186,6 +186,11 @@ end function
 '-------------------------------------------------------------------------------
 '
 function IsImageLoaded
+
+' used by:
+' - hGrafikEinfuegen = IsImageLoaded
+' - hGrafikVerknuepftEinfuegen = IsImageLoaded
+
     '/// IsImageLoaded
     '/// Wait until images in document are loaded
     Dim i% : Dim Herbert as Boolean
@@ -211,32 +216,6 @@ end function
 '
 '-------------------------------------------------------------------------------
 '
-sub hIsWebPageLoaded as boolean
-    'Author: Joerg Sievers
-    '/// If a document in StarOffice Writer is loaded all 9 items in the
-    '///+ statusbar are visible otherwise not.
-    '///+ This sub checks the state of these items.
-    Dim i as integer
-    Dim iGibtdenStatusraus as integer
-    printlog "- global::tools::inc::tfiles.inc::hIsWebPageLoaded"
-    hIsWebPageLoaded = FALSE
-    for i = 1 to 20
-        Kontext "DocumentWriter"
-        if DocumentWriter.Exists(3) then
-            'Count the items on the status bar.
-            iGibtdenStatusraus = DocumentWriter.StatusGetItemCount
-            'There are nine items on the status bar if the web page has been loaded.
-            if iGibtdenStatusraus = 9 then
-                hIsWebPageLoaded = TRUE
-                exit for
-            end If
-        end if
-        WaitSlot( 3000 )
-    next i
-end sub
-'
-'-------------------------------------------------------------------------------
-'
 sub hSys2IntDlg
     '/// Change from system to StarOffice-internal file-dialog (only for Win32)
     if gPlatgroup <> "unx" then