From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28864 invoked by alias); 3 Jan 2002 01:13:44 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 28583 invoked from network); 3 Jan 2002 01:13:36 -0000 Message-Id: <200201030113.RAA19126@cygnus.com> Content-Type: text/plain; charset="iso-8859-1" From: "Martin M. Hunt" Organization: Red Hat Inc To: Insight Mailing List Subject: [RFA] source window focus patch Date: Wed, 02 Jan 2002 17:13:00 -0000 X-Mailer: KMail [version 1.3.2] MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-SW-Source: 2002-q1/txt/msg00007.txt.bz2 For the last 6 months, the console window has been almost useless due to the bug that Keith recently fixed, plus another nasty bug that keeps taking thefocus away from the console window and puts it on the source window. This patch should fix that. -- Martin Hunt GDB Engineer Red Hat, Inc. 2002-01-02 Martin M. Hunt * library/srctextwin.itb: Set focus on srcwin only if another window doesn't have the focus. Index: srctextwin.itb =================================================================== RCS file: /cvs/src/src/gdb/gdbtk/library/srctextwin.itb,v retrieving revision 1.28 diff -u -p -r1.28 srctextwin.itb --- srctextwin.itb 2001/10/04 15:01:36 1.28 +++ srctextwin.itb 2002/01/03 01:08:27 @@ -681,8 +681,10 @@ body SrcTextWin::config_win {win {asm S} bind_plain_key $win Up [list %W yview scroll -1 units] bind_plain_key $win Down [list %W yview scroll +1 units] - # Make key bindings usable immediately (without mouse click in window). - focus $win + # After loading a new file, focus sometimes gets lost + # so point it back to this window if it doesn't already + # point elsewhere. + if {[focus -displayof $win] == ""} {focus $win} } # ------------------------------------------------------------------