#2766 error immediately destroying interpreter

[Jeff Epler]

If an interpreter is created and then immediately destroyed, an error occurs:
% interp eval [interp create] { package require Tk; destroy . }
% can't invoke "event" command: application has been destroyed
while executing
"event generate $w <<ThemeChanged>>"
(procedure "ttk::ThemeChanged" line 6)
invoked from within
"ttk::ThemeChanged"

[Don Porter]

possible dup of 456548