Posted to tcl by Emiliano at Tue May 22 18:06:47 GMT 2007view pretty

XPoints points[3];
    GC arrowGC;
    int x, y, w, h;
    XColor *black;

    black = Tk_GetColor(widgetPtr->interp, widgetPtr->tkwin, "black");
    arrowGC = Tk_GCForColor(black, pixmap);

    /*assign values to points, x, y, w and h*/

    XFillPolygon(widgetPtr->display, pixmap, arrowGC,
         points, 3, Convex, CoordModeOrigin);

    Tk_FreeColor(black);

---------------------------------------------------------------------------------
    XPoints points[3];
    GC arrowGC;
    int x, y, w, h;

    arrowGC = Tk_GCForColor(Tk_GetColor(widgetPtr->interp, 
            widgetPtr->tkwin, "black"), pixmap);

    /*assign values to points, x, y, w and h*/

    XFillPolygon(widgetPtr->display, pixmap, arrowGC,
         points, 3, Convex, CoordModeOrigin);