diff options
| author | lecoanet | 2004-04-30 15:17:27 +0000 |
|---|---|---|
| committer | lecoanet | 2004-04-30 15:17:27 +0000 |
| commit | c0787856f8a784f35897deea6966a91265520ee8 (patch) | |
| tree | c6c8274626b3f255311e7ad1a7c95d5c80195f93 /win | |
| parent | 2c9452817151c3c37a7fbb1318995496c8ee5a9d (diff) | |
| download | tkzinc-c0787856f8a784f35897deea6966a91265520ee8.zip tkzinc-c0787856f8a784f35897deea6966a91265520ee8.tar.gz tkzinc-c0787856f8a784f35897deea6966a91265520ee8.tar.bz2 tkzinc-c0787856f8a784f35897deea6966a91265520ee8.tar.xz | |
Added an include of the tkIntPlatDecls.m header and
suppressed a reference to the panic function to
compile for Perl/Tk on Windows.
Diffstat (limited to 'win')
| -rw-r--r-- | win/WinPort.c | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/win/WinPort.c b/win/WinPort.c index e530ad3..ecdbe03 100644 --- a/win/WinPort.c +++ b/win/WinPort.c @@ -29,9 +29,12 @@ #ifdef _WIN32 #include "Geo.h" +#include "Types.h" #include <tkInt.h> #include <tkWinInt.h> -#include "Types.h" +#ifdef PTK +#include <tkIntPlatDecls.m> +#endif static const char rcsid[] = "$Id"; static const char compile_id[]="$Compile$"; @@ -403,7 +406,8 @@ XFillRectangles(display, d, gc, rectangles, nrectangles) HBRUSH bgBrush = CreateSolidBrush(gc->background); if (twdPtr->type != TWD_BITMAP) { - panic("unexpected drawable type in stipple"); + ZnWarning("unexpected drawable type in stipple"); + exit(1); } /* @@ -420,7 +424,6 @@ XFillRectangles(display, d, gc, rectangles, nrectangles) * the rectangle and fill it with the background color. Then merge the * result with the stipple pattern. */ - for (i = 0; i < nrectangles; i++) { bitmap = CreateCompatibleBitmap(dc, rectangles[i].width, rectangles[i].height); @@ -541,7 +544,8 @@ RenderObject(dc, gc, points, npoints, mode, pen, func) HBRUSH oldMemBrush; if (twdPtr->type != TWD_BITMAP) { - panic("unexpected drawable type in stipple"); + ZnWarning("unexpected drawable type in stipple"); + exit(1); } /* @@ -921,7 +925,8 @@ DrawOrFillArc(display, d, gc, x, y, width, height, start, extent, fill) HBRUSH oldMemBrush; if (twdPtr->type != TWD_BITMAP) { - panic("unexpected drawable type in stipple"); + ZnWarning("unexpected drawable type in stipple"); + exit(1); } /* |