Commits

Anonymous committed 75d1d4f

cbosdo01:#i107088#adaptions for removel of options in Autocorrection

Comments (0)

Files changed (6)

testautomation/global/win/tab_t_z.win

 MFEndwert cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_END_VALUE
 
 *TabTypografisch HID_OFAPAGE_AUTOCORR_QUOTE
-EinfacheErsetzen cui:Checkbox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_SGL_TYPO
-DoppelteErsetzen cui:CheckBox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_TYPO
-EinfachWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STARTQUOTE
-EinfachWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_ENDQUOTE
-EinfachStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STD
-DoppeltWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_STARTQUOTE
-DoppeltWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_ENDQUOTE
-DoppeltStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_DBL_STD
+LocalizedOptions HID_OFAPAGE_QUOTE_SW_CLB
 Zurueck HID_TABDLG_RESET_BTN
 
 *TabUmlauf HID_FRM_EXT

testautomation/graphics/optional/includes/global/g_autocorrection.inc

 '-------------------------------------------------------------------------------
 testcase tToolsAutocorrectOption
 
-    const cEntryCount = 9
+    const cEntryCount = 7
     dim i as integer
     dim iEntryCount as integer
     dim sEntries (20, 2) as string
     sEntries (4,2) = "*Hello* " '"_Hello_ "
     sEntries (5,1) = "URL Recognition"
     sEntries (5,2) = "It is www.ksta.de "
-    sEntries (6,1) = "Replace 1st... with 1^st..."
-    sEntries (6,2) = "1st "
-    sEntries (7,1) = "Replace 1/2 ... with û ..."
-    sEntries (7,2) = "1/2 "
-    sEntries (8,1) = "Replace dashes"
-    sEntries (8,2) = "Hello - Hrbert "
-    sEntries (9,1) = "Ignore double spaces"
-    sEntries (9,2) = "Hello  this is 2  blanks "
+    'sEntries (6,1) = "Replace 1st... with 1^st..."
+    'sEntries (6,2) = "1st "
+    'sEntries (7,1) = "Replace 1/2 ... with û ..."
+    'sEntries (7,2) = "1/2 "
+    sEntries (6,1) = "Replace dashes"
+    sEntries (6,2) = "Hello - Hrbert "
+    sEntries (7,1) = "Ignore double spaces"
+    sEntries (7,2) = "Hello  this is 2  blanks "
 
     Printlog "- Tools / Autocorrect -options"
     Call hNewDocument()

testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc

 '*
 '* short description : Test the AutoCorrect/AutoFormat/Options
 '*
-'************************************************************************
-'*
-' #1 tOpenDialog_1
-' #1 tReplaceDashes_1
-' #1 tToolsAutocorrectOptions_1
-' #1 tToolsAutocorrectOptions_2
-' #1 tToolsAutocorrectOptions_3
-' #1 tToolsAutocorrectOptions_4_1
-' #1 tToolsAutocorrectOptions_4_2
-' #1 tToolsAutocorrectOptions_5
-' #1 tToolsAutocorrectOptions_6
-' #1 tToolsAutocorrectOptions_7
-' #1 tToolsAutocorrectOptions_8
-' #1 tToolsAutocorrectOptions_11
-' #1 tToolsAutocorrectOptions_12
-' #1 tToolsAutocorrectOptions_13
-' #1 tToolsAutocorrectOptions_14
-' #1 tToolsAutocorrectOptions_16
-' #1 tToolsAutocorrectOptions_18
-' #1 tToolsAutocorrectOptions_19
-'*
 '\***********************************************************************
 
-sub w_autocorrect_autoformat_1
+sub w_autocorrect1
 
     printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features"
 
     Call tToolsAutocorrectOptions_4_1    'Automatic bold
     Call tToolsAutocorrectOptions_4_2    'Automatic underline
     Call tToolsAutocorrectOptions_5      'URL Recognition
-    Call tToolsAutocorrectOptions_6      'Replace 1st ... with 1^st...
-    Call tToolsAutocorrectOptions_7      'Replace 1/2 ... with ½ ...
-    Call tToolsAutocorrectOptions_8      'Replace dashes
-    Call tToolsAutocorrectOptions_11     'Ignore double spaces
-    Call tToolsAutocorrectOptions_12     'Apply numbering
-    Call tToolsAutocorrectOptions_13     'Apply Border
-    Call tToolsAutocorrectOptions_14     'Create Table
-    Call Ttoolsautocorrectoptions_16     'Remove Blank Paragraphs
-    Call Ttoolsautocorrectoptions_18     'Replace bullets with •
-    Call tToolsAutocorrectOptions_19     'Replace standard quotes with custom quotes
+    Call tToolsAutocorrectOptions_6      'Replace dashes
+    Call tToolsAutocorrectOptions_7     'Ignore double spaces
+    Call tToolsAutocorrectOptions_8     'Apply numbering
+    Call tToolsAutocorrectOptions_9     'Apply Border
+    Call tToolsAutocorrectOptions_10     'Create Table
+    Call tToolsAutocorrectOptions_11     'Remove Blank Paragraphs
+    Call tToolsAutocorrectOptions_12     'Replace bullets with •
+    Call tToolsAutocorrectOptions_13     'Replace standard quotes with custom quotes
 
 end sub
 
     EditCopy
     if GetClipboardText <> "Aabbcc" then
         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-    else
