amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 09:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed a bug with 'show history' key shortcut

Browse source 
Fix incorrect method call
This commit is contained in:
Duncan Ferguson 2013-04-21 22:09:43 +01:00
parent b93253123d
commit 85a796600a
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Changes
View file

@ -1,6 +1,7 @@
????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.02_02 ????-??-?? Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.02_02
- Fixed macros (%u, %s, %h, %n) not doing multiple replacements - Fixed macros (%u, %s, %h, %n) not doing multiple replacements
- Add in key shortcut for username macro (ALT-u) - Add in key shortcut for username macro (ALT-u)
- Fixed a bug with 'show history' key shortcut
2013-04-16 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.02_01 2013-04-16 Duncan Ferguson <duncan_ferguson@user.sf.net> - v4.02_01
- Refactured file loading code - Refactured file loading code

9
lib/App/ClusterSSH.pm
View file

@ -1617,7 +1617,7 @@ sub key_event {
if ( $hotkey eq "key_addhost" ); if ( $hotkey eq "key_addhost" );
$self->retile_hosts("force") $self->retile_hosts("force")
if ( $hotkey eq "key_retilehosts" ); if ( $hotkey eq "key_retilehosts" );
show_history() if ( $hotkey eq "key_history" ); $self->show_history() if ( $hotkey eq "key_history" );
exit_prog() if ( $hotkey eq "key_quit" ); exit_prog() if ( $hotkey eq "key_quit" );
} }
return; return;
@ -1780,7 +1780,12 @@ sub populate_send_menu {
logmsg( 2, 'Using default send menu' ); logmsg( 2, 'Using default send menu' );
$menus{send}->command( $menus{send}->command(
-label => 'Hostname', -label => 'Remote Hostname',
-command => [ \&send_text_to_all_servers, '%s' ],
-accelerator => $self->config->{key_clientname},
);
$menus{send}->command(
-label => 'Local Hostname',
-command => [ \&send_text_to_all_servers, '%s' ], -command => [ \&send_text_to_all_servers, '%s' ],
-accelerator => $self->config->{key_clientname}, -accelerator => $self->config->{key_clientname},
); );