diff options
Diffstat (limited to 'gnu/games/chess/Xchess/popup.c')
-rw-r--r-- | gnu/games/chess/Xchess/popup.c | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/gnu/games/chess/Xchess/popup.c b/gnu/games/chess/Xchess/popup.c deleted file mode 100644 index 0995638..0000000 --- a/gnu/games/chess/Xchess/popup.c +++ /dev/null @@ -1,112 +0,0 @@ - -/* This file contains code for X-CHESS. - Copyright (C) 1986 Free Software Foundation, Inc. - -This file is part of X-CHESS. - -X-CHESS is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY. No author or distributor -accepts responsibility to anyone for the consequences of using it -or for whether it serves any particular purpose or works at all, -unless he says so in writing. Refer to the X-CHESS General Public -License for full details. - -Everyone is granted permission to copy, modify and redistribute -X-CHESS, but only under the conditions described in the -X-CHESS General Public License. A copy of this license is -supposed to have been given to you along with X-CHESS so you -can know your rights and responsibilities. It should be in a -file named COPYING. Among other things, the copyright notice -and this notice must be preserved on all copies. */ - - -/* RCS Info: $Revision: 1.1.1.1 $ on $Date: 1993/06/12 14:41:13 $ - * $Source: /home/ncvs/src/gnu/games/chess/Xchess/popup.c,v $ - * Copyright (c) 1986 Wayne A. Christopher, U. C. Berkeley CAD Group - * faustus@cad.berkeley.edu, ucbvax!faustus - * Permission is granted to modify and re-distribute this code in any manner - * as long as this notice is preserved. All standard disclaimers apply. - * - * A simple pop-up menu system. - */ - -#include "xchess.h" - -/* Open a small window with some text in it and two buttons -- yes and no. - * Use black and white pixel, and the medium font. - */ - -bool -pop_question(win, text) - windata *win; - char *text; -{ - char *s, *t; - int nlines = 1, ncols = 0, i = 0, j; - int x, y; - Window w; - bool ch; - XEvent ev; - - for (s = text; *s; s++) { - if ((*s == '\n') && s[1]) - nlines++; - if ((*s == '\n') || !s[1]) { - if (i > ncols) - ncols = i; - i = 0; - } else - i++; - } - - if (ncols < 12) - ncols = 12; - nlines += 4; - ncols += 4; - - x = (BASE_WIDTH - ncols * win->medium->max_bounds.width) / 2; - y = (BASE_HEIGHT - nlines * win->medium->max_bounds.ascent) / 2; - - w = XCreateSimpleWindow(win->display, win->basewin, - x, y, ncols * win->medium->max_bounds.width, - nlines * win->medium->ascent, - BORDER_WIDTH, win->border.pixel, - win->textback.pixel); - XMapRaised(win->display, w); - XSetFont(win->display, DefaultGC(win->display, 0), - win->medium->fid); - - for (i = 0, s = text; i < nlines - 4; i++) { - for (t = s, j = 0; *t && (*t != '\n'); t++, j++) - ; - XDrawString(win->display, w, DefaultGC(win->display, 0), - (ncols - j) / 2 * win->medium->max_bounds.width, - (i + 1) * win->medium->ascent, - s, j); - s = t + 1; - } - XDrawString(win->display, w, DefaultGC(win->display, 0), - (ncols - 8) * win->medium->max_bounds.width / 4, - (nlines - 2) * win->medium->ascent, - "YES", 3); - XDrawString(win->display, w, DefaultGC(win->display, 0), - (ncols - 4) * win->medium->max_bounds.width * 3 / 4, - (nlines - 2) * win->medium->ascent, - "NO", 2); - - XSync(win->display, 0); - XSelectInput(win->display, w, ButtonPressMask); - XWindowEvent(win->display, w, ButtonPressMask, &ev); - x = ev.xkey.x; - y = ev.xkey.y; - - if (x > ncols * win->medium->max_bounds.width / 2) - ch = false; - else - ch = true; - - XDestroyWindow(win->display, w); - XSync(win->display, 0); - return (ch); -} - |