insight combobox error (wont go away) no such variable grabstatus

insight combobox error (wont go away) no such variable grabstatus

[Graham Swallow]

With my current glibc/X11 versions, I get a combo-box
problem with insight - the combobox wont close, reports
a stack trace, saying no such variable as "grabstatus".
The problem get better with this line that sets the
variable if it hasnt been set. You would probably go
back to the root-cause which might be the foreach
never lappend-ing anything in the first place.

I dont know why this happens now, when it never used to,
but it does.

--
   Graham
   Information-Cascade@ntlworld. c o m


PATCH to $PREFIX/share/redhat/gui

--- .combobox.tcl	Wed Sep 25 11:57:51 2002
+++ combobox.tcl	Mon Oct  7 15:05:30 2002
@@ -792,6 +792,7 @@
 	    # *gasp* do a global grab!!! Mom always told not to
 	    # do things like this... :-)
 	    set grablist [grab current]
+# is this maybe not set
 	    foreach grabitem $grablist {
 		lappend grabstatus [grab status $grabitem]
 	    }
@@ -810,6 +811,8 @@
 	    }
 	    # hides the listbox
 	    grab release $widgets(this)
+#
+if [ info exists grabstatus ] {} {set grabstatus {} }
 	    foreach grabitem $grablist itemstatus $grabstatus {
 		if {$itemstatus == "global"} {
 	           grab set -global $grabitem

Re: insight combobox error (wont go away) no such variable grabstatus

[Keith Seitz]

On Mon, 7 Oct 2002, Graham Swallow wrote:

> With my current glibc/X11 versions, I get a combo-box
> problem with insight - the combobox wont close, reports
> a stack trace, saying no such variable as "grabstatus".
> The problem get better with this line that sets the
> variable if it hasnt been set. You would probably go
> back to the root-cause which might be the foreach
> never lappend-ing anything in the first place.

Are you keeping your sources up to date? I believe that a patch was 
committed to libgui to fix this. (Copied below)

Keith

2002-09-20  Fernando Nasser  <fnasser@totem.toronto.redhat.com>

        * library/combobox.tcl (build): Add line missing from previous 
	patch.

Index: combobox.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/combobox.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -p -r1.4 -r1.5
*** combobox.tcl        20 Sep 2002 17:38:52 -0000      1.4
--- combobox.tcl        25 Sep 2002 05:01:21 -0000      1.5
*************** proc ::combobox::widgetProc {w command a
*** 792,797 ****
--- 792,798 ----
            # *gasp* do a global grab!!! Mom always told not to
            # do things like this... :-)
            set grablist [grab current]
+           set grabstatus {}
            foreach grabitem $grablist {
                lappend grabstatus [grab status $grabitem]
            }