bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-04-04 07:43:22 -04:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
freesource 2001-08-26 22:45:53 +00:00
parent 92d86afc80
commit 5c93200bda
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
BootRoot/YardBox.pm
View File

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