amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 09:22:24 +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
Show stats 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'
* 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
* 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

70
clusterssh/src/cssh.pl
View file

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