static void
TranslateRectOval(
Tk_Canvas canvas, /* Canvas containing item. */
Tk_Item *itemPtr, /* Item that is being moved. */
double deltaX, double deltaY)
/* Amount by which item is to be moved. */
{
RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
rectOvalPtr->bbox[0] += deltaX;
rectOvalPtr->bbox[1] += deltaY;
rectOvalPtr->bbox[2] += deltaX;
rectOvalPtr->bbox[3] += deltaY;
ComputeRectOvalBbox(canvas, rectOvalPtr);
}
static void
ScaleRectOval(
Tk_Canvas canvas, /* Canvas containing rectangle. */
Tk_Item *itemPtr, /* Rectangle to be scaled. */
double originX, double originY,
/* Origin about which to scale rect. */
double scaleX, /* Amount to scale in X direction. */
double scaleY) /* Amount to scale in Y direction. */
{
RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
rectOvalPtr->bbox[0] = originX + scaleX*(rectOvalPtr->bbox[0] - originX);
rectOvalPtr->bbox[1] = originY + scaleY*(rectOvalPtr->bbox[1] - originY);
rectOvalPtr->bbox[2] = originX + scaleX*(rectOvalPtr->bbox[2] - originX);
rectOvalPtr->bbox[3] = originY + scaleY*(rectOvalPtr->bbox[3] - originY);
ComputeRectOvalBbox(canvas, rectOvalPtr);
}
static int
ConfigureRectOval(
Tcl_Interp *interp, /* Used for error reporting. */
Tk_Canvas canvas, /* Canvas containing itemPtr. */
Tk_Item *itemPtr, /* Rectangle item to reconfigure. */
int objc, /* Number of elements in objv. */
Tcl_Obj *const objv[], /* Arguments describing things to configure. */
int flags) /* Flags to pass to Tk_ConfigureWidget. */
{
RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
XGCValues gcValues;
GC newGC;
unsigned long mask;
Tk_Window tkwin;
Tk_TSOffset *tsoffset;
XColor *color;
Pixmap stipple;
Tk_State state;
tkwin = Tk_CanvasTkwin(canvas);
if (TCL_OK != Tk_ConfigureWidget(interp, tkwin, configSpecs, objc,
(const char **)objv, (char *) rectOvalPtr, flags|TK_CONFIG_OBJS)) {
return TCL_ERROR;
}
state = itemPtr->state;
/*
* A few of the options require additional processing, such as graphics
* contexts.
*/
if (rectOvalPtr->outline.activeWidth > rectOvalPtr->outline.width ||
rectOvalPtr->outline.activeDash.number != 0 ||
rectOvalPtr->outline.activeColor != NULL ||
rectOvalPtr->outline.activeStipple != None ||
rectOvalPtr->activeFillColor != NULL ||
rectOvalPtr->activeFillStipple != None) {
itemPtr->redraw_flags |= TK_ITEM_STATE_DEPENDANT;
} else {
itemPtr->redraw_flags &= ~TK_ITEM_STATE_DEPENDANT;
}
tsoffset = &rectOvalPtr->outline.tsoffset;
flags = tsoffset->flags;
if (flags & TK_OFFSET_LEFT) {
tsoffset->xoffset = (int) (rectOvalPtr->bbox[0] + 0.5);
} else if (flags & TK_OFFSET_CENTER) {
tsoffset->xoffset = (int)
((rectOvalPtr->bbox[0]+rectOvalPtr->bbox[2]+1)/2);
} else if (flags & TK_OFFSET_RIGHT) {
tsoffset->xoffset = (int) (rectOvalPtr->bbox[2] + 0.5);
}
if (flags & TK_OFFSET_TOP) {
tsoffset->yoffset = (int) (rectOvalPtr->bbox[1] + 0.5);
} else if (flags & TK_OFFSET_MIDDLE) {
tsoffset->yoffset = (int)
((rectOvalPtr->bbox[1]+rectOvalPtr->bbox[3]+1)/2);
} else if (flags & TK_OFFSET_BOTTOM) {
tsoffset->yoffset = (int) (rectOvalPtr->bbox[2] + 0.5);
}
/*
* Configure the outline graphics context. If mask is non-zero, the gc has
* changed and must be reallocated, provided that the new settings specify
* a valid outline (non-zero width and non-NULL color)
*/
mask = Tk_ConfigOutlineGC(&gcValues, canvas, itemPtr,
&(rectOvalPtr->outline));
if (mask && \
rectOvalPtr->outline.width != 0 && \
rectOvalPtr->outline.color != NULL) {
gcValues.cap_style = CapProjecting;
mask |= GCCapStyle;
newGC = Tk_GetGC(tkwin, mask, &gcValues);
} else {
newGC = None;
}
if (rectOvalPtr->outline.gc != None) {
Tk_FreeGC(Tk_Display(tkwin), rectOvalPtr->outline.gc);
}
rectOvalPtr->outline.gc = newGC;
if (state == TK_STATE_NULL) {
state = Canvas(canvas)->canvas_state;
}
if (state == TK_STATE_HIDDEN) {
ComputeRectOvalBbox(canvas, rectOvalPtr);
return TCL_OK;
}
color = rectOvalPtr->fillColor;
stipple = rectOvalPtr->fillStipple;
if (Canvas(canvas)->currentItemPtr == itemPtr) {
if (rectOvalPtr->activeFillColor!=NULL) {
color = rectOvalPtr->activeFillColor;
}
if (rectOvalPtr->activeFillStipple!=None) {
stipple = rectOvalPtr->activeFillStipple;
}
} else if (state == TK_STATE_DISABLED) {
if (rectOvalPtr->disabledFillColor!=NULL) {
color = rectOvalPtr->disabledFillColor;
}
if (rectOvalPtr->disabledFillStipple!=None) {
stipple = rectOvalPtr->disabledFillStipple;
}
}
if (color == NULL) {
newGC = None;
} else {
gcValues.foreground = color->pixel;
if (stipple != None) {
gcValues.stipple = stipple;
gcValues.fill_style = FillStippled;
mask = GCForeground|GCStipple|GCFillStyle;
} else {
mask = GCForeground;
}
#ifdef MAC_OSX_TK
/*
* Mac OS X CG drawing needs access to the outline linewidth even for
* fills (as linewidth controls antialiasing).
*/
gcValues.line_width = rectOvalPtr->outline.gc != None ?
rectOvalPtr->outline.gc->line_width : 0;
mask |= GCLineWidth;
#endif
newGC = Tk_GetGC(tkwin, mask, &gcValues);
}
if (rectOvalPtr->fillGC != None) {
Tk_FreeGC(Tk_Display(tkwin), rectOvalPtr->fillGC);
}
rectOvalPtr->fillGC = newGC;
tsoffset = &rectOvalPtr->tsoffset;
flags = tsoffset->flags;
if (flags & TK_OFFSET_LEFT) {
tsoffset->xoffset = (int) (rectOvalPtr->bbox[0] + 0.5);
} else if (flags & TK_OFFSET_CENTER) {
tsoffset->xoffset = (int)
((rectOvalPtr->bbox[0]+rectOvalPtr->bbox[2]+1)/2);
} else if (flags & TK_OFFSET_RIGHT) {
tsoffset->xoffset = (int) (rectOvalPtr->bbox[2] + 0.5);
}
if (flags & TK_OFFSET_TOP) {
tsoffset->yoffset = (int) (rectOvalPtr->bbox[1] + 0.5);
} else if (flags & TK_OFFSET_MIDDLE) {
tsoffset->yoffset = (int)
((rectOvalPtr->bbox[1]+rectOvalPtr->bbox[3]+1)/2);
} else if (flags & TK_OFFSET_BOTTOM) {
tsoffset->yoffset = (int) (rectOvalPtr->bbox[3] + 0.5);
}
ComputeRectOvalBbox(canvas, rectOvalPtr);
return TCL_OK;
}
static int
RectOvalCoords(
Tcl_Interp *interp, /* Used for error reporting. */
Tk_Canvas canvas, /* Canvas containing item. */
Tk_Item *itemPtr, /* Item whose coordinates are to be read or
* modified. */
int objc, /* Number of coordinates supplied in objv. */
Tcl_Obj *const objv[]) /* Array of coordinates: x1,y1,x2,y2,... */
{
RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
/*
* If no coordinates, return the current coordinates (i.e. bounding box).
*/
if (objc == 0) {
Tcl_Obj *bbox[4];
bbox[0] = Tcl_NewDoubleObj(rectOvalPtr->bbox[0]);
bbox[1] = Tcl_NewDoubleObj(rectOvalPtr->bbox[1]);
bbox[2] = Tcl_NewDoubleObj(rectOvalPtr->bbox[2]);
bbox[3] = Tcl_NewDoubleObj(rectOvalPtr->bbox[3]);
Tcl_SetObjResult(interp, Tcl_NewListObj(4, bbox));
return TCL_OK;
}
/*
* If one "coordinate", treat as list of coordinates.
*/
if (objc == 1) {
if (Tcl_ListObjGetElements(interp, objv[0], &objc,
(Tcl_Obj ***) &objv) != TCL_OK) {
return TCL_ERROR;
}
}
/*
* Better have four coordinates now. Spit out an error message otherwise.
*/
if (objc != 4) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"wrong # coordinates: expected 0 or 4, got %d", objc));
Tcl_SetErrorCode(interp, "TK", "CANVAS", "COORDS",
(rectOvalPtr->header.typePtr == &tkRectangleType
? "RECTANGLE" : "OVAL"), NULL);
return TCL_ERROR;
}
/*
* Parse the coordinates and update our bounding box.
*/
if ((Tk_CanvasGetCoordFromObj(interp, canvas, objv[0],
&rectOvalPtr->bbox[0]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[1],
&rectOvalPtr->bbox[1]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[2],
&rectOvalPtr->bbox[2]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[3],
&rectOvalPtr->bbox[3]) != TCL_OK)) {
return TCL_ERROR;
}
ComputeRectOvalBbox(canvas, rectOvalPtr);
return TCL_OK;
}
static int
RectOvalCoords(
Tcl_Interp *interp, /* Used for error reporting. */
Tk_Canvas canvas, /* Canvas containing item. */
Tk_Item *itemPtr, /* Item whose coordinates are to be read or
* modified. */
int objc, /* Number of coordinates supplied in objv. */
Tcl_Obj *const objv[]) /* Array of coordinates: x1,y1,x2,y2,... */
{
RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
/*
* If no coordinates, return the current coordinates (i.e. bounding box).
*/
if (objc == 0) {
Tcl_Obj *obj = Tcl_NewObj();
Tcl_ListObjAppendElement(NULL, obj,
Tcl_NewDoubleObj(rectOvalPtr->bbox[0]));
Tcl_ListObjAppendElement(NULL, obj,
Tcl_NewDoubleObj(rectOvalPtr->bbox[1]));
Tcl_ListObjAppendElement(NULL, obj,
Tcl_NewDoubleObj(rectOvalPtr->bbox[2]));
Tcl_ListObjAppendElement(NULL, obj,
Tcl_NewDoubleObj(rectOvalPtr->bbox[3]));
Tcl_SetObjResult(interp, obj);
return TCL_OK;
}
/*
* If one "coordinate", treat as list of coordinates.
*/
if (objc == 1) {
if (Tcl_ListObjGetElements(interp, objv[0], &objc,
(Tcl_Obj ***) &objv) != TCL_OK) {
return TCL_ERROR;
}
}
/*
* Better have four coordinates now. Spit out an error message otherwise.
*/
if (objc != 4) {
char buf[64 + TCL_INTEGER_SPACE];
sprintf(buf, "wrong # coordinates: expected 0 or 4, got %d", objc);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
return TCL_ERROR;
}
/*
* Parse the coordinates and update our bounding box.
*/
if ((Tk_CanvasGetCoordFromObj(interp, canvas, objv[0],
&rectOvalPtr->bbox[0]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[1],
&rectOvalPtr->bbox[1]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[2],
&rectOvalPtr->bbox[2]) != TCL_OK)
|| (Tk_CanvasGetCoordFromObj(interp, canvas, objv[3],
&rectOvalPtr->bbox[3]) != TCL_OK)) {
return TCL_ERROR;
}
ComputeRectOvalBbox(canvas, rectOvalPtr);
return TCL_OK;
}
