From c0787856f8a784f35897deea6966a91265520ee8 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Fri, 30 Apr 2004 15:17:27 +0000 Subject: Added an include of the tkIntPlatDecls.m header and suppressed a reference to the panic function to compile for Perl/Tk on Windows. --- win/WinPort.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'win') 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 #include -#include "Types.h" +#ifdef PTK +#include +#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); } /* -- cgit v1.1