From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 16488 invoked by alias); 4 Dec 2002 05:04:11 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 16478 invoked from network); 4 Dec 2002 05:04:09 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sources.redhat.com with SMTP; 4 Dec 2002 05:04:09 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id gB44d9P15148 for ; Tue, 3 Dec 2002 23:39:09 -0500 Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gB4548D07024 for ; Wed, 4 Dec 2002 00:04:08 -0500 Received: from dragon (romulus-int.sfbay.redhat.com [172.16.27.46]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gB4548909582 for ; Wed, 4 Dec 2002 00:04:08 -0500 Subject: [patch] Add popup menu item to variable window From: "Martin M. Hunt" To: "insight@sources.redhat.com" Content-Type: multipart/mixed; boundary="=-1chmQNUrsPbWhLwe6ZV7" Date: Tue, 03 Dec 2002 21:04:00 -0000 Message-Id: <1038978342.1168.90.camel@Dragon> Mime-Version: 1.0 X-SW-Source: 2002-q4/txt/msg00155.txt.bz2 --=-1chmQNUrsPbWhLwe6ZV7 Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-length: 147 2002-12-03 Martin M. Hunt * library/vartree.itb (_but3): Add popup menu item to dump memory at the value of the variable. --=-1chmQNUrsPbWhLwe6ZV7 Content-Disposition: attachment; filename=p Content-Transfer-Encoding: quoted-printable Content-Type: text/x-patch; name=p; charset=UTF-8 Content-length: 1089 Index: vartree.itb =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 "binar= y" -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=20=20=20 + $pop add command -label "Dump Memory at $value" -command [list Manage= dWin::open MemWin -force -addr_exp $value] + } $pop add separator if {$type =3D=3D "local"} { $pop add command -label "Help" -command "open_help watch.html" --=-1chmQNUrsPbWhLwe6ZV7--