Import of Itcl 3.3.

[pf3gnuchains/pf3gnuchains3x.git] / itcl / itk / library / Toplevel.itk

diff --git a/itcl/itk/library/Toplevel.itk b/itcl/itk/library/Toplevel.itk
index cb01a6d..1cd8bee 100644 (file)
--- a/itcl/itk/library/Toplevel.itk
+++ b/itcl/itk/library/Toplevel.itk
@@ -63,6 +63,17 @@ itcl::class itk::Toplevel {
             }
             destroy $itk_hull
         }
+        itk_component delete hull
+
+        set components [component]
+        foreach component $components {
+            set path($component) [component $component]
+        }
+        foreach component $components {
+            if {[winfo exists $path($component)]} {
+                destroy $path($component)
+            }
+        }
     }
 
     itk_option define -title title Title "" {