| … | |
… | |
| 71 | sub configure { |
71 | sub configure { |
| 72 | my ($self) = @_; |
72 | my ($self) = @_; |
| 73 | |
73 | |
| 74 | my $tab = $self->{cur}; |
74 | my $tab = $self->{cur}; |
| 75 | |
75 | |
|
|
76 | # this is an extremely dirty way to force a configurenotify, but who cares |
| 76 | $tab->XMoveResizeWindow ( |
77 | $tab->XMoveResizeWindow ( |
| 77 | $tab->parent, |
78 | $tab->parent, |
| 78 | 0, $self->{tabheight} - 1, |
79 | 0, $self->{tabheight} + 1, |
| 79 | $self->width, $self->height - $self->{tabheight} |
80 | $self->width, $self->height - $self->{tabheight} |
| 80 | ); |
81 | ); |
| 81 | $tab->XMoveResizeWindow ( |
82 | $tab->XMoveResizeWindow ( |
| 82 | $tab->parent, |
83 | $tab->parent, |
| 83 | 0, $self->{tabheight}, |
84 | 0, $self->{tabheight}, |
