static status
initialiseText(TextObj t, CharArray string, Name format, FontObj font)
{ if ( isDefault(string) )
string = CtoCharArray("");
initialiseGraphical(t, ZERO, ZERO, ZERO, ZERO);
if ( notDefault(format) )
assign(t, format, format);
if ( notDefault(font) )
assign(t, font, font);
assign(t, underline, OFF);
assign(t, string, string);
assign(t, margin, toInt(100));
assign(t, wrap, NAME_extend);
assign(t, position, newObject(ClassPoint, EAV));
assign(t, caret, getSizeCharArray(string));
assign(t, show_caret, OFF);
assign(t, background, NIL);
assign(t, x_offset, ZERO);
assign(t, x_caret, ZERO);
assign(t, y_caret, ZERO);
assign(t, selection, NIL);
return recomputeText(t, NAME_position);
}
static status
typedIntItem(IntItem ii, EventId id)
{ CharArray save = getCopyCharArray(ii->value_text->string);
status rval = typedTextItem((TextItem)ii, id);
if ( rval &&
!checkType(ii->value_text->string, TypeInt, NIL) &&
getSizeCharArray(ii->value_text->string) != ZERO )
{ displayedValueTextItem((TextItem)ii, save);
return errorPce(ii, NAME_cannotConvertText,
ii->value_text->string, ii->type);
}
doneObject(save);
return rval;
}
