Updated to itcl 3.2.1.

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

diff --git a/itcl/itk/library/Toplevel.itk b/itcl/itk/library/Toplevel.itk
index a179622..cb01a6d 100644 (file)
--- a/itcl/itk/library/Toplevel.itk
+++ b/itcl/itk/library/Toplevel.itk
@@ -63,12 +63,6 @@ itcl::class itk::Toplevel {
             }
             destroy $itk_hull
         }
-        itk_component delete hull
-
-        # Any remaining components must be outside the hull
-        foreach component [component] {
-            destroy [component $component]
-        }
     }
 
     itk_option define -title title Title "" {