Draw a string in the given font
object. If only X and Y are given, they describe the left-side of the
baseline. If W and H are given, the text is positioned in a box
according the the alignment-specifiers hadjust an vadjust. The box
described by X,Y,W,H does not need to be large enough to contain the
text. For example, a box of size 0.0 and
hadjust/vadjust center/center may be used to center text around a point.
Multiple lines are aligned according to hadjust (default: left).
The redraw-method below draws a text-box:
'_redraw_area'(TB, _Area:area) :->
"Redraw text-box"::
get_object(TB, area, area(X,Y,W,H)),
send(TB, draw_box, X, Y, W, H),
get(TB, font, Font),
get(TB, string, String),
send(TB, draw_text, String, Font,
X, Y, W, H, center, center).
This method is part of the user-defined graphics infra-structure
described with graphical->_redraw_area
and should not be called outside this context.
