adding zephyr-im master branch
This commit is contained in:
833
zwgc/xshow.c
Normal file
833
zwgc/xshow.c
Normal file
@ -0,0 +1,833 @@
|
||||
/* This file is part of the Project Athena Zephyr Notification System.
|
||||
* It is one of the source files comprising zwgc, the Zephyr WindowGram
|
||||
* client.
|
||||
*
|
||||
* Created by: Marc Horowitz <marc@athena.mit.edu>
|
||||
*
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
|
||||
* For copying and distribution information, see the file
|
||||
* "mit-copyright.h".
|
||||
*/
|
||||
|
||||
#include <sysdep.h>
|
||||
|
||||
#if (!defined(lint) && !defined(SABER))
|
||||
static const char rcsid_xshow_c[] = "$Id$";
|
||||
#endif
|
||||
|
||||
#include <zephyr/mit-copyright.h>
|
||||
|
||||
#ifndef X_DISPLAY_MISSING
|
||||
|
||||
#include <X11/Xlib.h>
|
||||
#include <X11/Xutil.h>
|
||||
#include <X11/Xresource.h>
|
||||
#include <zephyr/zephyr.h>
|
||||
#include "pointer_dictionary.h"
|
||||
#include "new_memory.h"
|
||||
#include "new_string.h"
|
||||
#include "formatter.h"
|
||||
#include "variables.h"
|
||||
#include "zwgc.h"
|
||||
#include "X_driver.h"
|
||||
#include "X_fonts.h"
|
||||
#include "X_gram.h"
|
||||
#include "xmode_stack.h"
|
||||
#ifdef CMU_ZWGCPLUS
|
||||
#include <zephyr/zephyr.h>
|
||||
#include "xrevstack.h"
|
||||
#include "plus.h"
|
||||
#include "xcut.h"
|
||||
#endif
|
||||
|
||||
#define max(a,b) ((a)>(b)?(a):(b))
|
||||
|
||||
XContext desc_context;
|
||||
|
||||
extern int internal_border_width;
|
||||
extern unsigned long default_bgcolor;
|
||||
extern unsigned long default_fgcolor;
|
||||
|
||||
void
|
||||
xshowinit(void)
|
||||
{
|
||||
desc_context = XUniqueContext();
|
||||
}
|
||||
|
||||
struct res_dict_type {
|
||||
pointer_dictionary dict;
|
||||
char * resname_suffix;
|
||||
char * resclass;
|
||||
};
|
||||
|
||||
static char *
|
||||
xres_get_resource(struct res_dict_type *restype,
|
||||
char *style)
|
||||
{
|
||||
char *desc;
|
||||
pointer_dictionary_binding *binding;
|
||||
int exists;
|
||||
char *value;
|
||||
|
||||
desc=string_Concat("style.", style);
|
||||
desc=string_Concat2(desc, restype->resname_suffix);
|
||||
|
||||
if (!restype->dict)
|
||||
restype->dict = pointer_dictionary_Create(37);
|
||||
binding = pointer_dictionary_Define(restype->dict, desc, &exists);
|
||||
|
||||
if (exists) {
|
||||
free(desc);
|
||||
return((string) binding->value);
|
||||
} else {
|
||||
value=get_string_resource(desc, restype->resclass);
|
||||
free(desc);
|
||||
if (value==NULL)
|
||||
pointer_dictionary_Delete(restype->dict, binding);
|
||||
else
|
||||
binding->value=(pointer) value;
|
||||
return value; /* If resource returns NULL, return NULL also */
|
||||
}
|
||||
}
|
||||
|
||||
static struct res_dict_type geometry_resources = {
|
||||
NULL, ".geometry", "StyleKey.Style1.Style2.Style3.GeometryKey",
|
||||
};
|
||||
|
||||
static struct res_dict_type bgcolor_resources = {
|
||||
NULL, ".background", "StyleKey.Style1.Style2.Style3.BackgroundKey",
|
||||
};
|
||||
|
||||
#define xres_get_geometry(style) xres_get_resource(&geometry_resources,style)
|
||||
#define xres_get_bgcolor(style) xres_get_resource(&bgcolor_resources,style)
|
||||
|
||||
static struct res_dict_type fgcolor_resources = {
|
||||
NULL, ".foreground",
|
||||
"StyleKey.Style1.Style2.Style3.SubstyleKey.Substyle.ForegroundKey",
|
||||
};
|
||||
|
||||
/*ARGSUSED*/
|
||||
static char *
|
||||
mode_to_colorname (Display *dpy,
|
||||
char *style,
|
||||
xmode *mode)
|
||||
{
|
||||
char *desc, *result;
|
||||
|
||||
desc = string_Concat (style, ".substyle.");
|
||||
desc = string_Concat2 (desc, mode->substyle);
|
||||
result = xres_get_resource (&fgcolor_resources, desc);
|
||||
free (desc);
|
||||
return result;
|
||||
}
|
||||
|
||||
static void
|
||||
fixup_and_draw(Display *dpy,
|
||||
char *style,
|
||||
xauxblock *auxblocks,
|
||||
xblock *blocks,
|
||||
int num,
|
||||
xlinedesc *lines,
|
||||
int numlines,
|
||||
int beepcount)
|
||||
{
|
||||
int gram_xalign = 1;
|
||||
int gram_yalign = 1;
|
||||
int gram_xpos, gram_ypos, gram_xsize, gram_ysize;
|
||||
|
||||
x_gram *gram;
|
||||
int strindex = 0;
|
||||
|
||||
int line, block=0;
|
||||
int maxwidth=0, chars=0, maxascent, maxdescent;
|
||||
int ssize, lsize,csize, rsize, width = 0;
|
||||
int i, ascent, descent;
|
||||
|
||||
int yofs = internal_border_width;
|
||||
int lofs, cofs, rofs;
|
||||
int ystart,yend;
|
||||
|
||||
char *bgstr, *geometry, xpos[10], ypos[10], xfrom, yfrom;
|
||||
XFontSetExtents *fse;
|
||||
|
||||
gram = (x_gram *)malloc(sizeof(x_gram));
|
||||
|
||||
/* Find total lengths of left, center, and right parts. Also find the
|
||||
length of the longest line and the total number of characters. */
|
||||
|
||||
for (line = 0; line < numlines; line++) {
|
||||
lsize = csize = rsize = 0;
|
||||
maxascent = maxdescent = 0;
|
||||
|
||||
/* add up sizes for each block, get max ascent and descent */
|
||||
|
||||
for (i = 0; i < lines[line].numblock; i++, block++) {
|
||||
chars += auxblocks[block].len;
|
||||
#ifdef X_HAVE_UTF8_STRING
|
||||
ssize = Xutf8TextEscapement(auxblocks[block].font,
|
||||
blocks[block].wstr,
|
||||
blocks[block].wlen);
|
||||
#else
|
||||
ssize = XwcTextEscapement(auxblocks[block].font,
|
||||
(wchar_t *)blocks[block].wstr,
|
||||
blocks[block].wlen);
|
||||
#endif
|
||||
auxblocks[block].width = ssize;
|
||||
fse = XExtentsOfFontSet(auxblocks[block].font);
|
||||
ascent = -fse->max_logical_extent.y;
|
||||
descent = fse->max_logical_extent.y + fse->max_logical_extent.height;
|
||||
if (ascent > maxascent)
|
||||
maxascent = ascent;
|
||||
if (descent > maxdescent)
|
||||
maxdescent = descent;
|
||||
switch (auxblocks[block].align) {
|
||||
case LEFTALIGN:
|
||||
lsize += ssize;
|
||||
break;
|
||||
|
||||
case CENTERALIGN:
|
||||
csize += ssize;
|
||||
break;
|
||||
|
||||
case RIGHTALIGN:
|
||||
rsize += ssize;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
/* save what we need to do size fixups */
|
||||
|
||||
if (maxascent > lines[line].ascent)
|
||||
lines[line].ascent = maxascent;
|
||||
if (maxdescent > lines[line].descent)
|
||||
lines[line].descent = maxdescent;
|
||||
lines[line].lsize = lsize;
|
||||
lines[line].csize = csize;
|
||||
lines[line].rsize = rsize;
|
||||
|
||||
/* get width of line and see if it is bigger than the max width */
|
||||
|
||||
switch ((lsize ? 1 : 0) + (csize ?2 : 0) + (rsize ? 4 : 0)) {
|
||||
#ifdef DEBUG
|
||||
default:
|
||||
abort();
|
||||
#endif
|
||||
|
||||
case 0:
|
||||
width = 0;
|
||||
break;
|
||||
|
||||
case 1:
|
||||
width = lsize;
|
||||
break;
|
||||
|
||||
case 2:
|
||||
width = csize;
|
||||
break;
|
||||
|
||||
case 3:
|
||||
/* in all these cases, we just want to add the width of *any*
|
||||
space, so the first font will do just fine. */
|
||||
/* XXX implicit assumption that a line must have at least one
|
||||
block, so that there is indeed a reasonable font in
|
||||
auxblocks[0].font */
|
||||
width = lsize * 2 + csize + XmbTextEscapement(auxblocks[0].font, " ", 1);
|
||||
break;
|
||||
|
||||
case 4:
|
||||
width = rsize;
|
||||
break;
|
||||
|
||||
case 5:
|
||||
width = lsize + rsize + XmbTextEscapement(auxblocks[0].font, " ", 1);
|
||||
break;
|
||||
|
||||
case 6:
|
||||
width = csize + rsize * 2 + XmbTextEscapement(auxblocks[0].font, " ", 1);
|
||||
break;
|
||||
|
||||
case 7:
|
||||
width = max(lsize, rsize) * 2 + csize +
|
||||
XmbTextEscapement(auxblocks[0].font, " ", 1) * 2;
|
||||
break;
|
||||
}
|
||||
if (width > maxwidth)
|
||||
maxwidth = width;
|
||||
}
|
||||
|
||||
/* fixup x,y for each block, create big string and indices into it */
|
||||
/* set x1,y1,x2,y2 of each block also. */
|
||||
|
||||
gram->text = (char *)malloc(chars);
|
||||
block = 0;
|
||||
|
||||
for (line = 0; line < numlines; line++) {
|
||||
lofs = internal_border_width;
|
||||
cofs = ((maxwidth - lines[line].csize) >> 1) + internal_border_width;
|
||||
rofs = maxwidth - lines[line].rsize + internal_border_width;
|
||||
ystart = yofs;
|
||||
yofs += lines[line].ascent;
|
||||
yend = yofs + lines[line].descent + 1; /* +1 because lines look scrunched
|
||||
without it. */
|
||||
|
||||
for (i = 0; i < lines[line].numblock; i++, block++) {
|
||||
blocks[block].font = auxblocks[block].font;
|
||||
switch (auxblocks[block].align) {
|
||||
case LEFTALIGN:
|
||||
blocks[block].x = lofs;
|
||||
blocks[block].x1 = lofs;
|
||||
lofs += auxblocks[block].width;
|
||||
blocks[block].x2 = lofs;
|
||||
break;
|
||||
|
||||
case CENTERALIGN:
|
||||
blocks[block].x = cofs;
|
||||
blocks[block].x1 = cofs;
|
||||
cofs += auxblocks[block].width;
|
||||
blocks[block].x2 = cofs;
|
||||
break;
|
||||
|
||||
case RIGHTALIGN:
|
||||
blocks[block].x = rofs;
|
||||
blocks[block].x1 = rofs;
|
||||
rofs += auxblocks[block].width;
|
||||
blocks[block].x2 = rofs;
|
||||
break;
|
||||
}
|
||||
blocks[block].y = yofs;
|
||||
blocks[block].y1 = ystart;
|
||||
blocks[block].y2 = yend;
|
||||
blocks[block].strindex = strindex;
|
||||
blocks[block].strlen = auxblocks[block].len;
|
||||
strncpy(gram->text + strindex, auxblocks[block].str,
|
||||
auxblocks[block].len);
|
||||
strindex += blocks[block].strlen;
|
||||
}
|
||||
|
||||
yofs = yend;
|
||||
|
||||
}
|
||||
|
||||
geometry = var_get_variable("X_geometry");
|
||||
if (geometry[0] == '\0')
|
||||
geometry = xres_get_geometry(style);
|
||||
if (geometry == NULL)
|
||||
geometry = var_get_variable("default_X_geometry");
|
||||
if (geometry[0] == '\0')
|
||||
geometry = "+0+0";
|
||||
|
||||
sscanf(geometry, "%c%[0123456789c]%c%[0123456789c]", &xfrom, xpos,
|
||||
&yfrom, ypos);
|
||||
|
||||
if (xpos[0] == 'c') {
|
||||
gram_xalign = 0;
|
||||
gram_xpos = 0;
|
||||
} else
|
||||
gram_xpos = atoi(xpos);
|
||||
if (xfrom == '-')
|
||||
gram_xalign *= -1;
|
||||
|
||||
if (ypos[0] == 'c') {
|
||||
gram_yalign = 0;
|
||||
gram_ypos = 0;
|
||||
} else
|
||||
gram_ypos = atoi(ypos);
|
||||
if (yfrom == '-')
|
||||
gram_yalign *= -1;
|
||||
|
||||
bgstr = var_get_variable("X_background");
|
||||
if (bgstr[0] == '\0')
|
||||
bgstr = xres_get_bgcolor(style);
|
||||
if (bgstr == NULL)
|
||||
bgstr = var_get_variable("default_X_background");
|
||||
if (bgstr[0]=='\0')
|
||||
gram->bgcolor = default_bgcolor;
|
||||
|
||||
if (bgstr && bgstr[0])
|
||||
gram->bgcolor = x_string_to_color(bgstr, default_bgcolor);
|
||||
|
||||
gram_xsize = maxwidth + (internal_border_width << 1);
|
||||
gram_ysize = yofs + internal_border_width;
|
||||
gram->numblocks = num;
|
||||
gram->blocks = blocks;
|
||||
#ifdef CMU_ZWGCPLUS
|
||||
gram->notice = get_stored_notice();
|
||||
#endif
|
||||
|
||||
x_gram_create(dpy, gram, gram_xalign, gram_yalign, gram_xpos,
|
||||
gram_ypos, gram_xsize, gram_ysize, beepcount);
|
||||
}
|
||||
|
||||
/* Silly almost-but-not-quite-useless helper function */
|
||||
static char *
|
||||
no_dots_downcase_var(char *str)
|
||||
{
|
||||
register char *var, *var2;
|
||||
|
||||
var = string_Downcase(var_get_variable(str));
|
||||
var2 = var;
|
||||
while (*var++)
|
||||
if (*var == '.')
|
||||
*var = '_';
|
||||
return(var2);
|
||||
}
|
||||
|
||||
inline static XFontSet
|
||||
mode_to_font(Display *dpy, char *style, xmode *mode) {
|
||||
return get_font(dpy,
|
||||
style,
|
||||
mode->font ? mode->font : mode->substyle,
|
||||
mode->size,
|
||||
mode->bold + mode->italic * 2);
|
||||
}
|
||||
|
||||
inline static int
|
||||
envmatch(desctype *desc, char *str) {
|
||||
int len = strlen(str);
|
||||
return desc->len == len && strncasecmp(desc->str, str, len) == 0;
|
||||
}
|
||||
|
||||
void
|
||||
xshow(Display *dpy, desctype *desc, int numstr, int numnl)
|
||||
{
|
||||
XFontSet font;
|
||||
XFontSetExtents *fse;
|
||||
xmode_stack modes = xmode_stack_create();
|
||||
xmode curmode;
|
||||
xlinedesc *lines;
|
||||
xblock *blocks;
|
||||
xauxblock *auxblocks;
|
||||
int nextblock=0;
|
||||
int line=0,linestart=0;
|
||||
char *style;
|
||||
int free_style = 0;
|
||||
int beepcount = 0;
|
||||
char *notice_charset = var_get_variable("notice_charset");
|
||||
int i;
|
||||
|
||||
lines = (xlinedesc *)malloc(sizeof(xlinedesc) * (numnl + 1));
|
||||
|
||||
blocks = (xblock *)malloc(sizeof(xblock) * numstr);
|
||||
auxblocks = (xauxblock *)malloc(sizeof(xauxblock) * numstr);
|
||||
|
||||
memset(&curmode, 0, sizeof(curmode));
|
||||
curmode.bold = 0;
|
||||
curmode.italic = 0;
|
||||
curmode.size = MEDIUM_SIZE;
|
||||
curmode.align = LEFTALIGN;
|
||||
curmode.expcolor = 0;
|
||||
curmode.substyle = string_Copy("default");
|
||||
curmode.font = NULL;
|
||||
|
||||
style = var_get_variable("style");
|
||||
if (style[0] == '\0') {
|
||||
style = string_Concat(no_dots_downcase_var("class"), ".");
|
||||
style = string_Concat2(style, no_dots_downcase_var("instance"));
|
||||
style = string_Concat2(style, ".");
|
||||
style = string_Concat2(style, no_dots_downcase_var("sender"));
|
||||
string_Downcase(style);
|
||||
free_style = 1;
|
||||
}
|
||||
|
||||
for (; desc->code != DT_EOF; desc = desc->next) {
|
||||
switch (desc->code) {
|
||||
case DT_ENV:
|
||||
xmode_stack_push(modes, curmode);
|
||||
curmode.substyle = string_Copy(curmode.substyle);
|
||||
if (curmode.font)
|
||||
curmode.font = string_Copy(curmode.font);
|
||||
if (envmatch(desc, "roman")) {
|
||||
curmode.bold = 0;
|
||||
curmode.italic = 0;
|
||||
} else if (envmatch(desc, "bold") || envmatch(desc, "b"))
|
||||
curmode.bold = 1;
|
||||
else if (envmatch(desc, "italic") || envmatch(desc, "i"))
|
||||
curmode.italic = 1;
|
||||
else if (envmatch(desc, "large"))
|
||||
curmode.size = LARGE_SIZE;
|
||||
else if (envmatch(desc, "medium"))
|
||||
curmode.size = MEDIUM_SIZE;
|
||||
else if (envmatch(desc, "small"))
|
||||
curmode.size = SMALL_SIZE;
|
||||
else if (envmatch(desc, "left") || envmatch(desc, "l"))
|
||||
curmode.align = LEFTALIGN;
|
||||
else if (envmatch(desc, "center") || envmatch(desc, "c"))
|
||||
curmode.align = CENTERALIGN;
|
||||
else if (envmatch(desc, "right") || envmatch(desc, "r"))
|
||||
curmode.align = RIGHTALIGN;
|
||||
else if (envmatch(desc, "beep"))
|
||||
beepcount++;
|
||||
else if (envmatch(desc, "font")) {
|
||||
/* lookahead needed. desc->next->str should be the
|
||||
font name, and desc->next->next->code should be
|
||||
a DT_END*/
|
||||
if ((desc->next) &&
|
||||
(desc->next->next) &&
|
||||
(desc->next->code == DT_STR) &&
|
||||
(desc->next->next->code == DT_END)) {
|
||||
|
||||
/* Since @font mutates the current environment, we have
|
||||
to pop the environment that this case usually pushes */
|
||||
free(curmode.substyle);
|
||||
curmode = xmode_stack_top(modes);
|
||||
xmode_stack_pop(modes);
|
||||
|
||||
/* mutating... */
|
||||
curmode.size = SPECIAL_SIZE; /* This is an @font() */
|
||||
curmode.font = string_CreateFromData(desc->next->str,
|
||||
desc->next->len);
|
||||
/* skip over the rest of the @font */
|
||||
desc = desc->next->next;
|
||||
}
|
||||
} else if (envmatch(desc, "color")) {
|
||||
/* lookahead needed. desc->next->str should be the
|
||||
font name, and desc->next->next->code should be
|
||||
a DT_END*/
|
||||
if ((desc->next) &&
|
||||
(desc->next->next) &&
|
||||
(desc->next->code == DT_STR) &&
|
||||
(desc->next->next->code == DT_END)) {
|
||||
char *colorname;
|
||||
|
||||
/* Since @font mutates the current environment, we have
|
||||
to pop the environment that this case usually pushes */
|
||||
free(curmode.substyle);
|
||||
curmode = xmode_stack_top(modes);
|
||||
xmode_stack_pop(modes);
|
||||
|
||||
/* mutating... */
|
||||
colorname = string_CreateFromData(desc->next->str,
|
||||
desc->next->len);
|
||||
curmode.color = x_string_to_color(colorname, default_fgcolor);
|
||||
free(colorname);
|
||||
curmode.expcolor = 1;
|
||||
/* skip over the rest of the @font */
|
||||
desc = desc->next->next;
|
||||
}
|
||||
} else if (desc->len > 0) { /* avoid @{...} */
|
||||
free(curmode.substyle);
|
||||
if (curmode.font) {
|
||||
free(curmode.font);
|
||||
curmode.font = NULL;
|
||||
}
|
||||
curmode.substyle = string_CreateFromData(desc->str, desc->len);
|
||||
}
|
||||
break;
|
||||
|
||||
case DT_STR:
|
||||
auxblocks[nextblock].align = curmode.align;
|
||||
auxblocks[nextblock].font = mode_to_font(dpy, style, &curmode);
|
||||
auxblocks[nextblock].str = desc->str;
|
||||
auxblocks[nextblock].len = desc->len;
|
||||
i = ZTransliterate(desc->str, desc->len,
|
||||
strcmp(notice_charset, "UNKNOWN") ?
|
||||
notice_charset : "ISO-8859-1",
|
||||
#ifdef X_HAVE_UTF8_STRING
|
||||
"UTF-8",
|
||||
#else
|
||||
"UTF-16BE",
|
||||
#endif
|
||||
&blocks[nextblock].wstr,
|
||||
&blocks[nextblock].wlen);
|
||||
if (i) {
|
||||
var_set_variable("error", strerror(i));
|
||||
#ifdef X_HAVE_UTF8_STRING
|
||||
blocks[nextblock].wlen = desc->len;
|
||||
blocks[nextblock].wstr = strdup(desc->str);
|
||||
#else
|
||||
blocks[nextblock].wlen = desc->len * 2;
|
||||
blocks[nextblock].wstr = malloc(blocks[nextblock].wlen);
|
||||
for (i = 0; i < desc->len; i++)
|
||||
*(short *)&(blocks[nextblock].wstr[i * 2]) = htons((short)(unsigned char)desc->str[i]);
|
||||
/* XXX */
|
||||
#endif
|
||||
}
|
||||
#ifndef X_HAVE_UTF8_STRING
|
||||
blocks[nextblock].wlen /= 2;
|
||||
#endif
|
||||
if (curmode.expcolor)
|
||||
blocks[nextblock].fgcolor = curmode.color;
|
||||
else
|
||||
blocks[nextblock].fgcolor =
|
||||
x_string_to_color(mode_to_colorname(dpy, style, &curmode),
|
||||
default_fgcolor);
|
||||
nextblock++;
|
||||
break;
|
||||
|
||||
case DT_END:
|
||||
free(curmode.substyle);
|
||||
curmode = xmode_stack_top(modes);
|
||||
xmode_stack_pop(modes);
|
||||
break;
|
||||
|
||||
case DT_NL:
|
||||
lines[line].startblock = linestart;
|
||||
lines[line].numblock = nextblock-linestart;
|
||||
font = mode_to_font(dpy, style, &curmode);
|
||||
fse = XExtentsOfFontSet(font);
|
||||
lines[line].ascent = -fse->max_logical_extent.y;
|
||||
lines[line].descent = fse->max_logical_extent.y +
|
||||
fse->max_logical_extent.height;
|
||||
line++;
|
||||
linestart = nextblock;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
/* case DT_EOF: will drop through to here. */
|
||||
|
||||
if (linestart != nextblock) {
|
||||
lines[line].startblock = linestart;
|
||||
lines[line].numblock = nextblock-linestart;
|
||||
font = mode_to_font(dpy, style, &curmode);
|
||||
lines[line].ascent = 0;
|
||||
lines[line].descent = 0;
|
||||
line++;
|
||||
}
|
||||
|
||||
free(curmode.substyle);
|
||||
fixup_and_draw(dpy, style, auxblocks, blocks, nextblock, lines, line,
|
||||
beepcount);
|
||||
free(lines);
|
||||
free(auxblocks);
|
||||
if (free_style)
|
||||
free(style);
|
||||
}
|
||||
|
||||
static void
|
||||
xhandleevent(Display *dpy,
|
||||
Window w,
|
||||
XEvent *event)
|
||||
{
|
||||
XPointer gramp; /* Avoid strict aliasing violation */
|
||||
x_gram *gram;
|
||||
|
||||
if (XFindContext(dpy, w, desc_context, &gramp))
|
||||
return;
|
||||
gram = (x_gram *)gramp;
|
||||
|
||||
if (event->type == Expose)
|
||||
x_gram_expose(dpy, w, gram,&(event->xexpose));
|
||||
else
|
||||
xcut(dpy, event, desc_context);
|
||||
|
||||
XFlush(dpy);
|
||||
}
|
||||
|
||||
void
|
||||
x_get_input(Display *dpy)
|
||||
{
|
||||
XEvent event;
|
||||
|
||||
dprintf1("Entering x_get_input(%lx).\n",(unsigned long)dpy);
|
||||
|
||||
/*
|
||||
* Kludge to get around lossage in XPending:
|
||||
*
|
||||
* (the problem: XPending on a partial packet returns 0 without
|
||||
* reading in the packet. This causes a problem when the X server
|
||||
* dies in the middle of sending a packet.)
|
||||
*/
|
||||
if (XPending(dpy)==0)
|
||||
XNoOp(dpy); /* Ensure server is still with us... */
|
||||
|
||||
while (XPending(dpy)) {
|
||||
XNextEvent(dpy,&event);
|
||||
xhandleevent(dpy, event.xany.window, &event);
|
||||
}
|
||||
}
|
||||
|
||||
#ifdef CMU_ZWGCPLUS
|
||||
void
|
||||
plus_window_deletions(ZNotice_t *notice)
|
||||
{
|
||||
x_gram *tmp, *fry;
|
||||
char *val;
|
||||
int done;
|
||||
static char class_nm[NAMESIZE], instance_nm[NAMESIZE], recip_nm[NAMESIZE];
|
||||
|
||||
if (!x_dpy)
|
||||
return;
|
||||
|
||||
val = var_get_variable("delete_window");
|
||||
|
||||
#ifdef DEBUG_DELETION
|
||||
fprintf(stderr, "delete_window(%s)\n", val);
|
||||
#endif
|
||||
if (val) {
|
||||
if (!strcmp(val, "this")) {
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (tmp->notice == notice) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "s")) {
|
||||
/* I cheated. This is really sender, not class */
|
||||
strcpy(class_nm, notice->z_sender);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_sender, class_nm)) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "ns")) {
|
||||
/* I cheated. This is really sender, not class */
|
||||
strcpy(class_nm, notice->z_sender);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!!strcasecmp(((ZNotice_t *)(tmp->notice))->z_sender, class_nm)) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "r")) {
|
||||
strcpy(recip_nm, notice->z_recipient);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_recipient, recip_nm)) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "nr")) {
|
||||
strcpy(recip_nm, notice->z_recipient);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!!strcasecmp(((ZNotice_t *)(tmp->notice))->z_recipient, recip_nm)) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "cir")) {
|
||||
strcpy(class_nm, notice->z_class);
|
||||
strcpy(instance_nm, notice->z_class_inst);
|
||||
strcpy(recip_nm, notice->z_recipient);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_class_inst, instance_nm)
|
||||
&& !strcasecmp(((ZNotice_t *)(tmp->notice))->z_class, class_nm)
|
||||
&& !strcasecmp(((ZNotice_t *)(tmp->notice))->z_recipient, recip_nm))
|
||||
{
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "ci")) {
|
||||
strcpy(class_nm, notice->z_class);
|
||||
strcpy(instance_nm, notice->z_class_inst);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_class_inst, instance_nm)
|
||||
&& !strcasecmp(((ZNotice_t *)(tmp->notice))->z_class, class_nm))
|
||||
{
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "cr")) {
|
||||
strcpy(class_nm, notice->z_class);
|
||||
strcpy(recip_nm, notice->z_recipient);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_class, class_nm) &&
|
||||
!strcasecmp(((ZNotice_t *)(tmp->notice))->z_recipient, recip_nm))
|
||||
{
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "c")) {
|
||||
strcpy(class_nm, notice->z_class);
|
||||
do {
|
||||
done = 1;
|
||||
tmp = bottom_gram;
|
||||
while (tmp) {
|
||||
if (!strcasecmp(((ZNotice_t *)(tmp->notice))->z_class, class_nm)) {
|
||||
fry = tmp;
|
||||
tmp = tmp->above;
|
||||
xdestroygram(x_dpy, fry->w, desc_context, fry);
|
||||
done = 0;
|
||||
} else {
|
||||
tmp = tmp->above;
|
||||
}
|
||||
}
|
||||
} while (!done);
|
||||
}
|
||||
else if (!strcmp(val, "all")) {
|
||||
while (bottom_gram) {
|
||||
xdestroygram(x_dpy, bottom_gram->w, desc_context, bottom_gram);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
#endif
|
||||
#endif /* X_DISPLAY_MISSING */
|
||||
Reference in New Issue
Block a user