|
FUNCTION check_text_font (ct : composite_text) : BOOLEAN; LOCAL f : SET OF font_select := [ ] ; END_LOCAL ; REPEAT i := 1 TO HIINDEX ( ct . collected_text ) ; f := f + [ ct . collected_text [ i ] \ text_literal . font ] ; END_REPEAT ; RETURN ( SIZEOF ( f ) <= 1 ) ; END_FUNCTION; -- check_text_font |
|
public class FCheck_text_font public static Value run(SdaiContext _context, Value ct) |