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);
}
