public inbox for insight-prs@sourceware.org help / color / mirror / Atom feed
From: Keith Seitz <keiths@redhat.com> To: nobody@sources.redhat.com Cc: insight-prs@sources.redhat.com, Subject: insight/154 Date: Wed, 08 May 2002 10:33:00 -0000 [thread overview] Message-ID: <20020508173300.28142.qmail@sources.redhat.com> (raw) 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}}
reply other threads:[~2002-05-08 17:33 UTC|newest] Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20020508173300.28142.qmail@sources.redhat.com \ --to=keiths@redhat.com \ --cc=insight-prs@sources.redhat.com \ --cc=nobody@sources.redhat.com \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
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).