Home Page Toolkit Overview Using GML   User Input Services     Finger Tracker     Calibrator     Frame Grabber     Service protocol Obtaining GML   Installing GML   Licence Developer Documentation   Tcl/Tk API     The GML Canvas     Image processing   Tcl Scripts Library     List of Classes     List of Files   C/C++ API     List of Classes     List of Files

gmlTcl_Wrapper_internals.h // gml/tcl/wrapper/wrapper/gmlTcl_Wrapper_internals.h -- // // gmlTcl wrapper's internal declarations. // // Copyright (c) 1996-2003 CLIPS-IMAG // // See the file "gml_LicenseTerms.txt" for information on usage and redistribution // of this file, and for a DISCLAIMER OF ALL WARRANTIES. // // May 16, 2003 (FB) // hide wrapper structures, internals. // // Created on September 8, 2002 (FB). #ifndef __GMLTCLWRAPPER_INT__ #define __GMLTCLWRAPPER_INT__ #include "gml/tcl/wrapper/gmlTcl_General.h" #include "gml/tcl/wrapper/wrapper/gmlTcl_Wrapper.h" #include "gml/base/gml_List.h" class gmlTclTWrapObject; class gmlTclTWrapClass; extern "C" int gmlTclWrapBinding_ClassBindUnbindProc (Tcl_Interp* interp, gmlTcl_TWrapObject wrapObj, int objc, Tcl_Obj* objv[], void* parsed); extern "C" int gmlTclWrapBinding_ObjectBindUnbindProc (Tcl_Interp* interp, gmlTcl_TWrapObject wrapObj, int objc, Tcl_Obj* objv[], void* parsed); // gmlTclTWrapEvent -- // // An event (either class of object) than script can be bound to. class gmlTclTWrapEvent { public: int Init (Tcl_Interp* interp, gmlTclTWrapClass* wrapClass, gml_TBoolean isAClassEvent, char* eventName); void Dispose (); void Invoke (gmlTclTWrapObject* wrapObj, int objc, Tcl_Obj* objv[]); void DeleteMyScript (char* script, gml_TList* scriptList); void DeleteAllMyScripts (gml_TList* scriptList); static gmlTclTWrapEvent* FindEventInListFromName (char* eventName, gml_TList* eventList); static void DeleteAllEventsInList (gml_TList* eventList); static void DeleteAllScriptsInList (gml_TList* scriptList); char* fName; gmlTclTWrapClass* fClass; gml_TBoolean fIsAClassEvent; Tcl_Interp* fInterp; gmlTcl_Uid fUid; }; // gmlTclTWrapClass -- // // The base class of gmlTcl class wrappers. class gmlTclTWrapClass { public: Tcl_Interp* fInterp; /* The interpreter in which the class was registered */ Tcl_Command fCmd; /* Token for Tcl command associated with this class */ gmlTcl_TMethodDescr* fMethodDescrs; /* Array of description of methods */ gmlTcl_TMethodDescr* fConstructorDescr; /* Pointer to constructor method descr (if existing) */ gmlTcl_TMethodDescr* fDestructorDescr; /* Pointer to destructor method descr (if existing) */ gml_TList* fObjects; /* List of object instances of this class */ gml_TList* fSuperClasses; /* List of superclass, first in list is searched first (as its ancestors) for methods */ gml_TList* fSpecializations; /* List of classes that inherits from this one */ gml_TList* fClassEvents; /* List of class events that can be bound to */ gml_TList* fObjectEvents; /* List of object events that can be bound to */ gml_TList* fBindingScripts; /* List of scripts bound to this class events */ gmlTcl_TWrapEvent fEventNewObject; /* Class event: "creation of an object" */ gmlTcl_TWrapEvent fEventDeleteObject; /* Class event: "deletion of an object" */ gmlTcl_TWrapEvent fEventObjDispose; /* Object event: "object has been disposed" */ int Init (Tcl_Interp* interp, char* className, gmlTcl_TMethodDescr* methodDescrs); void Dispose (); char* Name () { return Tcl_GetCommandName (fInterp, fCmd); } int Inherit (Tcl_Interp* interp, gmlTclTWrapClass* superClass); void DeInherit (gmlTclTWrapClass* superClass); int ObjectFromName (Tcl_Interp* interp, char* objName, gmlTclTWrapObject** object); gmlTclTWrapObject* FindObjectFromName (char* objName); gml_TBoolean IsAncestor (gmlTclTWrapClass* superClass); int RegisterNewObject (Tcl_Interp* interp, gmlTclTWrapObject* wrapObj); void DeregisterObject (gmlTclTWrapObject* wrapObj); int NewObjectFromCommand (Tcl_Interp* interp, int objc, Tcl_Obj* objv[]); int NewObjectFromLowLevelObject (Tcl_Interp* interp, char* objName, void* object, gmlTclTWrapObject** ownerRef, gmlTclTWrapObject* owner); int CallMethod (gmlTcl_TMethodDescr* methodDescr, gmlTclTWrapObject* wrapObj, Tcl_Interp* interp, int objc, Tcl_Obj* objv[]); gmlTcl_TMethodDescr* FindMethodDescr (char* method, gml_TBoolean searchInherited = gml_cTrue); void GenerateMethodList (Tcl_Interp* interp, gml_TBoolean objectMethods); gml_TError AddMethodNamesToList (gml_TList* list, gml_TBoolean objectMethods); }; // gmlTclTWrapObject -- // // The base class of gmlTcl object wrappers. class gmlTclTWrapObject { public: gmlTclTWrapClass* fClass; /* Points to the object's class class wrapper */ Tcl_Command fCmd; /* Token for Tcl command associated with this object */ void* fObject; /* The "real" C / C++ object */ gml_TBoolean fConstructed; /* True when the constructor has been called (thus, destructor will be called on object disposal) */ gmlTclTWrapObject** fOwnerRef; /* Adress of this object's owner pointer to this object. Will be set to point to NULL when this object is deleted. */ gml_TList* fOwnedRefs; /* List of reference to wrapper on objects that this object owns */ gml_TList* fBindingScripts; /* List of scripts bound to this object events */ void Reset (); int Init (Tcl_Interp* interp, gmlTclTWrapClass* classWrap, char* name); int InitFromCommand (Tcl_Interp* interp, gmlTclTWrapClass* classWrap, int objc, Tcl_Obj* objv[]); void Dispose (); char* Name () { return Tcl_GetCommandName (fClass->fInterp, fCmd); } int RegisterOwnedObject (Tcl_Interp* interp, gmlTclTWrapObject* ownedWrap); }; int gmlTclWrapCheckNameLength (Tcl_Interp* interp, char* errorMsgPrefix, char* name); int gmlTclWrapFindIndexFromString (char* array, gml_TBlockSize entrySize, char* searched); char* gmlTclWrapFindEntryFromString (char* array, gml_TBlockSize entrySize, char* key); #endif Generated on Tue Jun 12 14:03:27 2007 for gml by Doxygen 1.5.2.

Contact: julien (dot) letessier (at) gmail (dot) com. Copyright (c) 2000-2007 CLIPS-IMAG Laboratory, Grenoble, France. All rights reserved. W3CXHTML 1.0 W3CCSS 2.0