report_win_label(screen, code, text, ok) TScreen	*screen; int code; XTextProperty *text; Status ok;
report_win_label( TScreen	*screen, int code, XTextProperty *text, Status ok)
report_win_label(screen, code, text, ok)	TScreen	*screen;	int code;	XTextProperty *text;	Status ok;{	char **list;	int length = 0;	reply.a_type = ESC;	unparseputc(ESC, screen->respond);	unparseputc(']', screen->respond);	unparseputc(code, screen->respond);	if (ok) {		if (XTextPropertyToStringList(text, &list, &length)) {			int n, c;			for (n = 0; n < length; n++) {				char *s = list[n];				while ((c = *s++) != '\0')					unparseputc(c, screen->respond);			}			XFreeStringList(list);		}		if (text->value != 0)			XFree(text->value);	}	unparseputc(ESC, screen->respond);	unparseputc('\\', screen->respond);}