-    
+        Call hCloseDocument
+        goto endsub
+    else    
         Call wTypeKeys "<ESCAPE>"
         FormatAutoformatApply
         Call wTypeKeys "<Home><Shift End>"
 
 testcase tToolsAutocorrectOptions_2
 
-   Dim testContent as String
-   Dim hopeResult as String
-   Dim hopeResultBeforeAutoformat as String
-   Dim hopeResultAfterAutoformat as String
+    Dim testContent as String
+    Dim hopeResult as String
+    Dim hopeResultBeforeAutoformat as String
+    Dim hopeResultAfterAutoformat as String
 
-  printLog "Test 'Correct TWo INitial CApital'  "
-  '/// Test 'Correct TWo INitial CApital'
-   Call hNewDocument
+    printLog "Test 'Correct TWo INitial CApital'  "
+    '/// Test 'Correct TWo INitial CApital'
+    Call hNewDocument
 
     '/// M:Y  T:Y (default)
-     testContent = "TEst"
-     hopeResult  = "Test"
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y  T:Y"
+    testContent = "TEst"
+    hopeResult  = "Test"
+    Call wTypeKeys testContent
+    Call wTypeKeys " "
+    Call wTypeKeys "<BACKSPACE><Shift Home>"
+    EditCopy
+    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y  T:Y"
 
-     Call wTypeKeys "<DELETE>"
+    Call wTypeKeys "<DELETE>"
 
     '/// M:Y  T:N
-     testContent                 = "TEst"
-     hopeResultBeforeAutoformat  = "TEst"
-     hopeResultAfterAutoformat   = "Test"
+    testContent                 = "TEst"
+    hopeResultBeforeAutoformat  = "TEst"
+    hopeResultAfterAutoformat   = "Test"
 
-     Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+    Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
+    Call wTypeKeys testContent
+    Call wTypeKeys " "
+    Call wTypeKeys "<BACKSPACE><Shift Home>"
 
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-        goto GOING1
-     end if
+    EditCopy
+    if GetClipboardText <> hopeResultBeforeAutoformat then
+    Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
+    goto GOING1
+    end if
 
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-     end if
+    Call wTypeKeys "<ESCAPE>"
+    FormatAutoformatApply
+    Call wTypeKeys "<Shift End>"
+    EditCopy
+    if GetClipboardText <> hopeResultAfterAutoformat then
+    Warnlog "The content should be changed after Autoformat!M:Y  T:N"
+    end if
 
-GOING1:
-     Call wTypeKeys "<DELETE>"
+    GOING1:
+    Call wTypeKeys "<DELETE>"
 
     '/// M:N  T:Y
-     testContent  = "TEst"
-     hopeResult   = "Test"
+    testContent  = "TEst"
+    hopeResult   = "Test"
 
-     Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+    Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N  T:Y"
+    Call wTypeKeys testContent
+    Call wTypeKeys " "
+    Call wTypeKeys "<BACKSPACE><Shift Home>"
+    EditCopy
+    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N  T:Y"
 
-     Call wTypeKeys "<DELETE>"
+    Call wTypeKeys "<DELETE>"
 
     '/// M:N  T:N
-     testContent                 = "TEst"
-     hopeResultBeforeAutoformat  = "TEst"
-     hopeResultAfterAutoformat   = "TEst"
+    testContent                 = "TEst"
+    hopeResultBeforeAutoformat  = "TEst"
+    hopeResultAfterAutoformat   = "TEst"
 
-     Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+    Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
+    Call wTypeKeys testContent
+    Call wTypeKeys " "
+    Call wTypeKeys "<BACKSPACE><Shift Home>"
+    EditCopy
+    if GetClipboardText <> hopeResultBeforeAutoformat then
         Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-     end if
+        Call hCloseDocument
+    end if
 
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
+    Call wTypeKeys "<ESCAPE>"
+    FormatAutoformatApply
+    Call wTypeKeys "<Shift End>"
+    EditCopy
+    if GetClipboardText <> hopeResultAfterAutoformat then
         Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-     end if
+    end if
 
-testend:
     '/// Recover to the default  M:Y  T:Y
