diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-09-15 00:33:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-09-15 00:33:30 (GMT) |
| commit | d4799769dc9a0126af780007c17b3dd957d7a2d5 (patch) | |
| tree | 8fb424eb90013d0c80b0d4ce801008c584e0f27b /generic | |
| parent | 7a077bb388d8dcc2295b508e936e3d9eb7f4e57a (diff) | |
| download | tk-d4799769dc9a0126af780007c17b3dd957d7a2d5.zip tk-d4799769dc9a0126af780007c17b3dd957d7a2d5.tar.gz tk-d4799769dc9a0126af780007c17b3dd957d7a2d5.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.c | 3 |
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); |