Return to popup.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / chess / Xchess

Annotation of 43BSDReno/games/chess/Xchess/popup.c, revision 1.1

1.1     ! root        1: 
        !             2: /* This file contains code for X-CHESS.
        !             3:    Copyright (C) 1986 Free Software Foundation, Inc.
        !             4: 
        !             5: This file is part of X-CHESS.
        !             6: 
        !             7: X-CHESS is distributed in the hope that it will be useful,
        !             8: but WITHOUT ANY WARRANTY.  No author or distributor
        !             9: accepts responsibility to anyone for the consequences of using it
        !            10: or for whether it serves any particular purpose or works at all,
        !            11: unless he says so in writing.  Refer to the X-CHESS General Public
        !            12: License for full details.
        !            13: 
        !            14: Everyone is granted permission to copy, modify and redistribute
        !            15: X-CHESS, but only under the conditions described in the
        !            16: X-CHESS General Public License.   A copy of this license is
        !            17: supposed to have been given to you along with X-CHESS so you
        !            18: can know your rights and responsibilities.  It should be in a
        !            19: file named COPYING.  Among other things, the copyright notice
        !            20: and this notice must be preserved on all copies.  */
        !            21: 
        !            22: 
        !            23: /* RCS Info: $Revision: 1.2 $ on $Date: 86/11/26 12:10:38 $
        !            24:  *           $Source: /users/faustus/xchess/RCS/popup.c,v $
        !            25:  * Copyright (c) 1986 Wayne A. Christopher, U. C. Berkeley CAD Group 
        !            26:  *      [email protected], ucbvax!faustus
        !            27:  * Permission is granted to modify and re-distribute this code in any manner
        !            28:  * as long as this notice is preserved.  All standard disclaimers apply.
        !            29:  *
        !            30:  * A simple pop-up menu system.
        !            31:  */
        !            32: 
        !            33: #include "xchess.h"
        !            34: 
        !            35: /* Open a small window with some text in it and two buttons -- yes and no.
        !            36:  * Use black and white pixel, and the medium font.
        !            37:  */
        !            38: 
        !            39: bool
        !            40: pop_question(win, text)
        !            41:        windata *win;
        !            42:        char *text;
        !            43: {
        !            44:        char *s, *t;
        !            45:        int nlines = 1, ncols = 0, i = 0, j;
        !            46:        int x, y;
        !            47:        Window w;
        !            48:        bool ch;
        !            49:        XEvent ev;
        !            50: 
        !            51:        for (s = text; *s; s++) {
        !            52:                if ((*s == '\n') && s[1])
        !            53:                        nlines++;
        !            54:                if ((*s == '\n') || !s[1]) {
        !            55:                        if (i > ncols)
        !            56:                                ncols = i;
        !            57:                        i = 0;
        !            58:                } else
        !            59:                        i++;
        !            60:        }
        !            61: 
        !            62:        if (ncols < 12)
        !            63:                ncols = 12;
        !            64:        nlines += 4;
        !            65:        ncols += 4;
        !            66: 
        !            67:        x = (BASE_WIDTH - ncols * win->medium->max_bounds.width) / 2;
        !            68:        y = (BASE_HEIGHT - nlines * win->medium->max_bounds.ascent) / 2;
        !            69: 
        !            70:        w = XCreateSimpleWindow(win->display, win->basewin,
        !            71:                                x, y, ncols * win->medium->max_bounds.width,
        !            72:                                nlines * win->medium->ascent,
        !            73:                                BORDER_WIDTH, win->border.pixel,
        !            74:                                win->textback.pixel);
        !            75:        XMapRaised(win->display, w);
        !            76:        XSetFont(win->display, DefaultGC(win->display, 0),
        !            77:                 win->medium->fid);
        !            78:        
        !            79:        for (i = 0, s = text; i < nlines - 4; i++) {
        !            80:                for (t = s, j = 0; *t && (*t != '\n'); t++, j++)
        !            81:                        ;
        !            82:                XDrawString(win->display, w, DefaultGC(win->display, 0),
        !            83:                            (ncols - j) / 2 * win->medium->max_bounds.width,
        !            84:                            (i + 1) * win->medium->ascent,
        !            85:                            s, j);
        !            86:                s = t + 1;
        !            87:        }
        !            88:        XDrawString(win->display, w, DefaultGC(win->display, 0),
        !            89:                    (ncols - 8) * win->medium->max_bounds.width / 4,
        !            90:                    (nlines - 2) * win->medium->ascent,
        !            91:                    "YES", 3);
        !            92:        XDrawString(win->display, w, DefaultGC(win->display, 0),
        !            93:                    (ncols - 4) * win->medium->max_bounds.width * 3 / 4,
        !            94:                    (nlines - 2) * win->medium->ascent,
        !            95:                    "NO", 2);
        !            96: 
        !            97:        XSync(win->display, 0);
        !            98:        XSelectInput(win->display, w, ButtonPressMask);
        !            99:        XWindowEvent(win->display, w, ButtonPressMask, &ev);
        !           100:        x = ev.xkey.x;
        !           101:        y = ev.xkey.y;
        !           102: 
        !           103:        if (x > ncols * win->medium->max_bounds.width / 2)
        !           104:                ch = false;
        !           105:        else
        !           106:                ch = true;
        !           107: 
        !           108:        XDestroyWindow(win->display, w);
        !           109:        XSync(win->display, 0);
        !           110:        return (ch);
        !           111: }
        !           112: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.