summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2012-07-31 05:07:14 (GMT)
committerjenglish <jenglish@flightlab.com>2012-07-31 05:07:14 (GMT)
commit120c8a0602b5e973ce7b1ec47c786230ca18fdad (patch)
tree741ff99bcb5b70b799187e6c866e47a7b810773d /generic
parent249f6aaeda84147d59059b5d50bfced43415143e (diff)
downloadtk-120c8a0602b5e973ce7b1ec47c786230ca18fdad.zip
tk-120c8a0602b5e973ce7b1ec47c786230ca18fdad.tar.gz
tk-120c8a0602b5e973ce7b1ec47c786230ca18fdad.tar.bz2
Backport fix for [Bug 3546073]
Diffstat (limited to 'generic')
-rw-r--r--generic/tkClipboard.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c
index 8c37f09..e4d5c8e 100644
--- a/generic/tkClipboard.c
+++ b/generic/tkClipboard.c
@@ -655,11 +655,8 @@ TkClipInit(interp, dispPtr)
* and set up an event handler for it.
*/
- dispPtr->clipWindow = Tk_CreateWindow(interp, (Tk_Window) NULL,
- "_clip", DisplayString(dispPtr->display));
- if (dispPtr->clipWindow == NULL) {
- return TCL_ERROR;
- }
+ dispPtr->clipWindow = (Tk_Window) TkAllocWindow(dispPtr,
+ DefaultScreen(dispPtr->display), NULL);
Tcl_Preserve((ClientData) dispPtr->clipWindow);
atts.override_redirect = True;
Tk_ChangeWindowAttributes(dispPtr->clipWindow, CWOverrideRedirect, &atts);