dim sAllSymbols as string

- dim lAllSymbols(100) as string

- dim lAllSymbolsSort(100) as string

+ dim lAllSymbols(200) as string

+ dim lAllSymbolsSort(200) as string

dim sFilterName as string

'/// There are 2 Symbol sets: 1. 'Greek' with 54 entries and 2. 'Special' with 12 entries ///'

'///+ These symbol set names are availble in 2 listboxes 1. 'Old Symbol Set' and 2. 'Symbol Set' ///'

iSymbolSets = OldSymbolSet.GetItemCount

- if (iSymbolSets <> 2) then

- WarnLog "- OldSymbolSet: '" + iSymbolSets + "' is not 2; expected is 2. ('Special' and 'Greek')"

+ if (iSymbolSets <> 3) then

+ WarnLog "- OldSymbolSet: '" + iSymbolSets + "' is not 3; expected is 3. ('Special' and 'Greek' and 'iGreek')"

qaErrorLog "- " + i + ": '" + OldSymbolSet.GetItemText(i) + "'"

'///+ insert the copied text into the document ///'

DocumentWriter.typeKeys "<Mod1 End> - " + sTemp + ": " + j + "<Tab>"

sAllSymbols = sAllSymbols + sTemp

- listAppend(lAllSymbols(), sTemp)

+ listAppend(lAllSymbols(), rTrim(sTemp))

- if (listCount(lAllSymbols()) <> 66) then

- warnlog "There have to be 66 Symbols, but there are: " + listCount(lAllSymbols())

+ if (listCount(lAllSymbols()) <> 106) then

+ warnlog "There have to be 106 Symbols, but there are: " + listCount(lAllSymbols())

' TODO: check sAllSymbols for not allowed characters!

listCopy(lAllSymbols(),lAllSymbolsSort())

if EditSymbols.exists then

iStartingSymbolSetCount = SymbolSet.getItemCount

- if iStartingSymbolSetCount <> 2 then

- qaErrorLog "There are already other symbolsets, instead of 2: " + iStartingSymbolSetCount

+ if iStartingSymbolSetCount <> 3 then

+ qaErrorLog "There are already other symbolsets, instead of 3: " + iStartingSymbolSetCount

for i = 1 to iStartingSymbolSetCount

printlog "("+i+"/"+iStartingSymbolSetCount+"): '" + SymbolSet.getItemText (i) + "'"

j = symbolset.getItemCount

- warnlog "There is a number != 2 of symbollists listed"

+ warnlog "There is a number != 3 of symbollists listed"

printlog "Everything is cleaned up."