Commit becbd148 authored by Sebastien Barre's avatar Sebastien Barre
Browse files

ENH:

- move Tcl/Tk intenal headers with the rest of Tcl/Tk files in Utilities
- get rid of tk84OSX and move the missing files to tk84
parent 007886d3
# do not do coverage in this directory
IF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk82")
SUBDIRS(tk82)
ENDIF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk82")
IF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk83")
SUBDIRS(tk83)
ENDIF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk83")
IF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk84")
SUBDIRS(tk84)
ENDIF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk84")
IF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk84OSX")
SUBDIRS(tk84OSX)
ENDIF("${TK_INTERNAL_PATH}" MATCHES "Rendering/tkInternals/tk84OSX")
CONFIGURE_FILE(
${VTK_SOURCE_DIR}/Rendering/tkInternals/.NoDartCoverage
${VTK_BINARY_DIR}/Rendering/tkInternals/.NoDartCoverage)
INSTALL_FILES(/include/vtk/tkInternals/tk82 "\\.h$")
INSTALL_FILES(/include/vtk/tkInternals/tk83 "\\.h$")
INSTALL_FILES(/include/vtk/tkInternals/tk84 "\\.h$")
INSTALL_FILES(/include/vtk/tkInternals/tk84OSX "\\.h$")
/*
* tclMath.h --
*
* This file is necessary because of Metrowerks CodeWarrior Pro 1
* on the Macintosh. With 8-byte doubles turned on, the definitions of
* sin, cos, acos, etc., are screwed up. They are fine as long as
* they are used as function calls, but if the function pointers
* are passed around and used, they will crash hard on the 68K.
*
* Copyright (c) 1997 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
*/
#ifndef _TCLMATH
#define _TCLMATH
#if defined(MAC_TCL)
# include "tclMacMath.h"
#else
# include <math.h>
#endif
#endif /* _TCLMATH */
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
/*
* tkMacOSXInt.h --
*
* Declarations of Macintosh specific shared variables and procedures.
*
* Copyright (c) 1995-1997 Sun Microsystems, Inc.
* Copyright 2001, Apple Computer, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) Id
*/
#ifndef _TKMACINT
#define _TKMACINT
#include "tkInt.h"
#include "tkMacOSX.h"
#include <Carbon/Carbon.h>
struct TkWindowPrivate {
TkWindow *winPtr; /* Ptr to tk window or NULL if Pixmap */
CGrafPtr grafPtr;
ControlRef rootControl;
int xOff; /* X offset from toplevel window */
int yOff; /* Y offset from toplevel window */
RgnHandle clipRgn; /* Visable region of window */
RgnHandle aboveClipRgn; /* Visable region of window & it's children */
int referenceCount; /* Don't delete toplevel until children are
* gone. */
struct TkWindowPrivate *toplevel; /* Pointer to the toplevel
* datastruct. */
int flags; /* Various state see defines below. */
};
typedef struct TkWindowPrivate MacDrawable;
/*
* This list is used to keep track of toplevel windows that have a Mac
* window attached. This is useful for several things, not the least
* of which is maintaining floating windows.
*/
typedef struct TkMacOSXWindowList {
struct TkMacOSXWindowList *nextPtr; /* The next window in the list. */
TkWindow *winPtr; /* This window */
} TkMacOSXWindowList;
/*
* Defines use for the flags field of the MacDrawable data structure.
*/
#define TK_SCROLLBAR_GROW 1
#define TK_CLIP_INVALID 2
#define TK_HOST_EXISTS 4
#define TK_DRAWN_UNDER_MENU 8
/*
* I am reserving TK_EMBEDDED = 0x100 in the MacDrawable flags
* This is defined in tk.h. We need to duplicate the TK_EMBEDDED flag in the
* TkWindow structure for the window, but in the MacWin. This way we can still tell
* what the correct port is after the TKWindow structure has been freed. This
* actually happens when you bind destroy of a toplevel to Destroy of a child.
*/
/*
* This structure is for handling Netscape-type in process
* embedding where Tk does not control the top-level. It contains
* various functions that are needed by Mac specific routines, like
* TkMacOSXGetDrawablePort. The definitions of the function types
* are in tclMac.h.
*/
typedef struct {
Tk_MacOSXEmbedRegisterWinProc *registerWinProc;
Tk_MacOSXEmbedGetGrafPortProc *getPortProc;
Tk_MacOSXEmbedMakeContainerExistProc *containerExistProc;
Tk_MacOSXEmbedGetClipProc *getClipProc;
Tk_MacOSXEmbedGetOffsetInParentProc *getOffsetProc;
} TkMacOSXEmbedHandler;
extern TkMacOSXEmbedHandler *gMacEmbedHandler;
/*
* Defines used for TkMacOSXInvalidateWindow
*/
#define TK_WINDOW_ONLY 0
#define TK_PARENT_WINDOW 1
/*
* Accessor for the privatePtr flags field for the TK_HOST_EXISTS field
*/
#define TkMacOSXHostToplevelExists(tkwin) \
(((TkWindow *) (tkwin))->privatePtr->toplevel->flags & TK_HOST_EXISTS)
/*
* Defines use for the flags argument to TkGenWMConfigureEvent.
*/
#define TK_LOCATION_CHANGED 1
#define TK_SIZE_CHANGED 2
#define TK_BOTH_CHANGED 3
/*
* Variables shared among various Mac Tk modules but are not
* exported to the outside world.
*/
/*
* Globals shared among Macintosh Tk
*/
extern MenuHandle tkAppleMenu; /* Handle to the Apple Menu */
extern MenuHandle tkFileMenu; /* Handles to menus */
extern MenuHandle tkEditMenu; /* Handles to menus */
extern RgnHandle tkMenuCascadeRgn; /* A region to clip with. */
extern int tkUseMenuCascadeRgn; /* If this is 1, clipping code
* should intersect tkMenuCascadeRgn
* before drawing occurs.
* tkMenuCascadeRgn will only
* be valid when the value of this
* variable is 1. */
extern int tkPictureIsOpen; /* If this is 1, we are drawing to a picture
* The clipping should then be done relative
* to the bounds of the picture rather than the window
* As of OS X.0.4, something is seriously wrong:
* The clipping bounds only seem to work if the
* top,left values are 0,0
* The destination rectangle for CopyBits
* should also have top,left values of 0,0
*/
extern TkMacOSXWindowList *tkMacOSXWindowListPtr;
/* The list of toplevels */
#include "tkIntPlatDecls.h"
#endif /* _TKMACINT */
/*
* tkMacOSXPort.h --
*
* This file is included by all of the Tk C files. It contains
* information that may be configuration-dependent, such as
* #includes for system include files and a few other things.
*
* Copyright (c) 1994-1996 Sun Microsystems, Inc.
* Copyright 2001, Apple Computer, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) Id
*/
#ifndef _TKMACPORT
#define _TKMACPORT
/*
* Macro to use instead of "void" for arguments that must have
* type "void *" in ANSI C; maps them to type "char *" in
* non-ANSI systems. This macro may be used in some of the include
* files below, which is why it is defined here.
*/
#ifndef VOID
# ifdef __STDC__
# define VOID void
# else
# define VOID char
# endif
#endif
#ifndef _TCL
# include <tcl.h>
#endif
#include <time.h>
#include <stdlib.h>
#include <string.h>
#include "tclMath.h"
#include <ctype.h>
#include <limits.h>
#include <X11/Xlib.h>
#include <X11/cursorfont.h>
#include <X11/keysym.h>
#include <X11/Xatom.h>
#include <X11/Xfuncproto.h>
#include <X11/Xutil.h>
#include "tkIntXlibDecls.h"
/*
* Not all systems declare the errno variable in errno.h. so this
* file does it explicitly.
*/
extern int errno;
/*
* Define "NBBY" (number of bits per byte) if it's not already defined.
*/
#ifndef NBBY
# define NBBY 8
#endif
/*
* Declarations for various library procedures that may not be declared
* in any other header file.
*/
#ifndef panic /* In a stubs-aware setting, this could confuse the #define */
extern void panic _ANSI_ARGS_(TCL_VARARGS(char *, string));
#endif
#ifndef strcasecmp
extern int strcasecmp _ANSI_ARGS_((CONST char *s1,
CONST char *s2));
#endif
#ifndef strncasecmp
extern int strncasecmp _ANSI_ARGS_((CONST char *s1,
CONST char *s2, size_t n));
#endif
/*
* Defines for X functions that are used by Tk but are treated as
* no-op functions on the Macintosh.
*/
#define XFlush(display)
#define XFree(data) {if ((data) != NULL) ckfree((char *) (data));}
#define XGrabServer(display)
#define XNoOp(display) {display->request++;}
#define XUngrabServer(display)
#define XSynchronize(display, bool) {display->request++;}
#define XSync(display, bool) {display->request++;}
#define XVisualIDFromVisual(visual) (visual->visualid)
/*
* The following functions are not used on the Mac, so we stub them out.
*/
#define TkFreeWindowId(dispPtr,w)
#define TkInitXId(dispPtr)
#define TkpButtonSetDefaults(specPtr) {}
#define TkpCmapStressed(tkwin,colormap) (0)
#define TkpFreeColor(tkColPtr)
#define TkSetPixmapColormap(p,c) {}
#define TkpSync(display)
/*
* The following macro returns the pixel value that corresponds to the
* RGB values in the given XColor structure.
*/
#define PIXEL_MAGIC ((unsigned char) 0x69)
#define TkpGetPixel(p) ((((((PIXEL_MAGIC << 8) \
| (((p)->red >> 8) & 0xff)) << 8) \
| (((p)->green >> 8) & 0xff)) << 8) \
| (((p)->blue >> 8) & 0xff))
/*
* This macro stores a representation of the window handle in a string.
* This should perhaps use the real size of an XID.
*/
#define TkpPrintWindowId(buf,w) \
sprintf((buf), "0x%x", (unsigned int) (w))
/*
* TkpScanWindowId is just an alias for Tcl_GetInt on Unix.
*/
#define TkpScanWindowId(i,s,wp) \
Tcl_GetInt((i),(s),(int *) (wp))
/*
* Magic pixel values for dynamic (or active) colors.
*/
#define HIGHLIGHT_PIXEL 31
#define HIGHLIGHT_TEXT_PIXEL 33
#define CONTROL_TEXT_PIXEL 35
#define CONTROL_BODY_PIXEL 37
#define CONTROL_FRAME_PIXEL 39
#define WINDOW_BODY_PIXEL 41
#define MENU_ACTIVE_PIXEL 43
#define MENU_ACTIVE_TEXT_PIXEL 45
#define MENU_BACKGROUND_PIXEL 47
#define MENU_DISABLED_PIXEL 49
#define MENU_TEXT_PIXEL 51
#define APPEARANCE_PIXEL 52
#endif /* _TKMACPORT */
/*
* tkPort.h --
*
* This header file handles porting issues that occur because of
* differences between systems. It reads in platform specific
* portability files.
*
* Copyright (c) 1995 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
*/
#ifndef _TKPORT
#define _TKPORT
#ifndef _TK
#include "tk.h"
#endif
#ifndef _TCL
#include "tcl.h"
#endif
#if defined(__WIN32__) || defined(_WIN32)
# include "tkWinPort.h"
#else
# if defined(MAC_TCL)
# include "tkMacPort.h"
# elif defined(MAC_OSX_TK)
# include "tkMacOSXPort.h"
# else
# include "../unix/tkUnixPort.h"
# endif
#endif
#endif /* _TKPORT */
IF (VTK_WRAP_TCL)
IF(VTK_RENDERING_NEED_TK_INTERNAL AND TK_INTERNAL_PATH)
VTK_GET_TCL_TK_VERSION ("TCL_TK_MAJOR_VERSION" "TCL_TK_MINOR_VERSION")
SET (TCL_TK_VERSION "${TCL_TK_MAJOR_VERSION}.${TCL_TK_MINOR_VERSION}")
IF("${TK_INTERNAL_PATH}" MATCHES
"${CMAKE_CURRENT_SOURCE_DIR}/tk${TCL_TK_VERSION}")
SUBDIRS(tk${TCL_TK_VERSION})
ENDIF("${TK_INTERNAL_PATH}" MATCHES
"${CMAKE_CURRENT_SOURCE_DIR}/tk${TCL_TK_VERSION}")
ENDIF(VTK_RENDERING_NEED_TK_INTERNAL AND TK_INTERNAL_PATH)
ENDIF (VTK_WRAP_TCL)
IF (VTK_WRAP_TCL)
INSTALL_FILES(/include/vtk/TclTk/internals/tk8.2 "\\.h$")
ENDIF (VTK_WRAP_TCL)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment