diff options
| author | marc_culler <marc.culler@gmail.com> | 2020-10-20 20:30:41 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2020-10-20 20:30:41 (GMT) |
| commit | 5b13ba033904738041f29eb71237d5de772f8cb5 (patch) | |
| tree | 2e544116c87c76ed8588596163312bb48d393cd6 /macosx/tkMacOSXHLEvents.c | |
| parent | 0df4224575b6a68df0c2c85d97d30c1c9f4317cf (diff) | |
| parent | 4746f7a4ce8af735167adf0718f799d6dcfac83e (diff) | |
| download | tk-5b13ba033904738041f29eb71237d5de772f8cb5.zip tk-5b13ba033904738041f29eb71237d5de772f8cb5.tar.gz tk-5b13ba033904738041f29eb71237d5de772f8cb5.tar.bz2 | |
Merge 8.6 and edit comments
Diffstat (limited to 'macosx/tkMacOSXHLEvents.c')
| -rw-r--r-- | macosx/tkMacOSXHLEvents.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/macosx/tkMacOSXHLEvents.c b/macosx/tkMacOSXHLEvents.c index f1489dd..f405a53 100644 --- a/macosx/tkMacOSXHLEvents.c +++ b/macosx/tkMacOSXHLEvents.c @@ -596,9 +596,14 @@ ReallyKillMe( { Tcl_Interp *interp = ((KillEvent *) eventPtr)->interp; int quit = Tcl_FindCommand(interp, "::tk::mac::Quit", NULL, 0)!=NULL; - int code = Tcl_EvalEx(interp, quit ? "::tk::mac::Quit" : "exit", -1, TCL_EVAL_GLOBAL); + if (!quit) { + Tcl_Exit(0); + } + + int code = Tcl_EvalEx(interp, "::tk::mac::Quit", -1, TCL_EVAL_GLOBAL); if (code != TCL_OK) { + /* * Should be never reached... */ |