Patch to get rid of error when closing last window

[Mo DeJong <supermo@bayarea.net>]

If you are using the CVS version of sourcenav and are running into an error
while closing the last window in a project that looks something like this:

invalid command name "::.t2"
    while executing
"::.t2 itk_component delete button"
    (in namespace inscope "::itk::Archetype" script line 1)
    invoked from within

then you will want to test out the following patch. The patch fixes
the problem but I am waiting to see what the itk maintainers think
of the patch before submitting it for inclusion in the sources itcl
module.

cheers
Mo DeJong


Index: itk/library/Toplevel.itk
===================================================================
RCS file: /cvs/src/src/itcl/itk/library/Toplevel.itk,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 Toplevel.itk
--- Toplevel.itk	2001/09/09 19:49:05	1.1.1.2
+++ Toplevel.itk	2002/02/08 22:17:17
@@ -63,6 +63,12 @@
             }
             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 "" {
Index: itk/library/Widget.itk
===================================================================
RCS file: /cvs/src/src/itcl/itk/library/Widget.itk,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 Widget.itk
--- Widget.itk	2001/09/09 19:49:05	1.1.1.2
+++ Widget.itk	2002/02/08 22:17:17
@@ -64,6 +64,12 @@
             }
             destroy $itk_hull
         }
+        itk_component delete hull
+
+        # Any remaining components must be outside the hull
+        foreach component [component] {
+            destroy [component $component]
+        }
     }
 
     private variable itk_hull ""