view release on metacpan or  search on metacpan

lib/App/ClusterSSH.pm  view on Meta::CPAN

            my ($wid) = $servers{ ( keys(%servers) )[0] }{wid};

            if ( defined($wid) ) {

                # get the WM decoration sizes
                (   $self->config->{internal_terminal_wm_decoration_left},
                    $self->config->{internal_terminal_wm_decoration_right},
                    $self->config->{internal_terminal_wm_decoration_top},
                    $self->config->{internal_terminal_wm_decoration_bottom}
                    )
                    = X11::Protocol::WM::get_net_frame_extents( $xdisplay,
                    $wid );
            }
        }

        # in case the WM call failed we set some defaults
        slash_slash_equal(
            $self->config->{internal_terminal_wm_decoration_left}, 0 );
        slash_slash_equal(
            $self->config->{internal_terminal_wm_decoration_right}, 0 );
        slash_slash_equal(