From 1b033bef29ceb87114828c5b985af04f2a525418 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 17 May 2019 13:42:43 +0000
Subject: Migrate away from TCL_INTERP_DESTROYED (TIP 543).

---
 generic/ttk/ttkTrace.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/ttk/ttkTrace.c b/generic/ttk/ttkTrace.c
index ba66db4..7c4345d 100644
--- a/generic/ttk/ttkTrace.c
+++ b/generic/ttk/ttkTrace.c
@@ -34,7 +34,7 @@ VarTraceProc(
     const char *name, *value;
     Tcl_Obj *valuePtr;
 
-    if (flags & TCL_INTERP_DESTROYED) {
+    if (Tcl_InterpDeleted(interp)) {
 	return NULL;
     }
 
-- 
cgit v0.12