LOCAL
    f : SET  OF  font_select := [];
  END_LOCAL;

  -- build a SET OF all the fonts
  REPEAT i := 1 TO HIINDEX (ct.collected_text);
    f := f + [ct.collected_text[i]\text_literal.font];
  END_REPEAT;

  -- IF there is more than one element IN the set
  -- THEN NOT all fonts were the same
  RETURN (SIZEOF(f) <= 1);