🚀 go-pugleaf

In article <5016@amiga.UUCP> jimm@batgirl.UUCP (Jim Mackraz) writes:
>In article <8976@cbmvax.commodore.com> mks@cbmvax.commodore.com (Michael Sinz - CATS) writes:

Alright already!

Here is the actual code extract from the hyperhelp program.
It deals with fonts too, but you can cut that out yerslevs.

void
CWS(win,font)
    struct Window *win;
    struct TextFont *font;
{
    struct MsgPort *mp = (struct MsgPort *)win->UserPort;
    struct IntuiMessage *im, *succ;

    if(win==0) {
	return;
    }
    removemenu(win);
    Forbid();
    im = (struct IntuiMessage *)mp->mp_MsgList.lh_Head;
    while ( succ=(struct IntuiMessage *)im->ExecMessage.mn_Node.ln_Succ ) {
       if ( im->IDCMPWindow == win ) {
	  Remove ( im );
	  ReplyMsg( im );
       }
       im = succ;
    }
    win->UserPort = 0;
    ModifyIDCMP( win, 0L );
    Permit();
    CloseWindow( win );
    if(font) CloseFont(font);
}
 Joe Porkka   porkka@frith.egr.msu.edu