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

Disabled unmapping code until such time as a better way of doing it exists

Browse source 
- this is due to virtual desktop change triggering a retile which is more 
annoying than useful
This commit is contained in:
duncan_ferguson 2009-06-02 15:16:42 +00:00
parent 3a366fec70
commit 7e1dfccb88
2 changed files with 37 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

2
clusterssh/ChangeLog
View file

@ -25,6 +25,8 @@
* Amend default key_addhost from 'Control-plus' to 'Control-Shift-plus' * Amend default key_addhost from 'Control-plus' to 'Control-Shift-plus'
* Add in a 'default' cluster tag, used when no tags provided on command line * Add in a 'default' cluster tag, used when no tags provided on command line
* Fix Alt-n pasting in a resolved hostname instead of the connection hostname * Fix Alt-n pasting in a resolved hostname instead of the connection hostname
* Disabled unmapping code until such time as a better way of doing it exists
- this is due to virtual desktop change triggering a retile
2009-03-26 Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.25-1 2009-03-26 Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.25-1

70
clusterssh/src/cssh.pl
View file

@ -1773,41 +1773,41 @@ sub capture_map_events() {
} }
); );
$windows{main_window}->bind( # $windows{main_window}->bind(
'<Unmap>' => sub { # '<Unmap>' => sub {
logmsg( 3, "Entering UNMAP" ); # logmsg( 3, "Entering UNMAP" );
#
my $state = $windows{main_window}->state(); # my $state = $windows{main_window}->state();
logmsg( 3, # logmsg( 3,
"state=$state previous=$config{internal_previous_state}" ); # "state=$state previous=$config{internal_previous_state}" );
#
if ( $config{internal_previous_state} eq $state ) { # if ( $config{internal_previous_state} eq $state ) {
logmsg( 3, "repeating the same" ); # logmsg( 3, "repeating the same" );
} # }
#
if ( $config{internal_previous_state} eq "mid-change" ) { # if ( $config{internal_previous_state} eq "mid-change" ) {
logmsg( 3, "dropping out as mid-change" ); # logmsg( 3, "dropping out as mid-change" );
return; # return;
} # }
#
if ( $config{internal_previous_state} eq "normal" ) { # if ( $config{internal_previous_state} eq "normal" ) {
logmsg( 3, "withdrawing all windows" ); # logmsg( 3, "withdrawing all windows" );
foreach my $server ( reverse( keys(%servers) ) ) { # foreach my $server ( reverse( keys(%servers) ) ) {
$xdisplay->req( 'UnmapWindow', $servers{$server}{wid} ); # $xdisplay->req( 'UnmapWindow', $servers{$server}{wid} );
if ( $config{unmap_on_redraw} =~ /yes/i ) { # if ( $config{unmap_on_redraw} =~ /yes/i ) {
$xdisplay->req( 'UnmapWindow', # $xdisplay->req( 'UnmapWindow',
$servers{$server}{wid} ); # $servers{$server}{wid} );
} # }
} # }
$xdisplay->flush(); # $xdisplay->flush();
} # }
#
if ( $config{internal_previous_state} ne $state ) { # if ( $config{internal_previous_state} ne $state ) {
logmsg( 3, "resetting prev_state" ); # logmsg( 3, "resetting prev_state" );
$config{internal_previous_state} = $state; # $config{internal_previous_state} = $state;
} # }
} # }
); # );
} }
# for all key event, event hotkeys so there is only 1 key binding # for all key event, event hotkeys so there is only 1 key binding