-     Call fAutocorrectOptions("CorrectTWoINitialCApitals")
+    Call fAutocorrectOptions("CorrectTWoINitialCApitals")
 
     Call hCloseDocument
 
 testcase tToolsAutocorrectOptions_6
 
    Dim testContent as String
-
-  printLog "Replace 1st ... with 1^st..."
-  '/// Replace 1st ... with 1^st...
-   Call hNewDocument
-
-    testContent = "1st"
-
-    '/// M:Y  T:Y (default)
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y  T:Y"
-     Normal.Check
-     TabFontPosition.OK
-
-     EditSelectAll
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-     Call fAutocorrectOptions("Replace1st")
-
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked  when M:Y  T:N  before autoformat!"
-     Normal.Check
-     TabFontPosition.OK
-
-     FormatAutoformatApply
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked <> TRUE  then Warnlog "The superscript should be checked when M:Y  T:N  after autoformat!"
-     Normal.Check
-     TabFontPosition.OK
-
-     EditSelectAll
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:Y
-     Call fAutocorrectOptions("Replace1st")
-
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked  when M:N  T:Y"
-     Normal.Check
-     TabFontPosition.OK
-
-     EditSelectAll
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:N
-     Call fAutocorrectOptions("Replace1st")
-
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>"
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked  when M:N  T:N  before autoformat!"
-     Normal.Check
-     TabFontPosition.OK
-
-     FormatAutoformatApply
-
-     fFormatCharacter("TabFontPosition")
-     if SuperScript.IsChecked = TRUE  then Warnlog "The superscript should NOT be checked  when M:N  T:N  after autoformat!"
-     Normal.Check
-     TabFontPosition.OK
-
-    '/// Recover to the default  M:Y  T:Y
-     Call fAutocorrectOptions("Replace1st")
-
-    Call hCloseDocument
-
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_7
-
-   Dim testContent as String
-   Dim hopeResult as String
-   Dim hopeResultBeforeAutoformat as String
-   Dim hopeResultAfterAutoformat as String
-
-  printLog "Replace 1/2 ... with ½ ... "
-  '/// Replace 1/2 ... with ½ ...
-   Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-     testContent = "1/2"
-     hopeResult  = "½"
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y  T:Y"
-
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-     testContent                 = "1/2"
-     hopeResultBeforeAutoformat  = "1/2"
-     hopeResultAfterAutoformat   = "½"
-
-     Call fAutocorrectOptions("Replace1/2")
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-        goto GOING1
-     end if
-
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-     end if
-
-GOING1:
-     Call wTypeKeys "<DELETE>"
-
-    '///  M:N  T:Y
-     testContent  = "1/2"
-     hopeResult   = "½"
-
-     Call fAutocorrectOptions("Replace1/2")
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ...  when M:N  T:Y"
-
-     Call wTypeKeys "<DELETE>"
-
-    '///  M:N  T:N
-     testContent                 = "1/2"
-     hopeResultBeforeAutoformat  = "1/2"
-     hopeResultAfterAutoformat   = "1/2"
-
-     Call fAutocorrectOptions("Replace1/2")
-
-     Call wTypeKeys testContent
-     Call wTypeKeys " "
-     Call wTypeKeys "<BACKSPACE><Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-     end if
-
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-     end if
-
-testend:
-
-    '/// Recover to the default
-     Call fAutocorrectOptions("Replace1/2")
-
-    Call hCloseDocument
-
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_8
-
-   Dim testContent as String
    Dim hopeResult as String
    Dim hopeResultBeforeAutoformat
    Dim hopeResultAfterAutoformat as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_11
+testcase tToolsAutocorrectOptions_7
 
    Dim testContent as String
    Dim hopeResult as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_12
+testcase tToolsAutocorrectOptions_8
 
   Dim firstLine as String
   Dim testContent as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_13
+testcase tToolsAutocorrectOptions_9
 
   Dim testList() as String
   Dim testContent as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_14
+testcase tToolsAutocorrectOptions_10
 
    Dim testContent as String
    Dim hopeResult as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_16
+testcase tToolsAutocorrectOptions_11
 
    Dim testContent1 as String
    Dim testContent2 as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_18
+testcase tToolsAutocorrectOptions_12
 
    Dim testContent as String
    Dim hopeResultBeforeAutoformat as String
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectOptions_19
+testcase tToolsAutocorrectOptions_13
 
    Dim testContent as String
    Dim hopeResultBeforeAutoformat as String

testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc

 '*
 '* short description : Test AutoCorrect/AutoFormat/Word Completion
 '*
-'************************************************************************
-'*
-' #1 tToolsAutocorrectWordCompletion_1
-' #1 tToolsAutocorrectWordCompletion_2
-' #1 tToolsAutocorrectWordCompletion_3
-' #1 tToolsAutocorrectWordCompletion_4
-' #1 tToolsAutocorrectWordCompletion_5
-'*
 '\***********************************************************************
 
