Return to Geometry.c CVS log

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

Annotation of researchv9/X11/src/X.V11R1/lib/oldXtk/Geometry.c, revision 1.1

1.1     ! root        1: /* $Header: Geometry.c,v 1.1 87/09/11 07:57:54 toddb Exp $ */
        !             2: #ifndef lint
        !             3: static char *sccsid = "@(#)Geometry.c  1.7     2/25/87";
        !             4: #endif lint
        !             5: 
        !             6: /*
        !             7:  * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
        !             8:  * 
        !             9:  *                         All Rights Reserved
        !            10:  * 
        !            11:  * Permission to use, copy, modify, and distribute this software and its 
        !            12:  * documentation for any purpose and without fee is hereby granted, 
        !            13:  * provided that the above copyright notice appear in all copies and that
        !            14:  * both that copyright notice and this permission notice appear in 
        !            15:  * supporting documentation, and that the name of Digital Equipment
        !            16:  * Corporation not be used in advertising or publicity pertaining to
        !            17:  * distribution of the software without specific, written prior permission.  
        !            18:  * 
        !            19:  * 
        !            20:  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
        !            21:  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
        !            22:  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
        !            23:  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
        !            24:  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
        !            25:  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
        !            26:  * SOFTWARE.
        !            27:  */
        !            28: 
        !            29: 
        !            30: /* File: Geometry.c */
        !            31: 
        !            32: #include "Xlib.h"
        !            33: #include "Intrinsic.h"
        !            34: 
        !            35: /* Private  Definitions */
        !            36: 
        !            37: static XContext geometryContext;
        !            38: 
        !            39: static Boolean initialized = FALSE;
        !            40: 
        !            41: extern void GeometryInitialize()
        !            42: {
        !            43:     if (initialized)
        !            44:        return;
        !            45:     initialized = TRUE;
        !            46: 
        !            47:     geometryContext = XUniqueContext();
        !            48: }
        !            49: 
        !            50: /* Public routines */
        !            51: 
        !            52: /*
        !            53:  * The "normal" case is for the geometry manager to be associated with a
        !            54:  * windows parent. This code currently looks for an association on the passed
        !            55:  * window then it's parent. In the real version of this code the request
        !            56:  * should propagate up the tree. Note that parent windows may not be in the
        !            57:  * requesting windows address space and the propagation will require a server
        !            58:  * dialog.
        !            59:  */
        !            60: 
        !            61: XtGeometryReturnCode XtMakeGeometryRequest
        !            62:                             (dpy, window, request, requestBox, replyBox)
        !            63:     Display            *dpy;
        !            64:     Window                     window;
        !            65:     XtGeometryRequest   request;
        !            66:     WindowBox          *requestBox, *replyBox;
        !            67: {
        !            68:     XtGeometryHandler proc;
        !            69:     int error;
        !            70: 
        !            71:     error  = XFindContext (dpy, window, geometryContext, (caddr_t *) &proc);
        !            72:     if (error == XCNOENT)
        !            73:        return(XtgeometryNoManager);
        !            74:     return ((*(proc)) (dpy, window, request, requestBox, replyBox));
        !            75: }
        !            76: 
        !            77: /*
        !            78:  * Register a geometry routine with the toolkit dispatcher.
        !            79:  */
        !            80: 
        !            81: XtStatus XtSetGeometryHandler (dpy, w, proc)
        !            82:     Display          *dpy;
        !            83:     Window           w;
        !            84:     XtGeometryHandler proc;
        !            85: {
        !            86:     return (XSaveContext (dpy, w, geometryContext, (caddr_t) proc));
        !            87: }
        !            88: 
        !            89: /*
        !            90:  * Return the geometry procedure associated with a widget.
        !            91:  */
        !            92: 
        !            93: XtStatus XtGetGeometryHandler (dpy, w, proc)
        !            94:     Display          *dpy;
        !            95:     Window           w;
        !            96:     XtGeometryHandler *proc;
        !            97: {
        !            98:     return (XFindContext(dpy, w, geometryContext, (caddr_t *) proc));
        !            99: }
        !           100: 
        !           101: /*
        !           102:  * Delete the geometry routine's entry in the toolkit dispatcher.
        !           103:  */
        !           104: 
        !           105: XtStatus XtClearGeometryHandler (dpy, w)
        !           106: Display *dpy;
        !           107: Window w;
        !           108: {
        !           109:     return(XDeleteContext (dpy, w, geometryContext));
        !           110: }

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