tcl » wrapper » canvas
gmlTcl_GLCanvasCommandOptions.h

00001 // gml/tcl/wrapper/canvas/gmlTcl_GLCanvasCommandOptions.h --
00002 //
00003 //  Definitions of the structures for option parsing in gmlTcl_GLCanvas.
00004 //
00005 //  Copyright (c) 2004-2005 CLIPS-IMAG
00006 //
00007 //  See the file "gml_LicenseTerms.txt" for information on usage and redistribution
00008 //  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
00009 //
00010 //  Created on November 11, 2004 by Sylvie Rouillard.
00011 
00012 #ifndef __GMLTCL_GLCANVASCOMMANDOPTIONS__
00013 #define __GMLTCL_GLCANVASCOMMANDOPTIONS__
00014 
00015 
00016 
00017 typedef struct
00018 {
00019   gml_TBoolean*   fStackPtr;
00020   gml_TBoolean    fStack;
00021 } gmlTcl_CommandAt_params;
00022 
00023 
00024 static
00025 gmlTcl_TParamDescr gmlTcl_gCommandAt_descr[] = {
00026   { "-stack",    "<boolean>",    gmlTcl_gWrapParseBoolean,    offsetof (gmlTcl_CommandAt_params, fStackPtr)   },
00027   { (char)0,     (char)0,        (char)0,                     (char)0                                         }
00028 };
00029 
00030 
00031 typedef struct
00032 {
00033   gml_TBoolean*   fWithhierarchyPtr;
00034   gml_TBoolean    fWithhierarchy;
00035   Tcl_Obj**       fAbovePtr;
00036   Tcl_Obj*        fAbove;
00037 } gmlTcl_CommandRaise_params;
00038 
00039 
00040 static
00041 gmlTcl_TParamDescr gmlTcl_gCommandRaise_descr[] = {
00042   { "-withhierarchy",    "<boolean>",    gmlTcl_gWrapParseBoolean,    offsetof (gmlTcl_CommandRaise_params, fWithhierarchyPtr)   },
00043   { "-above",            "<tagOrId>",    gmlTcl_gWrapParseTclObj,     offsetof (gmlTcl_CommandRaise_params, fAbovePtr        )   },
00044   { (char)0,             (char)0,        (char)0,                     (char)0                                                    }
00045 };
00046 
00047 
00048 typedef struct
00049 {
00050   gml_TBoolean*   fWithhierarchyPtr;
00051   gml_TBoolean    fWithhierarchy;
00052   Tcl_Obj**       fBelowPtr;
00053   Tcl_Obj*        fBelow;
00054 } gmlTcl_CommandLower_params;
00055 
00056 
00057 static
00058 gmlTcl_TParamDescr gmlTcl_gCommandLower_descr[] = {
00059   { "-withhierarchy",    "<boolean>",    gmlTcl_gWrapParseBoolean,    offsetof (gmlTcl_CommandLower_params, fWithhierarchyPtr)   },
00060   { "-below",            "<tagOrId>",    gmlTcl_gWrapParseTclObj,     offsetof (gmlTcl_CommandLower_params, fBelowPtr        )   },
00061   { (char)0,             (char)0,        (char)0,                     (char)0                                                    }
00062 };
00063 
00064 
00065 
00066 #endif