-sub w_autocorrect_autoformat_2
+sub w_autocorrect2
 
     printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features"    
     Call tToolsAutocorrectWordCompletion_1     'Check the default settings
     Call tToolsAutocorrectWordCompletion_2     'Check entries
     Call tToolsAutocorrectWordCompletion_3     'Check list of suggestions can be "scrolled"
     Call tToolsAutocorrectWordCompletion_4     'Test Max entries
-    Call Ttoolsautocorrectwordcompletion_5     'Check 'When closing a document, save the list for later use in other documents'
-    
+    Call tToolsAutocorrectWordCompletion_5     'Check 'When closing a document, save the list for later use in other documents'
+    Call tToolsAutocorrectWordCompletion_6
+
 end sub
 
 '-------------------------------------------------------------------------
 
 testcase tToolsAutocorrectWordCompletion_1
 
-  Dim iAcceptWith as String
-  Dim iEntriesNumber as Integer
-  Dim sMinWordLength as String
-  Dim sMaxEntries as String
-  Dim sMinMaxEntries as String
+    Dim iAcceptWith as String
+    Dim iEntriesNumber as Integer
+    Dim sMinWordLength as String
+    Dim sMaxEntries as String
+    Dim sMinMaxEntries as String
 
-  iAcceptWith     = 2
-  iEntriesNumber  = 0
-  sMinWordLength  = "10"
-  sMaxEntries     = "500"
-  sMinMaxEntries  = "50"
+    iAcceptWith     = 2
+    iEntriesNumber  = 0
+    sMinWordLength  = "10"
+    sMaxEntries     = "500"
+    sMinMaxEntries  = "50"
 
- 'Delete all entries in the list
-  fDeleteAllEntries()
+    printLog "Check the default settings"
+    '/// Check the default settings
+    '/// - Check box "Enable word completion" (default: checked)
+    '/// - Check box "Append Space" (default: unchecked)
+    '/// - Check box "Show as tip" (default: unchecked)
+    '/// - Check box "Collect Words" (default: checked)
+    '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked)
+    '/// - List box "Accept with" (Default = "Return")
+    '/// - Spin box "minimal number of characters" default = 10
+    '/// - Spin box "Max. entries" (default =500, minimum = 50)
+    '/// - Box: "List of words collected" -- should be empty after Office restart.
 
-  printLog "Check the default settings"
-  '/// Check the default settings
-  '/// - Check box "Enable word completion" (default: checked)
-  '/// - Check box "Append Space" (default: unchecked)
-  '/// - Check box "Show as tip" (default: unchecked)
-  '/// - Check box "Collect Words" (default: checked)
-  '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked)
-  '/// - List box "Accept with" (Default = "Return")
-  '/// - Spin box "minimal number of characters" default = 10
-  '/// - Spin box "Max. entries" (default =500, minimum = 50)
-  '/// - Box: "List of words collected" -- should be empty after Office restart.
+    Call hNewDocument
+    'Delete all entries in the list
+    Call fDeleteAllEntries()
 
-   Call hNewDocument
+    ToolsAutocorrect
+    Kontext
+    Active.Setpage TabWortergaenzung
+    Kontext "TabWortergaenzung"
 
-   ToolsAutocorrect
-   Active.Setpage TabWortergaenzung
-   Kontext "TabWortergaenzung"
+    if WoerterErgaenzen.IsChecked   = False           then Warnlog "Complete words should be checked ."
+    if AppendSpace.IsChecked        =  TRUE           then Warnlog "Append space should be UNchecked ."
+    if AlsTipphilfe.IsChecked       =  TRUE           then Warnlog "Show as tip should be UNchecked ."
+    if VorschlaegeSammeln.IsChecked <> TRUE           then Warnlog "Collect suggestions should be checked ."
+    if KeepList.IsChecked           = TRUE            then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ."
+    if AnnehmenMit.GetSelIndex      <> iAcceptWith    then Warnlog "The Accept with should be 'Enter' ."
+    if MinWortlaenge.GetText        <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength
+    if MaxEintraege.GetText         <> sMaxEntries    then Warnlog "Max entries should be " + sMaxEntries
+    if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number  should be " + iEntriesNumber
 
-      if WoerterErgaenzen.IsChecked   <> TRUE           then Warnlog "Complete words should be checked ."
-      if AppendSpace.IsChecked        =  TRUE           then Warnlog "Append space should be UNchecked ."
-      if AlsTipphilfe.IsChecked       =  TRUE           then Warnlog "Show as tip should be UNchecked ."
-      if VorschlaegeSammeln.IsChecked <> TRUE           then Warnlog "Collect suggestions should be checked ."
-      if KeepList.IsChecked           <> TRUE           then Warnlog "When closing a document, save the list for later use in other documents should be checked ."
-      if AnnehmenMit.GetSelIndex      <> iAcceptWith    then Warnlog "The Accept with should be 'Enter' ."
-      if MinWortlaenge.GetText        <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength
-      if MaxEintraege.GetText         <> sMaxEntries    then Warnlog "Max entries should be " + sMaxEntries
-      if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number  should be " + iEntriesNumber
+    MaxEintraege.SetText "49"
 
