Browse Source

This changes the shortcuts a little .. save_as to Alt-a, and search to Alt-s.

master
freesource 23 years ago
parent
commit
5c93200bda
  1. 7
      BootRoot/YardBox.pm

7
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 {

Loading…
Cancel
Save