Re: Patch to get rid of error when closing last window

[Ian Roxborough <irox@redhat.com>]

Thanks for the other patches, Mo.

I'm having trouble reproducing the error, I'm
assuming the there is some dialog or window some
where that needs to be openned or something to
cause the problem error on exit, but I can't
seem to trigger it.

Ian.

On Fri, 8 Feb 2002 14:44:12 -0800 Mo DeJong <supermo@bayarea.net> wrote:
>
> 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 ""