From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <insight-return-3683-listarch-insight=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 20645 invoked by alias); 19 Sep 2002 02:35:11 -0000
Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:insight-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/insight/>
List-Post: <mailto:insight@sources.redhat.com>
List-Help: <mailto:insight-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: insight-owner@sources.redhat.com
Received: (qmail 20630 invoked from network); 19 Sep 2002 02:35:10 -0000
Received: from unknown (HELO valrhona.uglyboxes.com) (64.1.192.220)
  by sources.redhat.com with SMTP; 19 Sep 2002 02:35:10 -0000
Received: from localhost.localdomain (IDENT:+I7yBT/00QtgkbkdFUwOPo/se2mibp+L@localhost.localdomain [127.0.0.1])
	by valrhona.uglyboxes.com (8.11.6/8.11.6) with ESMTP id g8J2bpR01465
	for <insight@sources.redhat.com>; Wed, 18 Sep 2002 19:37:51 -0700
Date: Wed, 18 Sep 2002 19:35:00 -0000
From: Keith Seitz <keiths@redhat.com>
X-X-Sender: keiths@valrhona.uglyboxes.com
To: insight@sources.redhat.com
Subject: [PATCH] Add copy/paste bindings in Console
Message-ID: <Pine.LNX.4.44.0209181935420.1396-100000@valrhona.uglyboxes.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-SW-Source: 2002-q3/txt/msg00170.txt.bz2

Hmmm. Somehow these disappeared. (Or maybe they never worked? I dunno.)

Keith

ChangeLog
2002-09-18  Keith Seitz  <keiths@redhat.com>

        * library/console.itb (_build_win): Bind control-c and control-v
        to copy and paste.

Patch
Index: library/console.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/console.itb,v
retrieving revision 1.21
diff -p -r1.21 console.itb
*** library/console.itb	7 Jun 2002 09:22:44 -0000	1.21
--- library/console.itb	19 Sep 2002 02:32:14 -0000
*************** body Console::_build_win {} {
*** 192,198 ****
    } [code $this _paste 1]]
    bind $_twin <<Paste>> "[code $this _paste 0]; break"
    bind $_twin <<PasteSelection>> "[code $this _paste 0]; break"
!   
    _setprompt
    pack $itk_interior.stext -expand yes -fill both
      
--- 192,200 ----
    } [code $this _paste 1]]
    bind $_twin <<Paste>> "[code $this _paste 0]; break"
    bind $_twin <<PasteSelection>> "[code $this _paste 0]; break"
!   bind_plain_key $_twin Control-c "event generate $_twin <<Copy>>"
!   bind_plain_key $_twin Control-v "[code $this _paste 1]; break"
! 
    _setprompt
    pack $itk_interior.stext -expand yes -fill both