-      MaxEintraege.SetText "49"
+    TabWortergaenzung.OK
 
-     TabWortergaenzung.OK
+    ToolsAutocorrect
+    Kontext
+    Active.Setpage TabWortergaenzung
+    Kontext "TabWortergaenzung"
+    if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries
+    MaxEintraege.SetText sMaxEntries
+    TabWortergaenzung.OK
 
-     ToolsAutocorrect
-     Active.Setpage TabWortergaenzung
-     Kontext "TabWortergaenzung"
-      if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries
-      MaxEintraege.SetText sMaxEntries
-     TabWortergaenzung.OK
-
-   Call hCloseDocument
+    Call hCloseDocument
 
 endcase
 
 
 testcase tToolsAutocorrectWordCompletion_2
 
-  Dim iDefaultEntriesNumber as Integer
-  Dim iEntriesNumber as Integer
-  Dim i as Integer
-  Dim sMinWordLength as String
+    Dim iDefaultEntriesNumber as Integer
+    Dim iEntriesNumber as Integer
+    Dim i as Integer
+    Dim sMinWordLength as String
 
-  iDefaultEntriesNumber  = 0
-  iEntriesNumber         = 3
-  sMinWordLength         = "5"
+    iDefaultEntriesNumber  = 0
+    iEntriesNumber         = 3
+    sMinWordLength         = "5"
 
- 'Delete all entries in the list
-  fDeleteAllEntries()
+    printLog "Check the default settings"
+    '/// Check entries
+    '/// delete all entries first
+    '/// input some test words
+    '/// check if some words should are remembered in the entries
+    '/// delete all entries
+    '/// close and reopen dialog, check entries again
 
-  printLog "Check the default settings"
-  '/// Check entries
-  '/// delete all entries first
-  '/// input some test words
-  '/// check if some words should are remembered in the entries
-  '/// delete all entries
-  '/// close and reopen dialog, check entries again
+    Call hNewDocument
+    'Delete all entries in the list
+    Call fDeleteAllEntries()
 
-   Call hNewDocument
-
-   ToolsAutocorrect
-   Active.Setpage TabWortergaenzung
-   Kontext "TabWortergaenzung"
-   if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then
-       Warnlog "Entries number should be " + iDefaultEntriesNumber
-       Warnlog "No test for this case"
-       TabWortergaenzung.Cancel
-       Goto NoTest
-   end if
-   MinWortlaenge.SetText sMinWordLength
-   TabWortergaenzung.OK
+    ToolsAutocorrect
+    Kontext
+    Active.Setpage TabWortergaenzung
+    Kontext "TabWortergaenzung"
+    if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then
+        Warnlog "Entries number should be " + iDefaultEntriesNumber
+        Warnlog "No test for this case"
+        TabWortergaenzung.Cancel
+        Call hCloseDocument
+    end if
+    MinWortlaenge.SetText sMinWordLength
+    TabWortergaenzung.OK
 
     Call wTypeKeys "Hello World ! This is a StarOffice Test .<Return>"
     Sleep 3
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
-       if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber
-       for i = 1 to GesammelteWorte.GetItemCount
-           GesammelteWorte.Select 1
-           if EintragLoeschen.IsEnabled then
-               EintragLoeschen.Click
-           else
-               i = GesammelteWorte.GetItemCount + 1
-           end if
-       next i
-     TabWortergaenzung.OK
-     Sleep 1
+    if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber
+    for i = 1 to GesammelteWorte.GetItemCount
+        GesammelteWorte.Select 1
+        if EintragLoeschen.IsEnabled then
+            EintragLoeschen.Click
+        else
+            i = GesammelteWorte.GetItemCount + 1
+        end if
+    next i
+    TabWortergaenzung.OK
+    Sleep 1
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then Warnlog "Entries number should be " + iDefaultEntriesNumber
     TabWortergaenzung.Cancel
 
-NoTest:
-   Call hCloseDocument
+    Call hCloseDocument
 
 endcase
 
 
 testcase tToolsAutocorrectWordCompletion_3
 
-  Dim aTestWord() as String
-  Dim sPartOfTestWord as String
-  Dim i as Integer
-  Dim j as Integer
+    Dim aTestWord() as String
+    Dim sPartOfTestWord as String
+    Dim i as Integer
+    Dim j as Integer
 
