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