Re: insight/131: Dismissing an int 3 dialog box

[Keith Seitz <keiths@redhat.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 != ""} {