diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-28 07:25:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-28 07:25:21 (GMT) |
| commit | 77acd42d86b6416b8ee9420f6e9ff759f06c28ab (patch) | |
| tree | 9c609205cad73e977905800d4634bf3538071438 /generic/tkClipboard.c | |
| parent | 42f0b713dd28f3d56226621b9016969cd5804a57 (diff) | |
| parent | cb9575f44e80a63234981233f4288fd29be862f8 (diff) | |
| download | tk-77acd42d86b6416b8ee9420f6e9ff759f06c28ab.zip tk-77acd42d86b6416b8ee9420f6e9ff759f06c28ab.tar.gz tk-77acd42d86b6416b8ee9420f6e9ff759f06c28ab.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tkClipboard.c')
| -rw-r--r-- | generic/tkClipboard.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c index 94e8d7c..604fa98 100644 --- a/generic/tkClipboard.c +++ b/generic/tkClipboard.c @@ -649,11 +649,8 @@ TkClipInit( * and set up an event handler for it. */ - dispPtr->clipWindow = Tk_CreateWindow(interp, NULL, "_clip", - DisplayString(dispPtr->display)); - if (dispPtr->clipWindow == NULL) { - return TCL_ERROR; - } + dispPtr->clipWindow = (Tk_Window) TkAllocWindow(dispPtr, + DefaultScreen(dispPtr->display), NULL); Tcl_Preserve(dispPtr->clipWindow); atts.override_redirect = True; Tk_ChangeWindowAttributes(dispPtr->clipWindow, CWOverrideRedirect, &atts); |