View Raw SPL
/* add a title to a window */
wintitle(title, justify, color)
{
        local loc, h;

        if (argc < 3)
        {
                if (argc < 2)
                {
                        if (argc < 1) error("wintitle - title string required");
                        
                        /* center */
                        justify = 0;
                }
                
                color = -1;
        }

        /* win title */
        texttitler(title, justify, color, 3, WINTITLE_FONT, TOP, "win_title");
}