🚀 go-pugleaf

saj@chinet.chi.il.us (Stephen Jacobs) writes about dialog trashing. Here is
my code for dialogs. You will get a redraw event upon closing the
dialog if things are set up right. No muss no fuss. This code works
so enjoy! (Its actually part of the user interface from UltraScript).

Here is code to pop up the dialog.

			wind_update(BEG_UPDATE);   
			form_center(who,diptr);
			form_dial(0,1,1,1,1,dibox);
			form_dial(1,1,1,1,1,dibox);
			objc_draw(who,ROOT,MAX_DEPTH,dibox);
			what = form_do(who,0);
			form_dial(2,1,1,1,1,dibox);
			form_dial(3,1,1,1,1,dibox);
			wind_update(END_UPDATE);
			(who+1)->ob_state = NORMAL;   /* Select off */

And here is my code to redraw here:

do_redraw(msg)
int msg[];
{
    int whandle;
    GRECT t1,t2;
    int clip[4];
    lineaa(); /* Mouse off */
    whandle = msg[3];
    t2.g_x  = msg[4];
    t2.g_y  = msg[5];
    t2.g_w  = msg[6];
    t2.g_h  = msg[7];
    wind_update(BEG_UPDATE);

    wind_get(whandle,WF_FIRSTXYWH,&t1.g_x,&t1.g_y,&t1.g_w,&t1.g_h);
    while(t1.g_w && t1.g_h) {
        if(rc_intersect(&t2,&t1)) {
            clip[0] = t1.g_x;
            clip[1] = t1.g_y;
            clip[2] = t1.g_x + t1.g_w - 1;
            clip[3] = t1.g_y + t1.g_h - 1;
            vs_clip(vdihandle,1,clip);
    	    /* Redraw your stuff here */
        }
        wind_get(whandle,WF_NEXTXYWH,&t1.g_x,&t1.g_y,&t1.g_w,&t1.g_h);
    }
    wind_update(END_UPDATE);
    linea9(); /* Mouse on. I would use graf_mouse BUT that is another story */
}





-- 
{decwrl!sun}!imagen!hedley
hedley@imagen.com