diff options
Diffstat (limited to 'win/tkWinClipboard.c')
| -rw-r--r-- | win/tkWinClipboard.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/win/tkWinClipboard.c b/win/tkWinClipboard.c index f51bf8a..4fcff8b 100644 --- a/win/tkWinClipboard.c +++ b/win/tkWinClipboard.c @@ -62,7 +62,7 @@ TkSelGetSelection( if (!OpenClipboard(NULL)) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "clipboard cannot be opened, another application grabbed it")); - Tcl_SetErrorCode(interp, "TK", "CLIPBOARD", "BUSY", NULL); + Tcl_SetErrorCode(interp, "TK", "CLIPBOARD", "BUSY", (char *)NULL); return TCL_ERROR; } @@ -204,7 +204,7 @@ TkSelGetSelection( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "%s selection doesn't exist or form \"%s\" not defined", Tk_GetAtomName(tkwin, selection), Tk_GetAtomName(tkwin, target))); - Tcl_SetErrorCode(interp, "TK", "SELECTION", "EXISTS", NULL); + Tcl_SetErrorCode(interp, "TK", "SELECTION", "EXISTS", (char *)NULL); return TCL_ERROR; } @@ -366,11 +366,13 @@ TkWinClipboardRender( void TkSelUpdateClipboard( TkWindow *winPtr, - TCL_UNUSED(TkClipboardTarget *)) + clipboardOption opt) { - HWND hwnd = TkWinGetHWND(winPtr->window); + if (opt == CLIPBOARD_APPEND || opt == CLIPBOARD_CLEAR) { + HWND hwnd = TkWinGetHWND(winPtr->window); - UpdateClipboard(hwnd); + UpdateClipboard(hwnd); + } } /* |