2002-11-11 Martin M. Hunt <hunt@redhat.com>

	* library/srctextwin.itb (do_key): Add arg to
	print call.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 5291a28..fe0d879 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,10 @@
 2002-11-11  Martin M. Hunt  <hunt@redhat.com>  
 
+       * library/srctextwin.itb (do_key): Add arg to
+       print call.
+
+2002-11-11  Martin M. Hunt  <hunt@redhat.com>  
+       
        * library/data.ith: Deleted.
        * library/data.itb: Deleted.
        

diff --git a/gdb/gdbtk/library/srctextwin.itb b/gdb/gdbtk/library/srctextwin.itb
index 2405e78..a08739c 100644 (file)
--- a/gdb/gdbtk/library/srctextwin.itb
+++ b/gdb/gdbtk/library/srctextwin.itb
@@ -2159,7 +2159,7 @@ itcl::body SrcTextWin::addToWatch {var} {
 itcl::body SrcTextWin::do_key {key} {    
   if {!$Running} {
     switch $key {
-      print        { print }
+      print        { print $top }
       download     { Download::download_it }
       run          { $parent inferior run }
       stack        { ManagedWin::open StackWin }