From 0af608b8a11f9d8bf758d6cfd7d30538b6b70d1d Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Mon, 19 Dec 1994 17:58:11 +0000 Subject: [PATCH] * gdbtk.tcl (update_assembly): Force update to make sure that pc is visible when creating new assembly windows. --- gdb/ChangeLog | 5 +++++ gdb/gdbtk.tcl | 1 + 2 files changed, 6 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 1b26e2619dd..05846b2e7fa 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +Mon Dec 19 09:55:47 1994 Stu Grossman (grossman@cygnus.com) + + * gdbtk.tcl (update_assembly): Force update to make sure that pc + is visible when creating new assembly windows. + Sun Dec 18 23:31:20 1994 Stu Grossman (grossman@cygnus.com) * gdbtk.c (gdbtk_wait gdbtk_init): Use different method of diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 82610d7153c..8e880059e7f 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -1452,6 +1452,7 @@ proc update_assembly {linespec} { -after .asm.scroll .asm.scroll configure -command "$win yview" set line [pc_to_line $pclist($cfunc) $pc] + update $win yview [expr $line - $asm_screen_height / 2] } -- 2.30.2