From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <insight-prs-return-316-listarch-insight-prs=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 10427 invoked by alias); 22 Mar 2002 21:43:04 -0000
Mailing-List: contact insight-prs-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:insight-prs-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/insight-prs/>
List-Post: <mailto:insight-prs@sources.redhat.com>
List-Help: <mailto:insight-prs-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: insight-prs-owner@sources.redhat.com
Received: (qmail 10379 invoked by uid 71); 22 Mar 2002 21:43:02 -0000
Date: Fri, 22 Mar 2002 13:43:00 -0000
Message-ID: <20020322214302.10375.qmail@sources.redhat.com>
To: nobody@sources.redhat.com
Cc: insight-prs@sources.redhat.com,
From: Keith Seitz <keiths@redhat.com>
Subject: Re: insight/131: Dismissing an int 3 dialog box
Reply-To: Keith Seitz <keiths@redhat.com>
X-SW-Source: 2002-q1/txt/msg00091.txt.bz2
List-Id: <insight-prs.sourceware.org>

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 != ""} {