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).