-  aTestWord = Array( _
-                   "accessibility" , _
-                   "accomplish"    , _
-                   "account"       , _
-                   )
-  j = UBound(aTestWord)
+    aTestWord = Array( _
+    "accessibility" , _
+    "accomplish"    , _
+    "account"       , _
+    )
+    j = UBound(aTestWord)
 
-  sPartOfTestWord = "acc"
+    sPartOfTestWord = "acc"
 
-  printLog "Check list of suggestions can be 'scrolled'"
-  '/// Check list of suggestions can be 'scrolled'
+    printLog "Check list of suggestions can be 'scrolled'"
+    '/// Check list of suggestions can be 'scrolled'
 
-  '/// input some test words with first 3 letters are same
-  '/// forward with <CTRL-Tab>
-  '/// backwards with <SHIFT-CTRL-Tab>
-  '/// endless loop test
+    '/// input some test words with first 3 letters are same
+    '/// forward with <CTRL-Tab>
+    '/// backwards with <SHIFT-CTRL-Tab>
+    '/// endless loop test
 
- 'Delete all entries in the list
-  fDeleteAllEntries()
+    Call hNewDocument
+    'Delete all entries in the list
+    Call fDeleteAllEntries()
 
-   Call hNewDocument
-
-   'forward with <CTRL-Tab>
+    'forward with <CTRL-Tab>
     For i = 0 to j
         Call wTypeKeys aTestWord(i)
         Call wTypeKeys "<Return>"
         Call wTypeKeys "<Delete>"
     next i
 
-   'endless loop test
+    'endless loop test
     Call wTypeKeys sPartOfTestWord
     Call wTypeKeys "<MOD1 TAB>", j+1
     Sleep 2
     if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText
     Call wTypeKeys "<Delete>"
 
-   'backwards with <SHIFT-CTRL-Tab>
+    'backwards with <SHIFT-CTRL-Tab>
     For i = j to 0 step -1
         Call wTypeKeys sPartOfTestWord
-
         Call wTypeKeys "<MOD1 TAB>", j
-
         if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i
-
         Sleep 2
         Call wTypeKeys "<Return>"
         Sleep 2
         Call wTypeKeys "<Delete>"
     next i
 
-   'endless loop test
+    'endless loop test
     Call wTypeKeys sPartOfTestWord
     Call wTypeKeys "<Shift MOD1 TAB>"
     Sleep 2
     Sleep 2
     if GetClipboardText <> aTestWord(j) then Warnlog "#102535# Should be " +aTestWord(j) +" but get " +GetClipboardText
 
-   Call hCloseDocument
+    Call hCloseDocument
 
 endcase
 
 
 testcase tToolsAutocorrectWordCompletion_4
 
-  Dim sDefaultMaxEntries as String
-  Dim sTestMaxEntries as String
-  Dim sTestFile as String
-  Dim iTestMaxEntries as Integer
+    Dim sDefaultMaxEntries as String
+    Dim sTestMaxEntries as String
+    Dim sTestFile as String
+    Dim iTestMaxEntries as Integer
 
-  sDefaultMaxEntries  =  "500"
-  sTestMaxEntries     =  "50"
-  sTestFile           =  "tToolsAutocorrectWordCompletion_4.sxw"
-  iTestMaxEntries     =  50
+    sDefaultMaxEntries  =  "500"
+    sTestMaxEntries     =  "50"
+    sTestFile           =  "tToolsAutocorrectWordCompletion_4.sxw"
+    iTestMaxEntries     =  50
 
-  printLog "Test Max entries"
-  '/// Test Max entries
+    printLog "Test Max entries"
+    '/// Test Max entries
 
-  '/// Delete all entries in the list
-  '/// set Max entries to 50
-  '/// Open the test file ( The entries number is > 50 when Max entries is 500)
-  '/// check the number of entries.
+    '/// Delete all entries in the list
+    '/// set Max entries to 50
+    '/// Open the test file ( The entries number is > 50 when Max entries is 500)
+    '/// check the number of entries.
 
- 'Delete all entries in the list
-  fDeleteAllEntries()
-
-   Call hNewDocument
+    Call hNewDocument
+    'Delete all entries in the list
+    Call fDeleteAllEntries()
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     MaxEintraege.SetText sTestMaxEntries
     Sleep 4
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries
 
-     'Recover to default
-      MaxEintraege.SetText sDefaultMaxEntries
-     TabWortergaenzung.OK
+    'Recover to default
+    MaxEintraege.SetText sDefaultMaxEntries
+    TabWortergaenzung.OK
 
-   Call hCloseDocument
+    Call hCloseDocument
 
 endcase
 
 
 testcase tToolsAutocorrectWordCompletion_5
 
