summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-09-15 00:33:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-09-15 00:33:30 (GMT)
commit01237b49dd758458dee4134e4c78b2696035cfe9 (patch)
tree8fb424eb90013d0c80b0d4ce801008c584e0f27b /generic
parente829dc68c26b7b313b94f777def7bb49c471422b (diff)
downloadtk-01237b49dd758458dee4134e4c78b2696035cfe9.zip
tk-01237b49dd758458dee4134e4c78b2696035cfe9.tar.gz
tk-01237b49dd758458dee4134e4c78b2696035cfe9.tar.bz2
3567812 3567779 Repaired regressions in 3546073 fix.
Stopped test event leakage in winWm-9.2.
Diffstat (limited to 'generic')
-rw-r--r--generic/tkClipboard.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c
index 604fa98..b902625 100644
--- a/generic/tkClipboard.c
+++ b/generic/tkClipboard.c
@@ -652,6 +652,9 @@ TkClipInit(
dispPtr->clipWindow = (Tk_Window) TkAllocWindow(dispPtr,
DefaultScreen(dispPtr->display), NULL);
Tcl_Preserve(dispPtr->clipWindow);
+ ((TkWindow *) dispPtr->clipWindow)->flags |=
+ TK_TOP_HIERARCHY|TK_TOP_LEVEL|TK_HAS_WRAPPER|TK_WIN_MANAGED;
+ TkWmNewWindow((TkWindow *) dispPtr->clipWindow);
atts.override_redirect = True;
Tk_ChangeWindowAttributes(dispPtr->clipWindow, CWOverrideRedirect, &atts);
Tk_MakeWindowExist(dispPtr->clipWindow);