| … | |
… | |
| 209 | sub show { |
209 | sub show { |
| 210 | my ($self) = @_; |
210 | my ($self) = @_; |
| 211 | return if $self->{parent}; |
211 | return if $self->{parent}; |
| 212 | |
212 | |
| 213 | $CFClient::UI::ROOT->add ($self); |
213 | $CFClient::UI::ROOT->add ($self); |
|
|
214 | } |
|
|
215 | |
|
|
216 | sub show_centered { |
|
|
217 | my ($self) = @_; |
|
|
218 | return if $self->{parent}; |
|
|
219 | |
|
|
220 | $self->show; |
|
|
221 | |
|
|
222 | $CFClient::UI::ROOT->on_post_alloc ( |
|
|
223 | "centered $self" => sub { |
|
|
224 | $self->move (($::WIDTH - $self->{w}) * 0.5, ($::HEIGHT - $self->{h}) * 0.5); |
|
|
225 | }, |
|
|
226 | ); |
| 214 | } |
227 | } |
| 215 | |
228 | |
| 216 | sub hide { |
229 | sub hide { |
| 217 | my ($self) = @_; |
230 | my ($self) = @_; |
| 218 | |
231 | |
