From dc09fc47d4599864459df7997f1cbe363a1200e0 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Sat, 15 Jun 2002 02:15:38 +0000
Subject: corrected cast warning

FossilOrigin-Name: b5a08bfb65fa65081b407e4909d9648ce8893094
---
 generic/tkCmds.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index dcf0c64..733ff2e 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkCmds.c,v 1.26 2002/06/15 02:08:12 hobbs Exp $
+ * RCS: @(#) $Id: tkCmds.c,v 1.27 2002/06/15 02:15:39 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -726,7 +726,7 @@ Tk_TkObjCmd(clientData, interp, objc, objv)
 		return TCL_ERROR;
 	    }
 	    Tcl_SetBooleanObj(Tcl_GetObjResult(interp),
-		    (dispPtr->flags & TK_DISPLAY_USE_IM));
+		    (int) (dispPtr->flags & TK_DISPLAY_USE_IM));
 	    break;
 	}
     }
-- 
cgit v0.12