summaryrefslogtreecommitdiffstats
path: root/gnu/games/chess/Xchess/popup.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/games/chess/Xchess/popup.c')
-rw-r--r--gnu/games/chess/Xchess/popup.c112
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);
-}
-
OpenPOWER on IntegriCloud