… | |
… | |
77 | |
77 | |
78 | # 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 |
79 | $tab->XMoveResizeWindow ( |
79 | $tab->XMoveResizeWindow ( |
80 | $tab->parent, |
80 | $tab->parent, |
81 | 0, $self->{tabheight} + 1, |
81 | 0, $self->{tabheight} + 1, |
82 | $self->width, |
82 | $self->width, $self->height - $self->{tabheight} |
83 | $self->height - $self->{tabheight} + 2 * $tab->int_bwidth |
|
|
84 | ); |
83 | ); |
85 | $tab->XMoveResizeWindow ( |
84 | $tab->XMoveResizeWindow ( |
86 | $tab->parent, |
85 | $tab->parent, |
87 | 0, $self->{tabheight}, |
86 | 0, $self->{tabheight}, |
88 | $self->width, |
87 | $self->width, $self->height - $self->{tabheight} |
89 | $self->height - $self->{tabheight} + 2 * $tab->int_bwidth |
|
|
90 | ); |
88 | ); |
91 | } |
89 | } |
92 | |
90 | |
93 | sub on_resize_all_windows { |
91 | sub on_resize_all_windows { |
94 | my ($self, $width, $height) = @_; |
92 | my ($self, $width, $height) = @_; |