void DoSpellCheck(Vector<EditField::Highlight>& hl, EditField *ef)
{
	WString s = ef->GetText();
	int i = 0;
	while(i < hl.GetCount()) {
		while(i < hl.GetCount() && s[i] == ' ')
			i++;
		bool wrd = true;
		int ii = i;
		WString w;
		while(i < hl.GetCount() && s[i] != ' ') {
			if(IsLetter(s[i]))
				w.Cat(s[i]);
			else
				wrd = false;
			i++;
		}
		if(wrd && w.GetCount() > 1 && !SpellWord(w, LNG_('E','N','U','S')))
			while(ii < i)
				hl[ii++].underline = LtRed();
	}
}

void SpellChecked(EditField& s)
{
	s.WhenHighlight = callback1(DoSpellCheck, &s);
}