Return to CommandP.h CVS log

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

researchv9-SUN3(old)

/*
* $Header: /var/lib/cvsd/repos/research/researchv9/X11/src/X.V11R1/lib/Xtk/CommandP.h,v 1.1.1.1 2018/04/24 17:22:00 root Exp $
*/

/*
 * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
 * 
 *                         All Rights Reserved
 * 
 * Permission to use, copy, modify, and distribute this software and its 
 * documentation for any purpose and without fee is hereby granted, 
 * provided that the above copyright notice appear in all copies and that
 * both that copyright notice and this permission notice appear in 
 * supporting documentation, and that the name of Digital Equipment
 * Corporation not be used in advertising or publicity pertaining to
 * distribution of the software without specific, written prior permission.  
 * 
 * 
 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
/* 
 * CommandPrivate.h - Private definitions for Command widget
 * 
 * Author:	Mark S. Ackerman
 *              MIT/Project Athena
 * Date:	Thu Aug 27 1987
 */

#ifndef _XtCommandPrivate_h
#define _XtCommandPrivate_h

#define XtCallParentProcedure(proc,arg) \
    (((commandWidgetClass->core_class.superclass))->core_class.proc)(arg)
#define XtCallParentProcedure2Args(proc,arg1,arg2) \
    (((commandWidgetClass->core_class.superclass))->core_class.proc)(arg1,arg2)
#define XtCallParentProcedure3Args(proc,arg1,arg2,arg3) \
    (((commandWidgetClass->core_class.superclass))->core_class.proc) \
       (arg1,arg2,arg3)

#define XtAddSingleCallback(f,resourceName,cb,cl,p)  \
                       if (XrmAtomsEqual(resourceName, XtNfunction))   \
			  XtAddCallbackToList(f,cb,cl,p)



/***********************************************************************
 *
 * Command Widget Private Data
 *
 ***********************************************************************/

/************************************
 *
 *  Class structure
 *
 ***********************************/


   /* New fields for the Command widget class record */
typedef struct _CommandClass 
  {
    int makes_compiler_happy;  /* not used */
  } CommandClassPart;

   /* Full class record declaration */
typedef struct _CommandClassRec {
    CoreClassPart	core_class;
    LabelClassPart	label_class;
    CommandClassPart     command_class;
} CommandClassRec;

extern CommandClassRec commandClassRec;

/***************************************
 *
 *  Instance (widget) structure 
 *
 **************************************/

    /* New fields for the Command widget record */
typedef struct {
    Pixmap      gray_pixmap;
    GC          highlight_GC;
    GC          inverse_GC;
    GC          inverse_text_GC;
    Dimension   highlight_thickness;
    XtCallbackList callback_list;
    XtCallbackProc callback;
    Opaque	closure;
    Boolean     set;
    Boolean     highlighted;
    Boolean     display_set;
    Boolean     display_highlighted;
} CommandPart;


/*    XtEventsPtr eventTable;*/


   /* Full widget declaration */
typedef struct _CommandRec {
    CorePart         core;
    LabelPart	     label;
    CommandPart      command;
} CommandRec;

#endif _XtCommandPrivate_h
/* DON'T ADD STUFF AFTER THIS #endif */

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