tcl » wrapper » wrapper
gmlTcl_WrapperParserTkTypes.h

00001 /*
00002  * gml/tcl/wrapper/wrapper/gmlTcl_WrapperParserTkTypes.h --
00003  *
00004  *    Converts Tcl_Objs to C++ native data for Tk types (colors, fonts...).
00005  *
00006  *  Copyright (c) 1996-2002 CLIPS-IMAG
00007  *
00008  *  See the file "gml_LicenseTerms.txt" for information on usage and redistribution
00009  *  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
00010  *
00011  *  Created on September 3, 2002 (FB).
00012  */
00013 
00014 #ifndef __GMLTCL_WRAPPERPARSERTKTYPES__
00015 #define __GMLTCL_WRAPPERPARSERTKTYPES__
00016   #if defined(__cplusplus)
00017     extern "C" {
00018   #endif
00019 
00020 #include "gml/tcl/wrapper/wrapper/gmlTcl_WrapperParser.h"
00021 
00022 
00023 
00024 /*
00025  * gmlTcl_gWrapParseRGBColor --
00026  * gmlTcl_gWrapParseRGBColorList --
00027  * gmlTcl_gWrapParseJustify --
00028  * gmlTcl_gWrapParseRect --
00029  * gmlTcl_gWrapParseRectList --
00030  *
00031  *  Standard parsers.
00032  *  In the case of a scalar value, a pointer to the converted value is stored in <*storage>,
00033  *    followed immediately by the converted value.
00034  *  In the case of a list, a pointer to an array of values is stored in <*storage>,
00035  *    followed by the number of elements in the array (an int). The memory for the array
00036  *    is allocated by "gml_Malloc", it is the responsability of the caller to free it with
00037  *    "gml_Free".
00038  */
00039 
00040 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseRGBColor;
00041 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseRGBColorList;
00042 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseJustify;
00043 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseRect;
00044 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseRectList;
00045 
00046 
00047 
00048 /*
00049  * gmlTcl_gWrapParseFont --
00050  *
00051  *  A Tk_Font is allocated by "Tk_AllocFontFromObj" is stored in
00052  *  <storage>. It is the responsability of the caller to free it
00053  *  when no more needed by "Tk_FreeFont".
00054  */
00055 
00056 extern gmlTcl_TWrapParseProc*     gmlTcl_gWrapParseFont;
00057 
00058 
00059 
00060   #if defined(__cplusplus)
00061     }
00062   #endif
00063 #endif