From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28157 invoked by alias); 8 May 2002 17:33:01 -0000 Mailing-List: contact insight-prs-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-prs-owner@sources.redhat.com Received: (qmail 28143 invoked by uid 71); 8 May 2002 17:33:01 -0000 Date: Wed, 08 May 2002 10:33:00 -0000 Message-ID: <20020508173300.28142.qmail@sources.redhat.com> To: nobody@sources.redhat.com Cc: insight-prs@sources.redhat.com, From: Keith Seitz Subject: insight/154 Reply-To: Keith Seitz X-SW-Source: 2002-q2/txt/msg00024.txt.bz2 List-Id: The following reply was made to PR insight/154; it has been noted by GNATS. From: Keith Seitz To: Cc: Subject: insight/154 Date: Wed, 8 May 2002 10:25:28 -0700 (PDT) ---------- Forwarded message ---------- Date: Wed, 8 May 2002 10:22:01 -0700 From: Craig Hackney To: "Keith Seitz (E-mail)" Subject: Missing patch file for bug report 154 Hi Keith, Sorry for sending this direct to you, but I didn't want it to get lost. I forgot to attach it to the bug report and wasn't sure what to do with it. Thanks, Index: memwin.itb =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.itb,v retrieving revision 1.17 diff -c -p -r1.17 memwin.itb *** memwin.itb 6 Mar 2002 23:56:03 -0000 1.17 --- memwin.itb 8 May 2002 16:54:34 -0000 *************** body MemWin::build_win {} { *** 116,122 **** $itk_interior.t configure -rowstretchmode none } scrollbar $itk_interior.sx -command [list $itk_interior.t xview] -orient horizontal ! $itk_interior.t tag config sel -bg [$itk_interior.t cget -bg] -relief sunken $itk_interior.t tag config active -bg lightgray -relief sunken -wrap 0 $itk_interior.t tag config title -bg [pref get gdb/font/header_bg] \ -fg [pref get gdb/font/header_fg] --- 116,123 ---- $itk_interior.t configure -rowstretchmode none } scrollbar $itk_interior.sx -command [list $itk_interior.t xview] -orient horizontal ! $itk_interior.t tag config sel -bg [$itk_interior.t cget -bg] \ ! -fg [$itk_interior.t cget -fg] -relief sunken $itk_interior.t tag config active -bg lightgray -relief sunken -wrap 0 $itk_interior.t tag config title -bg [pref get gdb/font/header_bg] \ -fg [pref get gdb/font/header_fg] *************** body MemWin::build_win {} { *** 131,137 **** bind $itk_interior.t "$this memMoveCell %W 0 1; break" # bind button 3 to popup ! bind $itk_interior.t <3> "$this do_popup %X %Y" # bind Paste and button2 to the paste function # this is necessary because we want to not just paste the --- 132,138 ---- bind $itk_interior.t "$this memMoveCell %W 0 1; break" # bind button 3 to popup ! bind $itk_interior.t <3> "$this do_popup %W %X %Y" # bind Paste and button2 to the paste function # this is necessary because we want to not just paste the *************** body MemWin::reconfig {} { *** 647,663 **** # ------------------------------------------------------------------ # METHOD: do_popup - Display popup menu # ------------------------------------------------------------------ ! body MemWin::do_popup {X Y} { if {$Running} { return } $itk_interior.t.menu delete 0 end $itk_interior.t.menu add check -label "Auto Update" -variable _mem($this,enabled) \ -underline 0 -command "$this toggle_enabled" $itk_interior.t.menu add command -label "Update Now" -underline 0 \ -command [code $this _update_address 1] ! $itk_interior.t.menu add command -label "Go To [$itk_interior.t curvalue]" -underline 0 \ ! -command "$this goto [$itk_interior.t curvalue]" ! $itk_interior.t.menu add command -label "Open New Window at [$itk_interior.t curvalue]" -underline 0 \ ! -command [list ManagedWin::open MemWin -force -addr_exp [$itk_interior.t curvalue]] $itk_interior.t.menu add separator $itk_interior.t.menu add command -label "Preferences..." -underline 0 \ -command "$this create_prefs" --- 648,683 ---- # ------------------------------------------------------------------ # METHOD: do_popup - Display popup menu # ------------------------------------------------------------------ ! body MemWin::do_popup {w X Y} { if {$Running} { return } $itk_interior.t.menu delete 0 end $itk_interior.t.menu add check -label "Auto Update" -variable _mem($this,enabled) \ -underline 0 -command "$this toggle_enabled" $itk_interior.t.menu add command -label "Update Now" -underline 0 \ -command [code $this _update_address 1] ! ! ! if {[catch {$w index active col} c]} { ! set state "disabled" ! set c 0 ! } else { ! set r [$w index active row] ! if {($r == -1 ) || (($c == $Numcols) && $ascii)} { ! set state "disabled" ! } else { ! set state "normal" ! } ! } ! ! $itk_interior.t.menu add command \ ! -label "Go To [$itk_interior.t curvalue]" -underline 0 \ ! -command "$this goto [$itk_interior.t curvalue]" -state $state ! ! $itk_interior.t.menu add command \ ! -label "Open New Window at [$itk_interior.t curvalue]" -underline 0 \ ! -command [list ManagedWin::open MemWin -force \ ! -addr_exp [$itk_interior.t curvalue]] -state $state ! $itk_interior.t.menu add separator $itk_interior.t.menu add command -label "Preferences..." -underline 0 \ -command "$this create_prefs" *************** body MemWin::goto { addr } { *** 671,677 **** set current_addr $addr $itk_interior.f.cntl delete 0 end $itk_interior.f.cntl insert end $addr ! _update_address } # ------------------------------------------------------------------ --- 691,697 ---- set current_addr $addr $itk_interior.f.cntl delete 0 end $itk_interior.f.cntl insert end $addr ! _update_address 1 } # ------------------------------------------------------------------ Index: memwin.ith =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.ith,v retrieving revision 1.8 diff -c -p -r1.8 memwin.ith *** memwin.ith 6 Mar 2002 23:56:03 -0000 1.8 --- memwin.ith 8 May 2002 16:54:34 -0000 *************** class MemWin { *** 70,76 **** method update_addr method hidemb {} method reconfig {} ! method do_popup {x y} method goto {addr} method memMoveCell {w x y} method error_dialog {msg {modality task} {type ok}} --- 70,76 ---- method update_addr method hidemb {} method reconfig {} ! method do_popup {w x y} method goto {addr} method memMoveCell {w x y} method error_dialog {msg {modality task} {type ok}}