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 => 'S', + accelerator => '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 {