OpenEuphoria

Re: EzCreateFont failure

• Posted by Derek Parnell <ddparnell at bigpond.com> Aug 26, 2004
• 413 views

Actually, the last crash was caused by my hastely written
DrawText() wrapper. This one below actually works..

global function DrawText(atom id, sequence text, atom text_len,
                        sequence format_dim, atom format_opt,
                        object addl_format)
    sequence rtn_val
    VOID = text_len
    VOID = addl_format
    rtn_val = drawText	(id, text, format_dim, format_opt, 0,0,0)
    rtn_val = rtn_val[1..2] & rtn_val[3]
    return rtn_val
end function


-- 
Derek Parnell
Melbourne, Australia