-  Dim sTestWord1 as String
-  Dim sTestWord2 as String
-  Dim sTestWord3 as String
-  Dim iEntriesNumber_Checked as Integer
-  Dim iEntriesNumber_UnChecked as Integer
+    Dim sTestWord1 as String
+    Dim sTestWord2 as String
+    Dim sTestWord3 as String
+    Dim iEntriesNumber_Checked as Integer
+    Dim iEntriesNumber_UnChecked as Integer
 
-  sTestWord1               = "kilometer "
-  sTestWord2               = "entertainment "
-  sTestWord3               = "education "
-  iEntriesNumber_Checked   = 3
-  iEntriesNumber_UnChecked = 1
+    sTestWord1               = "kilometer "
+    sTestWord2               = "entertainment "
+    sTestWord3               = "education "
+    iEntriesNumber_Checked   = 3
+    iEntriesNumber_UnChecked = 1
 
-  printLog "Check 'When closing a document, save the list for later use in other documents'"
-  '/// Check 'When closing a document, save the list for later use in other documents'
-  '/// delete all entries first.
-  '/// 1) check when the checkbox is checked
-  '///    a) Open a file, type "kilometer"
-  '///    b) Open 2nd file, type "entertainment" and "education"
-  '///    c) Close 2nd file, the number of entries in first file should be 3
-  '/// 2) check when the checkbox is Unchecked
-  '///    delete all entries , and Uncheck the testing checkbox
-  '///    a) Open a file, type "kilometer"
-  '///    b) Open 2nd file, type "entertainment" and "education"
-  '///    c) Close 2nd file, the number of entries in first file should be 1
+    printLog "Check 'When closing a document, save the list for later use in other documents'"
+    '/// Check 'When closing a document, save the list for later use in other documents'
+    '/// delete all entries first.
+    '/// 1) check when the checkbox is checked
+    '///    a) Open a file, type "kilometer"
+    '///    b) Open 2nd file, type "entertainment" and "education"
+    '///    c) Close 2nd file, the number of entries in first file should be 3
+    '/// 2) check when the checkbox is Unchecked
+    '///    delete all entries , and Uncheck the testing checkbox
+    '///    a) Open a file, type "kilometer"
+    '///    b) Open 2nd file, type "entertainment" and "education"
+    '///    c) Close 2nd file, the number of entries in first file should be 1
 
-  'Test when checkbox is checkec -- default
+    'Test when checkbox is checkec -- default
 
-  'Open 1st file
-   Call hNewDocument
+    'Open 1st file
+    Call hNewDocument
 
     'Delete all entries in the list
-     fDeleteAllEntries()
+    Call fDeleteAllEntries()
 
-     Call wTypeKeys sTestWord1
+    ' check checkbox
+    ToolsAutocorrect
+    Kontext
+    Active.Setpage TabWortergaenzung
+    Kontext "TabWortergaenzung"
+    KeepList.UnCheck
+    TabWortergaenzung.Ok
+
+    Call wTypeKeys sTestWord1
 
     'Open 2nd file
-     Call hNewDocument
+    Call hNewDocument
 
-       Call wTypeKeys sTestWord2
-       Call wTypeKeys sTestWord3
+    Call wTypeKeys sTestWord2
+    Call wTypeKeys sTestWord3
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
-        Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+    Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
     end if
     TabWortergaenzung.Cancel
 
     'Close 2nd file
-     Call hCloseDocument
+    Call hCloseDocument
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
-      if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
-          Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount
-      end if
-     TabWortergaenzung.Cancel
+    if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
+    Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount
+    end if
+    TabWortergaenzung.Cancel
 
-   Call hCloseDocument
+    Call hCloseDocument
 
-  'Test when checkbox is Unchecked
-  'Open 1st file
-   Call hNewDocument
+    'Test when checkbox is Unchecked
+    'Open 1st file
+    Call hNewDocument
 
     'Delete all entries in the list
-     fDeleteAllEntries()
+    fDeleteAllEntries()
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
 
-       KeepList.Uncheck
-     TabWortergaenzung.OK
+    KeepList.Check
+    TabWortergaenzung.OK
 
-     Call wTypeKeys sTestWord1
+    Call wTypeKeys sTestWord1
 
     'Open 2nd file
-     Call hNewDocument
+    Call hNewDocument
 
-       Call wTypeKeys sTestWord2
-       Call wTypeKeys sTestWord3
+    Call wTypeKeys sTestWord2
+    Call wTypeKeys sTestWord3
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then
-        Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+    Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
     end if
     TabWortergaenzung.Cancel
 
     'Close 2nd file
-     Call hCloseDocument
+    Call hCloseDocument
 
     ToolsAutocorrect
+    Kontext
     Active.Setpage TabWortergaenzung
     Kontext "TabWortergaenzung"
     if GesammelteWorte.GetItemCount <> iEntriesNumber_UnChecked then
