From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <sourcenav-return-1737-listarch-sourcenav=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 19742 invoked by alias); 8 Feb 2002 22:45:44 -0000
Mailing-List: contact sourcenav-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:sourcenav-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/sourcenav/>
List-Post: <mailto:sourcenav@sources.redhat.com>
List-Help: <mailto:sourcenav-help@sources.redhat.com>, <http://sources.redhat.com/lists.html#faqs>
Sender: sourcenav-owner@sources.redhat.com
Received: (qmail 19666 invoked from network); 8 Feb 2002 22:45:42 -0000
Received: from unknown (HELO shell4.bayarea.net) (209.128.82.1)
  by sources.redhat.com with SMTP; 8 Feb 2002 22:45:42 -0000
Received: from modrick (209-128-79-218.BAYAREA.NET [209.128.79.218])
	by shell4.bayarea.net (8.9.3/8.9.3) with SMTP id OAA25625
	for <sourcenav@sources.redhat.com>; Fri, 8 Feb 2002 14:45:41 -0800
	(envelope-from supermo@bayarea.net)
Date: Tue, 12 Feb 2002 16:49:00 -0000
From: Mo DeJong <supermo@bayarea.net>
To: sourcenav <sourcenav@sources.redhat.com>
Subject: Patch to get rid of error when closing last window
Message-Id: <20020208144412.288bb411.supermo@bayarea.net>
Organization: House of Mirth
X-Mailer: Sylpheed version 0.4.99cvs6 (GTK+ 1.2.7; i686-pc-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
X-SW-Source: 2002-q1/txt/msg00061.txt.bz2

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 ""