From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: Tom Tromey <tromey@redhat.com>
Cc: Insight List <insight@sourceware.cygnus.com>
Subject: Re: feature suggestion
Date: Tue, 04 Dec 2001 11:36:00 -0000
Message-ID: <Pine.GSO.4.33.0112041135120.18-100000@makita.cygnus.com>
References: <87adwz367n.fsf@creche.redhat.com>
X-SW-Source: 2001-q4/msg00383.html
Message-ID: <20011204113600.YdhGcqdYnNsE5V3wK2bqGawulezdTn338nbRxG58G3A@z>

On 3 Dec 2001, Tom Tromey wrote:

> It would be helpful to me if the (mouse) cursor changed to a watch
> over the console window when the inferior is executing.

Try this patch. If it works, I'll check something in.

Keith

Index: library/console.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/console.itb,v
retrieving revision 1.14
diff -u -p -r1.14 console.itb
--- library/console.itb	2001/10/17 20:30:29	1.14
+++ library/console.itb	2001/12/04 19:36:22
@@ -205,6 +205,7 @@ body Console::_build_win {} {

 body Console::idle {event} {
   set _running 0
+  $_top configure -cursor {}
 }

 # ------------------------------------------------------------------
@@ -212,6 +213,7 @@ body Console::idle {event} {
 # ------------------------------------------------------------------
 body Console::busy {event} {
   set _running 1
+  $_top configure -cursor watch
 }

 # ------------------------------------------------------------------