diff options
Diffstat (limited to 'unix/tkUnixEmbed.c')
| -rw-r--r-- | unix/tkUnixEmbed.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tkUnixEmbed.c b/unix/tkUnixEmbed.c index a8765bd..965cbae 100644 --- a/unix/tkUnixEmbed.c +++ b/unix/tkUnixEmbed.c @@ -112,7 +112,7 @@ Tk_UseWindow( if (winPtr->window != None) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "can't modify container after widget is created", TCL_INDEX_NONE)); - Tcl_SetErrorCode(interp, "TK", "EMBED", "POST_CREATE", NULL); + Tcl_SetErrorCode(interp, "TK", "EMBED", "POST_CREATE", (char *)NULL); return TCL_ERROR; } if (TkpScanWindowId(interp, string, &parent) != TCL_OK) { @@ -124,7 +124,7 @@ Tk_UseWindow( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "window \"%s\" doesn't have -container option set", usePtr->pathName)); - Tcl_SetErrorCode(interp, "TK", "EMBED", "CONTAINER", NULL); + Tcl_SetErrorCode(interp, "TK", "EMBED", "CONTAINER", (char *)NULL); return TCL_ERROR; } @@ -147,7 +147,7 @@ Tk_UseWindow( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "couldn't create child of window \"%s\"", string)); - Tcl_SetErrorCode(interp, "TK", "EMBED", "NO_TARGET", NULL); + Tcl_SetErrorCode(interp, "TK", "EMBED", "NO_TARGET", (char *)NULL); } return TCL_ERROR; } @@ -1129,7 +1129,7 @@ TkpMakeTransparentWindowExist( Window parent) /* Parent window. */ { TkWindow *winPtr = (TkWindow *) tkwin; - long int mask = CWDontPropagate | CWEventMask; + unsigned long mask = CWDontPropagate | CWEventMask; /* * Ignore the important events while the window is mapped. |