This is the mail archive of the
insight-prs@sources.redhat.com
mailing list for the Insight project.
Re: insight/131: Dismissing an int 3 dialog box
- From: Keith Seitz <keiths at redhat dot com>
- To: nobody at sources dot redhat dot com
- Cc: insight-prs at sources dot redhat dot com,
- Date: 22 Mar 2002 21:43:02 -0000
- Subject: Re: insight/131: Dismissing an int 3 dialog box
- Reply-to: Keith Seitz <keiths at redhat dot com>
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 != ""} {