-        Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
+    Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount
     end if
     TabWortergaenzung.Cancel
 
-    'Recover to the default
-    ToolsAutocorrect
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    KeepList.Check
-    TabWortergaenzung.OK
-
-  'Close 1st file
-   Call hCloseDocument
+    'Close 1st file
+    Call hCloseDocument
 
 endcase
 
 '-------------------------------------------------------------------------
 
-testcase tToolsAutocorrectWordCompletion_x
+testcase tToolsAutocorrectWordCompletion_6
 
-  Dim sTestWord as String
-  Dim sPartOfTestWord as String
+    Dim sTestWord as String
+    Dim sPartOfTestWord as String
 
-  sTestWord       = "StarOffice"
-  sPartOfTestWord = "Sta"
+    sTestWord       = "StarOffice"
+    sPartOfTestWord = "Sta"
 
-  printLog "Check Show as Tip"
-  '/// Check Show as Tip
+    printLog "Check Show as Tip"
+    '/// Check Show as Tip
 
-  '/// When uncheck ( default) , the left word will be highlight
-  '/// When check  , the left word will NOT be appeared,  <--- can test
-  '/// and a help tip will appear       <--- no way to test yet
+    '/// When uncheck ( default) , the left word will be highlight
+    '/// When check  , the left word will NOT be appeared,  <--- can test
+    '/// and a help tip will appear       <--- no way to test yet
 
-  'Show as Tip -- uncheck (default)
-   Call hNewDocument
+    'Show as Tip -- uncheck (default)
+    Call hNewDocument
 
-     Call wTypeKeys sTestWord
-     Call wTypeKeys "<Return>"
-     Sleep 1
-     Call wTypeKeys sPartOfTestWord
-     Sleep 4
-     Call wTypeKeys "<Return>"
-     Call wTypeKeys "<Shift Home>"
+    Call wTypeKeys sTestWord
+    Call wTypeKeys "<Return>"
+    Sleep 1
+    Call wTypeKeys sPartOfTestWord
+    Sleep 4
+    Call wTypeKeys "<Return>"
+    Call wTypeKeys "<Shift Home>"
 
-     Sleep 1
-     Call wTypeKeys "StaS"
-     Sleep 4
-     Call wTypeKeys "<Return>"
+    Sleep 1
+    Call wTypeKeys "StaS"
+    Sleep 4
+    Call wTypeKeys "<Return>"
 
-   Call hCloseDocument
+    Call hCloseDocument
 
 endcase

testautomation/writer/required/includes/w_007_.inc

     Kontext "TabOptionenAutokorrektur"
     Call DialogTest ( TabOptionenAutokorrektur )
     printlog " Step through all options in list"
-    printlog " Tabpage Options: With entry 11 button 'Edit' should be enabled"
-    Einstellungen.TypeKeys "<Down>",11
+    printlog " Tabpage Options: With entry 10 button 'Edit' should be enabled"
+    Einstellungen.TypeKeys "<Down>",10
     Wait 500
     if Bearbeiten.IsEnabled then
         Bearbeiten.Click
         DialogTest (Sonderzeichen)
         Sonderzeichen.Cancel
     else
-        Warnlog "- Button 'Edit' on Entry 11 disabled!"
+        Warnlog "- Button 'Edit' on Entry 10 disabled!"
     end if
 
     Kontext "TabOptionenAutokorrektur"
-    printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled"
+    printlog " Tabpage Options: With entry 16 button 'Edit' should be enabled"
     Einstellungen.TypeKeys "<Down>",6
     Wait 500
     if Bearbeiten.IsEnabled then
     end if
 
     Kontext "TabOptionenAutokorrektur"
-    printlog " Tabpage Options: With entry 19 button 'Edit' should be enabled"
+    printlog " Tabpage Options: With entry 18 button 'Edit' should be enabled"
     Einstellungen.TypeKeys "<Down>",2
     Wait 500
     if Bearbeiten.IsEnabled then

testautomation/writer/tools/includes/w_tools_autocorrection.inc

     case "CapitalizeFirstLetter"       : Einstellungen.TypeKeys "<Down>",2
     case "AutomaticBoldAndUnderline"   : Einstellungen.TypeKeys "<Down>",3
     case "URLRecognition"              : Einstellungen.TypeKeys "<Down>",4
-    case "Replace1st"                  : Einstellungen.TypeKeys "<Down>",5
-    case "Replace1/2"                  : Einstellungen.TypeKeys "<Down>",6
     case "ReplaceDashes"               : Einstellungen.TypeKeys "<Down>",7
     case "DeleteSpaceParagraph"        : Einstellungen.TypeKeys "<Down>",8
     case "DeleteSpaceLine"             : Einstellungen.TypeKeys "<Down>",9