void wgem_gg_panl( char *panl, int *iret ) /************************************************************************ * wgem_gg_panl * * * * This function is a wrapper for gg_panl. * * * * void wgem_gg_panl( panl, iret ) * * * * Input parameters: * * *panl char panel string * * * * Output parameters: * * *iret int return code * ** * * Log: * * E. Safford/SAIC 12/07 initial coding * ***********************************************************************/ { gg_panl( panl, iret, strlen( panl ) ); }
void guitst_rgstrCanvas ( void ) /************************************************************************ * guitst_rgstrCanvas * * * * This function registers the canvas as a gempak window * * * * void guitst_rgstrCanvas() * * * * Input parameters: * * Output parameters: * * Return parameters: * * NONE * * * ** Log: * * C. Lin/EAI 04/96 * * S. Wang/GSC 10/97 modified for guitst * * H. Zeng/EAI 04/00 changed cursor change function * * T. Piper/SAIC 10/04 Moved gg_panl after gclear * ***********************************************************************/ { Window gwin; GC gemgc; char wname[20]; int iret, xdpth; Dimension width, height; /*---------------------------------------------------------------------*/ /* * set the cursor to the default */ NxmCursor_setCursor(_canvasW, CURS_DEFAULT); strcpy(wname, "guitst"); /* * get the window info */ gwin = XtWindow(_canvasW); gemgc = XCreateGC(gemdisplay, gwin, 0, 0); xdpth = DefaultDepth((XtPointer)gemdisplay, DefaultScreen((XtPointer)gemdisplay)); XtVaGetValues(_canvasW, XmNwidth, &width, XmNheight, &height, NULL ); /* * call GEMPAK to register the window (drawing area) * from now on, this drawing area will be GEMPAK's * window identified by name = wname. */ xmotifw( gwin, wname, gemgc, (int)width, (int)height, xdpth, &iret ); /* * set DEVICE in gempak */ gg_motf(wname, &iret, strlen(wname)); /* * clear screen and set panel */ gclear(&iret); gg_panl("0", &iret, 1); }