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

Functionality fixes

Browse source 
Start getting previously used functionality working again with the new modules
This commit is contained in:
Duncan Ferguson 2011-11-21 22:36:25 +00:00
parent 015e130d77
commit 311dbffcc9
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/App/ClusterSSH.pm
View file

@ -1198,13 +1198,13 @@ sub add_host_by_name() {
my @names my @names
= $self->resolve_names( split( /\s+/, $menus{host_entry} ) ); = $self->resolve_names( split( /\s+/, $menus{host_entry} ) );
logmsg( 0, 'Opening to: ', join( ' ', @names ) ); logmsg( 0, 'Opening to: ', join( ' ', @names ) );
open_client_windows(@names); $self->open_client_windows(@names);
} }
if ( $menus{listbox}->curselection() ) { if ( $menus{listbox}->curselection() ) {
my @hosts = $menus{listbox}->get( $menus{listbox}->curselection() ); my @hosts = $menus{listbox}->get( $menus{listbox}->curselection() );
logmsg( 2, "host=", join( ' ', @hosts ) ); logmsg( 2, "host=", join( ' ', @hosts ) );
open_client_windows( $self->resolve_names(@hosts) ); $self->open_client_windows( $self->resolve_names(@hosts) );
} }
build_hosts_menu(); build_hosts_menu();
@ -1522,7 +1522,7 @@ sub capture_map_events() {
if ( $self->config->{internal_previous_state} eq "iconic" ) { if ( $self->config->{internal_previous_state} eq "iconic" ) {
logmsg( 3, "running retile" ); logmsg( 3, "running retile" );
retile_hosts(); $self->retile_hosts();
logmsg( 3, "done with retile" ); logmsg( 3, "done with retile" );
} }
@ -1610,13 +1610,14 @@ sub key_event {
logmsg( 3, "key=:$key:" ); logmsg( 3, "key=:$key:" );
if ( $combo =~ /^$key$/ ) { if ( $combo =~ /^$key$/ ) {
logmsg(3, "matched combo");
if ( $event eq "KeyRelease" ) { if ( $event eq "KeyRelease" ) {
logmsg( 2, "Received hotkey: $hotkey" ); logmsg( 2, "Received hotkey: $hotkey" );
send_text_to_all_servers('%s') send_text_to_all_servers('%s')
if ( $hotkey eq "key_clientname" ); if ( $hotkey eq "key_clientname" );
add_host_by_name() $self->add_host_by_name()
if ( $hotkey eq "key_addhost" ); if ( $hotkey eq "key_addhost" );
retile_hosts("force") $self->retile_hosts("force")
if ( $hotkey eq "key_retilehosts" ); if ( $hotkey eq "key_retilehosts" );
show_history() if ( $hotkey eq "key_history" ); show_history() if ( $hotkey eq "key_history" );
exit_prog() if ( $hotkey eq "key_quit" ); exit_prog() if ( $hotkey eq "key_quit" );
@ -1692,7 +1693,7 @@ sub create_menubar() {
-menuitems => [ -menuitems => [
[ "command", [ "command",
"Retile Windows", "Retile Windows",
-command => \&retile_hosts, -command => sub{ $self->retile_hosts },
-accelerator => $self->config->{key_retilehosts}, -accelerator => $self->config->{key_retilehosts},
], ],
@ -1707,7 +1708,7 @@ sub create_menubar() {
], ],
[ "command", [ "command",
"Add Host(s) or Cluster(s)", "Add Host(s) or Cluster(s)",
-command => \&add_host_by_name, -command => sub{ $self->add_host_by_name, },
-accelerator => $self->config->{key_addhost}, -accelerator => $self->config->{key_addhost},
], ],
'', '',
@ -1732,7 +1733,8 @@ sub create_menubar() {
-tearoff => 0, -tearoff => 0,
); );
$windows{main_window}->bind( '<Key>' => [ $self => 'key_event' ], ); $windows{main_window}->bind( '<KeyPress>' => [ $self => 'key_event' ], );
$windows{main_window}->bind( '<KeyRelease>' => [ $self => 'key_event' ], );
logmsg( 2, "create_menubar: completed" ); logmsg( 2, "create_menubar: completed" );
} }