diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2018-11-24 16:15:35 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2018-11-24 16:15:35 (GMT) |
| commit | 181784ecec17793582b1e92f1cb0b072bb9d8791 (patch) | |
| tree | c0c1e4e792468ed1a29dea9845e1d5bd369beb24 /macosx/tkMacOSXInit.c | |
| parent | 5e47d46cce7794b3e23422170e464555fb171ce5 (diff) | |
| download | tk-181784ecec17793582b1e92f1cb0b072bb9d8791.zip tk-181784ecec17793582b1e92f1cb0b072bb9d8791.tar.gz tk-181784ecec17793582b1e92f1cb0b072bb9d8791.tar.bz2 | |
Workaround for bundled Wish console not accepting keyboard input on Mojave
Diffstat (limited to 'macosx/tkMacOSXInit.c')
| -rw-r--r-- | macosx/tkMacOSXInit.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/macosx/tkMacOSXInit.c b/macosx/tkMacOSXInit.c index 3a212c4..447619f 100644 --- a/macosx/tkMacOSXInit.c +++ b/macosx/tkMacOSXInit.c @@ -382,6 +382,14 @@ TkpInit( Tcl_CreateObjCommand(interp, "::tk::mac::iconBitmap", TkMacOSXIconBitmapObjCmd, NULL, NULL); + /* + * Workaround for 3efbe4a397; console not accepting keyboard input on 10.14 + * if displayed before main window. This places console in background and it + * accepts input after being raised. + */ + + while (Tcl_DoOneEvent(TCL_IDLE_EVENTS)) {} + return TCL_OK; } |