insight/156: Pressing <RETURN> for the OK/Cancel button on the download status dialog has no effect

insight/156: Pressing <RETURN> for the OK/Cancel button on the download status dialog has no effect

[craig]

>Number:         156
>Category:       insight
>Synopsis:       Pressing <RETURN> for the OK/Cancel button on the download status dialog has no effect
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu May 09 09:53:01 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     craig@triscend.com
>Release:        unknown-1.0
>Organization:
>Environment:
Windows 2000/Cygwin & Linux.
>Description:
When the download status dialog is displayed, pressing <Return> to select the cancel or OK button has no effect.
>How-To-Repeat:
Connect and download to target with the 'Display Download Dialog' option selected, during or after download press <RETURN> to cancel or OK the dialog.
>Fix:
The attached patch binds <RETURN> to the dialog button and gives the OK/Cancel button focus.
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="download.itb.pat"
Content-Disposition: inline; filename="download.itb.pat"

Index: download.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/download.itb,v
retrieving revision 1.7
diff -c -p -r1.7 download.itb
*** download.itb	5 Apr 2002 02:16:22 -0000	1.7
--- download.itb	9 May 2002 16:40:07 -0000
*************** body Download::constructor {args} {
*** 43,48 ****
--- 43,53 ----
    button $itk_interior.cancel -text Cancel -command "$this cancel" \
      -state active -width 10
  
+   bind $itk_interior.cancel <Return> \
+     "$itk_interior.cancel flash; $itk_interior.cancel invoke"
+ 
+   focus $itk_interior.cancel
+ 
    pack $itk_interior.dload -padx 5 -pady 5 -side top -fill x -expand yes
    pack $itk_interior.stat -padx 5 -pady 5 -expand yes
    pack $itk_interior.f -padx 5 -pady 5 -fill x -expand yes