… | |
… | |
53 | $hints->base_width ($base_width); $hints->base_height ($base_height); |
53 | $hints->base_width ($base_width); $hints->base_height ($base_height); |
54 | $hints->width_inc ($width_inc); $hints->height_inc ($height_inc); |
54 | $hints->width_inc ($width_inc); $hints->height_inc ($height_inc); |
55 | |
55 | |
56 | $rxvt->get_toplevel->set_geometry_hints ($rxvt, $hints, [qw(base-size resize-inc)]); |
56 | $rxvt->get_toplevel->set_geometry_hints ($rxvt, $hints, [qw(base-size resize-inc)]); |
57 | }; |
57 | }; |
58 | |
58 | |
59 | $rxvt->signal_connect_after (realize => sub { |
59 | $rxvt->signal_connect_after (realize => sub { |
60 | my $win = $_[0]->window; |
60 | my $win = $_[0]->window; |
61 | |
61 | |
62 | if (fork == 0) { |
62 | if (fork == 0) { |
63 | exec $RXVT_BASENAME, |
63 | exec $RXVT_BASENAME, |