public inbox for insight-prs@sourceware.org
help / color / mirror / Atom feed
* insight/154
@ 2002-05-08 10:33 Keith Seitz
  0 siblings, 0 replies; only message in thread
From: Keith Seitz @ 2002-05-08 10:33 UTC (permalink / raw)
  To: nobody; +Cc: insight-prs

The following reply was made to PR insight/154; it has been noted by GNATS.

From: Keith Seitz <keiths@redhat.com>
To: <insight-gnats@sources.redhat.com>
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 <craig@triscend.com>
 To: "Keith Seitz (E-mail)" <keiths@redhat.com>
 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 <KP_Enter>	"$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 <KP_Enter>	"$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}}
 
 


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2002-05-08 17:33 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-05-08 10:33 insight/154 Keith Seitz

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).