Return to XCursor.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / X

Annotation of researchv9/X11/src/X.V11R1/lib/X/XCursor.c, revision 1.1.1.1

1.1       root        1: #include "copyright.h"
                      2: 
                      3: /* $Header: XCursor.c,v 11.11 87/09/08 14:31:05 newman Exp $ */
                      4: /* Copyright    Massachusetts Institute of Technology    1987  */
                      5: 
                      6: #include "Xlibint.h"
                      7: static XColor foreground = { 0,    0,     0,     0  };  /* black */
                      8: static XColor background = { 0, 65535, 65535, 65535 };  /* white */
                      9: 
                     10: Cursor XCreateFontCursor(dpy, which)
                     11:        Display *dpy;
                     12:        unsigned int which;
                     13: {
                     14:        static Font cfont = 0;
                     15:        Cursor result;
                     16:        static Display *olddpy = NULL;
                     17:        /* 
                     18:         * the cursor font contains the shape glyph followed by the mask
                     19:         * glyph; so character position 0 contains a shape, 1 the mask for 0,
                     20:         * 2 a shape, etc.  <X11/cursorfont.h> contains hash define names
                     21:         * for all of these.
                     22:         */
                     23: 
                     24:        if (cfont == 0 || dpy != olddpy)        {
                     25:                if (cfont && dpy) XUnloadFont (olddpy, cfont);
                     26:                cfont = XLoadFont(dpy, CURSORFONT);
                     27:                olddpy = dpy;
                     28:                if (!cfont) return (Cursor) 0;
                     29:        }
                     30:        result = XCreateGlyphCursor 
                     31:               (dpy, cfont, cfont, which, which + 1, &foreground, &background);
                     32:        return(result);
                     33: }
                     34: 

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