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

  1. XPoints points[3];
  2. GC arrowGC;
  3. int x, y, w, h;
  4. XColor *black;
  5.  
  6. black = Tk_GetColor(widgetPtr->interp, widgetPtr->tkwin, "black");
  7. arrowGC = Tk_GCForColor(black, pixmap);
  8.  
  9. /*assign values to points, x, y, w and h*/
  10.  
  11. XFillPolygon(widgetPtr->display, pixmap, arrowGC,
  12. points, 3, Convex, CoordModeOrigin);
  13.  
  14. Tk_FreeColor(black);
  15.  
  16. ---------------------------------------------------------------------------------
  17. XPoints points[3];
  18. GC arrowGC;
  19. int x, y, w, h;
  20.  
  21. arrowGC = Tk_GCForColor(Tk_GetColor(widgetPtr->interp,
  22. widgetPtr->tkwin, "black"), pixmap);
  23.  
  24. /*assign values to points, x, y, w and h*/
  25.  
  26. XFillPolygon(widgetPtr->display, pixmap, arrowGC,
  27. points, 3, Convex, CoordModeOrigin);