diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/rc/tk_base.rc | 9 | ||||
| -rw-r--r-- | win/tkWinButton.c | 7 |
2 files changed, 13 insertions, 3 deletions
diff --git a/win/rc/tk_base.rc b/win/rc/tk_base.rc index fa7dc9a..456a5aa 100644 --- a/win/rc/tk_base.rc +++ b/win/rc/tk_base.rc @@ -1,4 +1,4 @@ -// RCS: @(#) $Id: tk_base.rc,v 1.3 2004/01/13 02:01:55 davygrvy Exp $ +// RCS: @(#) $Id: tk_base.rc,v 1.4 2006/12/12 23:38:22 mdejong Exp $ // // Base resources needed by Tk whether it's a DLL or a static library. // @@ -8,8 +8,15 @@ // // Tk Icon // +// The BASE_NO_TK_ICON symbol can be defined to avoid +// creating an icon named "tk" in this resource file. +// The user can then create another icon named tk in +// another resource file and link both resource files. +// Tk will then use the custom icon instead of tk.ico. +#ifndef BASE_NO_TK_ICON tk ICON DISCARDABLE "tk.ico" +#endif #include <dlgs.h> diff --git a/win/tkWinButton.c b/win/tkWinButton.c index c7efb90..4503595 100644 --- a/win/tkWinButton.c +++ b/win/tkWinButton.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinButton.c,v 1.28 2005/12/02 13:42:29 dkf Exp $ + * RCS: @(#) $Id: tkWinButton.c,v 1.29 2006/12/12 23:38:22 mdejong Exp $ */ #define OEMRESOURCE @@ -134,7 +134,10 @@ InitBoxes(void) Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); hrsrc = FindResource(module, "buttons", RT_BITMAP); - if (hrsrc) { + if (hrsrc == NULL) { + Tcl_Panic("FindResource() failed for buttons bitmap resource, " + "resources in tk_base.rc must be linked into Tk dll or static executable"); + } else { hblk = LoadResource(module, hrsrc); tsdPtr->boxesPtr = (LPBITMAPINFOHEADER)LockResource(hblk); } |