diff options
author | fvogel <fvogelnew1@free.fr> | 2023-02-10 18:27:59 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2023-02-10 18:27:59 (GMT) |
commit | 1d03c1e653a7aff84097c2dee30b8fd8b091160f (patch) | |
tree | 5008d07cb850d679e197001ded813ecf61dc61f9 /generic | |
parent | 1e218f90dab9db97b0f7b9c3013c78b871e11b36 (diff) | |
download | tk-1d03c1e653a7aff84097c2dee30b8fd8b091160f.zip tk-1d03c1e653a7aff84097c2dee30b8fd8b091160f.tar.gz tk-1d03c1e653a7aff84097c2dee30b8fd8b091160f.tar.bz2 |
Fix [https://core.tcl-lang.org/tcl/tktview/170551eeffef|170551eeff] (from the Tcl repository): Crash in tk busy forget.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkBusy.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkBusy.c b/generic/tkBusy.c index 32db4fc..82b4032 100644 --- a/generic/tkBusy.c +++ b/generic/tkBusy.c @@ -686,8 +686,8 @@ GetBusy( Tcl_HashEntry *hPtr; Tk_Window tkwin; - if (TkGetWindowFromObj(interp, Tk_MainWindow(interp), windowObj, - &tkwin) != TCL_OK) { + tkwin = Tk_MainWindow(interp); + if (!tkwin || (TkGetWindowFromObj(interp, tkwin, windowObj, &tkwin) != TCL_OK)) { return NULL; } hPtr = Tcl_FindHashEntry(busyTablePtr, (char *) tkwin); |