Function DestroyButton

micropolis-activity/src/tk/tkbutton.c:645–728

(clientData)

 *	Everything associated with the widget is freed up.
 *
 *----------------------------------------------------------------------
 */

static void
DestroyButton(clientData)
    ClientData clientData;		/* Info about entry widget. */
{
    register Button *butPtr = (Button *) clientData;

    if (butPtr->text != NULL) {
	ckfree(butPtr->text);
    }
    if (butPtr->textVarName != NULL) {
	Tcl_UntraceVar(butPtr->interp, butPtr->textVarName,
		TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
		ButtonTextVarProc, (ClientData) butPtr);
	ckfree(butPtr->textVarName);
    }
    if (butPtr->bitmap != None) {
#if defined(USE_XPM3)
      Tk_FreePixmap(butPtr->bitmap);
#else
      Tk_FreeBitmap(butPtr->bitmap);
#endif
    }
    if (butPtr->normalBorder != NULL) {
	Tk_Free3DBorder(butPtr->normalBorder);
    }
    if (butPtr->activeBorder != NULL) {
	Tk_Free3DBorder(butPtr->activeBorder);
    }
    if (butPtr->fontPtr != NULL) {
	Tk_FreeFontStruct(butPtr->fontPtr);
    }
    if (butPtr->normalFg != NULL) {
	Tk_FreeColor(butPtr->normalFg);
    }
    if (butPtr->disabledFg != NULL) {
	Tk_FreeColor(butPtr->disabledFg);
    }
    if (butPtr->activeFg != NULL) {
	Tk_FreeColor(butPtr->activeFg);
    }
    if (butPtr->normalTextGC != None) {
	Tk_FreeGC(butPtr->normalTextGC);
    }
    if (butPtr->activeTextGC != None) {
	Tk_FreeGC(butPtr->activeTextGC);
    }
    if (butPtr->gray != None) {
	Tk_FreeBitmap(butPtr->gray);
    }
    if (butPtr->disabledGC != None) {
	Tk_FreeGC(butPtr->disabledGC);
    }
    if (butPtr->selectorFg != NULL) {
	Tk_FreeColor(butPtr->selectorFg);
    }