insight/150: Focus is not given to the files entry box within the watch window

[craig@triscend.com]

>Number:         150
>Category:       insight
>Synopsis:       Focus is not given to the files entry box within the watch window
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue May 07 14:53:00 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     craig@triscend.com
>Release:        unknown-1.0
>Organization:
>Environment:
Windows 2000/Cygwin & linux
>Description:
This patch gives focus to the variable entry box within the watch window.
>How-To-Repeat:

>Fix:
See attached patch file.
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="watch.tcl.pat"
Content-Disposition: inline; filename="watch.tcl.pat"

Index: watch.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/watch.tcl,v
retrieving revision 1.5
diff -c -p -r1.5 watch.tcl
*** watch.tcl	5 Mar 2002 22:22:20 -0000	1.5
--- watch.tcl	7 May 2002 21:44:51 -0000
*************** class WatchWin {
*** 73,79 ****
      ::update idletasks
      # Binding for the entry
      bind $entryFrame.ent <Return> "$entryFrame.but flash; $entryFrame.but invoke"
! 
    }
  
    method selectionChanged {entry} {
--- 73,79 ----
      ::update idletasks
      # Binding for the entry
      bind $entryFrame.ent <Return> "$entryFrame.but flash; $entryFrame.but invoke"
!     focus $Entry
    }
  
    method selectionChanged {entry} {