diff options
Diffstat (limited to 'itcl/itk/library/itk.tcl')
| -rw-r--r-- | itcl/itk/library/itk.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/itcl/itk/library/itk.tcl b/itcl/itk/library/itk.tcl index dea0f669bb6..4e4ec004d49 100644 --- a/itcl/itk/library/itk.tcl +++ b/itcl/itk/library/itk.tcl @@ -37,6 +37,7 @@ if {$tcl_platform(os) == "MacOS"} { # Tcl than C. # ---------------------------------------------------------------------- proc ::itk::remove_destroy_hook {widget} { + if {![winfo exists $widget]} {return} set tags [bindtags $widget] set i [lsearch $tags "itk-destroy-$widget"] if {$i >= 0} { |