/*******************************************************/
     /*                   Widget-Builder                    */
     /* This is an interactive program to build multi-media */
     /* communications interfaces. This program was written */
     /* by Brian Ross Gardner in 1988 as a side-project for */
     /* rapid prototyping of a video mail system project he */
     /* was writing jointly for Athena, DEC, and the Media  */
     /* Laboratory.                                         */
     /*******************************************************/

#include "wb_include.h"
#include "videostuff.h"

#define       WB_VIDEONAME       "ParallaxVideo"


/* ------------------------------------------------------------------- */

int WBis_display_video_workstation(the_display)
     Display *the_display;
 {    /* Is the_display a video display? */
   static int VideoReqCode, first_event, first_error;

   VideoReqCode = 0;
   XQueryExtension(the_display, WB_VIDEONAME, &VideoReqCode,
		   &first_event, &first_error);
   if (VideoReqCode == 0)
     /* Zero is not a legal ReqCode.                             */
     /* If it is still zero, the extension is not in the server. */
     return(FALSE);
   else
     return(TRUE);
 };          /* end of MBis_display_video_workstation()  */

/* ------------------------------------------------------------------- */

int WBisa_video_workstation()   
 {    /* is the application's display a video workstation? */
   extern Display *the_display;

   return(WBis_display_video_workstation(the_display));

 };          /* end of MBisa_video_workstation()  */

/* ------------------------------------------------------------------- */