Index: vartree.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/vartree.itb,v
retrieving revision 1.3
diff -p -r1.3 vartree.itb
*** vartree.itb	3 Dec 2002 23:44:49 -0000	1.3
--- vartree.itb	4 Dec 2002 05:02:32 -0000
*************** itcl::body  VarTree::_but3 {x y X Y} {
*** 342,347 ****
--- 342,351 ----
    $f add radio -label "Binary" -variable [scope popup_temp] -value "binary" -command [code $this _change_format $var]
    $pop add command -label "Edit" -command [code $this edit $j3]
    $pop add command -label "Delete" -command [code $this remove $var]
+   if {![catch {$var value} value]} {
+     $pop add separator   
+     $pop add command -label "Dump Memory at $value" -command [list ManagedWin::open MemWin -force -addr_exp $value]
+   }
    $pop add separator
    if {$type == "local"} {
      $pop add command -label "Help" -command "open_help watch.html"