insight/155: The 'Format' option in the Watch and Local Windows pull down menu is always disabled.

[craig@triscend.com]

>Number:         155
>Category:       insight
>Synopsis:       The 'Format' option in the Watch and Local Windows pull down menu is always disabled.
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed May 08 16:03:01 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     craig@triscend.com
>Release:        unknown-1.0
>Organization:
>Environment:
Windows 2000/Cygwin & Linux GDB for ARM
>Description:
The 'Format' option in the pull down menu on the Watch and Locals Windows is always disabled, even if a valid variable is selected.
>How-To-Repeat:
Connect to a target, load a program, click the Locals or Watch button. Make sure that there are vars in the window. Select a var, then from the 'Watch' or 'Variable' pull down menu try to select 'Format'.
>Fix:
The attached patch Enables the 'Format' option in the pull down menu, however all sub menu options for 'Format' are disabled unless a valid variable is selected.
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="variables.tcl.pat"
Content-Disposition: inline; filename="variables.tcl.pat"

Index: variables.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/variables.tcl,v
retrieving revision 1.15
diff -c -p -r1.15 variables.tcl
*** variables.tcl	5 Mar 2002 22:22:20 -0000	1.15
--- variables.tcl	8 May 2002 21:29:46 -0000
*************** class VariableWin {
*** 203,209 ****
  		    %s editEntry [%s getSelection]
  		} $this $this]
  	}
! 	[namespace tail $this].mmenu.var add cascade -label Format -underline 0 -state disabled \
  	    -menu [namespace tail $this].mmenu.var.format
  
  	menu [namespace tail $this].mmenu.var.format
--- 203,209 ----
  		    %s editEntry [%s getSelection]
  		} $this $this]
  	}
! 	[namespace tail $this].mmenu.var add cascade -label Format -underline 0 -state normal \
  	    -menu [namespace tail $this].mmenu.var.format
  
  	menu [namespace tail $this].mmenu.var.format
*************** class VariableWin {
*** 213,219 ****
  		-value $fmt -variable Display($this) \
  		-command [format {
  		    %s setDisplay [%s getSelection] %s
! 		} $this $this $fmt]
  	}
  
  	#    [namespace tail $this].mmenu add cascade -label Update -underline 0 -menu [namespace tail $this].mmenu.update
--- 213,219 ----
  		-value $fmt -variable Display($this) \
  		-command [format {
  		    %s setDisplay [%s getSelection] %s
! 		} $this $this $fmt] -state disabled
  	}
  
  	#    [namespace tail $this].mmenu add cascade -label Update -underline 0 -menu [namespace tail $this].mmenu.update