113 lines
3.2 KiB
C
113 lines
3.2 KiB
C
|
|
/* 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/03/21 09:45:37 $
|
|
* $Source: /cvsroot/src/gnu/games/chess/Xchess/Attic/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);
|
|
}
|
|
|