[qa-dev] [Automation]A question about c_updt1.bas

[Zhu Lihua]

Hi all,

I have a question about c_updt1.bas.

I don't know why about the following position pointed.

Now we meet a problem. When the default font is the last one, 
Schrift.Select(Schrift.GetSelIndex +1)
will result in an error. Because there is no such entry.

I'm going to fix this problem, but I can't think out the purpose. So I consult 
you.

Thanks a lot.

<quote>

testcase tInsertSpecialCharacters
'///<u><b>Insert - Special Characters</b></u>
    '///Open new Spreadsheet document
    printlog " Open new Spreadsheet document"   
    call hNewDocument
    '/// Open 'Special Characters' �C dialog by 'Insert �C Special Characters'
    printlog " Open 'Special Characters' �C dialog by 'Insert �C Special 
Characters'"
    InsertSpecialCharacterCalc
    Kontext "Sonderzeichen"
    DialogTest ( Sonderzeichen )
    '/// Change 'Font' to next one  <------------------------- Why goes to next 
font?
    printlog " Change 'Font' to next one"
    Schrift.Select(Schrift.GetSelIndex +1)
    '/// Change 'Subset' to next one  <-------------------------Why goes to 
next one?
    printlog " Change 'Subset' to next one"
    If Subset.IsVisible then
        Subset.Select(Subset.GetSelIndex +1)
    end if
    '/// Choose a character by clicking
    printlog " Choose a character by clicking"
    Zeichenanzeige.MouseDown 50,50
    Zeichenanzeige.MouseUp 50,50
    '/// Delete character by 'Delete'
    printlog " Delete character by 'Delete'"
    Loeschen.Click
    '/// Close 'Special Characters' �C dialog with 'Cancel'
    printlog " Close 'Special Characters' �C dialog with 'Cancel'"
    Sonderzeichen.Cancel
    '/// Close document
    printlog " Close starting document"
    call hCloseDocument
endcase

</quote>
2008-12-05 



Zhu Lihua