View Raw SPL
/* set plot style - accounts for stripchart */
_setpltstyle(s)
{
        local f;

        /* stripchart and not a table */
        if (getplottype == 7 && s != 4)
        {
                f = getfocus();
                focus(1);
                setplotstyle(s, f);
                focus(f);
        }
        else
        {
                if (getplottype != 7)
                {
                        setplottype(0);
                }
                else if (s == 4)
                {
                        /* setting table from stripchart */
                        focus(1);
                }
                setplotstyle(s);
        }
}