tcl » wrapper
gmlTcl_Bitmap.h

00001 /*
00002  * gmlTcl_Bitmap.h --
00003  *
00004  *    Wrapping of gml_TBitmap into a Tcl interpreter.
00005  *
00006  *  Copyright (c) 1996-2003 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 May 14, 1996 (FB).
00012  */
00013 #ifndef __GMLTCLBITMAP__
00014 #define __GMLTCLBITMAP__
00015 
00016 #include "tcl.h"
00017 #include "tk.h"
00018 
00019 #include "gml/image/gml_Drawable.h"
00020 #include "gml/image/gml_Bitmap.h"
00021 
00022 #include "gml/tcl/wrapper/wrapper/gmlTcl_Wrapper.h"
00023 
00024   #if defined(__cplusplus)
00025     extern "C" {
00026   #endif
00027 
00028 
00029 extern char               gmlTcl_gBitmapClassName[];
00030 extern gmlTcl_TWrapClass  gmlTcl_gBitmapClassToken;
00031 
00032 /*
00033  * gmlTcl_gOption_WrappedBitmap --
00034  *
00035  *  A "Tk_ObjCustomOption" (see "Tk_SetOptions" Tk C library man pages) for parsing
00036  *    wrapped gml_TBitmap from string names.
00037  */
00038 extern Tk_ObjCustomOption     gmlTcl_gOption_WrappedBitmap;
00039 
00040 
00041 
00042 /*
00043  * gmlTcl_BitmapInit --
00044  *
00045  *  Registers the "gmlBitmap" class into the interpreter.
00046  */
00047 int gmlTcl_BitmapInit (Tcl_Interp* interp);
00048 
00049 
00050 
00051 /*
00052  * gmlTcl_BitmapExit --
00053  *
00054  *  De-registers the gml_TBitmap class and all its objects from the interpreter.
00055  */
00056 void gmlTcl_BitmapExit (Tcl_Interp* interp);
00057 
00058 
00059 
00060 
00061 /*
00062  * gmlTcl_gWrapParseBitmap --
00063  *
00064  *  Parser function for use with "gmlTcl_WrapParse".
00065  *  Stores a gml_TBitmap* as the result of parsing.
00066  */
00067 extern gmlTcl_TWrapParseProc* gmlTcl_gWrapParseBitmap;
00068 
00069 
00070 
00071 /*
00072  * Convertion between bitmap representations. Known bitmap formats are:
00073  *   (G) gmlBitmap
00074  *   (T) Tk Drawable
00075  *   (P) platform specific drawable
00076  *          on Mac OS X, this is a "CGrafPtr"
00077  *          on X11, this is a "Drawable"
00078  */
00079 
00080 /*
00081  * gmlTcl_DrawableTtoP --
00082  *
00083  *  Return the platform specific drawable from the Tk drawable.
00084  *
00085  *  *** platform specific implementations
00086  */
00087 gml_TDrawable gmlTcl_DrawableTtoP (Tk_Window tkwin);
00088 
00089 
00090 
00091 /*
00092  * gmlTcl_DisplayTtoP --
00093  *
00094  *  Return the platform specific display from a Tk drawable.
00095  *
00096  *  *** platform specific implementations
00097  */
00098 gml_TDisplay gmlTcl_DisplayTtoP (Tk_Window tkwin);
00099 
00100 
00101 /*
00102  * gmlTcl_VisualTtoP --
00103  *
00104  *  Return the platform specific visual from a Tk drawable.
00105  *
00106  *  *** platform specific implementations
00107  */
00108 gml_TVisual gmlTcl_VisualTtoP (Tk_Window tkwin);
00109 
00110 
00111 
00112   #if defined(__cplusplus)
00113     }
00114   #endif
00115 #endif