summaryrefslogtreecommitdiff
path: root/testautomation/graphics/required/includes/global/id_006.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_006.inc')
-rw-r--r--testautomation/graphics/required/includes/global/id_006.inc23
1 files changed, 5 insertions, 18 deletions
diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc
index 8e16f5ef5593..0b210157e333 100644
--- a/testautomation/graphics/required/includes/global/id_006.inc
+++ b/testautomation/graphics/required/includes/global/id_006.inc
@@ -25,24 +25,12 @@
'
'/************************************************************************
'*
-'* Owner : wolfram.garten@sun.com
+'* Owner : wolfram.garten@oracle.com
'*
'* short description :
'*
-'***********************************************************************************
-' #1 tiToolsSpellchecking
-' #1 tiToolsSpellcheckingAutomatic
-' #1 tiToolsThesaurus
-' #1 tiToolsHyphenation
-' #1 tiToolsAutoCorrect
-' #1 tChineseTranslation
-' #1 tiToolsMacro
-' #1 tiToolsGallery
-' #1 tiToolsEyedropper
-' #1 tiToolsOptions
'\**********************************************************************************
-'------------------------------------------------------------------------------
sub id_Tools
printLog "--------- id_006 ----------"
call tiToolsSpellchecking
@@ -116,9 +104,9 @@ testcase tiToolsSpellcheckingAutomatic
endcase
'-------------------------------------------------------------------------------
testcase tiToolsThesaurus
-
Dim sWord as string
Dim sExt as string
+ Dim sFileName as string
'for normal text, the thesaurus is enabled,
'if the format->character->language of the word has a thesaurus
@@ -206,10 +194,9 @@ testcase tiToolsThesaurus
if Thesaurus.Exists(3) then
Thesaurus.Cancel
else
- warnlog "the thesaurus does not appear"
- endif
+ warnlog "the thesaurus does not appear"
+ end if
Call hCloseDocument
-
endcase
'-------------------------------------------------------------------------------
testcase tiToolsHyphenation
@@ -485,4 +472,4 @@ testcase tiToolsEyedropper
'/// close application ///'
Call hCloseDocument
endcase
-'------------------------------------------------------------------------------- \ No newline at end of file
+