Tk Source Code

Check-in [6b1b31ec]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Bugfixes by René Zaumseil: TRUE and FALSE were undefined under Linux, and types were wrong in rbcTile.c
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-510
Files: files | file ages | folders
SHA3-256: 6b1b31eca54f186de00e97fa9261bab5ba0addcc3f76d48b3126bd8d74ba90cf
User & Date: fvogel 2018-06-26 21:26:22
Context
2018-06-28
18:24
Commit changes received from René Zaumseil check-in: f80ff0cf user: fvogel tags: tip-510
2018-06-26
21:26
Bugfixes by René Zaumseil: TRUE and FALSE were undefined under Linux, and types were wrong in rbcTile.c check-in: 6b1b31ec user: fvogel tags: tip-510
21:21
Add file library/rbc/graph.tcl provided by René Zaumseil check-in: f2524760 user: fvogel tags: tip-510
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/rbc/rbcInt.h.

3131
3132
3133
3134
3135
3136
3137







3138
3139
3140
3141
#ifdef _WIN32
#include "rbcWin.h"
#endif

#ifndef _WIN32
#define PurifyPrintf  printf
#endif /* _WIN32 */








#endif /* _RBCINT */

/* vim: set ts=4 sw=4 sts=4 ff=unix et : */






>
>
>
>
>
>
>




3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
#ifdef _WIN32
#include "rbcWin.h"
#endif

#ifndef _WIN32
#define PurifyPrintf  printf
#endif /* _WIN32 */

#ifndef TRUE
#define TRUE 1
#endif
#ifndef FALSE
#define FALSE 0
#endif

#endif /* _RBCINT */

/* vim: set ts=4 sw=4 sts=4 ff=unix et : */

Changes to generic/rbc/rbcTile.c.

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
....
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
 *----------------------------------------------------------------------
 */
static Pixmap
PolygonMask(
    Display *display,
    XPoint *pointArr,
    int nPoints,
    Region2D *regionPtr,
    Pixmap mask,
    int xOrigin,
    int yOrigin)
{
    unsigned int width, height;
    Pixmap bitmap;
    GC gc;
................................................................................
{
    Tile *tilePtr;
    Display *display;
    display = Tk_Display(tkwin);
    tilePtr = clientPtr->tilePtr;
    if (tilePtr->mask != None) {
        XPoint *pointPtr, *endPtr;
        Region2D region;
        Pixmap mask;
        /* Determine the bounding box of the polygon. */
        pointPtr = pointArr;
        region.left = region.right = pointPtr->x;
        region.top = region.bottom = pointPtr->y;
        endPtr = pointArr + nPoints;
        for (pointPtr = pointArr; pointPtr < endPtr; pointPtr++) {






|







 







|







1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
....
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
 *----------------------------------------------------------------------
 */
static Pixmap
PolygonMask(
    Display *display,
    XPoint *pointArr,
    int nPoints,
    RbcRegion2D *regionPtr,
    Pixmap mask,
    int xOrigin,
    int yOrigin)
{
    unsigned int width, height;
    Pixmap bitmap;
    GC gc;
................................................................................
{
    Tile *tilePtr;
    Display *display;
    display = Tk_Display(tkwin);
    tilePtr = clientPtr->tilePtr;
    if (tilePtr->mask != None) {
        XPoint *pointPtr, *endPtr;
        RbcRegion2D region;
        Pixmap mask;
        /* Determine the bounding box of the polygon. */
        pointPtr = pointArr;
        region.left = region.right = pointPtr->x;
        region.top = region.bottom = pointPtr->y;
        endPtr = pointArr + nPoints;
        for (pointPtr = pointArr; pointPtr < endPtr; pointPtr++) {