Listing 5

/***  activate message dispatcher ***/

void do_activate(event)
EventRecord event;
{
  WindowPtr window;
  WIND      *windinfo;
  
  window = (WindowPtr)event.message;
  
  windinfo =
    (WIND *)GetWRefCon(window);
  
  (*windinfo->activateproc)(window,windinfo);
}