/usr/lib/perl5/Tk/pTk/tk3d.h is in perl-tk 1:804.030-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | /*
* tk3d.h --
*
* Declarations of types and functions shared by the 3d border
* module.
*
* Copyright (c) 1996-1997 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tk3d.h,v 1.5 1999/04/16 01:51:10 stanton Exp $
*/
#ifndef _TK3D
#define _TK3D
#include "tkInt.h"
#ifdef BUILD_tk
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif
/*
* One of the following data structures is allocated for each 3-D border
* currently in use. Structures of this type are indexed by
* borderTable, so that a single structure can be shared for several
* uses.
*/
typedef struct TkBorder {
Screen *screen; /* Screen on which the border will be used. */
Visual *visual; /* Visual for all windows and pixmaps using
* the border. */
int depth; /* Number of bits per pixel of drawables where
* the border will be used. */
Colormap colormap; /* Colormap out of which pixels are
* allocated. */
int resourceRefCount; /* Number of active uses of this color (each
* active use corresponds to a call to
* Tk_Alloc3DBorderFromObj or Tk_Get3DBorder).
* If this count is 0, then this structure
* is no longer valid and it isn't present
* in borderTable: it is being kept around
* only because there are objects referring
* to it. The structure is freed when
* resourceRefCount and objRefCount are
* both 0. */
int objRefCount; /* The number of Tcl objects that reference
* this structure. */
XColor *bgColorPtr; /* Background color (intensity
* between lightColorPtr and
* darkColorPtr). */
XColor *darkColorPtr; /* Color for darker areas (must free when
* deleting structure). NULL means shadows
* haven't been allocated yet.*/
XColor *lightColorPtr; /* Color used for lighter areas of border
* (must free this when deleting structure).
* NULL means shadows haven't been allocated
* yet. */
Pixmap shadow; /* Stipple pattern to use for drawing
* shadows areas. Used for displays with
* <= 64 colors or where colormap has filled
* up. */
GC bgGC; /* Used (if necessary) to draw areas in
* the background color. */
GC darkGC; /* Used to draw darker parts of the
* border. None means the shadow colors
* haven't been allocated yet.*/
GC lightGC; /* Used to draw lighter parts of
* the border. None means the shadow colors
* haven't been allocated yet. */
Tcl_HashEntry *hashPtr; /* Entry in borderTable (needed in
* order to delete structure). */
struct TkBorder *nextPtr; /* Points to the next TkBorder structure with
* the same color name. Borders with the
* same name but different screens or
* colormaps are chained together off a
* single entry in borderTable. */
} TkBorder;
/*
* Maximum intensity for a color:
*/
#define MAX_INTENSITY 65535
/*
* Declarations for platform specific interfaces used by this module.
*/
EXTERN TkBorder * TkpGetBorder _ANSI_ARGS_((void));
EXTERN void TkpGetShadows _ANSI_ARGS_((TkBorder *borderPtr,
Tk_Window tkwin));
EXTERN void TkpFreeBorder _ANSI_ARGS_((TkBorder *borderPtr));
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TK3D */
|