From 5c93200bda33056e9e4c1fe19a607ee1936fa20b Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sun, 26 Aug 2001 22:45:53 +0000
Subject: [PATCH] This changes the shortcuts a little .. save_as to Alt-a, and
 search to Alt-s.

---
 BootRoot/YardBox.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm
index 2d6d995..df00985 100644
--- a/BootRoot/YardBox.pm
+++ b/BootRoot/YardBox.pm
@@ -79,7 +79,7 @@ my @menu_items = ( { path        => '/File',
                      callback    => \&saved,
 		     action      =>  100 },
                    { path        => '/File/Save _As ...',
-		     accelerator => '<alt>S',
+		     accelerator => '<alt>A',
 		     callback    => \&saved,
 		     action      => 101 },
                    { path        => '/File/file_separator',
@@ -961,11 +961,13 @@ sub yard_box {
        #_______________________________________ 
        # Create the GtkText widget
        $text = new Gtk::Text( undef, undef );
+##Gtk::Text->signal_connect_after("key-press-event" => \&Gtk::false);
        $text->set_editable($true);
        $text->signal_connect("activate", sub { 
 	   my $new_length =  $text->get_length();
 	   $changed_text_from_template = $text->get_chars(0,$new_length);
        } );
+
        $table->attach( $text, 0, 1, 0, 1,
                        [ 'expand', 'shrink', 'fill' ],
                        [ 'expand', 'shrink', 'fill' ],
@@ -1170,6 +1172,7 @@ sub search {
 
 	#_______________________________________
 	# Search button
+
 	my ($keywords, $old_keywords, $offset);
 	my $submit_b = button(0,1,3,4,"Search",$table_search);
 	$search1->signal_connect("key_press_event", sub {
@@ -1474,7 +1477,7 @@ Selection Shortcuts
 
 Searching Shortcuts
 
- Alt-S
+ Alt-X
 SHORTCUTS
 
 sub path {