native0: #161747 - Adjustments

testautomation/framework/required/f_script_organizers.bas

@@ -48,6 +48,7 @@ sub LoadIncludeFiles
     use "global\system\includes\master.inc"
     use "global\system\includes\gvariabl.inc"
 
+    use "global\tools\includes\optional\t_docfuncs.inc"
     use "global\tools\includes\optional\t_treelist_tools.inc"
 
     gApplication = "WRITER"

testautomation/framework/required/includes/script_organizers.inc

@@ -51,13 +51,7 @@ testcase tUpdtScriptCount
     dim iCurrentDialog as integer
     dim iCurrentScriptCount as integer
     
-    
-    
-    do while ( getDocumentCount > 0 ) 
-        hDestroyDocument()
-    loop
-        
-    hNewDocument()
+    hInitSingleDoc()       
 
     for iCurrentDialog = 1 to SCRIPTING_DIALOGS
 

testautomation/framework/required/includes/window_functions.inc

@@ -148,7 +148,7 @@ endcase
 
 sub sAllWindowTitle
 
-    printlog( "Window titles for the applications" )
+    printlog( "Window titles for the applications: " & gProductName )
     
     printlog( "Writer" )
     gApplication = "WRITER"
@@ -230,7 +230,7 @@ testcase tCheckWindowTitle(sApplication as string, sReference as string)
     dim sTemp as string
     dim saTemp() as string
     dim brc as boolean
-    gApplication = UCase (gApplication)
+    gApplication = gApplication
     printlog " - Application: " + sApplication + "; Title should be: " + sReference
     
     printlog( "Ensure that exactly one document is open" )