insight/131: Dismissing an int 3 dialog box
Keith Seitz
keiths@redhat.com
Fri Mar 22 13:43:00 GMT 2002
The following reply was made to PR insight/131; it has been noted by GNATS.
From: Keith Seitz <keiths@redhat.com>
To: <fred@nextnewgig.com>
Cc: <insight-gnats@sources.redhat.com>
Subject: Re: insight/131: Dismissing an int 3 dialog box
Date: Fri, 22 Mar 2002 13:42:09 -0800 (PST)
On 4 Mar 2002 fred@nextnewgig.com wrote:
> can't resolve scoped variable "@itcl ::.warningdlg0.warningdlg ::ModalDialog::unpost_notification": can't find object ::.warningdlg0.warningdlg
> while executing
> "set {@itcl ::.warningdlg0.warningdlg ::ModalDialog::unpost_notification} 1"
> ("after" script)errorCode is NONE
Ok, I think I've figured this out. ModalDialog::unpost was being called
twice for the WarningDialog. <Return> in the warning dialog was bound to
invoke the button. But the button is the only button (and starts with the
focus), so it was being invoked via a default binding.
I've "fixed" this by having <Return> not run any other bindings. This
doesn't seem to affect current trunk sources, so I am not going to check
anything in there.
Apply this patch in src/gdb/gdbtk and re-install gdb. Please let me know
if this fixes the problem for you.
Keith
Index: library/warning.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/warning.tcl,v
retrieving revision 1.1.1.1
diff -u -p -r1.1.1.1 warning.tcl
--- library/warning.tcl 2000/02/07 00:19:42 1.1.1.1
+++ library/warning.tcl 2002/03/22 21:37:49
@@ -88,7 +88,7 @@ body WarningDlg::constructor {args} {
button $itk_interior.f.b.ok -text OK -underline 0 -command [code $this unpost]
bind $itk_interior.f.b.ok <Return> \
- "$itk_interior.f.b.ok flash; $itk_interior.f.b.ok invoke"
+ "$itk_interior.f.b.ok flash; $itk_interior.f.b.ok invoke; break"
focus $itk_interior.f.b.ok
if {$ignorable != ""} {
More information about the Insight-prs
mailing list