… | |
… | |
43 | $self->want_refresh; |
43 | $self->want_refresh; |
44 | } |
44 | } |
45 | |
45 | |
46 | sub new_tab { |
46 | sub new_tab { |
47 | my ($self, @argv) = @_; |
47 | my ($self, @argv) = @_; |
48 | |
|
|
49 | my $offset = $self->fheight; |
|
|
50 | |
48 | |
51 | # save a backlink to us, make sure tabbed is inactive |
49 | # save a backlink to us, make sure tabbed is inactive |
52 | push @urxvt::TERM_INIT, sub { |
50 | push @urxvt::TERM_INIT, sub { |
53 | my ($term) = @_; |
51 | my ($term) = @_; |
54 | $term->{parent} = $self; |
52 | $term->{parent} = $self; |
… | |
… | |
79 | |
77 | |
80 | # this is an extremely dirty way to force a configurenotify, but who cares |
78 | # this is an extremely dirty way to force a configurenotify, but who cares |
81 | $tab->XMoveResizeWindow ( |
79 | $tab->XMoveResizeWindow ( |
82 | $tab->parent, |
80 | $tab->parent, |
83 | 0, $self->{tabheight} + 1, |
81 | 0, $self->{tabheight} + 1, |
84 | $self->width, $self->height - $self->{tabheight} |
82 | $self->width, |
|
|
83 | $self->height - $self->{tabheight} + 2 * $tab->int_bwidth |
85 | ); |
84 | ); |
86 | $tab->XMoveResizeWindow ( |
85 | $tab->XMoveResizeWindow ( |
87 | $tab->parent, |
86 | $tab->parent, |
88 | 0, $self->{tabheight}, |
87 | 0, $self->{tabheight}, |
89 | $self->width, $self->height - $self->{tabheight} |
88 | $self->width, |
|
|
89 | $self->height - $self->{tabheight} + 2 * $tab->int_bwidth |
90 | ); |
90 | ); |
91 | } |
91 | } |
92 | |
92 | |
93 | sub on_resize_all_windows { |
93 | sub on_resize_all_windows { |
94 | my ($self, $width, $height) = @_; |
94 | my ($self, $width, $height) = @_; |