From dd0a64fd45a7fd8f6da652c02d01b49967931ad0 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 3 May 2007 22:36:11 +0000
Subject: Another pun warning

---
 ChangeLog           | 2 ++
 generic/tkStubLib.c | 5 +++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fea7fbc..5f481b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2007-05-03  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
+	* generic/tkStubLib.c (Tk_InitStubs): 
+	* generic/ttk/ttkLabel.c (LabelSetup): 
 	* unix/tkUnixSelect.c (ConvertSelection): 
 	* unix/tkUnixEvent.c (TkUnixDoOneXEvent): 
 	* generic/tkConfig.c (Tk_RestoreSavedOptions): 
diff --git a/generic/tkStubLib.c b/generic/tkStubLib.c
index 9409c07..2d2e995 100644
--- a/generic/tkStubLib.c
+++ b/generic/tkStubLib.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkStubLib.c,v 1.12 2007/02/13 00:24:12 dkf Exp $
+ * RCS: @(#) $Id: tkStubLib.c,v 1.13 2007/05/03 22:36:11 dkf Exp $
  */
 
 /*
@@ -96,9 +96,10 @@ Tk_InitStubs(
     int exact)
 {
     CONST char *actualVersion;
+    TkStubs **stubsPtrPtr = &tkStubsPtr;	/* squelch warning */
 
     actualVersion = Tcl_PkgRequireEx(interp, "Tk", version, exact,
-	    (ClientData *) &tkStubsPtr);
+	    (ClientData *) stubsPtrPtr);
     if (!actualVersion) {
 	return NULL;
     }
-- 
cgit v0.12