diff options
author | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-09-16 11:53:22 +0200 |
---|---|---|
committer | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-09-16 11:53:22 +0200 |
commit | f9b8934ca13e151c75c76482fb55449e0d7dcd17 (patch) | |
tree | 6a86dbaf0cb8ba0b8d9030b6c519a9b45bba4d68 /testautomation/graphics/optional/includes/global | |
parent | fe6eabe9ec169187c05b8f04b87212f3d211ee1f (diff) |
automationdev300m87: #i112208# - Put path into a variable, delete file before usage, removed unnecessary UCASE() statements
Diffstat (limited to 'testautomation/graphics/optional/includes/global')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_tools.inc | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc index 35b53c07c1cd..9dc207b481b9 100644 --- a/testautomation/graphics/optional/includes/global/g_tools.inc +++ b/testautomation/graphics/optional/includes/global/g_tools.inc @@ -29,11 +29,6 @@ '* '* short description : will be moved to autocorrection.bas/inc '* -'************************************************************************************** -' #1 tiToolsThesaurus -' #1 tiToolsHyphenation1 -' #1 tiToolsHyphenation2 -' #1 tToolsMacro '\************************************************************************************* ' sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt @@ -46,6 +41,7 @@ testcase tiToolsThesaurus Dim sAlternativeText as string Dim sExt as string Dim ZaehlerBedeutung + dim sWorkFile as string 'for normal text, the thesaurus is enabled, 'if the format->character->language of the word has a thesaurus @@ -113,7 +109,10 @@ testcase tiToolsThesaurus sExt = ".odp" endif - Call hFileOpenLocally(gTesttoolpath + "graphics\required\input\recht_" + iSprache + sExt) + sWorkFile = gTesttoolPath & "graphics\required\input\recht_" & iSprache & sExt + hFileDelete( sWorkFile ) + + Call hFileOpenLocally( sWorkFile ) Call hTextrahmenErstellen (sWord,20,20,50,30) sleep 1 @@ -164,9 +163,9 @@ testcase tiToolsThesaurus endif Thesaurus.OK - if(Ucase(gApplication) = "DRAW") then + if( gApplication = "DRAW" ) then Kontext "Draw" - elseif(Ucase(gApplication) = "IMPRESS") then + elseif( gApplication = "IMPRESS") then Kontext "Impress" else ' fallback warnlog "gApplication is wrong" |