FUNCTION check_text_alignment
(ct : composite_text) : BOOLEAN;
LOCAL
a : SET OF text_alignment := [];
END_LOCAL;
-- create a SET OF all the alignments
REPEAT i := 1 TO HIINDEX (ct.collected_text);
a := a + [ct.collected_text[i]\text_literal.alignment];
END_REPEAT;
-- IF there is more than one element IN the set
-- THEN NOT all alignments were the same
RETURN (SIZEOF(a) = 1); END_FUNCTION; -- check_text_alignment
|