diff options
author | fvogel <fvogelnew1@free.fr> | 2018-01-31 07:25:33 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-01-31 07:25:33 (GMT) |
commit | 8471a1b1adb4226c7ce6da5d2d669dd111d06d0c (patch) | |
tree | d4c2399ed84a8920c331fd15e5125d81a26119ef /generic/tkCmds.c | |
parent | 1f9d432d73243ec954f8545ea669c22e28e70fd3 (diff) | |
download | tk-8471a1b1adb4226c7ce6da5d2d669dd111d06d0c.zip tk-8471a1b1adb4226c7ce6da5d2d669dd111d06d0c.tar.gz tk-8471a1b1adb4226c7ce6da5d2d669dd111d06d0c.tar.bz2 |
Patch refinement from Christian Werner. It is now possible to 'make test' with an untrusted X connection without being stopped by X errors (and of course with more failures due to the untrusted connection).
Diffstat (limited to 'generic/tkCmds.c')
-rw-r--r-- | generic/tkCmds.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 6196b17..a64d2e1 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -101,6 +101,7 @@ Tk_BellObjCmd( enum options { TK_BELL_DISPLAYOF, TK_BELL_NICE }; Tk_Window tkwin = clientData; int i, index, nice = 0; + Tk_ErrorHandler handler; if (objc > 4) { wrongArgs: @@ -128,11 +129,13 @@ Tk_BellObjCmd( break; } } + handler = Tk_CreateErrorHandler(Tk_Display(tkwin), -1, -1, -1, NULL, NULL); XBell(Tk_Display(tkwin), 0); if (!nice) { XForceScreenSaver(Tk_Display(tkwin), ScreenSaverReset); } XFlush(Tk_Display(tkwin)); + Tk_DeleteErrorHandler(handler); return TCL_OK; } |