… | |
… | |
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 |
|
|
77 | $tab->XMoveResizeWindow ( |
|
|
78 | $tab->parent, |
|
|
79 | 0, $self->{tabheight} + 1, |
|
|
80 | $self->width, $self->height - $self->{tabheight} |
|
|
81 | ); |
76 | $tab->XMoveResizeWindow ( |
82 | $tab->XMoveResizeWindow ( |
77 | $tab->parent, |
83 | $tab->parent, |
78 | 0, $self->{tabheight}, |
84 | 0, $self->{tabheight}, |
79 | $self->width, $self->height - $self->{tabheight} |
85 | $self->width, $self->height - $self->{tabheight} |
80 | ); |
86 | ); |
… | |
… | |
180 | |
186 | |
181 | sub on_configure_notify { |
187 | sub on_configure_notify { |
182 | my ($self, $event) = @_; |
188 | my ($self, $event) = @_; |
183 | |
189 | |
184 | $self->configure; |
190 | $self->configure; |
|
|
191 | $self->refresh; |
185 | |
192 | |
186 | () |
193 | () |
187 | } |
194 | } |
188 | |
195 | |
189 | sub on_wm_delete_window { |
196 | sub on_wm_delete_window { |