diff options
Diffstat (limited to 'testautomation/graphics/tools/id_tools_2.inc')
-rwxr-xr-x | testautomation/graphics/tools/id_tools_2.inc | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc index a15d067511af..9f3783f8249c 100755 --- a/testautomation/graphics/tools/id_tools_2.inc +++ b/testautomation/graphics/tools/id_tools_2.inc @@ -98,14 +98,14 @@ sub sFileExport Dim ExPath as String Dim Liste( 50 ) as String - if (lCase(gApplication) = "impress") then + if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if '///- all files are saved in [StarOfficePath]/user/work/[applicatoion]/export ///' - ExPath = ConvertPath (gOfficePath + "user\work\" + lCase(gApplication) + "\export\" ) + ExPath = ConvertPath (gOfficePath + "user\work\" + gApplication + "\export\" ) OutputGrafikTBO = ExPath & "expo" Printlog "Create the export-dir for the graphics ( " + ExPath + " )" try @@ -315,14 +315,14 @@ end Sub '------------------------------------------------------------------------------- sub SaveMeasurementSetFirst - if (lCase(gApplication) = "draw") then + if (gApplication = "DRAW") then sApplication = "DRAWING" - elseIf (lCase(gApplication) = "impress") then - sApplication = "PRESENTATION" - elseIf (lCase(gApplication) = "writer") then - sApplication = "TEXTDOCUMENT" - elseIf (lCase(gApplication) = "calc") then - sApplication = "SPREADSHEET" + elseIf (gApplication = "IMPRESS") then + sApplication = "IMPRESS" + elseIf (gApplication = "WRITER") then + sApplication = "WRITER" + elseIf (gApplication = "CALC") then + sApplication = "CALC" endif printlog " '/// - save states ///'" ToolsOptions @@ -338,14 +338,14 @@ end Sub sub MeasurementSetFirst dim f as integer - if (lCase(gApplication) = "draw") then + if (gApplication = "DRAW") then sApplication = "DRAWING" - elseIf (lCase(gApplication) = "impress") then - sApplication = "PRESENTATION" - elseIf (lCase(gApplication) = "writer") then - sApplication = "TEXTDOCUMENT" - elseIf (lCase(gApplication) = "calc") then - sApplication = "SPREADSHEET" + elseIf (gApplication = "IMPRESS") then + sApplication = "IMPRESS" + elseIf (gApplication = "WRITER") then + sApplication = "WRITER" + elseIf (gApplication = "CALC") then + sApplication = "CALC" endif ToolsOptions hToolsOptions (sApplication,"General") @@ -367,14 +367,14 @@ end Sub sub ResetMeasurement dim f as integer - if (lCase(gApplication) = "draw") then + if (gApplication = "DRAW") then sApplication = "DRAWING" - elseIf (lCase(gApplication) = "impress") then - sApplication = "PRESENTATION" - elseIf (lCase(gApplication) = "writer") then - sApplication = "TEXTDOCUMENT" - elseIf (lCase(gApplication) = "calc") then - sApplication = "SPREADSHEET" + elseIf (gApplication = "IMPRESS") then + sApplication = "IMPRESS" + elseIf (gApplication = "WRITER") then + sApplication = "WRITER" + elseIf (gApplication = "CALC") then + sApplication = "CALC" endif printlog "'/// - Reset states back to what they were before ///'" ToolsOptions |