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_GLCanvas.h /* * tkCanvas.h -- * * Declarations shared among all the files that implement * canvas widgets. * * Copyright (c) 1991-1994 The Regents of the University of California. * Copyright (c) 1994-1995 Sun Microsystems, Inc. * Copyright (c) 1998 by Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * RCS: @(#) $Id: tkCanvas.h,v 1.4 1999/12/14 06:52:27 hobbs Exp $ */ #ifndef __GMLTCL_GLCANVAS__ #define __GMLTCL_GLCANVAS__ #ifndef _TK #include "tk.h" #endif /* gmlTcl_TGLCanvas patch (2002 08 19 - FB) */ #include "gml/gl/gml_GL_Base.h" #include "gml/tcl/wrapper/wrapper/gmlTcl_Wrapper.h" #include "gml/tcl/wrapper/canvas/gmlTcl_GLCanvasDecls.h" #include "gml/tcl/wrapper/canvas/gmlTcl_GLCanvasOpenGL.h" #include "gml/tcl/wrapper/canvas/gmlTcl_GRItem.h" #include "gml/ui/gml_GRItem_Polygon_GL.h" #include "gml/ui/gml_GRItem_DisplayList.h" /* Private function in the Tk canvas that we need to export */ extern int gmlTcl_GLCanvasWidgetCmd (ClientData clientData, Tcl_Interp* interp, int argc, Tcl_Obj*CONST* argv); extern void gmlTcl_GLCanvasEventuallyRedrawItem (Tk_Canvas canvas, Tk_Item* itemPtr); struct TagSearch; extern int gmlTcl_GLCanvasRelinkItems (gmlTcl_TGLCanvas* canvasPtr, Tcl_Obj* tag, Tk_Item* prevPtr, TagSearch** searchPtrPtr, int withHierarchy, int raise); void gmlTcl_GLCanvasTagSearchDestroy (TagSearch* tag); /* Functions and globals defined and documented in "gmlTcl_GLCanvasExtensions.cc" */ extern char* gmlTcl_gGLCanvas_classString; extern gml_TList* gmlTclgGLCanvasInstanceList; struct gmlTcl_TGLCanvas; extern int gmlTcl_GLCanvasRegisterOwnedObject (Tcl_Interp* interp, gmlTcl_TGLCanvas* canvas, gmlTcl_TWrapObject object); extern void gmlTcl_GLCanvasDeregisterOwnedObject (gmlTcl_TGLCanvas* canvas, gmlTcl_TWrapObject object); extern void gmlTcl_GLCanvasRedrawItemCallback (gml_TError err, gml_TPointer clientData); extern gmlTcl_TWrapParseProc* gmlTcl_gWrapParseGLCanvas; /* end of gmlTcl_TGLCanvas patch */ typedef struct TagSearchExpr_s TagSearchExpr; struct TagSearchExpr_s { TagSearchExpr *next; /* for linked lists of expressions - used in bindings */ Tk_Uid uid; /* the uid of the whole expression */ Tk_Uid *uids; /* expresion compiled to an array of uids */ int allocated; /* available space for array of uids */ int length; /* length of expression */ int index; /* current position in expression evaluation */ int match; /* this expression matches event's item's tags*/ }; /* * The record below describes a canvas widget. It is made available * to the item procedures so they can access certain shared fields such * as the overall displacement and scale factor for the canvas. */ typedef struct gmlTcl_TGLCanvas { Tk_Window tkwin; /* Window that embodies the canvas. NULL * means that the window has been destroyed * but the data structures haven't yet been * cleaned up.*/ Display *display; /* Display containing widget; needed, among * other things, to release resources after * tkwin has already gone away. */ Tcl_Interp *interp; /* Interpreter associated with canvas. */ Tcl_Command widgetCmd; /* Token for canvas's widget command. */ Tk_Item *firstItemPtr; /* First in list of all items in canvas, * or NULL if canvas empty. */ Tk_Item *lastItemPtr; /* Last in list of all items in canvas, * or NULL if canvas empty. */ /* * Information used when displaying widget: */ int borderWidth; /* Width of 3-D border around window. */ Tk_3DBorder bgBorder; /* Used for canvas background. */ int relief; /* Indicates whether window as a whole is * raised, sunken, or flat. */ int highlightWidth; /* Width in pixels of highlight to draw * around widget when it has the focus. * <= 0 means don't draw a highlight. */ XColor *highlightBgColorPtr; /* Color for drawing traversal highlight * area when highlight is off. */ XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ int inset; /* Total width of all borders, including * traversal highlight and 3-D border. * Indicates how much interior stuff must * be offset from outside edges to leave * room for borders. */ GC pixmapGC; /* Used to copy bits from a pixmap to the * screen and also to clear the pixmap. */ int width, height; /* Dimensions to request for canvas window, * specified in pixels. */ int redrawX1, redrawY1; /* Upper left corner of area to redraw, * in pixel coordinates. Border pixels * are included. Only valid if * REDRAW_PENDING flag is set. */ int redrawX2, redrawY2; /* Lower right corner of area to redraw, * in integer canvas coordinates. Border * pixels will *not* be redrawn. */ int confine; /* Non-zero means constrain view to keep * as much of canvas visible as possible. */ /* * Information used to manage the selection and insertion cursor: */ Tk_CanvasTextInfo textInfo; /* Contains lots of fields; see tk.h for * details. This structure is shared with * the code that implements individual items. */ int insertOnTime; /* Number of milliseconds cursor should spend * in "on" state for each blink. */ int insertOffTime; /* Number of milliseconds cursor should spend * in "off" state for each blink. */ Tcl_TimerToken insertBlinkHandler; /* Timer handler used to blink cursor on and * off. */ /* * Transformation applied to canvas as a whole: to compute screen * coordinates (X,Y) from canvas coordinates (x,y), do the following: * * X = x - xOrigin; * Y = y - yOrigin; */ int xOrigin, yOrigin; /* Canvas coordinates corresponding to * upper-left corner of window, given in * canvas pixel units. */ int drawableXOrigin, drawableYOrigin; /* During redisplay, these fields give the * canvas coordinates corresponding to * the upper-left corner of the drawable * where items are actually being drawn * (typically a pixmap smaller than the * whole window). */ /* * Information used for event bindings associated with items. */ Tk_BindingTable bindingTable; /* Table of all bindings currently defined * for this canvas. NULL means that no * bindings exist, so the table hasn't been * created. Each "object" used for this * table is either a Tk_Uid for a tag or * the address of an item named by id. */ Tk_Item *currentItemPtr; /* The item currently containing the mouse * pointer, or NULL if none. */ Tk_Item *newCurrentPtr; /* The item that is about to become the * current one, or NULL. This field is * used to detect deletions of the new * current item pointer that occur during * Leave processing of the previous current * item. */ double closeEnough; /* The mouse is assumed to be inside an * item if it is this close to it. */ XEvent pickEvent; /* The event upon which the current choice * of currentItem is based. Must be saved * so that if the currentItem is deleted, * can pick another. */ int state; /* Last known modifier state. Used to * defer picking a new current object * while buttons are down. */ /* * Information used for managing scrollbars: */ char *xScrollCmd; /* Command prefix for communicating with * horizontal scrollbar. NULL means no * horizontal scrollbar. Malloc'ed*/ char *yScrollCmd; /* Command prefix for communicating with * vertical scrollbar. NULL means no * vertical scrollbar. Malloc'ed*/ int scrollX1, scrollY1, scrollX2, scrollY2; /* These four coordinates define the region * that is the 100% area for scrolling (i.e. * these numbers determine the size and * location of the sliders on scrollbars). * Units are pixels in canvas coords. */ char *regionString; /* The option string from which scrollX1 * etc. are derived. Malloc'ed. */ int xScrollIncrement; /* If >0, defines a grid for horizontal * scrolling. This is the size of the "unit", * and the left edge of the screen will always * lie on an even unit boundary. */ int yScrollIncrement; /* If >0, defines a grid for horizontal * scrolling. This is the size of the "unit", * and the left edge of the screen will always * lie on an even unit boundary. */ /* * Information used for scanning: */ int scanX; /* X-position at which scan started (e.g. * button was pressed here). */ int scanXOrigin; /* Value of xOrigin field when scan started. */ int scanY; /* Y-position at which scan started (e.g. * button was pressed here). */ int scanYOrigin; /* Value of yOrigin field when scan started. */ /* * Information used to speed up searches by remembering the last item * created or found with an item id search. */ Tk_Item *hotPtr; /* Pointer to "hot" item (one that's been * recently used. NULL means there's no * hot item. */ Tk_Item *hotPrevPtr; /* Pointer to predecessor to hotPtr (NULL * means item is first in list). This is * only a hint and may not really be hotPtr's * predecessor. */ /* * Miscellaneous information: */ Tk_Cursor cursor; /* Current cursor for window, or None. */ char *takeFocus; /* Value of -takefocus option; not used in * the C code, but used by keyboard traversal * scripts. Malloc'ed, but may be NULL. */ double pixelsPerMM; /* Scale factor between MM and pixels; * used when converting coordinates. */ int flags; /* Various flags; see below for * definitions. */ int nextId; /* Number to use as id for next item * created in widget. */ Tk_PostscriptInfo psInfo; /* Pointer to information used for generating * Postscript for the canvas. NULL means * no Postscript is currently being * generated. */ Tcl_HashTable idTable; /* Table of integer indices. */ /* * Additional information, added by the 'dash'-patch */ VOID *reserved1; Tk_State canvas_state; /* state of canvas */ VOID *reserved2; VOID *reserved3; Tk_TSOffset tsoffset; TagSearchExpr *bindTagExprs; /* linked list of tag expressions used in bindings */ /* * PATCH: gmlTcl_TGLCanvas fields */ Tcl_Obj* glNameOfCanvas; /* Stores the string name of the canvas */ gml_TDrawable glDrawable; /* The drawable where the canvas is drawn */ gml_TDisplay glDisplay; /* The display where the canvas is drawn */ gml_TVisual glVisual; /* The visual used to draw the canvas */ gmlGL_TContext glContext; /* The OpenGL context */ int glLastTopW; /* Last know width and height of the drawable, */ int glLastTopH; /* used to detect when the drawable is resized */ int glLastX; /* Last position and size of the canvas within its */ int glLastY; /* drawable. Used to detect when the canvas */ int glLastW; /* is moved or resized. */ int glLastH; gml_TRGBColor glBgColor; /* Background color of the canvas */ gml_TGRItem_Polygon_GL* glRootGRItem; /* The root item (the canvas itself) has no tcl interface */ gml_TGRItem_Scene_GL* glScene; /* Scene in which items are drawn */ gml_TList* glOwnedObjects; /* List of wrapped objects owned by the canvas */ /* * END PATCH: gmlTcl_TGLCanvas fields */ } gmlTcl_TGLCanvas; /* * Flag bits for canvases: * * REDRAW_PENDING - 1 means a DoWhenIdle handler has already * been created to redraw some or all of the * canvas. * REDRAW_BORDERS - 1 means that the borders need to be redrawn * during the next redisplay operation. * REPICK_NEEDED - 1 means DisplayCanvas should pick a new * current item before redrawing the canvas. * GOT_FOCUS - 1 means the focus is currently in this * widget, so should draw the insertion cursor * and traversal highlight. * CURSOR_ON - 1 means the insertion cursor is in the "on" * phase of its blink cycle. 0 means either * we don't have the focus or the cursor is in * the "off" phase of its cycle. * UPDATE_SCROLLBARS - 1 means the scrollbars should get updated * as part of the next display operation. * LEFT_GRABBED_ITEM - 1 means that the mouse left the current * item while a grab was in effect, so we * didn't change canvasPtr->currentItemPtr. * REPICK_IN_PROGRESS - 1 means PickCurrentItem is currently * executing. If it should be called recursively, * it should simply return immediately. * BBOX_NOT_EMPTY - 1 means that the bounding box of the area * that should be redrawn is not empty. */ #define REDRAW_PENDING 1 #define REDRAW_BORDERS 2 #define REPICK_NEEDED 4 #define GOT_FOCUS 8 #define CURSOR_ON 0x10 #define UPDATE_SCROLLBARS 0x20 #define LEFT_GRABBED_ITEM 0x40 #define REPICK_IN_PROGRESS 0x100 #define BBOX_NOT_EMPTY 0x200 /* * Flag bits for canvas items (redraw_flags): * * FORCE_REDRAW - 1 means that the new coordinates of some * item are not yet registered using * Tk_CanvasEventuallyRedraw(). It should still * be done by the general canvas code. */ #define FORCE_REDRAW 8 /* * Canvas-related procedures that are shared among Tk modules but not * exported to the outside world: */ extern int gmlGLCanvPostscriptCmd _ANSI_ARGS_((gmlTcl_TGLCanvas *canvasPtr, Tcl_Interp *interp, int argc, char **argv)); /* * The following definition is shared between tkCanvPs.c and tkCanvImg.c, * and is used in generating postscript for images and windows. */ typedef struct TkColormapData { /* Hold color information for a window */ int separated; /* Whether to use separate color bands */ int color; /* Whether window is color or black/white */ int ncolors; /* Number of color values stored */ XColor *colors; /* Pixel value -> RGB mappings */ int red_mask, green_mask, blue_mask; /* Masks and shifts for each */ int red_shift, green_shift, blue_shift; /* color band */ } TkColormapData; #endif /* _GMLTCLCANVAS */ 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